--- /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();
+}
--- /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 contains tests for functions in code/wfpl/format.php
+#
+# See code/wfpl/test.php for details on how to run or create tests
+
+
+require_once('code/wfpl/format.php');
+
+function _test_format_money($input, $dollars_correct, $money_correct) {
+ $errors = 0;
+ $dollars = format_dollars($input);
+ $money = format_money($input);
+ if($dollars != $dollars_correct) {
+ ++$errors;
+ message("format_dollars(\"$input\") returned \"$dollars\" instead of \"$dollars_correct\"");
+ }
+ if($money != $money_correct) {
+ ++$errors;
+ message("format_money(\"$input\") returned \"$money\" instead of \"$money_correct\"");
+ }
+
+ return $errors;
+}
+
+function test_format_money() {
+ $errors = 0;
+ $errors += _test_format_money('1', '$1', '$1.00');
+ $errors += _test_format_money('0', '$0', '$0.00');
+ $errors += _test_format_money('0.0', '$0', '$0.00');
+ $errors += _test_format_money('0.00', '$0', '$0.00');
+ $errors += _test_format_money('0.01', '$0', '$0.01');
+ $errors += _test_format_money('0.51', '$1', '$0.51');
+ $errors += _test_format_money('2.05', '$2', '$2.05');
+ $errors += _test_format_money('2.10000500', '$2', '$2.10');
+ $errors += _test_format_money('2.005', '$2', '$2.01');
+ $errors += _test_format_money('2.004', '$2', '$2.00');
+ $errors += _test_format_money('2.1', '$2', '$2.10');
+ $errors += _test_format_money('2.0', '$2', '$2.00');
+ $errors += _test_format_money('1000', '$1,000', '$1,000.00');
+ $errors += _test_format_money('10000000', '$10,000,000', '$10,000,000.00');
+ $errors += _test_format_money('100000000000', '$100,000,000,000', '$100,000,000,000.00');
+ $errors += _test_format_money('1.99', '$2', '$1.99');
+ $errors += _test_format_money('1.555', '$2', '$1.56');
+ $errors += _test_format_money('19.555', '$20', '$19.56');
+ $errors += _test_format_money('9.499', '$9', '$9.50');
+ $errors += _test_format_money('9.989', '$10', '$9.99');
+ $errors += _test_format_money('9.999', '$10', '$10.00');
+ $errors += _test_format_money('19999999999.555', '$20,000,000,000', '$19,999,999,999.56');
+ return $errors;
+}
+
+function format_unit_tests_main() {
+ $errors = 0;
+ $errors += test_format_money();
+ return $errors;
+}