diff options
| author | Gisle Aas <gisle@aas.no> | 2001-08-27 22:16:37 +0000 |
|---|---|---|
| committer | Gisle Aas <gisle@aas.no> | 2001-08-27 22:16:37 +0000 |
| commit | 11d2f041382d6dcc8b0eb558210a491e143c0256 (patch) | |
| tree | 4edd6842e77f85380d2610247d5195772f57964c /t/old-base.t | |
| parent | 74b22254dbc77ecd81aef39d95ed275a1883ecc0 (diff) | |
| download | uri-11d2f041382d6dcc8b0eb558210a491e143c0256.tar.gz | |
Updated expected test results as the default for uri_escape() has now changed.
Diffstat (limited to 't/old-base.t')
| -rw-r--r-- | t/old-base.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/old-base.t b/t/old-base.t index 4acb778..cbfd51f 100644 --- a/t/old-base.t +++ b/t/old-base.t @@ -580,15 +580,15 @@ sub escape_test { $url = new URI::URL uri_escape('http://web/try %?#" those'); $url->_expect('as_string', - 'http://web/try%20%25?%23%22%20those'); + 'http%3A%2F%2Fweb%2Ftry%20%25%3F%23%22%20those'); my $all = pack('c*',0..255); my $esc = uri_escape($all); my $new = uri_unescape($esc); die "uri_escape->uri_unescape mismatch" unless $all eq $new; - -$url->path($all); -# $url->_expect('full_path' => '/%00%01%02%03%04%05%06%07%08%09%0A%0B%0C%0D%0E%0F%10%11%12%13%14%15%16%17%18%19%1A%1B%1C%1D%1E%1F%20!%22%23$%25%26\'()*%2B,-./0123456789%3A%3B%3C%3D%3E%3F%40ABCDEFGHIJKLMNOPQRSTUVWXYZ%5B%5C%5D%5E_%60abcdefghijklmnopqrstuvwxyz%7B%7C%7D~%7F%80%81%82%83%84%85%86%87%88%89%8A%8B%8C%8D%8E%8F%90%91%92%93%94%95%96%97%98%99%9A%9B%9C%9D%9E%9F%A0%A1%A2%A3%A4%A5%A6%A7%A8%A9%AA%AB%AC%AD%AE%AF%B0%B1%B2%B3%B4%B5%B6%B7%B8%B9%BA%BB%BC%BD%BE%BF%C0%C1%C2%C3%C4%C5%C6%C7%C8%C9%CA%CB%CC%CD%CE%CF%D0%D1%D2%D3%D4%D5%D6%D7%D8%D9%DA%DB%DC%DD%DE%DF%E0%E1%E2%E3%E4%E5%E6%E7%E8%E9%EA%EB%EC%ED%EE%EF%F0%F1%F2%F3%F4%F5%F6%F7%F8%F9%FA%FB%FC%FD%FE%FF'); + + $url->path($all); + $url->_expect('full_path' => q(%00%01%02%03%04%05%06%07%08%09%0A%0B%0C%0D%0E%0F%10%11%12%13%14%15%16%17%18%19%1A%1B%1C%1D%1E%1F%20!%22%23$%&'()*+,-./0123456789:;%3C=%3E%3F@ABCDEFGHIJKLMNOPQRSTUVWXYZ[%5C]%5E_%60abcdefghijklmnopqrstuvwxyz%7B%7C%7D~%7F%80%81%82%83%84%85%86%87%88%89%8A%8B%8C%8D%8E%8F%90%91%92%93%94%95%96%97%98%99%9A%9B%9C%9D%9E%9F%A0%A1%A2%A3%A4%A5%A6%A7%A8%A9%AA%AB%AC%AD%AE%AF%B0%B1%B2%B3%B4%B5%B6%B7%B8%B9%BA%BB%BC%BD%BE%BF%C0%C1%C2%C3%C4%C5%C6%C7%C8%C9%CA%CB%CC%CD%CE%CF%D0%D1%D2%D3%D4%D5%D6%D7%D8%D9%DA%DB%DC%DD%DE%DF%E0%E1%E2%E3%E4%E5%E6%E7%E8%E9%EA%EB%EC%ED%EE%EF%F0%F1%F2%F3%F4%F5%F6%F7%F8%F9%FA%FB%FC%FD%FE%FF)); # test escaping uses uppercase (preferred by rfc1837) $url = new URI::URL 'file://h/'; |