Test that feeding results from counterexample/1 to check/2 works.

* triq_tests.erl (counterexample_test): New test.
krestenkrab · Jun 11, 2010 · 84ea2a0 · 84ea2a0
1 parent 0e625c2
commit 84ea2a0
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/triq_tests.erl b/src/triq_tests.erl
@@ -203,3 +203,7 @@ recheck_test_() ->
     Bad = [[1,1], 1],
     [?_assertEqual(true, triq:check(xprop_delete(), Good)),
      ?_assertEqual(false, triq:check(xprop_delete(), Bad))].
+
+counterexample_test() ->
+    Counterexample = triq:counterexample(xprop_delete()),
+    ?assertEqual(false, triq:check(xprop_delete(), Counterexample)).