mirror of
https://github.com/correl/elm.git
synced 2024-12-23 11:15:00 +00:00
148 lines
4.5 KiB
Elm
148 lines
4.5 KiB
Elm
module Tests exposing (..)
|
|
|
|
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 =
|
|
Tuple.first (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) ++ "?"
|