haskell-homework/test/Homework/Ch01/TowerOfHanoiSpec.hs

14 lines
296 B
Haskell
Raw Normal View History

module Homework.Ch01.TowerOfHanoiSpec where
import Homework.Ch01.TowerOfHanoi
import Test.Hspec
spec :: Spec
spec = describe "hanoi" $ do
it "explodes" $ do
hanoi 2 "a" "b" "c"
`shouldBe` [ ("a", "c"),
("a", "b"),
("c", "b")
]