From faf31c2206b7be5a0c74ceee95af0c93adc52c61 Mon Sep 17 00:00:00 2001 From: rbasso Date: Tue, 9 May 2017 16:15:54 +0900 Subject: [PATCH] change: Remove test groups not matching x-common Reference test data has no test groups, so we remove the unneeded two levels of nesting. Note that the exercise's name is always automatically displayed when running the tests suite. --- exercises/change/package.yaml | 2 +- exercises/change/test/Tests.hs | 5 ++--- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/exercises/change/package.yaml b/exercises/change/package.yaml index 5507097ab..5107c4175 100644 --- a/exercises/change/package.yaml +++ b/exercises/change/package.yaml @@ -1,5 +1,5 @@ name: change -version: 1.0.0.2 +version: 1.0.0.3 dependencies: - base diff --git a/exercises/change/test/Tests.hs b/exercises/change/test/Tests.hs index d4955d9f5..c86458f55 100644 --- a/exercises/change/test/Tests.hs +++ b/exercises/change/test/Tests.hs @@ -2,7 +2,7 @@ import Data.Foldable (for_) import Data.List (sort) -import Test.Hspec (Spec, describe, it, shouldBe) +import Test.Hspec (Spec, it, shouldBe) import Test.Hspec.Runner (configFastFail, defaultConfig, hspecWith) import Change (findFewestCoins) @@ -11,8 +11,7 @@ main :: IO () main = hspecWith defaultConfig {configFastFail = True} specs specs :: Spec -specs = describe "Change" $ - describe "change" $ for_ cases test +specs = for_ cases test where test Case{..} = it description assertion