+# call this to declare that a unit test has passed
+function unit_test_passed($msg) {
+ $GLOBALS['unit_tests_passed_msgs'][] = $msg;
+ $GLOBALS['unit_tests_passed'] += 1;
+}
+
+# call this to declare that a unit test has failed
+function unit_test_failed($msg) {
+ $GLOBALS['unit_tests_failed_msgs'][] = $msg;
+ $GLOBALS['unit_tests_failed'] += 1;
+}
+
+function backslashinate($str) {
+ return '"' . addcslashes($str, "\0..\37\"\\\177..\377") . '"';
+}
+
+function backslashinate_each($a) {
+ foreach($a as &$v) {
+ $v = backslashinate($v);
+ }
+
+ return $a;
+}
+
+
+# use this function to unit-test a function
+# real prototype: ($name, $args..., $correct)
+function unit_test_func() {
+ $args = func_get_args();
+ $function = array_shift($args);
+ $correct = array_pop($args);
+ $result = call_user_func_array($function, $args);
+ $message = "$function(" . join(', ', backslashinate_each($args)) . ") returned " . backslashinate($result);
+ if($result === $correct) {
+ unit_test_passed($message);
+ } else {
+ unit_test_failed($message . " instead of " . backslashinate($correct));
+ }
+}
+
+