elm/exercises/bob/Tests.elm

port module Main exposing (..)

import Test.Runner.Node exposing (run, TestProgram)
import Json.Encode exposing (Value)
import Test exposing (..)
import Expect
import String
import Char
import Random
import Bob


tests : Test
tests =
    describe "Bob"
        [ test "stating something" <|
            \() ->
                Expect.equal "Whatever."
                    (Bob.hey "Tom-ay-to, tom-aaaah-to.")
        , test "shouting" <|
            \() ->
                Expect.equal
                    "Whoa, chill out!"
                    (Bob.hey "WATCH OUT!")
        , test "shouting gibberish" <|
            \() ->
                Expect.equal
                    "Whoa, chill out!"
                    (Bob.hey (uppercaseGibberish 10))
        , test "asking a question" <|
            \() ->
                Expect.equal
                    "Sure."
                    (Bob.hey "Does this cryogenic chamber make me look fat?")
        , test "asking a numeric question" <|
            \() ->
                Expect.equal
                    "Sure."
                    (Bob.hey "You are, what, like 15?")
        , test "asking gibberish" <|
            \() ->
                Expect.equal
                    "Sure."
                    (Bob.hey (gibberishQuestion 20))
        , test "talking forcefully" <|
            \() ->
                Expect.equal
                    "Whatever."
                    (Bob.hey "Let's go make out behind the gym!")
        , test "using acronyms in regular speech" <|
            \() ->
                Expect.equal
                    "Whatever."
                    (Bob.hey "It's OK if you don't want to go to the DMV.")
        , test "forceful questions" <|
            \() ->
                Expect.equal
                    "Whoa, chill out!"
                    (Bob.hey "WHAT THE HELL WERE YOU THINKING?")
        , test "shouting numbers" <|
            \() ->
                Expect.equal
                    "Whoa, chill out!"
                    (Bob.hey "1, 2, 3 GO!")
        , test "only numbers" <|
            \() ->
                Expect.equal
                    "Whatever."
                    (Bob.hey "1, 2, 3")
        , test "question with only numbers" <|
            \() ->
                Expect.equal
                    "Sure."
                    (Bob.hey "4?")
        , test "shouting with special characters" <|
            \() ->
                Expect.equal
                    "Whoa, chill out!"
                    (Bob.hey "ZOMG THE %^*@#$(*^ ZOMBIES ARE COMING!!11!!1!")
        , test "shouting with no exclamation mark" <|
            \() ->
                Expect.equal
                    "Whoa, chill out!"
                    (Bob.hey "I HATE YOU")
        , test "statement containing a question mark" <|
            \() ->
                Expect.equal
                    "Whatever."
                    (Bob.hey "Ending with ? means a question.")
        , test "prattling on" <|
            \() ->
                Expect.equal
                    "Sure."
                    (Bob.hey "Wait! Hang on. Are you going to be OK?")
        , test "silence" <|
            \() ->
                Expect.equal
                    "Fine. Be that way!"
                    (Bob.hey "")
        , test "prolonged silence" <|
            \() ->
                Expect.equal
                    "Fine. Be that way!"
                    (Bob.hey "       ")
        , test "alternate silences" <|
            \() ->
                Expect.equal
                    "Fine. Be that way!"
                    (Bob.hey "\t  \n  \t   ")
        , test "on multiple line questions" <|
            \() ->
                Expect.equal
                    "Whatever."
                    (Bob.hey "\nDoes this cryogenic chamber make me look fat?\nno")
        ]


character : Int -> Int -> Random.Generator Char
character start end =
    Random.map Char.fromCode (Random.int start end)


anyCharacter : Random.Generator Char
anyCharacter =
    character 32 126


uppercaseCharacter : Random.Generator Char
uppercaseCharacter =
    character 65 90


listOfCharacters : Int -> Random.Generator Char -> Random.Generator (List Char)
listOfCharacters length characterList =
    Random.list length characterList


gibberish : Int -> Random.Generator Char -> String
gibberish length characterList =
    fst (Random.step (Random.map String.fromList (listOfCharacters length characterList)) (Random.initialSeed 424242))


uppercaseGibberish : Int -> String
uppercaseGibberish length =
    gibberish length uppercaseCharacter


gibberishQuestion : Int -> String
gibberishQuestion length =
    (gibberish length anyCharacter) ++ "?"


main : TestProgram
main =
    run emit tests


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