diff options
author | defanor <defanor@uberspace.net> | 2017-12-17 00:55:12 +0300 |
---|---|---|
committer | defanor <defanor@uberspace.net> | 2017-12-17 00:55:12 +0300 |
commit | 16a3509836691ff9a43a0a8920d615ba91f8a74f (patch) | |
tree | aee64870168009e78f717ce3951fc1f90803b2a3 | |
parent | 0b0fa3eb647707d6612519399511298d3e9d236c (diff) |
Adjust a test name
-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)) ] |