--- /dev/null
+<?php
+
+# Copyright (C) 2009 Jason Woofenden
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+
+# This file is for running unit tests. Either on wfpl or your own code.
+
+require_once('code/wfpl/template.php');
+require_once('code/wfpl/messages.php');
+
+function file_run_unit_tests($filename) {
+ require_once($filename);
+ $func = basename($filename, '.php') . '_unit_tests_main';
+
+ if(function_exists($func)) {
+ return $func();
+ }
+}
+
+# Run many unit tests. Pass a directory containing php files with tests in
+# them, and a space-separated list of their basenames. Each of those files is
+# expected to define a function <basename>_unit_tests_main which will run all
+# tests in that file. It should print a message() about each test that failed,
+# and return the number of tests that failed.
+function run_unit_tests($directory, $basenames) {
+ $errors = 0;
+ $basenames = explode(' ', $basenames);
+ foreach($basenames as $basename) {
+ $filename = "$directory/$basename.php";
+ message("running tests in $filename");
+ $errors += file_run_unit_tests($filename);
+ }
+ message("tests finished with $errors errors");
+}
+
+# Call this to unit test wfpl. By default it tests everything, or you can pass
+# a space-separated list of the basenames of the files in code/wfpl/unit_tests/
+# that you'd like to run.
+function unit_test_wfpl($basenames = 'format') {
+ tem_load('code/wfpl/unit_tests/template.html');
+ run_unit_tests('code/wfpl/unit_tests', $basenames);
+ display_messages();
+ tem_output();
+ exit();
+}