/macosx-10.9.5/CPANInternal-140/URI/t/ |
H A D | split.t | 10 print "not " unless j(uri_split("p")) eq "<undef>-<undef>-p-<undef>-<undef>"; 13 print "not " unless j(uri_split("p?q")) eq "<undef>-<undef>-p-q-<undef>"; 16 print "not " unless j(uri_split("p#f")) eq "<undef>-<undef>-p-<undef>-f"; 19 print "not " unless j(uri_split("p?q/#f/?")) eq "<undef>-<undef>-p-q/-f/?"; 22 print "not " unless j(uri_split("s://a/p?q#f")) eq "s-a-/p-q-f"; 25 print "not " unless uri_join("s", "a", "/p", "q", "f") eq "s://a/p?q#f"; 28 print "not " unless uri_join("s", "a", "p", "q", "f") eq "s://a/p?q#f"; 31 print "not " unless uri_join(undef, undef, "", undef, undef) eq ""; 34 print "not " unless uri_join(undef, undef, "p", undef, undef) eq "p"; 37 print "not " unless uri_join("s", undef, "p") eq " [all...] |
H A D | ftp.t | 11 print "not " unless $uri->scheme eq "ftp"; 14 print "not " unless $uri->host eq "ftp.example.com"; 17 print "not " unless $uri->port eq 21; 20 print "not " unless $uri->user eq "anonymous"; 23 print "not " unless $uri->password eq 'anonymous@'; 28 print "not " unless $uri eq "ftp://gisle%40aas.no\@ftp.example.com/path"; 31 print "not " unless $uri->user eq "gisle\@aas.no"; 39 print "not " unless $uri eq "ftp://gisle%40aas.no:secret\@ftp.example.com/path"; 43 print "not " unless $uri eq "ftp://gisle\@aas.no:secret\@ftp.example.com/path"; 46 print "not " unless $uri->userinfo eq "gisl [all...] |
H A D | mailto.t | 9 print "not " unless $u->to eq 'gisle@aas.no' && 10 $u eq 'mailto:gisle@aas.no'; 14 print "not " unless $old eq 'gisle@aas.no' && 15 $u->to eq 'larry@wall.org' && 16 $u eq 'mailto:larry@wall.org'; 20 print "not " unless $u->to eq "?/#" && 21 $u eq 'mailto:%3F/%23'; 25 print "not " unless @h == 2 && "@h" eq "to ?/#"; 35 print "not " unless $u->to eq 'gisle@aas.no' && 37 "@h" eq 't [all...] |
H A D | urn-isbn.t | 17 print "not " unless $u eq "URN:ISBN:0395363411" && 18 $u->scheme eq "urn" && 19 $u->nid eq "isbn"; 22 print "not " unless $u->canonical eq "urn:isbn:0-395-36341-1"; 25 print "not " unless $u->isbn eq "0-395-36341-1"; 34 print "not " unless $u->isbn_as_ean eq "9780395363416"; 37 print "not " unless $u->nss eq "0395363411"; 40 print "not " unless $u->isbn("0-88730-866-x") eq "0-395-36341-1"; 43 print "not " unless $u->nss eq "0-88730-866-x"; 46 print "not " unless $u->isbn eq " [all...] |
H A D | heuristic.t | 16 print "not " unless uf_urlstr("http://www.sn.no/") eq "http://www.sn.no/"; 19 if ($^O eq "MacOS") { 20 print "not " unless uf_urlstr("etc:passwd") eq "file:/etc/passwd"; 22 print "not " unless uf_urlstr("/etc/passwd") eq "file:/etc/passwd"; 26 if ($^O eq "MacOS") { 27 print "not " unless uf_urlstr(":foo.txt") eq "file:./foo.txt"; 29 print "not " unless uf_urlstr("./foo.txt") eq "file:./foo.txt"; 33 print "not " unless uf_urlstr("ftp.aas.no/lwp.tar.gz") eq "ftp://ftp.aas.no/lwp.tar.gz"; 36 if($^O eq "MacOS") { 38 print "not " unless uf_urlstr("C:\\CONFIG.SYS") eq "fil [all...] |
H A D | urn-oid.t | 14 print "not " unless $u eq "urn:oid:1.2.3.4.5.6.7.8.9.10"; 17 print "not " unless $u->oid eq "1.2.3.4.5.6.7.8.9.10"; 20 print "not " unless $u->scheme eq "urn" && $u->nid eq "oid"; 23 print "not " unless $u->oid eq $u->nss;
|
H A D | generic.t | 9 print "not " unless ref($foo) eq "URI::_foreign"; 12 print "not " unless $foo->as_string eq "Foo:opaque#frag"; 15 print "not " unless "$foo" eq "Foo:opaque#frag"; 19 print "not " unless $foo->_scheme eq "Foo" && $foo->scheme eq "foo"; 22 print "not " unless $foo->opaque eq "opaque"; 25 print "not " unless $foo->fragment eq "frag"; 28 print "not " unless $foo->canonical eq "foo:opaque#frag"; 34 print "not " unless $old eq "foo" && $foo eq "ba [all...] |
H A D | data.t | 17 print "not " unless $u->scheme eq "data" && $u->opaque eq ",A%20brief%20note"; 20 print "not " unless $u->media_type eq "text/plain;charset=US-ASCII" && 21 $u->data eq "A brief note"; 25 print "not " unless $old eq "A brief note" && $u eq "data:,F%E5r-i-k%E5l%20er%20tingen!"; 29 print "not " unless $old eq "text/plain;charset=US-ASCII" && 30 $u eq "data:text/plain;charset=iso-8859-1,F%E5r-i-k%E5l%20er%20tingen!"; 36 print "not " unless $u->media_type eq "image/gif"; 48 print "not " unless $u->data eq "\xB [all...] |
H A D | sip.t | 9 print "not " unless $u->user eq 'phone' && 10 $u->host eq 'domain.ext' && 11 $u->port eq '5060' && 12 $u eq 'sip:phone@domain.ext'; 16 print "not " unless $u->host eq 'otherdomain.int' && 17 $u->port eq '9999' && 18 $u eq 'sip:phone@otherdomain.int:9999'; 23 print "not " unless $u->host eq 'otherdomain.int' && 24 $u->port eq '5060' && 25 $u eq 'si [all...] |
H A D | pop.t | 9 print "not " unless $u->user eq "aas" && 11 $u->host eq "pop.sn.no" && 13 $u eq 'pop://aas@pop.sn.no'; 17 print "not " unless $u->auth eq "+APOP" && 18 $u eq 'pop://aas;AUTH=+APOP@pop.sn.no'; 22 print "not " unless $u->user eq "gisle" && 23 $u eq 'pop://gisle;AUTH=+APOP@pop.sn.no'; 27 print "not " unless $u eq 'pop://gisle;AUTH=+APOP@pop.sn.no:4000'; 34 print "not " unless $u eq 'pop://aas;AUTH=*@pop.sn.no'; 38 print "not " unless $u eq 'po [all...] |
H A D | escape.t | 7 print "not " unless uri_escape("|abc�") eq "%7Cabc%E5"; 10 print "not " unless uri_escape("abc", "b-d") eq "a%62%63"; 16 print "not " unless uri_unescape("%7Cabc%e5") eq "|abc�"; 19 print "not " unless join(":", uri_unescape("%40A%42", "CDE", "F%47H")) eq 26 print "not" unless $escapes{"%"} eq "%25"; 32 print "not " unless uri_escape_utf8("|abc�") eq "%7Cabc%C3%A5"; 44 print "not " unless uri_escape_utf8(chr(0xFFF)) eq "%E0%BF%BF";
|
H A D | rel.t | 10 print "not " unless $uri->rel("http://www.example.com/foo/bar/") eq "./"; 13 print "not " unless $uri->rel("HTTP://WWW.EXAMPLE.COM/foo/bar/") eq "./"; 16 print "not " unless $uri->rel("HTTP://WWW.EXAMPLE.COM/FOO/BAR/") eq "../../foo/bar/"; 19 print "not " unless $uri->rel("HTTP://WWW.EXAMPLE.COM:80/foo/bar/") eq "./";
|
H A D | rsync.t | 10 print "not " unless $u->user eq "gisle"; 13 print "not " unless $u->port eq 873; 16 print "not " unless $u->path eq "/foo/bar"; 21 print "not " unless $u eq 'rsync://gisle@perl.com:8730/foo/bar';
|
H A D | http.t | 10 print "not " unless $u eq "http://www.perl.com/path?q=f%F4o"; 18 print "not " unless $old == 80 && $u eq "http://www.perl.com:8080/path?q=f%F4o"; 22 print "not " unless $u eq "http://www.perl.com:80/path?q=f%F4o"; 26 print "not " unless $u eq "http://www.perl.com:/path?q=f%F4o" && $u->port == 80; 30 print "not " unless $u eq "http://www.perl.com/path?q=f%F4o"; 34 print "not " unless @q == 2 && "@q" eq "q f�o"; 38 print "not " unless $u->query eq "foo=bar&bar=baz"; 41 print "not " unless $u->host eq "www.perl.com"; 44 print "not " unless $u->path eq "/path"; 51 print "not " unless $u eq "http [all...] |
H A D | news.t | 9 print "not " unless $u->group eq "comp.lang.perl.misc" && 12 $u eq "news:comp.lang.perl.misc"; 17 print "not " unless $u->group eq "comp.lang.perl.misc" && 19 $u eq "news://news.online.no/comp.lang.perl.misc"; 23 print "not " unless $u eq "news://news.online.no/no.perl/1-10"; 28 print "not " unless @g == 3 && "@g" eq "no.perl 1 10"; 33 print "not " unless $u->message eq '42@g.aas.no' && 35 $u eq 'news://news.online.no/42@g.aas.no'; 40 print "not " unless $u->group eq "no.perl" && 46 print "not " unless $u->group eq "n [all...] |
H A D | rtsp.t | 10 print "not " unless $u eq "rtsp://media.perl.com/f%F4o.smi/"; 18 print "not " unless $old == 554 && $u eq "rtsp://media.perl.com:8554/f%F4o.smi/"; 22 print "not " unless $u eq "rtsp://media.perl.com:554/f%F4o.smi/"; 26 print "not " unless $u eq "rtsp://media.perl.com:/f%F4o.smi/" && $u->port == 554; 30 print "not " unless $u eq "rtsp://media.perl.com/f%F4o.smi/"; 33 print "not " unless $u->host eq "media.perl.com"; 36 print "not " unless $u->path eq "/f%F4o.smi/"; 40 print "not " unless $u->scheme eq "rtspu";
|
H A D | query-param.t | 13 print "not " unless $h->{foo}[0] eq "4" && $h->{foo}[1] eq "5" && $h->{bar} eq "5"; 17 print "not " unless $u->query eq "a=1&b=2" || $u->query eq "b=2&a=1"; 21 print "not " unless $u->query_param == 2 && join(":", $u->query_param) eq "a:b"; 24 print "not " unless $u->query_param("a") eq "1" && 25 join(":", $u->query_param("a")) eq "1:3:5"; 28 print "not " unless $u->query_param(a => 11 .. 14) eq "1"; 31 print "not " unless $u->query eq " [all...] |
H A D | ldap.t | 12 print "not " unless $uri->host eq "host"; 15 print "not " unless $uri->dn eq "dn=base"; 18 print "not " unless join("-",$uri->attributes) eq "cn-sn"; 21 print "not " unless $uri->scope eq "sub"; 24 print "not " unless $uri->filter eq "objectClass=*"; 30 print "not " unless "$uri" eq "ldap:o=University%20of%20Michigan,c=US" && 31 $uri->dn eq "o=University of Michigan,c=US"; 35 print "not " unless $uri->as_string eq "ldap://ldap.itd.umich.edu/o=University%20of%20Michigan,c=US"; 39 print "not " unless $uri->_scope eq "" && 40 $uri->scope eq "bas [all...] |
H A D | mms.t | 10 print "not " unless $u eq "mms://66.250.188.13/KFOG_FM"; 18 print "not " unless $old == 1755 && $u eq "mms://66.250.188.13:8755/KFOG_FM"; 22 print "not " unless $u eq "mms://66.250.188.13:1755/KFOG_FM"; 26 print "not " unless $u eq "mms://66.250.188.13:/KFOG_FM" && $u->port == 1755; 30 print "not " unless $u eq "mms://66.250.188.13/KFOG_FM"; 33 print "not " unless $u->host eq "66.250.188.13"; 36 print "not " unless $u->path eq "/KFOG_FM";
|
H A D | rfc2732.t | 9 print "not " unless $uri->as_string eq "http://[FEDC:BA98:7654:3210:FEDC:BA98:7654:3210]:80/index.html"; 12 print "not " unless $uri->host eq "[FEDC:BA98:7654:3210:FEDC:BA98:7654:3210]"; 15 print "not " unless $uri->host_port eq "[FEDC:BA98:7654:3210:FEDC:BA98:7654:3210]:80"; 18 print "not " unless $uri->port eq "80"; 22 print "not " unless $uri->as_string eq "http://host:80/index.html"; 26 print "not " unless $uri->as_string eq "ftp://ftp:@[3ffe:2a00:100:7031::1]"; 29 print "not " unless $uri->port eq "21" && !$uri->_port; 32 print "not " unless $uri->host("ftp") eq "[3ffe:2a00:100:7031::1]"; 35 print "not " unless $uri eq "ftp://ftp:\@ftp";
|
H A D | query.t | 12 print "not " unless $u eq "?a=3&b=4"; 16 print "not " unless $u eq "?a="; 20 print "not " unless $u eq "?a%5B%3D%26%2B%23%5D+=+%5B%3D%26%2B%23%5D"; 24 print "not " unless join(":", @q) eq "a[=&+#] : [=&+#]"; 32 print "not " unless $u eq "?a+b"; 36 print "not " unless $u eq "?%20+%2B+%3D+%5B+%5D"; 40 print "not " unless join(":", @q) eq " :+:=:[:]"; 48 print "not " unless $u eq "?%20+?=%23"; 52 print "not " unless $u eq "?a+b"; 56 print "not " unless $u eq ""; [all...] |
/macosx-10.9.5/OpenLDAP-491.1/OpenLDAP/tests/data/ |
H A D | slapd-nis-master.conf | 40 index objectClass eq 41 index uid pres,eq,approx 42 index gidNumber pres,eq,approx 43 index uidNumber pres,eq,approx 44 index cn pres,eq,approx 45 index memberUid pres,eq,approx 46 index macAddress pres,eq,approx 47 index ipServiceProtocol pres,eq,approx 48 index ipServicePort pres,eq,approx 49 index oncRpcNumber pres,eq,appro [all...] |
/macosx-10.9.5/CPANInternal-140/JSON-XS/t/ |
H A D | 04_dwiw_encode.t | 34 ok($json_str eq '"stuff"'); 38 ok($json_str eq '"stu\nff"'); 44 ok($json_str eq $expected_str); 49 ok($json_str eq '{"var1":"val1","var2":"val2"}' 50 or $json_str eq '{"var2":"val2","var1":"val1"}'); 61 ok($json_str eq $expected_str1 or $json_str eq $expected_str2 62 or $json_str eq $expected_str3 or $json_str eq $expected_str4);
|
/macosx-10.9.5/CPANInternal-140/JSON-XS-2.33/t/ |
H A D | 04_dwiw_encode.t | 34 ok($json_str eq '"stuff"'); 38 ok($json_str eq '"stu\nff"'); 44 ok($json_str eq $expected_str); 49 ok($json_str eq '{"var1":"val1","var2":"val2"}' 50 or $json_str eq '{"var2":"val2","var1":"val1"}'); 61 ok($json_str eq $expected_str1 or $json_str eq $expected_str2 62 or $json_str eq $expected_str3 or $json_str eq $expected_str4);
|
/macosx-10.9.5/CPANInternal-140/Sub-Name/t/ |
H A D | smoke.t | 9 print $x->() eq "main::foo" ? "ok 1\n" : "not ok 1\n"; 17 print $x->() eq "Blork:: Bar!" ? "ok 2\n" : "not ok 2\n"; 20 print $x->() eq "Foo::Bar::Baz" ? "ok 3\n" : "not ok 3\n"; 26 print $x->() eq "Blork::Dynamic $_" ? "ok $_\n" : "not ok $_\n";
|