Skip to content

sync bob tests #383

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
glennj merged 1 commit into from
Jul 3, 2026
Merged

sync bob tests #383

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
89 changes: 46 additions & 43 deletions exercises/practice/bob/.meta/tests.toml
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -9,82 +9,85 @@
# As user-added comments (using the # character) will be removed when this file
# is regenerated, comments can be added via a `comment` key.

[e162fead-606f-437a-a166-d051915cea8e]
description = "stating something"
[8a2e771d-d6f1-4e3f-b6c6-b41495556e37]
description = "asking a question"

[73a966dc-8017-47d6-bb32-cf07d1a5fcd9]
description = "shouting"

[d6c98afd-df35-4806-b55e-2c457c3ab748]
description = "shouting gibberish"
[a5193c61-4a92-4f68-93e2-f554eb385ec6]
description = "forceful question"

[8a2e771d-d6f1-4e3f-b6c6-b41495556e37]
description = "asking a question"
[bc39f7c6-f543-41be-9a43-fd1c2f753fc0]
description = "silence"

[e162fead-606f-437a-a166-d051915cea8e]
description = "stating something"

[81080c62-4e4d-4066-b30a-48d8d76920d9]
description = "asking a numeric question"

[2a02716d-685b-4e2e-a804-2adaf281c01e]
description = "asking gibberish"

[c02f9179-ab16-4aa7-a8dc-940145c385f7]
description = "talking forcefully"
[bb0011c5-cd52-4a5b-8bfb-a87b6283b0e2]
description = "question with no letters"

[153c0e25-9bb5-4ec5-966e-598463658bcd]
description = "using acronyms in regular speech"
[9bfc677d-ea3a-45f2-be44-35bc8fa3753e]
description = "non-letters with question"

[a5193c61-4a92-4f68-93e2-f554eb385ec6]
description = "forceful question"
[8608c508-f7de-4b17-985b-811878b3cf45]
description = "prattling on"

[a20e0c54-2224-4dde-8b10-bd2cdd4f61bc]
description = "shouting numbers"
[05b304d6-f83b-46e7-81e0-4cd3ca647900]
description = "ending with whitespace"

[f7bc4b92-bdff-421e-a238-ae97f230ccac]
description = "no letters"
[66953780-165b-4e7e-8ce3-4bcb80b6385a]
description = "multiple line question"
include = false

[bb0011c5-cd52-4a5b-8bfb-a87b6283b0e2]
description = "question with no letters"
[2c7278ac-f955-4eb4-bf8f-e33eb4116a15]
description = "multiple line question"
reimplements = "66953780-165b-4e7e-8ce3-4bcb80b6385a"

[d6c98afd-df35-4806-b55e-2c457c3ab748]
description = "shouting gibberish"

[3c954328-86fb-4c71-8961-e18d6a5e2517]
description = "shouting a statement containing a question mark"

[a20e0c54-2224-4dde-8b10-bd2cdd4f61bc]
description = "shouting numbers"

[496143c8-1c31-4c01-8a08-88427af85c66]
description = "shouting with special characters"

[e6793c1c-43bd-4b8d-bc11-499aea73925f]
description = "shouting with no exclamation mark"

[aa8097cc-c548-4951-8856-14a404dd236a]
description = "statement containing question mark"

[9bfc677d-ea3a-45f2-be44-35bc8fa3753e]
description = "non-letters with question"

[8608c508-f7de-4b17-985b-811878b3cf45]
description = "prattling on"

[bc39f7c6-f543-41be-9a43-fd1c2f753fc0]
description = "silence"

[d6c47565-372b-4b09-b1dd-c40552b8378b]
description = "prolonged silence"

[4428f28d-4100-4d85-a902-e5a78cb0ecd3]
description = "alternate silence"

[66953780-165b-4e7e-8ce3-4bcb80b6385a]
description = "multiple line question"
include = false
[72bd5ad3-9b2f-4931-a988-dce1f5771de2]
description = "other whitespace"

[5371ef75-d9ea-4103-bcfa-2da973ddec1b]
description = "starting with whitespace"
[c02f9179-ab16-4aa7-a8dc-940145c385f7]
description = "talking forcefully"

[05b304d6-f83b-46e7-81e0-4cd3ca647900]
description = "ending with whitespace"
[153c0e25-9bb5-4ec5-966e-598463658bcd]
description = "using acronyms in regular speech"

[72bd5ad3-9b2f-4931-a988-dce1f5771de2]
description = "other whitespace"
[f7bc4b92-bdff-421e-a238-ae97f230ccac]
description = "no letters"

[aa8097cc-c548-4951-8856-14a404dd236a]
description = "statement containing question mark"

[5371ef75-d9ea-4103-bcfa-2da973ddec1b]
description = "starting with whitespace"

[12983553-8601-46a8-92fa-fcaa3bc4a2a0]
description = "non-question ending with whitespace"

[2c7278ac-f955-4eb4-bf8f-e33eb4116a15]
description = "multiple line question"
reimplements = "66953780-165b-4e7e-8ce3-4bcb80b6385a"
83 changes: 43 additions & 40 deletions exercises/practice/bob/test.sml
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
(* version 1.4.0 *)
(* version 1.5.0 *)

use "bob.sml";
use "testlib.sml";
Expand All @@ -8,77 +8,80 @@ fun x |> f = f x

val testsuite =
describe "bob" [
test "stating something"
(fn _ => response ("Tom-ay-to, tom-aaaah-to.") |> Expect.equalTo "Whatever."),
test "asking a question"
(fn _ => response ("Does this cryogenic chamber make me look fat?") |> Expect.equalTo "Sure."),

test "shouting"
(fn _ => response ("WATCH OUT!") |> Expect.equalTo "Whoa, chill out!"),

test "shouting gibberish"
(fn _ => response ("FCECDFCAAB") |> Expect.equalTo "Whoa, chill out!"),
test "forceful question"
(fn _ => response ("WHAT'S GOING ON?") |> Expect.equalTo "Calm down, I know what I'm doing!"),

test "asking a question"
(fn _ => response ("Does this cryogenic chamber make me look fat?") |> Expect.equalTo "Sure."),
test "silence"
(fn _ => response ("") |> Expect.equalTo "Fine. Be that way!"),

test "stating something"
(fn _ => response ("Tom-ay-to, tom-aaaah-to.") |> Expect.equalTo "Whatever."),

test "asking a numeric question"
(fn _ => response ("You are, what, like 15?") |> Expect.equalTo "Sure."),

test "asking gibberish"
(fn _ => response ("fffbbcbeab?") |> Expect.equalTo "Sure."),

test "talking forcefully"
(fn _ => response ("Let's go make out behind the gym!") |> Expect.equalTo "Whatever."),
test "question with no letters"
(fn _ => response ("4?") |> Expect.equalTo "Sure."),

test "using acronyms in regular speech"
(fn _ => response ("It's OK if you don't want to go to the DMV.") |> Expect.equalTo "Whatever."),
test "non-letters with question"
(fn _ => response (":) ?") |> Expect.equalTo "Sure."),

test "forceful question"
(fn _ => response ("WHAT THE HELL WERE YOU THINKING?") |> Expect.equalTo "Calm down, I know what I'm doing!"),
test "prattling on"
(fn _ => response ("Wait! Hang on. Are you going to be OK?") |> Expect.equalTo "Sure."),

test "shouting numbers"
(fn _ => response ("1, 2, 3 GO!") |> Expect.equalTo "Whoa, chill out!"),
test "ending with whitespace"
(fn _ => response ("Okay if like my spacebar quite a bit? ") |> Expect.equalTo "Sure."),

test "no letters"
(fn _ => response ("1, 2, 3") |> Expect.equalTo "Whatever."),
test "multiple line question"
(fn _ => response ("\nDoes this cryogenic chamber make\n me look fat?") |> Expect.equalTo "Sure."),

test "question with only numbers"
(fn _ => response ("4?") |> Expect.equalTo "Sure."),
test "shouting gibberish"
(fn _ => response ("FCECDFCAAB") |> Expect.equalTo "Whoa, chill out!"),

test "shouting a statement containing a question mark"
(fn _ => response ("DO LIONS EAT PEOPLE? AHHHHH.") |> Expect.equalTo "Whoa, chill out!"),

test "shouting numbers"
(fn _ => response ("1, 2, 3 GO!") |> Expect.equalTo "Whoa, chill out!"),

test "shouting with special characters"
(fn _ => response ("ZOMG THE %^*@#$(*^ ZOMBIES ARE COMING!!11!!1!") |> Expect.equalTo "Whoa, chill out!"),

test "shouting with no exclamation mark"
(fn _ => response ("I HATE THE DMV") |> Expect.equalTo "Whoa, chill out!"),

test "statement containing question mark"
(fn _ => response ("Ending with ? means a question.") |> Expect.equalTo "Whatever."),

test "non-letters with question"
(fn _ => response (":) ?") |> Expect.equalTo "Sure."),

test "prattling on"
(fn _ => response ("Wait! Hang on. Are you going to be OK?") |> Expect.equalTo "Sure."),

test "silence"
(fn _ => response ("") |> Expect.equalTo "Fine. Be that way!"),
(fn _ => response ("I HATE THE DENTIST") |> Expect.equalTo "Whoa, chill out!"),

test "prolonged silence"
(fn _ => response (" ") |> Expect.equalTo "Fine. Be that way!"),

test "alternate silence"
(fn _ => response ("\t\t\t\t\t\t\t\t\t\t") |> Expect.equalTo "Fine. Be that way!"),

test "multiple line question"
(fn _ => response ("\nDoes this cryogenic chamber make\n me look fat?") |> Expect.equalTo "Sure."),
test "other whitespace"
(fn _ => response ("\n\r \t") |> Expect.equalTo "Fine. Be that way!"),

test "starting with whitespace"
(fn _ => response (" hmmmmmmm...") |> Expect.equalTo "Whatever."),
test "talking forcefully"
(fn _ => response ("Hi there!") |> Expect.equalTo "Whatever."),

test "ending with whitespace"
(fn _ => response ("Okay if like my spacebar quite a bit? ") |> Expect.equalTo "Sure."),
test "using acronyms in regular speech"
(fn _ => response ("It's OK if you don't want to go work for NASA.") |> Expect.equalTo "Whatever."),

test "other whitespace"
(fn _ => response ("\n\r \t") |> Expect.equalTo "Fine. Be that way!"),
test "no letters"
(fn _ => response ("1, 2, 3") |> Expect.equalTo "Whatever."),

test "statement containing question mark"
(fn _ => response ("Ending with ? means a question.") |> Expect.equalTo "Whatever."),

test "starting with whitespace"
(fn _ => response (" hmmmmmmm...") |> Expect.equalTo "Whatever."),

test "non-question ending with whitespace"
(fn _ => response ("This is a statement ending with whitespace ") |> Expect.equalTo "Whatever.")
Expand Down