From e6c01720f4765902ee2881639926b9e2e10fb1b7 Mon Sep 17 00:00:00 2001 From: Peter Tseng Date: Tue, 31 Jan 2017 18:13:15 -0800 Subject: [PATCH] forth: remove non-ASCII cases https://github.com/exercism/x-common/pull/529 https://github.com/exercism/x-common/issues/441 https://github.com/exercism/x-common/issues/428 --- exercises/forth/test/Tests.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/exercises/forth/test/Tests.hs b/exercises/forth/test/Tests.hs index 04c608edf..7b09fb5fe 100644 --- a/exercises/forth/test/Tests.hs +++ b/exercises/forth/test/Tests.hs @@ -12,7 +12,7 @@ main = hspecWith defaultConfig {configFastFail = True} specs specs :: Spec specs = describe "forth" $ do - -- Test cases adapted from `exercism/x-common/forth` on 2016-11-06. + -- Test cases adapted from `exercism/x-common/forth` on 2017-02-01. let runTexts = fmap toList . foldM (flip evalText) empty @@ -123,9 +123,6 @@ specs = describe "forth" $ do runTexts [ ": swap dup ;" , "1 swap" ] `shouldBe` Right [1, 1] - it "can consist of arbitrary characters such as Unicode characters" $ - runTexts [": € 220371 ; €"] `shouldBe` Right [220371] - it "cannot redefine numbers" $ runTexts [": 1 2 ;"] `shouldBe` Left InvalidWord