Skip to content

Commit

Permalink
Correct tests for word-search exercise
Browse files Browse the repository at this point in the history
  • Loading branch information
@tofische
tofische committed Apr 17, 2024
1 parent 3aa85d6 commit 5a463f0
Showing 1 changed file with 25 additions and 25 deletions.
50 changes: 25 additions & 25 deletions exercises/practice/word-search/test/Tests.hs
View file
Original file line number Diff line number Diff line change
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) ]
}
]

0 comments on commit 5a463f0

Please sign in to comment.