module Tests exposing (..)

import Test exposing (..)
import Expect
import AllYourBase exposing (rebase)


tests : Test
tests =
    describe "all-your-base"
        [ test "single bit one to decimal" <|
            \() -> Expect.equal (Just [ 1 ]) (rebase 2 [ 1 ] 10)
        , test "binary to single decimal" <|
            \() -> Expect.equal (Just [ 5 ]) (rebase 2 [ 1, 0, 1 ] 10)
        , test "single decimal to binary" <|
            \() -> Expect.equal (Just [ 1, 0, 1 ]) (rebase 10 [ 5 ] 2)
        , test "binary to multiple decimal" <|
            \() -> Expect.equal (Just [ 4, 2 ]) (rebase 2 [ 1, 0, 1, 0, 1, 0 ] 10)
        , test "decimal to binary" <|
            \() -> Expect.equal (Just [ 1, 0, 1, 0, 1, 0 ]) (rebase 10 [ 4, 2 ] 2)
        , test "trinary to hexadecimal" <|
            \() -> Expect.equal (Just [ 2, 10 ]) (rebase 3 [ 1, 1, 2, 0 ] 16)
        , test "hexadecimal to trinary" <|
            \() -> Expect.equal (Just [ 1, 1, 2, 0 ]) (rebase 16 [ 2, 10 ] 3)
        , test "15-bit integer" <|
            \() -> Expect.equal (Just [ 6, 10, 45 ]) (rebase 97 [ 3, 46, 60 ] 73)
        , test "empty list" <|
            \() -> Expect.equal Nothing (rebase 2 [] 10)
        , test "single zero" <|
            \() -> Expect.equal Nothing (rebase 10 [ 0 ] 2)
        , test "multiple zeros" <|
            \() -> Expect.equal Nothing (rebase 10 [ 0, 0, 0 ] 2)
        , test "leading zeros" <|
            \() -> Expect.equal (Just [ 4, 2 ]) (rebase 7 [ 0, 6, 0 ] 10)
        , test "first base is one" <|
            \() -> Expect.equal Nothing (rebase 1 [] 10)
        , test "first base is zero" <|
            \() -> Expect.equal Nothing (rebase 0 [] 10)
        , test "first base is negative" <|
            \() -> Expect.equal Nothing (rebase -1 [] 10)
        , test "negative digit" <|
            \() -> Expect.equal Nothing (rebase 2 [ 1, -1, 1, 0, 1, 0 ] 10)
        , test "invalid positive digit" <|
            \() -> Expect.equal Nothing (rebase 2 [ 1, 2, 1, 0, 1, 0 ] 10)
        , test "second base is one" <|
            \() -> Expect.equal Nothing (rebase 10 [] 1)
        , test "second base is zero" <|
            \() -> Expect.equal Nothing (rebase 10 [ 1 ] 0)
        , test "second base is negative" <|
            \() -> Expect.equal Nothing (rebase 10 [ 1 ] -1)
        , test "both bases are negative" <|
            \() -> Expect.equal Nothing (rebase -1 [ 1 ] -1)
        ]