mirror of
https://github.com/correl/elm.git
synced 2024-11-16 03:00:08 +00:00
54e3017815
* Update exercises to elm-test 2.0 * Update docs to mention `elm-test` again * Update .travis.yml to the correct version of elm-test * Conform to the `<| \() ->` convention
46 lines
1.6 KiB
Elm
46 lines
1.6 KiB
Elm
port module Main exposing (..)
|
|
|
|
import Test.Runner.Node exposing (run)
|
|
import Json.Encode exposing (Value)
|
|
import Test exposing (..)
|
|
import Expect
|
|
import Dict exposing (Dict)
|
|
import WordCount exposing (wordCount)
|
|
|
|
|
|
tests : Test
|
|
tests =
|
|
describe "Word Count"
|
|
[ test "count one word" <|
|
|
\() ->
|
|
Expect.equal [ ( "word", 1 ) ]
|
|
(wordCount "word" |> Dict.toList)
|
|
, test "count one of each word" <|
|
|
\() ->
|
|
Expect.equal [ ( "each", 1 ), ( "of", 1 ), ( "one", 1 ) ]
|
|
(wordCount "one of each" |> Dict.toList)
|
|
, test "multiple occurrences of a word" <|
|
|
\() ->
|
|
Expect.equal [ ( "blue", 1 ), ( "fish", 4 ), ( "one", 1 ), ( "red", 1 ), ( "two", 1 ) ]
|
|
(wordCount "one fish two fish red fish blue fish" |> Dict.toList)
|
|
, test "ignore punctuation" <|
|
|
\() ->
|
|
Expect.equal [ ( "as", 1 ), ( "car", 1 ), ( "carpet", 1 ), ( "java", 1 ), ( "javascript", 1 ) ]
|
|
(wordCount "car : carpet as java : javascript!!&@$%^&" |> Dict.toList)
|
|
, test "include numbers" <|
|
|
\() ->
|
|
Expect.equal [ ( "1", 1 ), ( "2", 1 ), ( "testing", 2 ) ]
|
|
(wordCount "testing, 1, 2 testing" |> Dict.toList)
|
|
, test "normalize case" <|
|
|
\() ->
|
|
Expect.equal [ ( "go", 3 ), ( "stop", 2 ) ]
|
|
(wordCount "go Go GO Stop stop" |> Dict.toList)
|
|
]
|
|
|
|
|
|
main : Program Never
|
|
main =
|
|
run emit tests
|
|
|
|
|
|
port emit : ( String, Value ) -> Cmd msg
|