module JosephusPermutationSpec (spec) where

import JosephusPermutation (josephus)
import Test.Hspec

spec = do
  describe "josephus" $ do
    it "works with integers" $ do
      josephus [1, 2, 3, 4, 5, 6, 7, 8, 9, 10] 1 `shouldBe` [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
      josephus [1, 2, 3, 4, 5, 6, 7, 8, 9, 10] 2 `shouldBe` [2, 4, 6, 8, 10, 3, 7, 1, 9, 5]
