X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FMisc.hs;h=e6cd07ea987cbfb38a621b2b10c6afe6f3d329e6;hb=a499efdb0e215ac424fe7c38a52430daebefc22b;hp=09773bf56655b13453ed7dff6e49b160bf70eb11;hpb=0d037f5f0829d9ee7fcccc58570305623665f52e;p=spline3.git diff --git a/src/Misc.hs b/src/Misc.hs index 09773bf..e6cd07e 100644 --- a/src/Misc.hs +++ b/src/Misc.hs @@ -14,11 +14,9 @@ module Misc ( where import qualified Data.Vector as V ( Vector, elem, empty, filter ) -import Test.Framework ( Test, testGroup ) -import Test.Framework.Providers.HUnit ( testCase ) -import Test.Framework.Providers.QuickCheck2 ( testProperty ) -import Test.HUnit ( Assertion, assertEqual ) -import Test.QuickCheck ( Property, (==>) ) +import Test.Tasty ( TestTree, testGroup ) +import Test.Tasty.HUnit ( Assertion, assertEqual, testCase ) +import Test.Tasty.QuickCheck ( Property, (==>), testProperty ) -- | The standard factorial function. See @@ -116,13 +114,13 @@ test_flatten1 = actual_list = flatten target -misc_tests :: Test.Framework.Test +misc_tests :: TestTree misc_tests = - testGroup "Misc Tests" [ + testGroup "Misc tests" [ testCase "flatten (1)" test_flatten1 ] -misc_properties :: Test.Framework.Test +misc_properties :: TestTree misc_properties = - testGroup "Misc Properties" [ + testGroup "Misc properties" [ testProperty "factorial greater" prop_factorial_greater ]