module Homework.Ch01.HanoiSpec where

import Homework.Ch01.Hanoi
import Test.Hspec

spec :: Spec
spec = describe "Hanoi" $ do
  describe "hanoi" $ do
    it "can solve for a stack of 1 and three pegs" $ do
      hanoi 1 "a" "b" "c"
        `shouldBe` Right
          [Move "a" "c"]
    it "can solve for stack of 3 and three pegs" $ do
      hanoi 3 "a" "b" "c"
        `shouldBe` Right
          [ Move "a" "c",
            Move "a" "b",
            Move "c" "b"
          ]
  describe "fillPegWithDiscs" $ do
    it "creates a list of disks from biggest to smallest" $ do
      fillPegWithDiscs 3
        `shouldBe` [ Disc 3,
                     Disc 2,
                     Disc 1
                   ]