#!/bin/sh

global test_description := ''urlmatch URL normalization''
source ./test-lib.sh

# The base name of the test url files
global tu := ""$TEST_DIRECTORY/t0110/url""

# Note that only file: URLs should be allowed without a host

test_expect_success 'url scheme' '
	! test-urlmatch-normalization "" &&
	! test-urlmatch-normalization "_" &&
	! test-urlmatch-normalization "scheme" &&
	! test-urlmatch-normalization "scheme:" &&
	! test-urlmatch-normalization "scheme:/" &&
	! test-urlmatch-normalization "scheme://" &&
	! test-urlmatch-normalization "file" &&
	! test-urlmatch-normalization "file:" &&
	! test-urlmatch-normalization "file:/" &&
	test-urlmatch-normalization "file://" &&
	! test-urlmatch-normalization "://acme.co" &&
	! test-urlmatch-normalization "x_test://acme.co" &&
	! test-urlmatch-normalization "-test://acme.co" &&
	! test-urlmatch-normalization "0test://acme.co" &&
	! test-urlmatch-normalization "+test://acme.co" &&
	! test-urlmatch-normalization ".test://acme.co" &&
	! test-urlmatch-normalization "schem%6e://" &&
	test-urlmatch-normalization "x-Test+v1.0://acme.co" &&
	test "$(test-urlmatch-normalization -p "AbCdeF://x.Y")" = "abcdef://x.y/"
'

test_expect_success 'url authority' '
	! test-urlmatch-normalization "scheme://user:pass@" &&
	! test-urlmatch-normalization "scheme://?" &&
	! test-urlmatch-normalization "scheme://#" &&
	! test-urlmatch-normalization "scheme:///" &&
	! test-urlmatch-normalization "scheme://:" &&
	! test-urlmatch-normalization "scheme://:555" &&
	test-urlmatch-normalization "file://user:pass@" &&
	test-urlmatch-normalization "file://?" &&
	test-urlmatch-normalization "file://#" &&
	test-urlmatch-normalization "file:///" &&
	test-urlmatch-normalization "file://:" &&
	! test-urlmatch-normalization "file://:555" &&
	test-urlmatch-normalization "scheme://user:pass@host" &&
	test-urlmatch-normalization "scheme://@host" &&
	test-urlmatch-normalization "scheme://%00@host" &&
	! test-urlmatch-normalization "scheme://%%@host" &&
	! test-urlmatch-normalization "scheme://host_" &&
	test-urlmatch-normalization "scheme://user:pass@host/" &&
	test-urlmatch-normalization "scheme://@host/" &&
	test-urlmatch-normalization "scheme://host/" &&
	test-urlmatch-normalization "scheme://host?x" &&
	test-urlmatch-normalization "scheme://host#x" &&
	test-urlmatch-normalization "scheme://host/@" &&
	test-urlmatch-normalization "scheme://host?@x" &&
	test-urlmatch-normalization "scheme://host#@x" &&
	test-urlmatch-normalization "scheme://[::1]" &&
	test-urlmatch-normalization "scheme://[::1]/" &&
	! test-urlmatch-normalization "scheme://hos%41/" &&
	test-urlmatch-normalization "scheme://[invalid....:/" &&
	test-urlmatch-normalization "scheme://invalid....:]/" &&
	! test-urlmatch-normalization "scheme://invalid....:[/" &&
	! test-urlmatch-normalization "scheme://invalid....:["
'

test_expect_success 'url port checks' '
	test-urlmatch-normalization "xyz://q@some.host:" &&
	test-urlmatch-normalization "xyz://q@some.host:456/" &&
	! test-urlmatch-normalization "xyz://q@some.host:0" &&
	! test-urlmatch-normalization "xyz://q@some.host:0000000" &&
	test-urlmatch-normalization "xyz://q@some.host:0000001?" &&
	test-urlmatch-normalization "xyz://q@some.host:065535#" &&
	test-urlmatch-normalization "xyz://q@some.host:65535" &&
	! test-urlmatch-normalization "xyz://q@some.host:65536" &&
	! test-urlmatch-normalization "xyz://q@some.host:99999" &&
	! test-urlmatch-normalization "xyz://q@some.host:100000" &&
	! test-urlmatch-normalization "xyz://q@some.host:100001" &&
	test-urlmatch-normalization "http://q@some.host:80" &&
	test-urlmatch-normalization "https://q@some.host:443" &&
	test-urlmatch-normalization "http://q@some.host:80/" &&
	test-urlmatch-normalization "https://q@some.host:443?" &&
	! test-urlmatch-normalization "http://q@:8008" &&
	! test-urlmatch-normalization "http://:8080" &&
	! test-urlmatch-normalization "http://:" &&
	test-urlmatch-normalization "xyz://q@some.host:456/" &&
	test-urlmatch-normalization "xyz://[::1]:456/" &&
	test-urlmatch-normalization "xyz://[::1]:/" &&
	! test-urlmatch-normalization "xyz://[::1]:000/" &&
	! test-urlmatch-normalization "xyz://[::1]:0%300/" &&
	! test-urlmatch-normalization "xyz://[::1]:0x80/" &&
	! test-urlmatch-normalization "xyz://[::1]:4294967297/" &&
	! test-urlmatch-normalization "xyz://[::1]:030f/"
'

test_expect_success 'url port normalization' '
	test "$(test-urlmatch-normalization -p "http://x:800")" = "http://x:800/" &&
	test "$(test-urlmatch-normalization -p "http://x:0800")" = "http://x:800/" &&
	test "$(test-urlmatch-normalization -p "http://x:00000800")" = "http://x:800/" &&
	test "$(test-urlmatch-normalization -p "http://x:065535")" = "http://x:65535/" &&
	test "$(test-urlmatch-normalization -p "http://x:1")" = "http://x:1/" &&
	test "$(test-urlmatch-normalization -p "http://x:80")" = "http://x/" &&
	test "$(test-urlmatch-normalization -p "http://x:080")" = "http://x/" &&
	test "$(test-urlmatch-normalization -p "http://x:000000080")" = "http://x/" &&
	test "$(test-urlmatch-normalization -p "https://x:443")" = "https://x/" &&
	test "$(test-urlmatch-normalization -p "https://x:0443")" = "https://x/" &&
	test "$(test-urlmatch-normalization -p "https://x:000000443")" = "https://x/"
'

test_expect_success 'url general escapes' '
	! test-urlmatch-normalization "http://x.y?%fg" &&
	test "$(test-urlmatch-normalization -p "X://W/%7e%41^%3a")" = "x://w/~A%5E%3A" &&
	test "$(test-urlmatch-normalization -p "X://W/:/?#[]@")" = "x://w/:/?#[]@" &&
	test "$(test-urlmatch-normalization -p "X://W/$&()*+,;=")" = "x://w/$&()*+,;=" &&
	test "$(test-urlmatch-normalization -p "X://W/'''''")" = "x://w/'''''" &&
	test "$(test-urlmatch-normalization -p "X://W?''!''")" = "x://w/?''!''"
'

test_expect_success !MINGW 'url high-bit escapes' '
	test "$(test-urlmatch-normalization -p "$(cat "$tu-1")")" = "x://q/%01%02%03%04%05%06%07%08%0E%0F%10%11%12" &&
	test "$(test-urlmatch-normalization -p "$(cat "$tu-2")")" = "x://q/%13%14%15%16%17%18%19%1B%1C%1D%1E%1F%7F" &&
	test "$(test-urlmatch-normalization -p "$(cat "$tu-3")")" = "x://q/%80%81%82%83%84%85%86%87%88%89%8A%8B%8C%8D%8E%8F" &&
	test "$(test-urlmatch-normalization -p "$(cat "$tu-4")")" = "x://q/%90%91%92%93%94%95%96%97%98%99%9A%9B%9C%9D%9E%9F" &&
	test "$(test-urlmatch-normalization -p "$(cat "$tu-5")")" = "x://q/%A0%A1%A2%A3%A4%A5%A6%A7%A8%A9%AA%AB%AC%AD%AE%AF" &&
	test "$(test-urlmatch-normalization -p "$(cat "$tu-6")")" = "x://q/%B0%B1%B2%B3%B4%B5%B6%B7%B8%B9%BA%BB%BC%BD%BE%BF" &&
	test "$(test-urlmatch-normalization -p "$(cat "$tu-7")")" = "x://q/%C0%C1%C2%C3%C4%C5%C6%C7%C8%C9%CA%CB%CC%CD%CE%CF" &&
	test "$(test-urlmatch-normalization -p "$(cat "$tu-8")")" = "x://q/%D0%D1%D2%D3%D4%D5%D6%D7%D8%D9%DA%DB%DC%DD%DE%DF" &&
	test "$(test-urlmatch-normalization -p "$(cat "$tu-9")")" = "x://q/%E0%E1%E2%E3%E4%E5%E6%E7%E8%E9%EA%EB%EC%ED%EE%EF" &&
	test "$(test-urlmatch-normalization -p "$(cat "$tu-10")")" = "x://q/%F0%F1%F2%F3%F4%F5%F6%F7%F8%F9%FA%FB%FC%FD%FE%FF"
'

test_expect_success 'url utf-8 escapes' '
	test "$(test-urlmatch-normalization -p "$(cat "$tu-11")")" = "x://q/%C2%80%DF%BF%E0%A0%80%EF%BF%BD%F0%90%80%80%F0%AF%BF%BD"
'

test_expect_success 'url username/password escapes' '
	test "$(test-urlmatch-normalization -p "x://%41%62(^):%70+d@foo")" = "x://Ab(%5E):p+d@foo/"
'

test_expect_success 'url normalized lengths' '
	test "$(test-urlmatch-normalization -l "Http://%4d%65:%4d^%70@The.Host")" = 25 &&
	test "$(test-urlmatch-normalization -l "http://%41:%42@x.y/%61/")" = 17 &&
	test "$(test-urlmatch-normalization -l "http://@x.y/^")" = 15
'

test_expect_success 'url . and .. segments' '
	test "$(test-urlmatch-normalization -p "x://y/.")" = "x://y/" &&
	test "$(test-urlmatch-normalization -p "x://y/./")" = "x://y/" &&
	test "$(test-urlmatch-normalization -p "x://y/a/.")" = "x://y/a" &&
	test "$(test-urlmatch-normalization -p "x://y/a/./")" = "x://y/a/" &&
	test "$(test-urlmatch-normalization -p "x://y/.?")" = "x://y/?" &&
	test "$(test-urlmatch-normalization -p "x://y/./?")" = "x://y/?" &&
	test "$(test-urlmatch-normalization -p "x://y/a/.?")" = "x://y/a?" &&
	test "$(test-urlmatch-normalization -p "x://y/a/./?")" = "x://y/a/?" &&
	test "$(test-urlmatch-normalization -p "x://y/a/./b/.././../c")" = "x://y/c" &&
	test "$(test-urlmatch-normalization -p "x://y/a/./b/../.././c/")" = "x://y/c/" &&
	test "$(test-urlmatch-normalization -p "x://y/a/./b/.././../c/././.././.")" = "x://y/" &&
	! test-urlmatch-normalization "x://y/a/./b/.././../c/././.././.." &&
	test "$(test-urlmatch-normalization -p "x://y/a/./?/././..")" = "x://y/a/?/././.." &&
	test "$(test-urlmatch-normalization -p "x://y/%2e/")" = "x://y/" &&
	test "$(test-urlmatch-normalization -p "x://y/%2E/")" = "x://y/" &&
	test "$(test-urlmatch-normalization -p "x://y/a/%2e./")" = "x://y/" &&
	test "$(test-urlmatch-normalization -p "x://y/b/.%2E/")" = "x://y/" &&
	test "$(test-urlmatch-normalization -p "x://y/c/%2e%2E/")" = "x://y/"
'

# http://@foo specifies an empty user name but does not specify a password
# http://foo  specifies neither a user name nor a password
# So they should not be equivalent
test_expect_success 'url equivalents' '
	test-urlmatch-normalization "httP://x" "Http://X/" &&
	test-urlmatch-normalization "Http://%4d%65:%4d^%70@The.Host" "hTTP://Me:%4D^p@the.HOST:80/" &&
	! test-urlmatch-normalization "https://@x.y/^" "httpS://x.y:443/^" &&
	test-urlmatch-normalization "https://@x.y/^" "httpS://@x.y:0443/^" &&
	test-urlmatch-normalization "https://@x.y/^/../abc" "httpS://@x.y:0443/abc" &&
	test-urlmatch-normalization "https://@x.y/^/.." "httpS://@x.y:0443/"
'

test_done
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"urlmatch URL normalization">)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:tu)
          op: Equal
          rhs: {(DQ ($ VSub_Name "$TEST_DIRECTORY") (/t0110/url))}
          spids: [17]
        )
      ]
      spids: [17]
    )
    (C {(test_expect_success)} {(SQ <"url scheme">)} 
      {
        (SQ <"\n"> <"\t! test-urlmatch-normalization \"\" &&\n"> 
          <"\t! test-urlmatch-normalization \"_\" &&\n"> <"\t! test-urlmatch-normalization \"scheme\" &&\n"> 
          <"\t! test-urlmatch-normalization \"scheme:\" &&\n"> <"\t! test-urlmatch-normalization \"scheme:/\" &&\n"> 
          <"\t! test-urlmatch-normalization \"scheme://\" &&\n"> <"\t! test-urlmatch-normalization \"file\" &&\n"> <"\t! test-urlmatch-normalization \"file:\" &&\n"> 
          <"\t! test-urlmatch-normalization \"file:/\" &&\n"> <"\ttest-urlmatch-normalization \"file://\" &&\n"> 
          <"\t! test-urlmatch-normalization \"://acme.co\" &&\n"> <"\t! test-urlmatch-normalization \"x_test://acme.co\" &&\n"> 
          <"\t! test-urlmatch-normalization \"-test://acme.co\" &&\n"> <"\t! test-urlmatch-normalization \"0test://acme.co\" &&\n"> 
          <"\t! test-urlmatch-normalization \"+test://acme.co\" &&\n"> <"\t! test-urlmatch-normalization \".test://acme.co\" &&\n"> 
          <"\t! test-urlmatch-normalization \"schem%6e://\" &&\n"> <"\ttest-urlmatch-normalization \"x-Test+v1.0://acme.co\" &&\n"> 
          <"\ttest \"$(test-urlmatch-normalization -p \"AbCdeF://x.Y\")\" = \"abcdef://x.y/\"\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"url authority">)} 
      {
        (SQ <"\n"> <"\t! test-urlmatch-normalization \"scheme://user:pass@\" &&\n"> 
          <"\t! test-urlmatch-normalization \"scheme://?\" &&\n"> <"\t! test-urlmatch-normalization \"scheme://#\" &&\n"> 
          <"\t! test-urlmatch-normalization \"scheme:///\" &&\n"> <"\t! test-urlmatch-normalization \"scheme://:\" &&\n"> 
          <"\t! test-urlmatch-normalization \"scheme://:555\" &&\n"> <"\ttest-urlmatch-normalization \"file://user:pass@\" &&\n"> 
          <"\ttest-urlmatch-normalization \"file://?\" &&\n"> <"\ttest-urlmatch-normalization \"file://#\" &&\n"> 
          <"\ttest-urlmatch-normalization \"file:///\" &&\n"> <"\ttest-urlmatch-normalization \"file://:\" &&\n"> 
          <"\t! test-urlmatch-normalization \"file://:555\" &&\n"> <"\ttest-urlmatch-normalization \"scheme://user:pass@host\" &&\n"> 
          <"\ttest-urlmatch-normalization \"scheme://@host\" &&\n"> <"\ttest-urlmatch-normalization \"scheme://%00@host\" &&\n"> 
          <"\t! test-urlmatch-normalization \"scheme://%%@host\" &&\n"> <"\t! test-urlmatch-normalization \"scheme://host_\" &&\n"> 
          <"\ttest-urlmatch-normalization \"scheme://user:pass@host/\" &&\n"> <"\ttest-urlmatch-normalization \"scheme://@host/\" &&\n"> 
          <"\ttest-urlmatch-normalization \"scheme://host/\" &&\n"> <"\ttest-urlmatch-normalization \"scheme://host?x\" &&\n"> 
          <"\ttest-urlmatch-normalization \"scheme://host#x\" &&\n"> <"\ttest-urlmatch-normalization \"scheme://host/@\" &&\n"> 
          <"\ttest-urlmatch-normalization \"scheme://host?@x\" &&\n"> <"\ttest-urlmatch-normalization \"scheme://host#@x\" &&\n"> 
          <"\ttest-urlmatch-normalization \"scheme://[::1]\" &&\n"> <"\ttest-urlmatch-normalization \"scheme://[::1]/\" &&\n"> 
          <"\t! test-urlmatch-normalization \"scheme://hos%41/\" &&\n"> <"\ttest-urlmatch-normalization \"scheme://[invalid....:/\" &&\n"> 
          <"\ttest-urlmatch-normalization \"scheme://invalid....:]/\" &&\n"> <"\t! test-urlmatch-normalization \"scheme://invalid....:[/\" &&\n"> 
          <"\t! test-urlmatch-normalization \"scheme://invalid....:[\"\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"url port checks">)} 
      {
        (SQ <"\n"> <"\ttest-urlmatch-normalization \"xyz://q@some.host:\" &&\n"> 
          <"\ttest-urlmatch-normalization \"xyz://q@some.host:456/\" &&\n"> <"\t! test-urlmatch-normalization \"xyz://q@some.host:0\" &&\n"> 
          <"\t! test-urlmatch-normalization \"xyz://q@some.host:0000000\" &&\n"> <"\ttest-urlmatch-normalization \"xyz://q@some.host:0000001?\" &&\n"> 
          <"\ttest-urlmatch-normalization \"xyz://q@some.host:065535#\" &&\n"> <"\ttest-urlmatch-normalization \"xyz://q@some.host:65535\" &&\n"> 
          <"\t! test-urlmatch-normalization \"xyz://q@some.host:65536\" &&\n"> <"\t! test-urlmatch-normalization \"xyz://q@some.host:99999\" &&\n"> 
          <"\t! test-urlmatch-normalization \"xyz://q@some.host:100000\" &&\n"> <"\t! test-urlmatch-normalization \"xyz://q@some.host:100001\" &&\n"> 
          <"\ttest-urlmatch-normalization \"http://q@some.host:80\" &&\n"> <"\ttest-urlmatch-normalization \"https://q@some.host:443\" &&\n"> 
          <"\ttest-urlmatch-normalization \"http://q@some.host:80/\" &&\n"> <"\ttest-urlmatch-normalization \"https://q@some.host:443?\" &&\n"> 
          <"\t! test-urlmatch-normalization \"http://q@:8008\" &&\n"> <"\t! test-urlmatch-normalization \"http://:8080\" &&\n"> 
          <"\t! test-urlmatch-normalization \"http://:\" &&\n"> <"\ttest-urlmatch-normalization \"xyz://q@some.host:456/\" &&\n"> 
          <"\ttest-urlmatch-normalization \"xyz://[::1]:456/\" &&\n"> <"\ttest-urlmatch-normalization \"xyz://[::1]:/\" &&\n"> 
          <"\t! test-urlmatch-normalization \"xyz://[::1]:000/\" &&\n"> <"\t! test-urlmatch-normalization \"xyz://[::1]:0%300/\" &&\n"> 
          <"\t! test-urlmatch-normalization \"xyz://[::1]:0x80/\" &&\n"> <"\t! test-urlmatch-normalization \"xyz://[::1]:4294967297/\" &&\n"> 
          <"\t! test-urlmatch-normalization \"xyz://[::1]:030f/\"\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"url port normalization">)} 
      {
        (SQ <"\n"> 
          <
"\ttest \"$(test-urlmatch-normalization -p \"http://x:800\")\" = \"http://x:800/\" &&\n"
          > <"\ttest \"$(test-urlmatch-normalization -p \"http://x:0800\")\" = \"http://x:800/\" &&\n"> 
          <
"\ttest \"$(test-urlmatch-normalization -p \"http://x:00000800\")\" = \"http://x:800/\" &&\n"
          > <"\ttest \"$(test-urlmatch-normalization -p \"http://x:065535\")\" = \"http://x:65535/\" &&\n"> 
          <"\ttest \"$(test-urlmatch-normalization -p \"http://x:1\")\" = \"http://x:1/\" &&\n"> <"\ttest \"$(test-urlmatch-normalization -p \"http://x:80\")\" = \"http://x/\" &&\n"> 
          <"\ttest \"$(test-urlmatch-normalization -p \"http://x:080\")\" = \"http://x/\" &&\n"> <"\ttest \"$(test-urlmatch-normalization -p \"http://x:000000080\")\" = \"http://x/\" &&\n"> 
          <"\ttest \"$(test-urlmatch-normalization -p \"https://x:443\")\" = \"https://x/\" &&\n"> <"\ttest \"$(test-urlmatch-normalization -p \"https://x:0443\")\" = \"https://x/\" &&\n"> 
          <
"\ttest \"$(test-urlmatch-normalization -p \"https://x:000000443\")\" = \"https://x/\"\n"
          >
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"url general escapes">)} 
      {
        (SQ <"\n"> <"\t! test-urlmatch-normalization \"http://x.y?%fg\" &&\n"> 
          <
"\ttest \"$(test-urlmatch-normalization -p \"X://W/%7e%41^%3a\")\" = \"x://w/~A%5E%3A\" &&\n"
          > <"\ttest \"$(test-urlmatch-normalization -p \"X://W/:/?#[]@\")\" = \"x://w/:/?#[]@\" &&\n"> 
          <
"\ttest \"$(test-urlmatch-normalization -p \"X://W/$&()*+,;=\")\" = \"x://w/$&()*+,;=\" &&\n"
          > <"\ttest \"$(test-urlmatch-normalization -p \"X://W/">
        ) (EscapedLiteralPart token:<Lit_EscapedChar "\\'">) (SQ <"\")\" = \"x://w/">) 
        (EscapedLiteralPart token:<Lit_EscapedChar "\\'">) (SQ <"\" &&\n"> <"\ttest \"$(test-urlmatch-normalization -p \"X://W?">) 
        (EscapedLiteralPart token:<Lit_EscapedChar "\\!">) (SQ <"\")\" = \"x://w/?">) (EscapedLiteralPart token:<Lit_EscapedChar "\\!">) (SQ <"\"\n">)
      }
    )
    (C {(test_expect_success)} {(KW_Bang "!") (MINGW)} {(SQ <"url high-bit escapes">)} 
      {
        (SQ <"\n"> 
          <
"\ttest \"$(test-urlmatch-normalization -p \"$(cat \"$tu-1\")\")\" = \"x://q/%01%02%03%04%05%06%07%08%0E%0F%10%11%12\" &&\n"
          > 
          <
"\ttest \"$(test-urlmatch-normalization -p \"$(cat \"$tu-2\")\")\" = \"x://q/%13%14%15%16%17%18%19%1B%1C%1D%1E%1F%7F\" &&\n"
          > 
          <
"\ttest \"$(test-urlmatch-normalization -p \"$(cat \"$tu-3\")\")\" = \"x://q/%80%81%82%83%84%85%86%87%88%89%8A%8B%8C%8D%8E%8F\" &&\n"
          > 
          <
"\ttest \"$(test-urlmatch-normalization -p \"$(cat \"$tu-4\")\")\" = \"x://q/%90%91%92%93%94%95%96%97%98%99%9A%9B%9C%9D%9E%9F\" &&\n"
          > 
          <
"\ttest \"$(test-urlmatch-normalization -p \"$(cat \"$tu-5\")\")\" = \"x://q/%A0%A1%A2%A3%A4%A5%A6%A7%A8%A9%AA%AB%AC%AD%AE%AF\" &&\n"
          > 
          <
"\ttest \"$(test-urlmatch-normalization -p \"$(cat \"$tu-6\")\")\" = \"x://q/%B0%B1%B2%B3%B4%B5%B6%B7%B8%B9%BA%BB%BC%BD%BE%BF\" &&\n"
          > 
          <
"\ttest \"$(test-urlmatch-normalization -p \"$(cat \"$tu-7\")\")\" = \"x://q/%C0%C1%C2%C3%C4%C5%C6%C7%C8%C9%CA%CB%CC%CD%CE%CF\" &&\n"
          > 
          <
"\ttest \"$(test-urlmatch-normalization -p \"$(cat \"$tu-8\")\")\" = \"x://q/%D0%D1%D2%D3%D4%D5%D6%D7%D8%D9%DA%DB%DC%DD%DE%DF\" &&\n"
          > 
          <
"\ttest \"$(test-urlmatch-normalization -p \"$(cat \"$tu-9\")\")\" = \"x://q/%E0%E1%E2%E3%E4%E5%E6%E7%E8%E9%EA%EB%EC%ED%EE%EF\" &&\n"
          > 
          <
"\ttest \"$(test-urlmatch-normalization -p \"$(cat \"$tu-10\")\")\" = \"x://q/%F0%F1%F2%F3%F4%F5%F6%F7%F8%F9%FA%FB%FC%FD%FE%FF\"\n"
          >
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"url utf-8 escapes">)} 
      {
        (SQ <"\n"> 
          <
"\ttest \"$(test-urlmatch-normalization -p \"$(cat \"$tu-11\")\")\" = \"x://q/%C2%80%DF%BF%E0%A0%80%EF%BF%BD%F0%90%80%80%F0%AF%BF%BD\"\n"
          >
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"url username/password escapes">)} 
      {
        (SQ <"\n"> 
          <
"\ttest \"$(test-urlmatch-normalization -p \"x://%41%62(^):%70+d@foo\")\" = \"x://Ab(%5E):p+d@foo/\"\n"
          >
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"url normalized lengths">)} 
      {
        (SQ <"\n"> 
          <
"\ttest \"$(test-urlmatch-normalization -l \"Http://%4d%65:%4d^%70@The.Host\")\" = 25 &&\n"
          > <"\ttest \"$(test-urlmatch-normalization -l \"http://%41:%42@x.y/%61/\")\" = 17 &&\n"> 
          <"\ttest \"$(test-urlmatch-normalization -l \"http://@x.y/^\")\" = 15\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"url . and .. segments">)} 
      {
        (SQ <"\n"> <"\ttest \"$(test-urlmatch-normalization -p \"x://y/.\")\" = \"x://y/\" &&\n"> 
          <"\ttest \"$(test-urlmatch-normalization -p \"x://y/./\")\" = \"x://y/\" &&\n"> <"\ttest \"$(test-urlmatch-normalization -p \"x://y/a/.\")\" = \"x://y/a\" &&\n"> 
          <"\ttest \"$(test-urlmatch-normalization -p \"x://y/a/./\")\" = \"x://y/a/\" &&\n"> <"\ttest \"$(test-urlmatch-normalization -p \"x://y/.?\")\" = \"x://y/?\" &&\n"> 
          <"\ttest \"$(test-urlmatch-normalization -p \"x://y/./?\")\" = \"x://y/?\" &&\n"> <"\ttest \"$(test-urlmatch-normalization -p \"x://y/a/.?\")\" = \"x://y/a?\" &&\n"> 
          <"\ttest \"$(test-urlmatch-normalization -p \"x://y/a/./?\")\" = \"x://y/a/?\" &&\n"> <"\ttest \"$(test-urlmatch-normalization -p \"x://y/a/./b/.././../c\")\" = \"x://y/c\" &&\n"> 
          <
"\ttest \"$(test-urlmatch-normalization -p \"x://y/a/./b/../.././c/\")\" = \"x://y/c/\" &&\n"
          > 
          <
"\ttest \"$(test-urlmatch-normalization -p \"x://y/a/./b/.././../c/././.././.\")\" = \"x://y/\" &&\n"
          > <"\t! test-urlmatch-normalization \"x://y/a/./b/.././../c/././.././..\" &&\n"> 
          <
"\ttest \"$(test-urlmatch-normalization -p \"x://y/a/./?/././..\")\" = \"x://y/a/?/././..\" &&\n"
          > <"\ttest \"$(test-urlmatch-normalization -p \"x://y/%2e/\")\" = \"x://y/\" &&\n"> 
          <"\ttest \"$(test-urlmatch-normalization -p \"x://y/%2E/\")\" = \"x://y/\" &&\n"> <"\ttest \"$(test-urlmatch-normalization -p \"x://y/a/%2e./\")\" = \"x://y/\" &&\n"> 
          <"\ttest \"$(test-urlmatch-normalization -p \"x://y/b/.%2E/\")\" = \"x://y/\" &&\n"> <"\ttest \"$(test-urlmatch-normalization -p \"x://y/c/%2e%2E/\")\" = \"x://y/\"\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"url equivalents">)} 
      {
        (SQ <"\n"> <"\ttest-urlmatch-normalization \"httP://x\" \"Http://X/\" &&\n"> 
          <
"\ttest-urlmatch-normalization \"Http://%4d%65:%4d^%70@The.Host\" \"hTTP://Me:%4D^p@the.HOST:80/\" &&\n"
          > <"\t! test-urlmatch-normalization \"https://@x.y/^\" \"httpS://x.y:443/^\" &&\n"> 
          <"\ttest-urlmatch-normalization \"https://@x.y/^\" \"httpS://@x.y:0443/^\" &&\n"> <"\ttest-urlmatch-normalization \"https://@x.y/^/../abc\" \"httpS://@x.y:0443/abc\" &&\n"> 
          <"\ttest-urlmatch-normalization \"https://@x.y/^/..\" \"httpS://@x.y:0443/\"\n">
        )
      }
    )
    (C {(test_done)})
  ]
)