Merge pull request #1 from bruceadams/add-tests

Add tests for the Python programs

06-the-one/tf-06.py

@@ -12,7 +12,7 @@ class TFTheOne:
         return TFTheOne(result)
 
 def printm(monad):
-    print monad._value
+    print monad._value,
 
 #
 # The functions

test/pride-and-prejudice.txt

@@ -0,0 +1,25 @@
+mr  -  786
+elizabeth  -  635
+very  -  488
+darcy  -  418
+such  -  395
+mrs  -  343
+much  -  329
+more  -  327
+bennet  -  323
+bingley  -  306
+jane  -  295
+miss  -  283
+one  -  275
+know  -  239
+before  -  229
+herself  -  227
+though  -  226
+well  -  224
+never  -  220
+sister  -  218
+soon  -  216
+think  -  211
+now  -  209
+time  -  203
+good  -  201

test/test.sh

@@ -0,0 +1,34 @@
+#!/bin/bash
+
+function msg() {
+    echo $(date +%T) "$@"
+}
+
+failures=0
+total=0
+mydir=$(cd $(dirname $0); pwd)
+files=$(echo *.txt)
+for dir in ../[0-9][0-9]-* ; do
+    cd $dir
+    for file in $files ; do
+        exe=$(echo tf-[0-9][0-9].py)
+        msg testing $(basename $dir)/$exe with $file
+        python $exe ../$file | diff -b - $mydir/$file
+        result=$?
+        total=$((total+1))
+        if [ $result -ne 0 ]; then
+            failures=$(($failures+1))
+            msg FAILED!
+        else
+            msg passed.
+        fi
+    done
+    cd $mydir
+done
+
+msg $(date +%T) Ran $total tests with $failures failures.
+if [ $failures -ne 0 ]; then
+    msg FAILED!
+    exit $failures
+fi
+msg PASSED