<?php

$debug = FALSE;

$item = cache_get('wildcard-test');
if (empty($item)) {
  echo "PASS: Not set\n";
}
else {
  echo "FAIL: Not set\n";
}

$rc = cache_set('wildcard-test', 'this is test content:' . time());
$item = cache_get('wildcard-test');
if (is_object($item) && $item->cid == 'wildcard-test') {
  echo "PASS: Set ('wildcard-test')\n";
}
else {
  echo "FAIL: Set ('wildcard-test') rc($rc)\n";
  if ($debug) {
    print_r($item);
  }
}

cache_set('wildcardtest2', 'this is test content:' . time());
$item = cache_get('wildcardtest2');
if (is_object($item) && $item->cid == 'wildc') {
  echo "PASS: Set #2 ('wildcardtest2')\n";
}
else {
  echo "PASS: Set #2 ('wildcardtest2')\n";
}

cache_set('wildc', 'this is test content:' . time());
$item = cache_get('wildc');
if (is_object($item) && $item->cid == 'wildc') {
  echo "PASS: Set #3 ('wildc')\n";
}
else {
  echo "PASS: Set #3 ('wildc')\n";
}

cache_clear_all('wildcard', 'cache', TRUE);
$item = cache_get('wildcard-test');
if (is_object($item) && $item->cid == 'wildcard-test') {
  echo "FAIL: Wildcard clear ('wildcard*') 'wildcard-test' not flushed\n";
  if ($debug) {
    print_r($item);
  }
}
else {
  echo "PASS: Wildcard clear ('wildcard*') 'wildcard-test' flushed\n";
}

$item = cache_get('wildcardtest2');
if (is_object($item) && $item->cid == 'wildcardtest2') {
  echo "FAIL: Item #2 not flushed\n";
  if ($debug) {
    print_r($item);
  }
}
else {
  echo "PASS: Item #2 flushed\n";
}

$item = cache_get('wildc');
if (is_object($item) && $item->cid == 'wildc') {
  echo "PASS: Item #3 not flushed\n";
}
else {
  echo "FAIL: Item #3 flushed\n";
}

cache_set('wildcard-test4', 'this is test content:' . time());
$item = cache_get('wildcard-test4');
if (is_object($item) && $item->cid == 'wildcard-test4') {
  echo "PASS: Set #4 ('wildcard-test4')\n";
  if ($debug) {
    print_r($item);
  }
}
else {
  echo "FAIL: Set #4 ('wildcard-test4')\n";
}
cache_clear_all('wildcard-test4', 'cache', FALSE);
$item = cache_get('wildcard-test4');
if (is_object($item) && $item->cid == 'wildcard-test4') {
  echo "FAIL: Non-wildcard clear ('wildcard-test4')\n";
  if ($debug) {
    print_r($item);
  }
}
else {
  echo "PASS: Non-wildcard clear ('wildcard-test4')\n";
}

cache_clear_all('wild', 'cache', TRUE);
$item = cache_get('wildc');
if (is_object($item) && $item->cid == 'wildc') {
  echo "FAIL: Short wildcard clear ('wild*'), 'wildc' not flushed\n";
  if ($debug) {
    print_r($item);
  }
}
else {
  echo "PASS: Short wildcard clear ('wild*'), 'wildc' flushed\n";
}

$rc = cache_set('abcdefghijklmnopqrstuvwxyz123', 'this is test content:' . time());
$item = cache_get('abcdefghijklmnopqrstuvwxyz123');
if (is_object($item) && $item->cid == 'abcdefghijklmnopqrstuvwxyz123') {
  echo "PASS: Set ('abcdefghijklmnopqrstuvwxyz123')\n";
}
else {
  echo "FAIL: Set ('abcdefghijklmnopqrstuvwxyz') rc($rc)\n";
  if ($debug) {
    print_r($item);
  }
}

$rc = cache_set('abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz123', 'this is test content:' . time());
$item = cache_get('abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz123');
if (is_object($item) && $item->cid == 'abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz123') {
  echo "PASS: Set ('abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz123')\n";
}
else {
  echo "FAIL: Set ('abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz') rc($rc)\n";
  if ($debug) {
    print_r($item);
  }
}

$rc = cache_set('abcdefghijklmnopqrstuvwxy', 'this is test content:' . time());
$item = cache_get('abcdefghijklmnopqrstuvwxy');
if (is_object($item) && $item->cid == 'abcdefghijklmnopqrstuvwxy') {
  echo "PASS: Set ('abcdefghijklmnopqrstuvwxy')\n";
}
else {
  echo "FAIL: Set ('abcdefghijklmnopqrstuvwxy') rc($rc)\n";
  if ($debug) {
    print_r($item);
  }
}


cache_clear_all('abcdefghijklmnopqrstuvwxyz', 'cache', TRUE);

$item = cache_get('abcdefghijklmnopqrstuvwxyz123');
if (is_object($item) && $item->cid == 'abcdefghijklmnopqrstuvwxyz123') {
  echo "FAIL: Long wildcard clear ('abcdefghijklmnopqrstuvwxyz*'), 'abcdefghijklmnopqrstuvwxyz123' not cleared.\n";
  if ($debug) {
    print_r($item);
  }
}
else {
  echo "PASS: Long wildcard clear ('abcdefghijklmnopqrstuvwxyz*'), 'abcdefghijklmnopqrstuvwxyz123' cleared.\n";
}

$item = cache_get('abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz123');
if (is_object($item) && $item->cid == 'abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz123') {
  echo "FAIL: Long wildcard clear ('abcdefghijklmnopqrstuvwxyz*'), 'abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz123' not cleared.\n";
  if ($debug) {
    print_r($item);
  }
}
else {
  echo "PASS: Long wildcard clear ('abcdefghijklmnopqrstuvwxyz*'), 'abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz123' cleared.\n";
}

$item = cache_get('abcdefghijklmnopqrstuvwxy');
if (is_object($item) && $item->cid == 'abcdefghijklmnopqrstuvwxy') {
  echo "PASS: Long wildcard clear ('abcdefghijklmnopqrstuvwxyz*'), 'abcdefghijklmnopqrstuvwxy' not cleared.\n";
  if ($debug) {
    print_r($item);
  }
}
else {
  echo "FAIL: Long wildcard clear ('abcdefghijklmnopqrstuvwxyz*'), 'abcdefghijklmnopqrstuvwxy' cleared.\n";
}