properly encode non-ASCII characters with encodeString

2021-10-24 14:28:41 -04:00
parent a61806f8e4
commit db718eedcd
2 changed files with 15 additions and 11 deletions
--- a/test/Network/GemServSpec.hs
+++ b/test/Network/GemServSpec.hs
@@ -75,6 +75,7 @@ escapeStringSpec = describe "escapeString" $ mapM_
  --  input,               expected
  [ ( "~foo-bar_baz.quux", "~foo-bar_baz.quux"        )
  , ( "foo:/?=&#%",        "foo%3a%2f%3f%3d%26%23%25" )
+  , ( "foo\xe9",           "foo%c3%a9"                )
  ]

 unescapeStringSpec :: Spec