1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
--- a/snap.cabal
+++ b/snap.cabal
@@ -267,7 +267,6 @@ Test-suite testsuite
test-framework >= 0.8.0.3 && < 0.9,
test-framework-hunit >= 0.3.0.1 && < 0.4,
test-framework-quickcheck2 >= 0.3.0.3 && < 0.4,
- test-framework-smallcheck >= 0.2 && < 0.3,
text,
time,
transformers,
--- a/test/suite/Snap/Snaplet/Internal/Tests.hs
+++ b/test/suite/Snap/Snaplet/Internal/Tests.hs
@@ -16,7 +16,6 @@ import Prelude
import System.Directory (getCurrentDirectory)
import Test.Framework (Test, testGroup)
import Test.Framework.Providers.HUnit (testCase)
-import Test.Framework.Providers.SmallCheck (testProperty)
import Test.HUnit hiding (Test, path)
import Test.SmallCheck ((==>))
------------------------------------------------------------------------------
@@ -124,7 +123,7 @@ initTest = do
tests :: Test
tests = testGroup "Snap.Snaplet.Internal"
[ testCase "initializer tests" initTest
- , testProperty "buildPath generates no double slashes" doubleSlashes
+-- , testProperty "buildPath generates no double slashes" doubleSlashes
]
--doubleSlashes :: Monad m => [String] -> Property m
|
