trackler 2.1.0.11 → 2.1.0.12

data/tracks/haskell/exercises/dominoes/package.yaml

@@ -1,5 +1,5 @@
 name: dominoes
-version: 1.0.0.2
+version: 1.0.1.4
 
 dependencies:
   - base

data/tracks/haskell/exercises/dominoes/test/Tests.hs

@@ -14,8 +14,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "dominoes" $
-          describe "chain" $ for_ cases test
+specs = describe "chain" $ for_ cases test
   where
 
     test Case{..} = it description assertion
@@ -99,7 +98,7 @@ cases = [ Case { description = "empty input = empty output"
                , input       = [(1, 2), (2, 3), (3, 1), (1, 1), (2, 2), (3, 3)]
                , expected    = True
                }
-        , Case { description = "ten elements"
+        , Case { description = "nine elements"
                , input       = [(1, 2), (5, 3), (3, 1), (1, 2), (2, 4), (1, 6), (2, 3), (3, 4), (5, 6)]
                , expected    = True
                }

data/tracks/haskell/exercises/etl/package.yaml

@@ -1,5 +1,5 @@
 name: etl
-version: 1.0.0.2
+version: 1.0.0.3
 
 dependencies:
   - base

data/tracks/haskell/exercises/etl/test/Tests.hs

@@ -10,7 +10,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "etl" $
+specs =
 
   describe "transform" $ do
 

data/tracks/haskell/exercises/food-chain/package.yaml

@@ -1,5 +1,5 @@
 name: food-chain
-version: 0.1.0.1
+version: 0.1.0.2
 
 dependencies:
   - base

data/tracks/haskell/exercises/food-chain/test/Tests.hs

@@ -8,20 +8,18 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "food-chain" $
+specs = describe "song" $ do
 
-          describe "song" $ do
+          -- First we test the input, line by line, to give more
+          -- useful error messages.
 
-            -- First we test the input, line by line, to give more
-            -- useful error messages.
+          it "matches lines" $ sequence_ lineAssertions
 
-            it "matches lines" $ sequence_ lineAssertions
+          -- Finally, because testing lines we are unable
+          -- to detect a missing newline at the end of the
+          -- lyrics, we test the full song.
 
-            -- Finally, because testing lines we are unable
-            -- to detect a missing newline at the end of the
-            -- lyrics, we test the full song.
-
-            it "matches full song" $ song `shouldBe` lyrics
+          it "matches full song" $ song `shouldBe` lyrics
   where
 
     lineAssertions = zipWith checkLine [1 :: Int ..] $ zipMaybe (lines song) (lines lyrics)

data/tracks/haskell/exercises/forth/package.yaml

@@ -1,5 +1,5 @@
 name: forth
-version: 1.0.0.2
+version: 1.0.0.3
 
 dependencies:
   - base

data/tracks/haskell/exercises/forth/test/Tests.hs

@@ -10,7 +10,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "forth" $ do
+specs = do
 
     let runTexts = fmap toList . foldM (flip evalText) empty
 

data/tracks/haskell/exercises/gigasecond/package.yaml

@@ -1,5 +1,5 @@
 name: gigasecond
-version: 0.1.0.1
+version: 0.1.0.2
 
 dependencies:
   - base

data/tracks/haskell/exercises/gigasecond/test/Tests.hs

@@ -19,20 +19,19 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "gigasecond" $
-          describe "fromDay" $ do
+specs = describe "fromDay" $ do
 
-            let dt = readTime defaultTimeLocale
-                     (iso8601DateFormat (Just "%T%Z")) :: String -> UTCTime
+          let dt = readTime defaultTimeLocale
+                   (iso8601DateFormat (Just "%T%Z")) :: String -> UTCTime
 
-            it "from apr 25 2011" $
-              fromDay (dt "2011-04-25T00:00:00Z")
-              `shouldBe` dt "2043-01-01T01:46:40Z"
+          it "from apr 25 2011" $
+            fromDay (dt "2011-04-25T00:00:00Z")
+            `shouldBe` dt "2043-01-01T01:46:40Z"
 
-            it "from jun 13 1977" $
-              fromDay (dt "1977-06-13T00:00:00Z")
-              `shouldBe` dt "2009-02-19T01:46:40Z"
+          it "from jun 13 1977" $
+            fromDay (dt "1977-06-13T00:00:00Z")
+            `shouldBe` dt "2009-02-19T01:46:40Z"
 
-            it "from jul 19 1959" $
-              fromDay (dt "1959-07-19T00:00:00Z")
-              `shouldBe` dt "1991-03-27T01:46:40Z"
+          it "from jul 19 1959" $
+            fromDay (dt "1959-07-19T00:00:00Z")
+            `shouldBe` dt "1991-03-27T01:46:40Z"

data/tracks/haskell/exercises/go-counting/package.yaml

@@ -1,5 +1,5 @@
 name: go-counting
-version: 0.1.0.1
+version: 0.1.0.2
 
 dependencies:
   - base

data/tracks/haskell/exercises/go-counting/test/Tests.hs

@@ -2,7 +2,7 @@ import Data.Bifunctor    (first)
 import Data.MultiSet     (fromOccurList, toOccurList)
 import Data.Set          (toAscList)
 import Data.Tuple        (swap)
-import Test.Hspec        (Spec, describe, it, shouldBe, shouldMatchList)
+import Test.Hspec        (Spec, it, shouldBe, shouldMatchList)
 import Test.Hspec.Runner (configFastFail, defaultConfig, hspecWith)
 
 import Counting (Color(Black,White), territories, territoryFor)
@@ -11,7 +11,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "go-counting" $ do
+specs = do
 
     let board5x5 = [ "  B  "
                    , " B B "

data/tracks/haskell/exercises/grade-school/package.yaml

@@ -1,5 +1,5 @@
 name: grade-school
-version: 0.1.0.1
+version: 0.1.0.2
 
 dependencies:
   - base

data/tracks/haskell/exercises/grade-school/test/Tests.hs

@@ -1,6 +1,6 @@
 {-# OPTIONS_GHC -fno-warn-type-defaults #-}
 
-import Test.Hspec        (Spec, describe, it, shouldBe)
+import Test.Hspec        (Spec, it, shouldBe)
 import Test.Hspec.Runner (configFastFail, defaultConfig, hspecWith)
 
 import School (add, empty, grade, sorted)
@@ -9,7 +9,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "grade-school" $ do
+specs = do
 
           let fromList = foldr (uncurry add) empty
           let fromGrade g = fromList . zip (repeat g)

data/tracks/haskell/exercises/grains/package.yaml

@@ -1,5 +1,5 @@
 name: grains
-version: 1.0.0.2
+version: 1.0.0.3
 
 dependencies:
   - base

data/tracks/haskell/exercises/grains/test/Tests.hs

@@ -10,7 +10,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "grains" $ do
+specs = do
           describe "square" $ for_ squareCases squareTest
           describe "total"  $ totalTest totalCase
   where

data/tracks/haskell/exercises/hamming/package.yaml

@@ -1,5 +1,5 @@
 name: hamming
-version: 1.0.0.2
+version: 1.0.0.3
 
 dependencies:
   - base

data/tracks/haskell/exercises/hamming/test/Tests.hs

@@ -11,8 +11,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "hamming" $
-          describe "distance" $ for_ cases test
+specs = describe "distance" $ for_ cases test
   where
 
     test Case{..} = it description assertion

data/tracks/haskell/exercises/hello-world/package.yaml

@@ -1,5 +1,5 @@
 name: hello-world
-version: 1.0.0.2
+version: 1.0.0.3
 
 dependencies:
   - base

data/tracks/haskell/exercises/hello-world/test/Tests.hs

@@ -1,4 +1,4 @@
-import Test.Hspec        (Spec, describe, it, shouldBe)
+import Test.Hspec        (Spec, it, shouldBe)
 import Test.Hspec.Runner (configFastFail, defaultConfig, hspecWith)
 
 import HelloWorld (hello)
@@ -7,7 +7,5 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "hello-world" $
-
-    it "hello" $
-      hello `shouldBe` "Hello, World!"
+specs = it "hello" $
+          hello `shouldBe` "Hello, World!"

data/tracks/haskell/exercises/hexadecimal/package.yaml

@@ -1,5 +1,5 @@
 name: hexadecimal
-version: 0.1.0.1
+version: 0.1.0.2
 
 dependencies:
   - base

data/tracks/haskell/exercises/hexadecimal/test/Tests.hs

@@ -10,8 +10,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "hexadecimal" $
-          describe "hexToInt" $ for_ cases test
+specs = describe "hexToInt" $ for_ cases test
   where
 
     test (input, expected) = it description assertion

data/tracks/haskell/exercises/house/package.yaml

@@ -1,5 +1,5 @@
 name: house
-version: 0.1.0.1
+version: 0.1.0.2
 
 dependencies:
   - base

data/tracks/haskell/exercises/house/test/Tests.hs

@@ -8,20 +8,18 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "house" $
+specs = describe "rhyme" $ do
 
-          describe "rhyme" $ do
+          -- First we test the input, line by line, to give more
+          -- useful error messages.
 
-            -- First we test the input, line by line, to give more
-            -- useful error messages.
+          it "matches lines" $ sequence_ lineAssertions
 
-            it "matches lines" $ sequence_ lineAssertions
+          -- Finally, because testing lines we are unable
+          -- to detect a missing newline at the end of the
+          -- lyrics, we test the full song.
 
-            -- Finally, because testing lines we are unable
-            -- to detect a missing newline at the end of the
-            -- lyrics, we test the full song.
-
-            it "matches full song" $ rhyme `shouldBe` lyrics
+          it "matches full song" $ rhyme `shouldBe` lyrics
   where
 
     lineAssertions = zipWith checkLine [1 :: Int ..] $ zipMaybe (lines rhyme) (lines lyrics)

data/tracks/haskell/exercises/kindergarten-garden/package.yaml

@@ -1,5 +1,5 @@
 name: kindergarten-garden
-version: 1.0.0.2
+version: 1.0.0.3
 
 dependencies:
   - base

data/tracks/haskell/exercises/kindergarten-garden/test/Tests.hs

@@ -1,4 +1,4 @@
-import Test.Hspec        (Spec, describe, it, shouldBe)
+import Test.Hspec        (Spec, it, shouldBe)
 import Test.Hspec.Runner (configFastFail, defaultConfig, hspecWith)
 
 import Garden
@@ -16,7 +16,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "kindergarten-garden" $ do
+specs = do
 
     it "garden with single student" $ do
 

data/tracks/haskell/exercises/largest-series-product/package.yaml

@@ -1,5 +1,5 @@
 name: largest-series-product
-version: 1.0.0.2
+version: 1.0.0.3
 
 dependencies:
   - base

data/tracks/haskell/exercises/largest-series-product/test/Tests.hs

@@ -9,9 +9,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "largest-series-product" $
-
-    describe "largestProduct" $ do
+specs = describe "largestProduct" $ do
 
       it "finds the largest product if span equals length" $
         largestProduct 2 "29"

data/tracks/haskell/exercises/leap/package.yaml

@@ -1,5 +1,5 @@
 name: leap
-version: 0.9.0.1 # 2016-07-27
+version: 1.0.0.3
 
 dependencies:
   - base

data/tracks/haskell/exercises/leap/test/Tests.hs

@@ -11,8 +11,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "leap" $
-          describe "isLeapYear" $ for_ cases test
+specs = describe "isLeapYear" $ for_ cases test
   where
 
     test Case{..} = it explanation assertion
@@ -26,31 +25,19 @@ data Case = Case { description :: String
                  }
 
 cases :: [Case]
-cases = [ Case { description = "leap year"
-               , input       = 1996
-               , expected    = True
-               }
-        , Case { description = "standard and odd year"
-               , input       = 1997
-               , expected    = False
-               }
-        , Case { description = "standard even year"
-               , input       = 1998
+cases = [ Case { description = "year not divisible by 4: common year"
+               , input       = 2015
                , expected    = False
                }
-        , Case { description = "standard nineteenth century"
-               , input       = 1900
-               , expected    = False
+        , Case { description = "year divisible by 4, not divisible by 100: leap year"
+               , input       = 2016
+               , expected    = True
                }
-        , Case { description = "standard eighteenth century"
-               , input       = 1800
+        , Case { description = "year divisible by 100, not divisible by 400: common year"
+               , input       = 2100
                , expected    = False
                }
-        , Case { description = "leap twenty fourth century"
-               , input       = 2400
-               , expected    = True
-               }
-        , Case { description = "leap y2k"
+        , Case { description = "year divisible by 400: leap year"
                , input       = 2000
                , expected    = True
                }

data/tracks/haskell/exercises/lens-person/package.yaml

@@ -1,5 +1,5 @@
 name: lens-person
-version: 0.1.0.1
+version: 0.1.0.2
 
 dependencies:
   - base

data/tracks/haskell/exercises/lens-person/test/Tests.hs

@@ -1,6 +1,6 @@
 import Data.Char          (toUpper)
 import Data.Time.Calendar (fromGregorian)
-import Test.Hspec         (Spec, describe, it, shouldBe)
+import Test.Hspec         (Spec, it, shouldBe)
 import Test.Hspec.Runner  (configFastFail, defaultConfig, hspecWith)
 
 import Person
@@ -18,7 +18,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "lens-person" $ do
+specs = do
 
     it "bornStreet" $
       (bornStreet . _born) testPerson