mirror of
https://github.com/correl/elm.git
synced 2024-11-25 11:09:53 +00:00
53 lines
2.4 KiB
Elm
53 lines
2.4 KiB
Elm
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)
|
|
]
|