exercism · rbasso · May 7, 2017 · May 6, 2017 · May 6, 2017 · May 6, 2017
diff --git a/exercises/accumulate/package.yaml b/exercises/accumulate/package.yaml
@@ -1,4 +1,5 @@
 name: accumulate
+version: 0.1.0.1
 
 dependencies:
   - base

diff --git a/exercises/accumulate/test/Tests.hs b/exercises/accumulate/test/Tests.hs
@@ -10,9 +10,6 @@ main = hspecWith defaultConfig {configFastFail = True} specs
 specs :: Spec
 specs = describe "accumulate" $ do
 
-    -- As of 2016-07-27, there was no reference file
-    -- for the test cases in `exercism/x-common`.
-
     let square x = x * x :: Int
 
     it "empty accumulation" $

diff --git a/exercises/acronym/package.yaml b/exercises/acronym/package.yaml
@@ -1,4 +1,5 @@
 name: acronym
+version: 1.0.0.1
 
 dependencies:
   - base

diff --git a/exercises/acronym/test/Tests.hs b/exercises/acronym/test/Tests.hs
@@ -15,11 +15,6 @@ specs = describe "acronym" $
   where
     test Case {..} = it description $ abbreviate input `shouldBe` expected
 
--- Adapted from
--- Source: exercism/x-common/exercises/acronym/canonical-data.json
--- Version: 1.0.0
--- Date: 2017-03-31
-
 data Case = Case { description :: String
                  , input       :: String
                  , expected    :: String

diff --git a/exercises/all-your-base/package.yaml b/exercises/all-your-base/package.yaml
@@ -1,4 +1,5 @@
 name: all-your-base
+version: 0.9.0.1 # 2016-06-29
 
 dependencies:
   - base

diff --git a/exercises/all-your-base/test/Tests.hs b/exercises/all-your-base/test/Tests.hs
@@ -19,8 +19,6 @@ specs = describe "all-your-base" $
         assertion  = expression `shouldBe` outputDigits
         expression = rebase inputBase outputBase inputDigits
 
--- Test cases adapted from `exercism/x-common/all-your-base.json` on 2016-06-29.
-
 data Case = Case { description  ::        String
                  , inputBase    ::        Integer
                  , inputDigits  ::       [Integer]

diff --git a/exercises/allergies/package.yaml b/exercises/allergies/package.yaml
@@ -1,4 +1,5 @@
 name: allergies
+version: 0.9.0.1 # 2016-08-01
 
 dependencies:
   - base

diff --git a/exercises/allergies/test/Tests.hs b/exercises/allergies/test/Tests.hs
@@ -23,8 +23,6 @@ main = hspecWith defaultConfig {configFastFail = True} specs
 specs :: Spec
 specs = describe "allergies" $ do
 
-          -- Test cases adapted from `exercism/x-common/allergies.json` on 2016-08-01.
-
           describe "isAllergicTo" $ do
 
             it "no allergies means not allergic" $ do

diff --git a/exercises/alphametics/package.yaml b/exercises/alphametics/package.yaml
@@ -1,4 +1,5 @@
 name: alphametics
+version: 0.9.0.1 # 2016-10-26
 
 dependencies:
   - base

diff --git a/exercises/alphametics/test/Tests.hs b/exercises/alphametics/test/Tests.hs
@@ -21,8 +21,6 @@ specs = describe "alphametics" $
         shouldMatchSolution = shouldBe `on` fmap sort
         assertion = solve puzzle `shouldMatchSolution` expected
 
--- Test cases adapted from `exercism/x-common/exercises/alphametics/canonical-data.json` on 2016-10-26.
-
 data Case = Case { description :: String
                  , puzzle      :: String
                  , expected    :: Maybe[(Char, Int)]

diff --git a/exercises/anagram/package.yaml b/exercises/anagram/package.yaml
@@ -1,4 +1,5 @@
 name: anagram
+version: 0.9.0.1 # 2016-10-26
 
 dependencies:
   - base

diff --git a/exercises/anagram/test/Tests.hs b/exercises/anagram/test/Tests.hs
@@ -24,8 +24,6 @@ specs = describe "anagram" $
                    . map fromList
                    $ candidates
 
--- Test cases adapted from `exercism/x-common` on 2016-10-26.
-
 data Case = Case { description ::  String
                  , subject     ::  String
                  , candidates  :: [String]

diff --git a/exercises/atbash-cipher/package.yaml b/exercises/atbash-cipher/package.yaml
@@ -1,4 +1,5 @@
 name: atbash-cipher
+version: 0.9.0.1 # 2017-02-01
 
 dependencies:
   - base

diff --git a/exercises/atbash-cipher/test/Tests.hs b/exercises/atbash-cipher/test/Tests.hs
@@ -16,8 +16,6 @@ specs = describe "atbash-cipher" $ do
   where
     test f Case{..} = it description $ f phrase `shouldBe` expected
 
--- Test cases adapted from `exercism/x-common/atbash-cipher.json` on 2017-02-01.
-
 data Case = Case { description :: String
                  , phrase      :: String
                  , expected    :: String

diff --git a/exercises/bank-account/package.yaml b/exercises/bank-account/package.yaml
@@ -1,4 +1,5 @@
 name: bank-account
+version: 0.1.0.1
 
 dependencies:
   - base

diff --git a/exercises/bank-account/test/Tests.hs b/exercises/bank-account/test/Tests.hs
@@ -17,9 +17,6 @@ main = hspecWith defaultConfig {configFastFail = True} specs
 specs :: Spec
 specs = describe "bank-account" $ do
 
-    -- As of 2016-08-01, there was no reference file
-    -- for the test cases in `exercism/x-common`.
-
     it "initial balance is 0" $ do
         account  <-  openAccount
         getBalance   account `shouldReturn` Just 0

diff --git a/exercises/beer-song/package.yaml b/exercises/beer-song/package.yaml
@@ -1,4 +1,5 @@
 name: beer-song
+version: 0.1.0.1
 
 dependencies:
   - base

diff --git a/exercises/binary-search-tree/package.yaml b/exercises/binary-search-tree/package.yaml
@@ -1,4 +1,5 @@
 name: binary-search-tree
+version: 0.1.0.1
 
 dependencies:
   - base

diff --git a/exercises/binary-search-tree/test/Tests.hs b/exercises/binary-search-tree/test/Tests.hs
@@ -18,9 +18,6 @@ main = hspecWith defaultConfig {configFastFail = True} specs
 specs :: Spec
 specs = describe "binary-seach-tree" $ do
 
-    -- As of 2016-08-03, there was no reference file
-    -- for the test cases in `exercism/x-common`.
-
     let int4   = 4  ::  Int
     let noInts = [] :: [Int]
 

diff --git a/exercises/binary/package.yaml b/exercises/binary/package.yaml
@@ -1,4 +1,5 @@
 name: binary
+version: 0.9.0.1 # 2016-07-26
 
 dependencies:
   - base

diff --git a/exercises/binary/test/Tests.hs b/exercises/binary/test/Tests.hs
@@ -19,7 +19,6 @@ specs = describe "binary" $
       where
         assertion = toDecimal binary `shouldBe` fromIntegral expected
 
--- Test cases adapted from `exercism/x-common/binary.json` on 2016-07-26.
 -- Some descriptions mentioning "errors" where changed to avoid confusion.
 
 data Case = Case { description :: String

diff --git a/exercises/bob/package.yaml b/exercises/bob/package.yaml
@@ -1,4 +1,5 @@
 name: bob
+version: 0.9.0.1 # 2016-11-29
 
 dependencies:
   - base

diff --git a/exercises/bob/test/Tests.hs b/exercises/bob/test/Tests.hs
@@ -15,8 +15,6 @@ specs = describe "bob" $
   where
     test Case{..} = it description $ responseFor input `shouldBe` expected
 
--- Test cases adapted from `exercism/x-common/bob.json` on 2016-11-29.
-
 data Case = Case { description :: String
                  , input       :: String
                  , expected    :: String

diff --git a/exercises/bowling/package.yaml b/exercises/bowling/package.yaml
@@ -1,4 +1,5 @@
 name: bowling
+version: 0.9.0.1 # 2016-11-20
 
 dependencies:
   - base

diff --git a/exercises/bowling/test/Tests.hs b/exercises/bowling/test/Tests.hs
@@ -19,8 +19,6 @@ specs = describe "bowling" $
         assertion = result `shouldBe` expected
         result = score rolls
 
--- Test cases adapted from `exercism/x-common/bowling` on 2016-11-20.
-
 data Case = Case { description :: String
                  , rolls       :: [Int]
                  , expected    :: Either BowlingError Int

diff --git a/exercises/bracket-push/package.yaml b/exercises/bracket-push/package.yaml
@@ -1,4 +1,5 @@
 name: bracket-push
+version: 1.1.0.1
 
 dependencies:
   - base

diff --git a/exercises/bracket-push/test/Tests.hs b/exercises/bracket-push/test/Tests.hs
@@ -15,11 +15,6 @@ specs = describe "bracket-push" $
   where
     test Case{..} = it description $ arePaired input `shouldBe` expected
 
--- Adapted from
--- Source: exercism/x-common/exercises/bracket-push/canonical-data.json
--- Version: 1.1.0
--- Date: 2017-04-07.
-
 data Case = Case { description :: String
                  , input       :: String
                  , expected    :: Bool

diff --git a/exercises/change/package.yaml b/exercises/change/package.yaml
@@ -1,4 +1,5 @@
 name: change
+version: 0.9.0.1 # 2016-09-17
 
 dependencies:
   - base

diff --git a/exercises/change/test/Tests.hs b/exercises/change/test/Tests.hs
@@ -20,8 +20,6 @@ specs = describe "Change" $
         assertion  = expression `shouldBe` expected
         expression = sort <$> findFewestCoins target coins
 
--- Test cases adapted from `exercism/x-common` on 2016-09-17.
-
 data Case = Case { description  ::        String
                  , coins        ::       [Integer]
                  , target       ::        Integer

diff --git a/exercises/clock/package.yaml b/exercises/clock/package.yaml
@@ -1,4 +1,5 @@
 name: clock
+version: 0.9.0.1 # 2016-03-29
 
 dependencies:
   - base

diff --git a/exercises/clock/test/Tests.hs b/exercises/clock/test/Tests.hs
@@ -25,8 +25,6 @@ specs = describe "clock" $ do
       it "negate works" $
         negate (fromHourMin 23 55) `shouldBe` 5
 
-    -- Test cases extracted from x-common/clock.json from 2016-03-29
-
     describe "standard tests" $ do
 
       describe "create" $ for_ createCases createTest

diff --git a/exercises/connect/package.yaml b/exercises/connect/package.yaml
@@ -1,4 +1,5 @@
 name: connect
+version: 0.9.0.1 # 2016-09-16
 
 dependencies:
   - base

diff --git a/exercises/connect/test/Tests.hs b/exercises/connect/test/Tests.hs
@@ -19,8 +19,6 @@ specs = describe "connect" $
         assertion  = winner testBoard `shouldBe` expected
         testBoard  = filter (/=' ') <$> board
 
--- Test cases adapted from `exercism/x-common` on 2016-09-16.
-
 data Case = Case { description :: String
                  , board       :: [String]
                  , expected    :: Maybe Mark

diff --git a/exercises/crypto-square/package.yaml b/exercises/crypto-square/package.yaml
@@ -1,4 +1,5 @@
 name: crypto-square
+version: 0.1.0.1
 
 dependencies:
   - base

diff --git a/exercises/crypto-square/test/Tests.hs b/exercises/crypto-square/test/Tests.hs
@@ -26,8 +26,6 @@ specs = describe "crypto-square" $
       it "reorders the characters" $ encode input `shouldMatchString` expected
       it "groups the output"       $ encode input `shouldMatchWords`  expected
 
--- Test cases created from scratch on 2016-10-05, diverging from `x-common`.
-
 data Case = Case { description :: String
                  , input       :: String
                  , expected    :: String

diff --git a/exercises/custom-set/package.yaml b/exercises/custom-set/package.yaml
@@ -1,4 +1,5 @@
 name: custom-set
+version: 0.9.0.1 # 2016-09-03
 
 dependencies:
   - base

diff --git a/exercises/custom-set/test/Tests.hs b/exercises/custom-set/test/Tests.hs
@@ -29,9 +29,6 @@ specs = describe "custom-set" $ do
 
     describe "standard tests" $ do
 
-      -- Test cases adapted from `exercism/x-common/custom-set.json`
-      -- on 2016-09-03.
-
       describe "null" $ do
 
         it "sets with no elements are empty" $

diff --git a/exercises/difference-of-squares/package.yaml b/exercises/difference-of-squares/package.yaml
@@ -1,4 +1,5 @@
 name: difference-of-squares
+version: 0.9.0.1 # 2016-08-03
 
 dependencies:
   - base

diff --git a/exercises/difference-of-squares/test/Tests.hs b/exercises/difference-of-squares/test/Tests.hs
@@ -11,9 +11,6 @@ main = hspecWith defaultConfig {configFastFail = True} specs
 specs :: Spec
 specs = describe "differenceOfSquares" $ do
 
-    -- Test cases adapted from `exercism/x-common/difference-of-squares.json`
-    -- on 2016-08-03.
-
     describe "squareOfSums" $ do
       it "square of sum 5"   $ squareOfSums   5 `shouldBe`      225
       it "square of sum 10"  $ squareOfSums  10 `shouldBe`     3025

diff --git a/exercises/dominoes/package.yaml b/exercises/dominoes/package.yaml
@@ -1,4 +1,5 @@
 name: dominoes
+version: 0.9.0.1 # 2016-11-11
 
 dependencies:
   - base

diff --git a/exercises/dominoes/test/Tests.hs b/exercises/dominoes/test/Tests.hs
@@ -49,8 +49,6 @@ specs = describe "dominoes" $
             expectationFailure $
               printf "In chain %s:\n\t   right end of %s (%s)\n\tand left end of %s (%s)\n\tdidn't match!" (show l) name1 (show d1) name2 (show d2)
 
--- Test cases adapted from `exercism/x-common/dominoes` on 2016-11-11.
-
 data Case = Case { description :: String
                  , input       :: [(Int, Int)]
                  , expected    :: Bool

diff --git a/exercises/etl/package.yaml b/exercises/etl/package.yaml
@@ -1,4 +1,5 @@
 name: etl
+version: 0.9.0.1 # 2017-01-31
 
 dependencies:
   - base

diff --git a/exercises/etl/test/Tests.hs b/exercises/etl/test/Tests.hs
@@ -12,8 +12,6 @@ main = hspecWith defaultConfig {configFastFail = True} specs
 specs :: Spec
 specs = describe "etl" $
 
-  -- Test cases adapted from `exercism/x-common/etl` on 2017-01-31.
-
   describe "transform" $ do
 
     it "a single letter" $

diff --git a/exercises/food-chain/package.yaml b/exercises/food-chain/package.yaml
@@ -1,4 +1,5 @@
 name: food-chain
+version: 0.1.0.1
 
 dependencies:
   - base

diff --git a/exercises/forth/package.yaml b/exercises/forth/package.yaml
@@ -1,4 +1,5 @@
 name: forth
+version: 0.9.0.1 # 2017-02-01
 
 dependencies:
   - base

diff --git a/exercises/forth/test/Tests.hs b/exercises/forth/test/Tests.hs
@@ -12,8 +12,6 @@ main = hspecWith defaultConfig {configFastFail = True} specs
 specs :: Spec
 specs = describe "forth" $ do
 
-    -- 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

diff --git a/exercises/gigasecond/package.yaml b/exercises/gigasecond/package.yaml
@@ -1,4 +1,5 @@
 name: gigasecond
+version: 0.1.0.1
 
 dependencies:
   - base

diff --git a/exercises/gigasecond/test/Tests.hs b/exercises/gigasecond/test/Tests.hs
@@ -22,9 +22,6 @@ specs :: Spec
 specs = describe "gigasecond" $
           describe "fromDay" $ do
 
-            -- Test cases loosely based on reference file
-            -- at `exercism/x-common/gigasecond.json`.
-
             let dt = readTime defaultTimeLocale
                      (iso8601DateFormat (Just "%T%Z")) :: String -> UTCTime
 

diff --git a/exercises/go-counting/package.yaml b/exercises/go-counting/package.yaml
@@ -1,4 +1,5 @@
 name: go-counting
+version: 0.1.0.1
 
 dependencies:
   - base

diff --git a/exercises/go-counting/test/Tests.hs b/exercises/go-counting/test/Tests.hs
@@ -13,9 +13,6 @@ main = hspecWith defaultConfig {configFastFail = True} specs
 specs :: Spec
 specs = describe "go-counting" $ do
 
-    -- As of 2016-07-27, there was no reference file
-    -- for the test cases in `exercism/x-common`.
-
     let board5x5 = [ "  B  "
                    , " B B "
                    , "B W B"

diff --git a/exercises/grade-school/package.yaml b/exercises/grade-school/package.yaml
@@ -1,4 +1,5 @@
 name: grade-school
+version: 0.1.0.1
 
 dependencies:
   - base

diff --git a/exercises/grade-school/test/Tests.hs b/exercises/grade-school/test/Tests.hs
@@ -11,9 +11,6 @@ main = hspecWith defaultConfig {configFastFail = True} specs
 specs :: Spec
 specs = describe "grade-school" $ do
 
-          -- As of 2016-07-27, there was no reference file
-          -- for the test cases in `exercism/x-common`.
-
           let fromList = foldr (uncurry add) empty
           let fromGrade g = fromList . zip (repeat g)