15 lines
306 B
Haskell
15 lines
306 B
Haskell
|
module Homework.Ch01.HanoiSpec where
|
||
|
|
|
||
|
|
import Homework.Ch01.Hanoi
|
||
|
|
import Test.Hspec
|
||
|
|
|
||
|
|
spec :: Spec
|
||
|
|
spec = describe "hanoi" $ do
|
||
|
|
it "can solve for stack of 2 and three pegs" $ do
|
||
|
|
hanoi 2 "a" "b" "c"
|
||
|
|
`shouldBe` Right
|
||
|
|
[ Move "a" "c",
|
||
|
|
Move "a" "b",
|
||
|
|
Move "c" "b"
|
||
|
|
]
|