@@ -6,20 +6,24 @@ open Xunit
66open Bob
77
88[<Fact>]
9- let ``Stating something `` () =
10- response " Tom-ay-to, tom-aaaah-to. " |> should equal " Whatever ."
9+ let ``Asking a question `` () =
10+ response " Does this cryogenic chamber make me look fat? " |> should equal " Sure ."
1111
1212[<Fact( Skip = " Remove this Skip property to run this test" ) >]
1313let ``Shouting`` () =
1414 response " WATCH OUT!" |> should equal " Whoa, chill out!"
1515
1616[<Fact( Skip = " Remove this Skip property to run this test" ) >]
17- let ``Shouting gibberish `` () =
18- response " FCECDFCAAB " |> should equal " Whoa, chill out !"
17+ let ``Forceful question `` () =
18+ response " WHAT'S GOING ON? " |> should equal " Calm down, I know what I'm doing !"
1919
2020[<Fact( Skip = " Remove this Skip property to run this test" ) >]
21- let ``Asking a question`` () =
22- response " Does this cryogenic chamber make me look fat?" |> should equal " Sure."
21+ let ``Silence`` () =
22+ response " " |> should equal " Fine. Be that way!"
23+
24+ [<Fact( Skip = " Remove this Skip property to run this test" ) >]
25+ let ``Stating something`` () =
26+ response " Tom-ay-to, tom-aaaah-to." |> should equal " Whatever."
2327
2428[<Fact( Skip = " Remove this Skip property to run this test" ) >]
2529let ``Asking a numeric question`` () =
@@ -30,28 +34,36 @@ let ``Asking gibberish`` () =
3034 response " fffbbcbeab?" |> should equal " Sure."
3135
3236[<Fact( Skip = " Remove this Skip property to run this test" ) >]
33- let ``Talking forcefully `` () =
34- response " Hi there! " |> should equal " Whatever ."
37+ let ``Question with no letters `` () =
38+ response " 4? " |> should equal " Sure ."
3539
3640[<Fact( Skip = " Remove this Skip property to run this test" ) >]
37- let ``Using acronyms in regular speech `` () =
38- response " It's OK if you don't want to go work for NASA. " |> should equal " Whatever ."
41+ let ``Non - letters with question `` () =
42+ response " :) ? " |> should equal " Sure ."
3943
4044[<Fact( Skip = " Remove this Skip property to run this test" ) >]
41- let ``Forceful question `` () =
42- response " WHAT'S GOING ON ?" |> should equal " Calm down, I know what I'm doing! "
45+ let ``Prattling on `` () =
46+ response " Wait! Hang on. Are you going to be OK ?" |> should equal " Sure. "
4347
4448[<Fact( Skip = " Remove this Skip property to run this test" ) >]
45- let ``Shouting numbers `` () =
46- response " 1, 2, 3 GO! " |> should equal " Whoa, chill out! "
49+ let ``Ending with whitespace `` () =
50+ response " Okay if like my spacebar quite a bit? " |> should equal " Sure. "
4751
4852[<Fact( Skip = " Remove this Skip property to run this test" ) >]
49- let ``No letters `` () =
50- response " 1, 2, 3 " |> should equal " Whatever ."
53+ let ``Multiple line question `` () =
54+ response " \n Does this cryogenic chamber make \n me look fat? " |> should equal " Sure ."
5155
5256[<Fact( Skip = " Remove this Skip property to run this test" ) >]
53- let ``Question with no letters`` () =
54- response " 4?" |> should equal " Sure."
57+ let ``Shouting gibberish`` () =
58+ response " FCECDFCAAB" |> should equal " Whoa, chill out!"
59+
60+ [<Fact( Skip = " Remove this Skip property to run this test" ) >]
61+ let ``Shouting a statement containing a question mark`` () =
62+ response " DO LIONS EAT PEOPLE? AHHHHH." |> should equal " Whoa, chill out!"
63+
64+ [<Fact( Skip = " Remove this Skip property to run this test" ) >]
65+ let ``Shouting numbers`` () =
66+ response " 1, 2, 3 GO!" |> should equal " Whoa, chill out!"
5567
5668[<Fact( Skip = " Remove this Skip property to run this test" ) >]
5769let ``Shouting with special characters`` () =
@@ -62,46 +74,38 @@ let ``Shouting with no exclamation mark`` () =
6274 response " I HATE THE DENTIST" |> should equal " Whoa, chill out!"
6375
6476[<Fact( Skip = " Remove this Skip property to run this test" ) >]
65- let ``Statement containing question mark`` () =
66- response " Ending with ? means a question." |> should equal " Whatever."
67-
68- [<Fact( Skip = " Remove this Skip property to run this test" ) >]
69- let ``Non - letters with question`` () =
70- response " :) ?" |> should equal " Sure."
77+ let ``Prolonged silence`` () =
78+ response " " |> should equal " Fine. Be that way!"
7179
7280[<Fact( Skip = " Remove this Skip property to run this test" ) >]
73- let ``Prattling on `` () =
74- response " Wait! Hang on. Are you going to be OK? " |> should equal " Sure. "
81+ let ``Alternate silence `` () =
82+ response " \t\t\t\t\t\t\t\t\t\t " |> should equal " Fine. Be that way! "
7583
7684[<Fact( Skip = " Remove this Skip property to run this test" ) >]
77- let ``Silence `` () =
78- response " " |> should equal " Fine. Be that way!"
85+ let ``Other whitespace `` () =
86+ response " \n\r \t " |> should equal " Fine. Be that way!"
7987
8088[<Fact( Skip = " Remove this Skip property to run this test" ) >]
81- let ``Prolonged silence `` () =
82- response " " |> should equal " Fine. Be that way! "
89+ let ``Talking forcefully `` () =
90+ response " Hi there! " |> should equal " Whatever. "
8391
8492[<Fact( Skip = " Remove this Skip property to run this test" ) >]
85- let ``Alternate silence `` () =
86- response " \t\t\t\t\t\t\t\t\t\t " |> should equal " Fine. Be that way! "
93+ let ``Using acronyms in regular speech `` () =
94+ response " It's OK if you don't want to go work for NASA. " |> should equal " Whatever. "
8795
8896[<Fact( Skip = " Remove this Skip property to run this test" ) >]
89- let ``Starting with whitespace `` () =
90- response " hmmmmmmm... " |> should equal " Whatever."
97+ let ``No letters `` () =
98+ response " 1, 2, 3 " |> should equal " Whatever."
9199
92100[<Fact( Skip = " Remove this Skip property to run this test" ) >]
93- let ``Ending with whitespace `` () =
94- response " Okay if like my spacebar quite a bit? " |> should equal " Sure ."
101+ let ``Statement containing question mark `` () =
102+ response " Ending with ? means a question. " |> should equal " Whatever ."
95103
96104[<Fact( Skip = " Remove this Skip property to run this test" ) >]
97- let ``Other whitespace`` () =
98- response " \n\r \t " |> should equal " Fine. Be that way! "
105+ let ``Starting with whitespace`` () =
106+ response " hmmmmmmm... " |> should equal " Whatever. "
99107
100108[<Fact( Skip = " Remove this Skip property to run this test" ) >]
101109let ``Non - question ending with whitespace`` () =
102110 response " This is a statement ending with whitespace " |> should equal " Whatever."
103111
104- [<Fact( Skip = " Remove this Skip property to run this test" ) >]
105- let ``Multiple line question`` () =
106- response " \n Does this cryogenic chamber make\n me look fat?" |> should equal " Sure."
107-
0 commit comments