- TestCase $ assertEqual description expected_items actual_items
- where
- description = "All items are numbered correctly."
- actual_items = listify [ "item1", "item2" ]
- expected_items = ["1. item1", "2. item2" ]
+ assertEqual description expected_items actual_items
+ where
+ description = "All items are numbered correctly."
+ actual_items = listify [ "item1", "item2" ]
+ expected_items = ["1. item1", "2. item2" ]
+
+string_utils_tests :: Test
+string_utils_tests =
+ testGroup "StringUtils Tests" [ tc1 ]
+ where
+ tc1 = testCase "All items are numbered correctly." test_listify