14 lines
296 B
Haskell
14 lines
296 B
Haskell
|
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")
|
||
|
|
]
|