added unit testing framework

diff --git a/unit_tests.php b/unit_tests.php
new file mode 100644 (file)
index 0000000..89b54dd
--- /dev/null
+++ b/unit_tests.php
@@ -0,0 +1,58 @@
+<?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();
+}

diff --git a/unit_tests/format.php b/unit_tests/format.php
new file mode 100644 (file)
index 0000000..705440b
--- /dev/null
+++ b/unit_tests/format.php
@@ -0,0 +1,73 @@
+<?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;
+}

diff --git a/unit_tests/template.html b/unit_tests/template.html
new file mode 100644 (file)
index 0000000..42e1063
--- /dev/null
+++ b/unit_tests/template.html
@@ -0,0 +1,33 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
+    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
+
+<html xmlns="http://www.w3.org/1999/xhtml">
+<head>
+  <title>wfpl unit test results</title>
+  <meta name="robots" content="none" />
+  <style type="text/css">
+    .row_even, .row_odd {
+      font: 14px monospace;
+      margin-top: -1px;
+      border: 1px dotted black;
+      padding: 5px;
+    }
+    .row_even {
+      background-color: #ccf;
+    }
+    .row_odd {
+      background-color: #cfc;
+    }
+  </style>
+</head>
+
+<body>
+  <h1>wfpl unit tests</h1>
+  
+  <!--~message_container start~-->
+    <!--~message_box start~-->
+      <div class="row_~row.evenodd~">~message_text.htmlbrnbsp~</div>
+    <!--~end~-->
+  <!--~end~-->
+</body>
+</html>