r47710 - in /trunk/liburi-perl: Changes META.yml URI.pm debian/changelog t/roy-test.t

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Tue Nov 24 03:13:29 2009
New Revision: 47710

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=47710
Log:
Only fixes for Windows.
IGNORE-VERSION: 1.51-1
* New upstream release

Modified:
    trunk/liburi-perl/Changes
    trunk/liburi-perl/META.yml
    trunk/liburi-perl/URI.pm
    trunk/liburi-perl/debian/changelog
    trunk/liburi-perl/t/roy-test.t

Modified: trunk/liburi-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liburi-perl/Changes?rev=47710&op=diff
==============================================================================
--- trunk/liburi-perl/Changes (original)
+++ trunk/liburi-perl/Changes Tue Nov 24 03:13:29 2009
@@ -1,3 +1,12 @@
+2009-11-23   Gisle Aas <gisle at ActiveState.com>
+
+   Release 1.51
+
+   Fixup a test that was broken on Windows
+
+
+
+
 2009-11-21   Gisle Aas <gisle at ActiveState.com>
 
    Release 1.50
@@ -42,6 +51,7 @@
       Strip brackets off IPv6 hosts [RT#34309]
 
 
+
 2009-08-14   Gisle Aas <gisle at ActiveState.com>
 
    Release 1.40

Modified: trunk/liburi-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liburi-perl/META.yml?rev=47710&op=diff
==============================================================================
--- trunk/liburi-perl/META.yml (original)
+++ trunk/liburi-perl/META.yml Tue Nov 24 03:13:29 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               URI
-version:            1.50
+version:            1.51
 abstract:           Uniform Resource Identifiers (absolute and relative)
 author:
     - Gisle Aas <gisle at activestate.com>

Modified: trunk/liburi-perl/URI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liburi-perl/URI.pm?rev=47710&op=diff
==============================================================================
--- trunk/liburi-perl/URI.pm (original)
+++ trunk/liburi-perl/URI.pm Tue Nov 24 03:13:29 2009
@@ -2,7 +2,7 @@
 
 use strict;
 use vars qw($VERSION);
-$VERSION = "1.50";
+$VERSION = "1.51";
 
 use vars qw($ABS_REMOTE_LEADING_DOTS $ABS_ALLOW_RELATIVE_SCHEME $DEFAULT_QUERY_FORM_DELIMITER);
 

Modified: trunk/liburi-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liburi-perl/debian/changelog?rev=47710&op=diff
==============================================================================
--- trunk/liburi-perl/debian/changelog (original)
+++ trunk/liburi-perl/debian/changelog Tue Nov 24 03:13:29 2009
@@ -1,3 +1,12 @@
+liburi-perl (1.51-1) UNRELEASED; urgency=low
+
+  Only fixes for Windows.
+  IGNORE-VERSION: 1.51-1
+
+  * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org>  Mon, 23 Nov 2009 18:48:21 -0500
+
 liburi-perl (1.50-1) unstable; urgency=low
 
   [ Jonathan Yu ]

Modified: trunk/liburi-perl/t/roy-test.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liburi-perl/t/roy-test.t?rev=47710&op=diff
==============================================================================
--- trunk/liburi-perl/t/roy-test.t (original)
+++ trunk/liburi-perl/t/roy-test.t Tue Nov 24 03:13:29 2009
@@ -1,31 +1,30 @@
 #!perl -w
 
-print "1..102\n";
-
-if (-d "t") {
-   chdir("t") || die "Can't chdir 't': $!";
-   # fix all relative library locations
-   foreach (@INC) {
-      $_ = "../$_" unless m,^/,;
-   }
-}
+use strict;
+use Test qw(plan ok);
+plan tests => 102;
 
 use URI;
-$no = 1;
+use File::Spec::Functions qw(catfile);
 
-for $i (1..5) {
-   my $file = "roytest$i.html";
+my $no = 1;
+
+my @prefix;
+push(@prefix, "t") if -d "t";
+
+for my $i (1..5) {
+   my $file = catfile(@prefix, "roytest$i.html");
 
    open(FILE, $file) || die "Can't open $file: $!";
    print "# $file\n";
-   $base = undef;
+   my $base = undef;
    while (<FILE>) {
        if (/^<BASE href="([^"]+)">/) {
            $base = URI->new($1);
        } elsif (/^<a href="([^"]*)">.*<\/a>\s*=\s*(\S+)/) {
            die "Missing base at line $." unless $base;	    
-           $link = $1;
-           $exp  = $2;
+           my $link = $1;
+           my $exp  = $2;
            $exp = $base if $exp =~ /current/;  # special case test 22
 
 	   # rfc2396bis restores the rfc1808 behaviour
@@ -36,13 +35,8 @@
 	       $exp = "http://a/b/c/d;p?y";
 	   }
 
-           $abs  = URI->new($link)->abs($base);
-           unless ($abs eq $exp) {
-              print "$file:$.:  Expected: $exp\n";
-              print qq(  abs("$link","$base") ==> "$abs"\n);
-              print "not ";
-           }
-           print "ok $no\n";
+	   ok(URI->new($link)->abs($base), $exp);
+
            $no++;
        }
    }