-module Html
+module Html (
+ html_tests,
+ replace_entities
+ )
where
-import Test.HUnit
+import Test.Framework (Test, testGroup)
+import Test.Framework.Providers.HUnit (testCase)
+import Test.HUnit (Assertion, assertEqual)
import Text.HTML.TagSoup.Entity (lookupEntity)
replace_entities :: String -> String
replace_entities (x:xs) = x : replace_entities xs
-html_tests :: [Test]
-html_tests = [ test_replace_entities ]
+html_tests :: Test
+html_tests =
+ testGroup "HTML Tests" [ tc1 ]
+ where
+ tc1 = testCase
+ "All entities are replaced correctly."
+ test_replace_entities
-test_replace_entities :: Test
+test_replace_entities :: Assertion
test_replace_entities =
- TestCase $ assertEqual description expected_text actual_text
- where
- description = "All entities are replaced correctly."
- actual_text =
- replace_entities $
- ""The moon is gay……" " ++
- "said <insert the current president of the " ++
- "United States of America>. “It’s " ++
- "OK—–he’s not a real doctor.”"
- expected_text =
- "\"The moon is gay……\" said <insert " ++
- "the current president of the United States of America>. " ++
- "“It’s OK—–he’s not a real doctor.”"
+ assertEqual description expected_text actual_text
+ where
+ description = "All entities are replaced correctly."
+ actual_text =
+ replace_entities $
+ ""The moon is gay……" " ++
+ "said <insert the current president of the " ++
+ "United States of America>. “It’s " ++
+ "OK—–he’s not a real doctor.”"
+ expected_text =
+ "\"The moon is gay……\" said <insert " ++
+ "the current president of the United States of America>. " ++
+ "“It’s OK—–he’s not a real doctor.”"