Add simple QuickCheck tests

haskell · Jun 27, 2011 · 7c4c885 · 7c4c885
1 parent 49de59b
commit 7c4c885
Show file tree

Hide file tree

Showing 3 changed files with 27 additions and 1 deletion.
diff --git a/.hgignore b/.hgignore
@@ -1,4 +1,4 @@
-^(?:cabal-dev|dist)$
+^(?:cabal-dev|dist|tests/dist)$
 ^demo/demo$
 \.(?:aux|eventlog|h[ip]|log|[oa]|orig|prof|ps|rej|swp)$
 ~$

diff --git a/tests/Properties.hs b/tests/Properties.hs
@@ -0,0 +1,11 @@
+import Data.Double.Conversion
+import Test.QuickCheck
+import Test.Framework (defaultMain, testGroup)
+import Test.Framework.Providers.QuickCheck2 (testProperty)
+import qualified Data.Text as T
+
+shortest a = (read . T.unpack . toShortest) a == a
+
+main = defaultMain [
+        testProperty "shortest" shortest
+       ]
diff --git a/tests/double-conversion-tests.cabal b/tests/double-conversion-tests.cabal
@@ -0,0 +1,15 @@
+name:           double-conversion-tests
+version:        0
+cabal-version:  >= 1.8
+build-type:     Simple
+
+executable qc
+  main-is: Properties.hs
+
+  build-depends:
+    QuickCheck,
+    base,
+    double-conversion,
+    test-framework,
+    test-framework-quickcheck2,
+    text >= 0.11.0.8