Skip to content

Commit 665a798

Browse files
authored
Merge pull request #17 from metamorph-scheme/RG/fix-ureal-test
fix incorrect rational parsing test
2 parents f1fe8b3 + 7cacaed commit 665a798

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

test/Lexer/LexerSpec.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -112,7 +112,7 @@ spec = describe "Lexer.scan" $ do
112112

113113
describe "ureal" $ do
114114
it "can classify ureal" $ do
115-
scan "4/2 " `shouldBe` [ Number . Inexact $ Rational 4 2 ]
115+
scan "4/2 " `shouldBe` [ Number . Exact $ Rational 4 2 ]
116116

117117
describe "real" $ do
118118
it "can classify real" $ do

0 commit comments

Comments
 (0)