uri_tests :: Test
uri_tests =
testGroup "URI Tests" [
- testCase "HTTP URIs matched" test_http_uris_matched,
- testCase "HTTPS URIs matched" test_https_uris_matched,
- testCase "LWN URLs matched" test_lwn_urls_matched ]
+ testCase "HTTP URIs matched" test_http_uris_matched,
+ testCase "HTTPS URIs matched" test_https_uris_matched,
+ testCase "LWN URLs matched" test_lwn_urls_matched ]