Permalink
Browse files

Add the first QuickCheck test function

  • Loading branch information...
adomokos committed Nov 5, 2018
1 parent c25a9e4 commit d872da41f55c120d58d18d686fce90578d3490af
Showing with 4 additions and 0 deletions.
  1. +4 −0 test/RomanNumeralsSpec.hs
@@ -44,6 +44,10 @@ genTuple = do
b <- arbitrary
return (a, b)
prop_convertNumber :: Int -> Bool
prop_convertNumber x = (convertFromRoman . convertToRoman) x == x
spec :: Spec
spec = do
describe "Converting to Roman Numerals" $ do

0 comments on commit d872da4

Please sign in to comment.