mirror of
https://github.com/correl/elm.git
synced 2025-03-18 17:00:06 -09:00
4d81104a85
This allows learners to gradually approach exercise. However, unlike commented tests, the Elm compiler is still able to infer type information from the skipped tests.
45 lines
1.6 KiB
Elm
45 lines
1.6 KiB
Elm
module Tests exposing (..)
|
|
|
|
import Test exposing (..)
|
|
import Expect
|
|
import RunLengthEncoding exposing (version, decode, encode)
|
|
|
|
|
|
tests : Test
|
|
tests =
|
|
describe "RunLengthEncoding"
|
|
[ test "the solution is for the correct version of the test" <|
|
|
\() -> Expect.equal 2 version
|
|
, skip <|
|
|
test "encode simple" <|
|
|
\() -> Expect.equal "2A3B4C" (encode "AABBBCCCC")
|
|
, skip <|
|
|
test "decode simple" <|
|
|
\() -> Expect.equal "AABBBCCCC" (decode "2A3B4C")
|
|
, skip <|
|
|
test "encode with single values" <|
|
|
\() ->
|
|
Expect.equal "12WB12W3B24WB"
|
|
(encode "WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWB")
|
|
, skip <|
|
|
test "decode with single values" <|
|
|
\() ->
|
|
Expect.equal "WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWB"
|
|
(decode "12WB12W3B24WB")
|
|
, skip <|
|
|
test "(decode (encode (...)) combination" <|
|
|
\() ->
|
|
Expect.equal "zzz ZZ zZ"
|
|
(decode (encode "zzz ZZ zZ"))
|
|
, skip <|
|
|
test "decode with a x10 value" <|
|
|
\() ->
|
|
Expect.equal "WWWWWWWWWW"
|
|
(decode "10W")
|
|
, skip <|
|
|
test "encode unicode" <|
|
|
\() -> Expect.equal "⏰3⚽2⭐⏰" (encode "⏰⚽⚽⚽⭐⭐⏰")
|
|
, skip <|
|
|
test "decode unicode" <|
|
|
\() -> Expect.equal "⏰⚽⚽⚽⭐⭐⏰" (decode "⏰3⚽2⭐⏰")
|
|
]
|