elm/exercises/word-count/Tests.elm

port module Main exposing (..)

import Test.Runner.Node exposing (run, TestProgram)
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 : TestProgram
main =
    run emit tests


port emit : ( String, Value ) -> Cmd msg