#4, make QFilePath have the right set Char instance
authorNeil Mitchell <ndmitchell@gmail.com>
Sun, 19 Oct 2014 13:01:13 +0000 (14:01 +0100)
committerNeil Mitchell <ndmitchell@gmail.com>
Sun, 19 Oct 2014 13:01:13 +0000 (14:01 +0100)
tests/AutoTest.hs

index c186570..8902869 100644 (file)
@@ -21,16 +21,16 @@ constTest False = error "Failed on constTest"
 
 
 
-data QFilePath = QFilePath FilePath
+newtype QFilePath = QFilePath FilePath
                  deriving Show
 
 instance Arbitrary QFilePath where
-    arbitrary = liftM QFilePath arbitrary
+    arbitrary = fmap (QFilePath . map fromQChar) arbitrary
 
+newtype QChar = QChar {fromQChar :: Char}
 
--- QuickCheck 2.4.1.1 has its own Arbitrary Char instance, so commented out for now
--- instance Arbitrary Char where
---     arbitrary = elements "?|./:\\abcd 123;_"
+instance Arbitrary QChar where
+    arbitrary = fmap QChar $ elements "?|./:\\abcd 123;_"