rework test suite

2 files changed, 18 insertions, 10 deletions

diff --git a/tests/Main.hs b/tests/Main.hs
index a05ddb1..c4e0d9b 100644
--- a/tests/Main.hs
+++ b/tests/Main.hs
@@ -1,8 +1,6 @@
 module Main where
 
 import           Properties
-import           Test.Framework.Providers.QuickCheck2
-import           Test.Framework.Runners.Console       (defaultMain)
 import           Test.QuickCheck
 
-main = defaultMain [ Properties.tests ]
+main = tests
diff --git a/tests/Properties.hs b/tests/Properties.hs
index b42cd4b..e50c7e8 100644
--- a/tests/Properties.hs
+++ b/tests/Properties.hs
@@ -1,15 +1,25 @@
 {-# LANGUAGE TemplateHaskell #-}
 module Properties where
 
-import           Parser                               (Expr (..),
-                                                       parseLispValue,
-                                                       parseQuote)
+import           Parser          (Expr (..), parseLispValue, parseQuote)
 
-import           Test.Framework.Providers.QuickCheck2
-import           Test.Framework.TH
 import           Test.QuickCheck
-import           Text.ParserCombinators.Parsec
 
 -- some tests would go here hopefully
 
-tests = $testGroupGenerator
+-- a filler test to test the test suite :^)
+qsort :: (Ord a) => [a] -> [a]
+qsort [] = []
+qsort [x] = [x]
+qsort (x:xs) = qsort left ++ [x] ++ qsort right
+    where left = filter (<= x) xs
+          right = filter (> x) xs
+
+checkList :: (Ord a) => [a] -> Bool
+checkList = ordered . qsort
+    where ordered []       = True
+          ordered [x]      = True
+          ordered (x:y:xs) = x <= y && ordered (y:xs)
+
+return []
+tests = $quickCheckAll