tracks/haskell/exercises/zipper/test/Tests.hs in trackler-2.1.0.11 vs tracks/haskell/exercises/zipper/test/Tests.hs in trackler-2.1.0.12
- old
+ new
@@ -1,7 +1,7 @@
import Data.Maybe (fromJust)
-import Test.Hspec (Spec, describe, it, shouldBe)
+import Test.Hspec (Spec, it, shouldBe)
import Test.Hspec.Runner (configFastFail, defaultConfig, hspecWith)
import Zipper
( BinTree(BT)
, fromTree
@@ -17,10 +17,10 @@
main :: IO ()
main = hspecWith defaultConfig {configFastFail = True} specs
specs :: Spec
-specs = describe "zipper" $ do
+specs = do
let leaf v = node v Nothing Nothing
node v l r = Just (BT v l r :: BinTree Int)
t1 = BT 1 (node 2 Nothing $ leaf 3) $ leaf 4
t2 = BT 1 (node 5 Nothing $ leaf 3) $ leaf 4