Changeset 3825 for trunk/library/lgtunit.lgt

Timestamp:

08/27/07 08:10:57 (17 months ago)

Author:

pmoura

Message:

Corrected a bug in the library object "lgtunit" (wrong arity on two failed_test/2 predicate calls).

Files:

• trunk/library/lgtunit.lgt (modified) (2 diffs)

trunk/library/lgtunit.lgt

@@ -3 +3 @@
 
     :- info([
-        version is 0.1,
+        version is 0.2,
         author is 'Paulo Moura',
-        date is 2007/08/5,
+        date is 2007/08/27,
         comment is 'Logtalk unit test framework.']).
 
@@ -85 +85 @@
         (   catch({Goal}, Ball, ((Ball = Error -> passed_test(Test, Goal); failed_test(Test, Goal)), Flag = error)) ->
             (   var(Flag) ->
-                failed_test(Test, Goal, Error)
+                failed_test(Test, Goal)
             ;   true
             )
-        ;   failed_test(Test, Goal, Error)
+        ;   failed_test(Test, Goal)
         ).