tracks/haskell/exercises/zipper/test/Tests.hs in trackler-2.1.0.9 vs tracks/haskell/exercises/zipper/test/Tests.hs in trackler-2.1.0.10
- old
+ new
@@ -19,12 +19,9 @@
main = hspecWith defaultConfig {configFastFail = True} specs
specs :: Spec
specs = describe "zipper" $ do
- -- As of 2016-09-27, there was no reference file
- -- for the test cases in `exercism/x-common`.
-
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
t3 = BT 1 (node 2 (leaf 5) $ leaf 3) $ leaf 4