tracks/haskell/exercises/dominoes/test/Tests.hs in trackler-2.1.0.9 vs tracks/haskell/exercises/dominoes/test/Tests.hs in trackler-2.1.0.10
- old
+ new
@@ -47,11 +47,9 @@
shouldBeConsecutive l (name1, d1@(_, d1r)) (name2, d2@(d2l, _)) =
unless (d1r == d2l) $
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
}