Only count tests, not asserts.

Fixes #9.

src/test.sml

@@ -1,30 +1,30 @@
 structure Test : TEST =
 struct
-
   val testsRan = ref 0
   val testsPassed = ref 0
 
   exception Failed
 
-  fun test f = f () handle Failed => false
+  fun test f =
+    (testsRan := !testsRan + 1;
+     (if f () then (testsPassed := !testsPassed + 1; true) else false)
+     handle Failed => false)
 
   fun assertEq(expected,actual,toString) =
-    (testsRan := !testsRan + 1;
      if expected = actual
-     then (testsPassed := !testsPassed + 1; true)
+     then true
      else
        let val msg = "Expected: " ^ (toString expected) ^
                      " but got: " ^ (toString actual) ^ ".\n"
        in
          print(msg);
          raise Failed
-       end)
+       end
 
   fun assert test =
-    (testsRan := !testsRan + 1;
      if test
-     then (testsPassed := !testsPassed + 1; true)
-     else raise Failed)
+     then true
+     else raise Failed
 
   fun reset () =
     (testsRan := 0;