Skip to content
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

Jump to bottom

Correct tests for word-search exercise #1236

Merged
merged 1 commit into from Apr 17, 2024
Merged

Correct tests for word-search exercise #1236

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.
Jump to
Jump to file
Failed to load files.
Diff view
Diff view
50 changes: 25 additions & 25 deletions exercises/practice/word-search/test/Tests.hs
View file
Open in desktop
Expand Up @@ -13,43 +13,43 @@ main = hspecWith defaultConfig {configFailFast = True} specs
specs :: Spec
specs = describe "search" $ for_ cases test
where
test Case{..} = it description $ search grid words `shouldBe` expected
test Case{..} = it description $ search grid wordList `shouldBe` expected

data Case = Case { description :: String
, grid :: [String]
, words :: [String]
, wordList :: [String]
, expected :: [(String, Maybe WordPos)]
}

cases :: [Case]
cases = [ Case { description = "Should accept an initial game grid and a target search word"
, grid = [ "jefblpepre" ]
, words = [ "clojure" ]
, wordList = [ "clojure" ]
, expected = [ ("clojure", Nothing) ]
}
, Case { description = "Should locate one word written left to right"
, grid = [ "clojurermt" ]
, words = [ "clojure" ]
, wordList = [ "clojure" ]
, expected = [ ("clojure", Just WordPos{start=CharPos{col=1, row=1}, end=CharPos{col=7, row=1}}) ]
}
, Case { description = "Should locate the same word written left to right in a different position"
, grid = [ "mtclojurer" ]
, words = [ "clojure" ]
, wordList = [ "clojure" ]
, expected = [ ("clojure", Just WordPos{start=CharPos{col=3, row=1}, end=CharPos{col=9, row=1}}) ]
}
, Case { description = "Should locate a different left to right word"
, grid = [ "coffeelplx" ]
, words = [ "coffee" ]
, wordList = [ "coffee" ]
, expected = [ ("coffee", Just WordPos{start=CharPos{col=1, row=1}, end=CharPos{col=6, row=1}}) ]
}
, Case { description = "Should locate that different left to right word in a different position"
, grid = [ "xcoffeezlp" ]
, words = [ "coffee" ]
, wordList = [ "coffee" ]
, expected = [ ("coffee", Just WordPos{start=CharPos{col=2, row=1}, end=CharPos{col=7, row=1}}) ]
}
, Case { description = "Should locate a left to right word in three line grid"
, grid = [ "camdcimgtc", "jefblpepre","clojurermt" ]
, words = [ "clojure" ]
, wordList = [ "clojure" ]
, expected = [ ("clojure", Just WordPos{start=CharPos{col=1, row=3}, end=CharPos{col=7, row=3}}) ]
}
, Case { description = "Should locate a left to right word in ten line grid"
Expand All @@ -65,7 +65,7 @@ cases = [ Case { description = "Should accept an initial game grid and a target
"jalaycalmp",
"clojurermt"
]
, words = [ "clojure" ]
, wordList = [ "clojure" ]
, expected = [ ("clojure", Just WordPos{start=CharPos{col=1, row=10}, end=CharPos{col=7, row=10}}) ]
}
, Case { description = "Should locate that left to right word in a different position in a ten line grid"
Expand All @@ -81,7 +81,7 @@ cases = [ Case { description = "Should accept an initial game grid and a target
"clojurermt",
"jalaycalmp"
]
, words = [ "clojure" ]
, wordList = [ "clojure" ]
, expected = [ ("clojure", Just WordPos{start=CharPos{col=1, row=9}, end=CharPos{col=7, row=9}}) ]
}
, Case { description = "Should locate a different left to right word in a ten line grid"
Expand All @@ -97,7 +97,7 @@ cases = [ Case { description = "Should accept an initial game grid and a target
"clojurermt",
"jalaycalmp"
]
, words = [ "fortran" ]
, wordList = [ "fortran" ]
, expected = [ ("fortran", Just WordPos{start=CharPos{col=1, row=7}, end=CharPos{col=7, row=7}}) ]
}
, Case { description = "Should locate multiple words"
Expand All @@ -113,15 +113,15 @@ cases = [ Case { description = "Should accept an initial game grid and a target
"jalaycalmp",
"clojurermt"
]
, words = [ "fortran", "clojure" ]
, wordList = [ "fortran", "clojure" ]
, expected = [
("fortran", Just WordPos{start=CharPos{col=1, row=7}, end=CharPos{col=7, row=7}}),
("clojure", Just WordPos{start=CharPos{col=1, row=10}, end=CharPos{col=7, row=10}})
]
}
, Case { description = "Should locate a single word written right to left"
, grid = [ "rixilelhrs" ]
, words = [ "elixir" ]
, wordList = [ "elixir" ]
, expected = [ ("elixir", Just WordPos{start=CharPos{col=6, row=1}, end=CharPos{col=1, row=1}}) ]
}
, Case { description = "Should locate multiple words written in different horizontal directions"
Expand All @@ -137,7 +137,7 @@ cases = [ Case { description = "Should accept an initial game grid and a target
"jalaycalmp",
"clojurermt"
]
, words = [ "elixir", "clojure" ]
, wordList = [ "elixir", "clojure" ]
, expected = [
("elixir", Just WordPos{start=CharPos{col=6, row=5}, end=CharPos{col=1, row=5}}),
("clojure", Just WordPos{start=CharPos{col=1, row=10}, end=CharPos{col=7, row=10}})
Expand All @@ -156,7 +156,7 @@ cases = [ Case { description = "Should accept an initial game grid and a target
"jalaycalmp",
"clojurermt"
]
, words = [ "clojure", "elixir", "ecmascript" ]
, wordList = [ "clojure", "elixir", "ecmascript" ]
, expected = [
("clojure", Just WordPos{start=CharPos{col=1, row=10}, end=CharPos{col=7, row=10}}),
("elixir", Just WordPos{start=CharPos{col=6, row=5}, end=CharPos{col=1, row=5}}),
Expand All @@ -176,7 +176,7 @@ cases = [ Case { description = "Should accept an initial game grid and a target
"jalaycalmp",
"clojurermt"
]
, words = [ "clojure", "elixir", "ecmascript", "rust" ]
, wordList = [ "clojure", "elixir", "ecmascript", "rust" ]
, expected = [
("clojure", Just WordPos{start=CharPos{col=1, row=10}, end=CharPos{col=7, row=10}}),
("elixir", Just WordPos{start=CharPos{col=6, row=5}, end=CharPos{col=1, row=5}}),
Expand All @@ -197,7 +197,7 @@ cases = [ Case { description = "Should accept an initial game grid and a target
"jalaycalmp",
"clojurermt"
]
, words = [ "clojure", "elixir", "ecmascript", "rust", "java" ]
, wordList = [ "clojure", "elixir", "ecmascript", "rust", "java" ]
, expected = [
("clojure", Just WordPos{start=CharPos{col=1, row=10}, end=CharPos{col=7, row=10}}),
("elixir", Just WordPos{start=CharPos{col=6, row=5}, end=CharPos{col=1, row=5}}),
Expand All @@ -219,7 +219,7 @@ cases = [ Case { description = "Should accept an initial game grid and a target
"jalaycalmp",
"clojurermt"
]
, words = [ "clojure", "elixir", "ecmascript", "rust", "java", "lua" ]
, wordList = [ "clojure", "elixir", "ecmascript", "rust", "java", "lua" ]
, expected = [
("clojure", Just WordPos{start=CharPos{col=1, row=10}, end=CharPos{col=7, row=10}}),
("elixir", Just WordPos{start=CharPos{col=6, row=5}, end=CharPos{col=1, row=5}}),
Expand All @@ -241,7 +241,7 @@ cases = [ Case { description = "Should accept an initial game grid and a target
"alxhpburyi",
"jalaycalmp",
"clojurermt" ]
, words = [ "clojure", "elixir", "ecmascript", "rust", "java", "lua", "lisp" ]
, wordList = [ "clojure", "elixir", "ecmascript", "rust", "java", "lua", "lisp" ]
, expected = [
("clojure", Just WordPos{start=CharPos{col=1, row=10}, end=CharPos{col=7, row=10}}),
("elixir", Just WordPos{start=CharPos{col=6, row=5}, end=CharPos{col=1, row=5}}),
Expand All @@ -265,7 +265,7 @@ cases = [ Case { description = "Should accept an initial game grid and a target
"jalaycalmp",
"clojurermt"
]
, words = [ "clojure", "elixir", "ecmascript", "rust", "java", "lua", "lisp", "ruby" ]
, wordList = [ "clojure", "elixir", "ecmascript", "rust", "java", "lua", "lisp", "ruby" ]
, expected = [
("clojure", Just WordPos{start=CharPos{col=1, row=10}, end=CharPos{col=7, row=10}}),
("elixir", Just WordPos{start=CharPos{col=6, row=5}, end=CharPos{col=1, row=5}}),
Expand All @@ -290,7 +290,7 @@ cases = [ Case { description = "Should accept an initial game grid and a target
"jalaycalmp",
"clojurermt"
]
, words = [ "clojure", "elixir", "ecmascript", "rust", "java", "lua", "lisp", "ruby", "haskell" ]
, wordList = [ "clojure", "elixir", "ecmascript", "rust", "java", "lua", "lisp", "ruby", "haskell" ]
, expected = [
("clojure", Just WordPos{start=CharPos{col=1, row=10}, end=CharPos{col=7, row=10}}),
("elixir", Just WordPos{start=CharPos{col=6, row=5}, end=CharPos{col=1, row=5}}),
Expand All @@ -305,7 +305,7 @@ cases = [ Case { description = "Should accept an initial game grid and a target
}
, Case { description = "Should fail to locate words that are not on horizontal, vertical, or diagonal lines"
, grid = [ "abc", "def" ]
, words = [ "aef", "ced", "abf", "cbd" ]
, wordList = [ "aef", "ced", "abf", "cbd" ]
, expected = [
("aef", Nothing),
("ced", Nothing),
Expand All @@ -315,17 +315,17 @@ cases = [ Case { description = "Should accept an initial game grid and a target
}
, Case { description = "Should not concatenate different lines to find a horizontal word"
, grid = [ "abceli", "xirdfg" ]
, words = [ "elixir" ]
, wordList = [ "elixir" ]
, expected = [ ("elixir", Nothing) ]
}
, Case { description = "Should not wrap around horizontally to find a word"
, grid = [ "silabcdefp" ]
, words = [ "lisp" ]
, wordList = [ "lisp" ]
, expected = [ ("lisp", Nothing) ]
}
, Case { description = "Should not wrap around vertically to find a word"
, grid = [ "s", "u", "r", "a", "b", "c", "t" ]
, words = [ "rust" ]
, wordList = [ "rust" ]
, expected = [ ("rust", Nothing) ]
}
]