Skip to content
Permalink
Browse files

Trace the converted Roman numbers

  • Loading branch information...
adomokos committed Nov 6, 2018
1 parent 1cb16e3 commit ef4a61866d8f9c75b0236aafd344c7618dddfb9c
Showing with 4 additions and 2 deletions.
  1. +4 −2 test/RomanNumeralsSpec.hs
@@ -5,6 +5,7 @@ import Test.QuickCheck
import Test.Hspec.QuickCheck (prop)
import Data.List (isPrefixOf, find)
import Data.Maybe (fromJust)
import Debug.Trace

main :: IO ()
main = hspec spec
@@ -46,7 +47,7 @@ genTuple = do
return (a, b)

numbers :: [Int]
numbers = [1..1000]
numbers = [1..98]

genNumbers :: Gen Int
genNumbers = elements numbers
@@ -55,7 +56,8 @@ prop_convertNumber :: Property
prop_convertNumber =
forAll genNumbers
(\x ->
(convertFromRoman . convertToRoman) x == x)
traceShow("number: ", (x, convertToRoman x)) $
(convertFromRoman . convertToRoman) x == x)

spec :: Spec
spec = do

0 comments on commit ef4a618

Please sign in to comment.
You can’t perform that action at this time.