basis/urls/encoding/encoding-tests.factor

   1 USING: urls.encoding tools.test arrays kernel assocs present
   2 accessors linked-assocs ;
   3
   4 { "~hello world" } [ "%7ehello world" url-decode ] unit-test
   5 { "" } [ "%XX%XX%XX" url-decode ] unit-test
   6 { "" } [ "%XX%XX%X" url-decode ] unit-test
   7
   8 { "hello world" } [ "hello%20world" url-decode ] unit-test
   9 { " ! "         } [ "%20%21%20"     url-decode ] unit-test
  10 { "hello world" } [ "hello world%"  url-decode ] unit-test
  11 { "hello world" } [ "hello world%x" url-decode ] unit-test
  12 { "hello%20world" } [ "hello world" url-encode ] unit-test
  13
  14 { "~foo" } [ "~foo" url-encode ] unit-test
  15 { "~foo" } [ "~foo" url-encode-full ] unit-test
  16
  17 { ":foo" } [ ":foo" url-encode ] unit-test
  18 { "%3Afoo" } [ ":foo" url-encode-full ] unit-test
  19
  20 { "hello world" } [ "hello+world" query-decode ] unit-test
  21
  22 { "\u001234hi\u002045" } [ "\u001234hi\u002045" url-encode url-decode ] unit-test
  23
  24 { "a=b&a=c" } [ { { "a" { "b" "c" } } } assoc>query ] unit-test
  25
  26 { LH{ { "a" "b" } } } [ "a=b" query>assoc ] unit-test
  27
  28 { LH{ { "a" { "b" "c" } } } } [ "a=b&a=c" query>assoc ] unit-test
  29
  30 { LH{ { "a" { "b" "c" } } } } [ "a=b;a=c" query>assoc ] unit-test
  31
  32 { LH{ { "c" "d" } { "a" "b" } { "e" "f" } } } [ "c=d&a=b&e=f" query>assoc ] unit-test
  33
  34 { LH{ { "text" "hello world" } } } [ "text=hello+world" query>assoc ] unit-test
  35
  36 { "foo=%3A" } [ { { "foo" ":" } } assoc>query ] unit-test
  37
  38 { "a=3" } [ { { "a" 3 } } assoc>query ] unit-test
  39
  40 { "a" } [ { { "a" f } } assoc>query ] unit-test
  41
  42 { LH{ { "a" f } } } [ "a" query>assoc ] unit-test