X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=test%2FTestSuite.hs;h=657994bee4e14e4f70d5dccd9a5fed5b6aa1fb19;hb=f9b29fb473cf7992b2b7375577e3cece3369892e;hp=0e0055d6142fafc2249c50623b02f09fb73d33da;hpb=5109e41113a39024ef3fe799abb08de4a2ac74b0;p=spline3.git diff --git a/test/TestSuite.hs b/test/TestSuite.hs index 0e0055d..657994b 100644 --- a/test/TestSuite.hs +++ b/test/TestSuite.hs @@ -160,45 +160,48 @@ main = do putStr "prop_c2100_identity1... " quickCheckWith qc_args TC.prop_c2100_identity1 - -- putStrLn "\np. 79, (2.7)\n" + putStrLn "\np. 79, (2.7)\n" - -- putStr "prop_c0102_identity1... " - -- quickCheckWith qc_args TF.prop_c0102_identity1 + putStr "prop_c0102_identity1... " + quickCheckWith qc_args TC.prop_c0102_identity1 - -- putStr "prop_c0201_identity1... " - -- quickCheckWith qc_args TF.prop_c0201_identity1 + putStr "prop_c0201_identity1... " + quickCheckWith qc_args TC.prop_c0201_identity1 - -- putStr "prop_c0300_identity2... " - -- quickCheckWith qc_args TF.prop_c0300_identity2 + putStr "prop_c0300_identity2... " + quickCheckWith qc_args TC.prop_c0300_identity2 - -- putStr "prop_c1101_identity... " - -- quickCheckWith qc_args TF.prop_c1101_identity + putStr "prop_c1101_identity... " + quickCheckWith qc_args TC.prop_c1101_identity - -- putStr "prop_c1200_identity2... " - -- quickCheckWith qc_args TF.prop_c1200_identity2 + putStr "prop_c1200_identity2... " + quickCheckWith qc_args TC.prop_c1200_identity2 - -- putStr "prop_c2100_identity2... " - -- quickCheckWith qc_args TF.prop_c2100_identity2 + putStr "prop_c2100_identity2... " + quickCheckWith qc_args TC.prop_c2100_identity2 - -- putStrLn "\np. 79, (2.8)\n" + putStrLn "\np. 79, (2.8)\n" - -- putStr "prop_c3000_identity... " - -- quickCheckWith qc_args TF.prop_c3000_identity + putStr "prop_t0_shares_edge_with_t6... " + quickCheckWith qc_args prop_t0_shares_edge_with_t6 + + putStr "prop_c3000_identity... " + quickCheckWith qc_args TC.prop_c3000_identity -- putStr "prop_c2010_identity... " - -- quickCheckWith qc_args TF.prop_c2010_identity + -- quickCheckWith qc_args TC.prop_c2010_identity -- putStr "prop_c2001_identity... " - -- quickCheckWith qc_args TF.prop_c2001_identity + -- quickCheckWith qc_args TC.prop_c2001_identity -- putStr "prop_c1020_identity... " - -- quickCheckWith qc_args TF.prop_c1020_identity + -- quickCheckWith qc_args TC.prop_c1020_identity -- putStr "prop_c1002_identity... " - -- quickCheckWith qc_args TF.prop_c1002_identity + -- quickCheckWith qc_args TC.prop_c1002_identity -- putStr "prop_c1011_identity... " - -- quickCheckWith qc_args TF.prop_c1011_identity + -- quickCheckWith qc_args TC.prop_c1011_identity -- putStrLn "\np. 80, (2.9)\n" @@ -296,6 +299,36 @@ main = do putStr "prop_cwx_rotation_changes_direction... " quickCheckWith qc_args prop_cwx_rotation_changes_direction + putStr "prop_ccwy_rotation_changes_direction... " + quickCheckWith qc_args prop_ccwy_rotation_changes_direction + + putStr "prop_cwy_rotation_changes_direction... " + quickCheckWith qc_args prop_cwy_rotation_changes_direction + + putStr "prop_ccwz_rotation_changes_direction... " + quickCheckWith qc_args prop_ccwz_rotation_changes_direction + + putStr "prop_cwz_rotation_changes_direction... " + quickCheckWith qc_args prop_cwz_rotation_changes_direction + + putStr "prop_ccwx_rotation_result_unique... " + quickCheckWith qc_args prop_ccwx_rotation_result_unique + + putStr "prop_cwx_rotation_result_unique... " + quickCheckWith qc_args prop_cwx_rotation_result_unique + + putStr "prop_ccwy_rotation_result_unique... " + quickCheckWith qc_args prop_ccwy_rotation_result_unique + + putStr "prop_cwy_rotation_result_unique... " + quickCheckWith qc_args prop_cwy_rotation_result_unique + + putStr "prop_ccwz_rotation_result_unique... " + quickCheckWith qc_args prop_ccwz_rotation_result_unique + + putStr "prop_cwz_rotation_result_unique... " + quickCheckWith qc_args prop_cwz_rotation_result_unique + putStr "prop_four_cwx_is_identity... " quickCheckWith qc_args prop_four_cwx_is_identity