(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)}) ] )