diff options
-rw-r--r-- | test/Test.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/Test.hs b/test/Test.hs index 1771202..8ef6a3a 100644 --- a/test/Test.hs +++ b/test/Test.hs @@ -135,7 +135,7 @@ qcProps = testGroup "Quickcheck properties" [ testGroup "Right == fromArgs opt . toArgs opt" (variousOptions $ \opt -> variousTypes $ \p n -> QC.testProperty n (printAndParse opt p)) - , testGroup "xs == rights (readDSV opt (showDSV opt xs))" + , testGroup "id == rights . readDSV opt . showDSV opt" (variousOptions $ \opt -> variousTypes $ \p n -> QC.testProperty n (printAndParseDSV opt p)) ] |