-
-test_listify :: Test
-test_listify =
- TestCase $ assertEqual "All items are numbered correctly." expected_items actual_items
- where
- actual_items = listify [ "item1", "item2" ]
- expected_items = ["1. item1", "2. item2" ]
+test_listify :: TestTree
+test_listify = testCase description $ actual @?= expected
+ where
+ description = "all items are numbered correctly"
+ actual = listify [ "item1", "item2" ]
+ expected = ["1. item1", "2. item2" ]