git.maemo.org Git - pkg-perl/blob - deb-src/liburi-perl/liburi-perl-1.35.dfsg.1/t/generic.t

   1 #!perl -w
   2
   3 print "1..48\n";
   4
   5 use URI;
   6
   7 $foo = URI->new("Foo:opaque#frag");
   8
   9 print "not " unless ref($foo) eq "URI::_foreign";
  10 print "ok 1\n";
  11
  12 print "not " unless $foo->as_string eq "Foo:opaque#frag";
  13 print "ok 2\n";
  14
  15 print "not " unless "$foo" eq "Foo:opaque#frag";
  16 print "ok 3\n";
  17
  18 # Try accessors
  19 print "not " unless $foo->_scheme eq "Foo" && $foo->scheme eq "foo";
  20 print "ok 4\n";
  21
  22 print "not " unless $foo->opaque eq "opaque";
  23 print "ok 5\n";
  24
  25 print "not " unless $foo->fragment eq "frag";
  26 print "ok 6\n";
  27
  28 print "not " unless $foo->canonical eq "foo:opaque#frag";
  29 print "ok 7\n";
  30
  31 # Try modificators
  32 $old = $foo->scheme("bar");
  33
  34 print "not " unless $old eq "foo" && $foo eq "bar:opaque#frag";
  35 print "ok 8\n";
  36
  37 $old = $foo->scheme("");
  38 print "not " unless $old eq "bar" && $foo eq "opaque#frag";
  39 print "ok 9\n";
  40
  41 $old = $foo->scheme("foo");
  42 $old = $foo->scheme(undef);
  43
  44 print "not " unless $old eq "foo" && $foo eq "opaque#frag";
  45 print "ok 10\n";
  46
  47 $foo->scheme("foo");
  48
  49
  50 $old = $foo->opaque("xxx");
  51 print "not " unless $old eq "opaque" && $foo eq "foo:xxx#frag";
  52 print "ok 11\n";
  53
  54 $old = $foo->opaque("");
  55 print "not " unless $old eq "xxx" && $foo eq "foo:#frag";
  56 print "ok 12\n";
  57
  58 $old = $foo->opaque(" #?/");
  59 $old = $foo->opaque(undef);
  60 print "not " unless $old eq "%20%23?/" && $foo eq "foo:#frag";
  61 print "ok 13\n";
  62
  63 $foo->opaque("opaque");
  64
  65
  66 $old = $foo->fragment("x");
  67 print "not " unless $old eq "frag" && $foo eq "foo:opaque#x";
  68 print "ok 14\n";
  69
  70 $old = $foo->fragment("");
  71 print "not " unless $old eq "x" && $foo eq "foo:opaque#";
  72 print "ok 15\n";
  73
  74 $old = $foo->fragment(undef);
  75 print "not " unless $old eq "" && $foo eq "foo:opaque";
  76 print "ok 16\n";
  77
  78
  79 # Compare
  80 print "not " unless $foo->eq("Foo:opaque") &&
  81                     $foo->eq(URI->new("FOO:opaque")) &&
  82                     $foo->eq("foo:opaque");
  83 print "ok 17\n";
  84
  85 print "not " if $foo->eq("Bar:opaque") ||
  86                 $foo->eq("foo:opaque#");
  87 print "ok 18\n";
  88
  89
  90 # Try hierarchal unknown URLs
  91
  92 $foo = URI->new("foo://host:80/path?query#frag");
  93
  94 print "not " unless "$foo" eq "foo://host:80/path?query#frag";
  95 print "ok 19\n";
  96
  97 # Accessors
  98 print "not " unless $foo->scheme eq "foo";
  99 print "ok 20\n";
 100
 101 print "not " unless $foo->authority eq "host:80";
 102 print "ok 21\n";
 103
 104 print "not " unless $foo->path eq "/path";
 105 print "ok 22\n";
 106
 107 print "not " unless $foo->query eq "query";
 108 print "ok 23\n";
 109
 110 print "not " unless $foo->fragment eq "frag";
 111 print "ok 24\n";
 112
 113 # Modificators
 114 $old = $foo->authority("xxx");
 115 print "not " unless $old eq "host:80" && $foo eq "foo://xxx/path?query#frag";
 116 print "ok 25\n";
 117
 118 $old = $foo->authority("");
 119 print "not " unless $old eq "xxx" && $foo eq "foo:///path?query#frag";
 120 print "ok 26\n";
 121
 122 $old = $foo->authority(undef);
 123 print "not " unless $old eq "" && $foo eq "foo:/path?query#frag";
 124 print "ok 27\n";
 125
 126 $old = $foo->authority("/? #;@&");
 127 print "not " unless !defined($old) && $foo eq "foo://%2F%3F%20%23;@&/path?query#frag";
 128 print "ok 28\n";
 129
 130 $old = $foo->authority("host:80");
 131 print "not " unless $old eq "%2F%3F%20%23;@&" && $foo eq "foo://host:80/path?query#frag";
 132 print "ok 29\n";
 133
 134
 135 $old = $foo->path("/foo");
 136 print "not " unless $old eq "/path" && $foo eq "foo://host:80/foo?query#frag";
 137 print "ok 30\n";
 138
 139 $old = $foo->path("bar");
 140 print "not " unless $old eq "/foo" && $foo eq "foo://host:80/bar?query#frag";
 141 print "ok 31\n";
 142
 143 $old = $foo->path("");
 144 print "not " unless $old eq "/bar" && $foo eq "foo://host:80?query#frag";
 145 print "ok 32\n";
 146
 147 $old = $foo->path(undef);
 148 print "not " unless $old eq "" && $foo eq "foo://host:80?query#frag";
 149 print "ok 33\n";
 150
 151 $old = $foo->path("@;/?#");
 152 print "not " unless $old eq "" && $foo eq "foo://host:80/@;/%3F%23?query#frag";
 153 print "ok 34\n";
 154
 155 $old = $foo->path("path");
 156 print "not " unless $old eq "/@;/%3F%23" && $foo eq "foo://host:80/path?query#frag";
 157 print "ok 35\n";
 158
 159
 160 $old = $foo->query("foo");
 161 print "not " unless $old eq "query" && $foo eq "foo://host:80/path?foo#frag";
 162 print "ok 36\n";
 163
 164 $old = $foo->query("");
 165 print "not " unless $old eq "foo" && $foo eq "foo://host:80/path?#frag";
 166 print "ok 37\n";
 167
 168 $old = $foo->query(undef);
 169 print "not " unless $old eq "" && $foo eq "foo://host:80/path#frag";
 170 print "ok 38\n";
 171
 172 $old = $foo->query("/?&=# ");
 173 print "not " unless !defined($old) && $foo eq "foo://host:80/path?/?&=%23%20#frag";
 174 print "ok 39\n";
 175
 176 $old = $foo->query("query");
 177 print "not " unless $old eq "/?&=%23%20" && $foo eq "foo://host:80/path?query#frag";
 178 print "ok 40\n";
 179
 180 # Some buildup trics
 181 $foo = URI->new("");
 182 $foo->path("path");
 183 $foo->authority("auth");
 184
 185 print "not " unless $foo eq "//auth/path";
 186 print "ok 41\n";
 187
 188 $foo = URI->new("", "http:");
 189 $foo->query("query");
 190 $foo->authority("auth");
 191 print "not " unless $foo eq "//auth?query";
 192 print "ok 42\n";
 193
 194 $foo->path("path");
 195 print "not " unless $foo eq "//auth/path?query";
 196 print "ok 43\n";
 197
 198 $foo = URI->new("");
 199 $old = $foo->path("foo");
 200 print "not " unless $old eq "" && $foo eq "foo";
 201 print "ok 44\n";
 202
 203 $old = $foo->path("bar");
 204 print "not " unless $old eq "foo" && $foo eq "bar";
 205 print "ok 45\n";
 206
 207 $old = $foo->opaque("foo");
 208 print "not " unless $old eq "bar" && $foo eq "foo";
 209 print "ok 46\n";
 210
 211 $old = $foo->path("");
 212 print "not " unless $old eq "foo" && $foo eq "";
 213 print "ok 47\n";
 214
 215 $old = $foo->query("q");
 216 print "not " unless !defined($old) && $foo eq "?q";
 217 print "ok 48\n";
 218