Searched refs:eq (Results 1 - 25 of 1836) sorted by relevance

1234567891011>>

/macosx-10.9.5/CPANInternal-140/URI/t/
H A Dsplit.t10 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 Dftp.t11 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 Dmailto.t9 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 Durn-isbn.t17 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 Dheuristic.t16 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 Durn-oid.t14 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 Dgeneric.t9 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 Ddata.t17 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 Dsip.t9 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 Dpop.t9 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 Descape.t7 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 Drel.t10 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 Drsync.t10 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 Dhttp.t10 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 Dnews.t9 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 Drtsp.t10 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 Dquery-param.t13 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 Dldap.t12 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 Dmms.t10 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 Drfc2732.t9 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 Dquery.t12 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 Dslapd-nis-master.conf40 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 D04_dwiw_encode.t34 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 D04_dwiw_encode.t34 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 Dsmoke.t9 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";

Completed in 206 milliseconds

1234567891011>>