forth: remove non-ASCII cases

exercism/problem-specifications#529 exercism/problem-specifications#441 exercism/problem-specifications#428
exercism · Feb 1, 2017 · e6c0172 · e6c0172
1 parent 68d44cf
commit e6c0172
Showing 1 changed file with 1 addition and 4 deletions.
diff --git 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