tests :: TestTree
tests =
  testGroup "Text.XML.Expat.Mapping"
  [ testCase "Basic test 1" (eChildren (treeOf "<foo />") @?= [])
  , testCase "Basic test 2" (eChildren (treeOf "<foo>Hi</foo>") @?= [Text "hi"])
  ]
tests :: TestTree
tests =
  testGroup "Text.XML.Expat.Mapping"
  [ testCase "Basic test 1" (eChildren (treeOf "<foo />") @?= [])
  , testCase "Basic test 2" (eChildren (treeOf "<foo>Hi</foo>") @?= [Text "hi"])
  ]
tests =
  testGroup "Text.XML.Expat.Mapping"
  [ testCase "Basic test 1" (eChildren (treeOf "<foo />") @?= [])
  , testCase "Basic test 2" (eChildren (treeOf "<foo>Hi</foo>") @?= [Text "hi"])
  ]