module Tests exposing (tests) import Expect import Secrets import Test exposing (Test, describe, test) tests : Test tests = describe "Secrets" [ describe "1" [ test "Shift 8 right by 2" <| \_ -> Secrets.shiftBack 2 8 |> Expect.equal 2 , test "Shift -8 right by 2" <| \_ -> Secrets.shiftBack 2 -8 |> Expect.equal 1073741822 ] , describe "2" [ test "Set bits in 5" <| \_ -> Secrets.setBits 3 5 |> Expect.equal 7 , test "Set bits in 5,652" <| \_ -> Secrets.setBits 26150 5652 |> Expect.equal 30262 ] , describe "3" [ test "Flip bits in 5" <| \_ -> Secrets.flipBits 11 5 |> Expect.equal 14 , test "Flip bits in 38460" <| \_ -> Secrets.flipBits 15471 38460 |> Expect.equal 43603 ] , describe "4" [ test "Clear bits from 5" <| \_ -> Secrets.clearBits 11 5 |> Expect.equal 4 , test "Clear bits from 90" <| \_ -> Secrets.clearBits 240 90 |> Expect.equal 10 ] , describe "5" [ test "Decrypt 12345" <| \_ -> Secrets.decrypt 12345 |> Expect.equal 384 , test "Decrypt 123456789" <| \_ -> Secrets.decrypt 123456789 |> Expect.equal 3857984 ] ]