Tests.hs in trackler-2.0.6.29

- old
+ new

@@ -10,11 +10,11 @@
 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
 
     describe "parsing and numbers" $ do
       it "empty input results in empty stack" $
@@ -120,12 +120,9 @@
                  , "1 foo"           ] `shouldBe` Right [1, 1, 1]
 
       it "can override built-in words" $
         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
 
       it "errors if executing a non-existent word" $