[Catalyst-commits] r13986 - in trunk/HTTP-Body: . t

[getty at dev.catalyst.perl.org]

Author: getty
Date: 2011-03-20 00:52:55 +0000 (Sun, 20 Mar 2011)
New Revision: 13986

Modified:
   trunk/HTTP-Body/Changes
   trunk/HTTP-Body/dist.ini
   trunk/HTTP-Body/t/08multipart-suffix.t
Log:
Fixed the t/08 test



Modified: trunk/HTTP-Body/Changes
===================================================================
--- trunk/HTTP-Body/Changes	2011-03-07 19:16:14 UTC (rev 13985)
+++ trunk/HTTP-Body/Changes	2011-03-20 00:52:55 UTC (rev 13986)
@@ -1,5 +1,8 @@
 This file documents the revision history for Perl extension HTTP::Body.
 
+1.12    Sat 19 Mar 2011 19:05:17 CET
+        - Fixed the t/08 test
+
 1.11    Tue 26 Oct 2010 14:10:00 UTC
         - Added param_order capability (Torsten Raudssus [GETTY])
 

Modified: trunk/HTTP-Body/dist.ini
===================================================================
--- trunk/HTTP-Body/dist.ini	2011-03-07 19:16:14 UTC (rev 13985)
+++ trunk/HTTP-Body/dist.ini	2011-03-20 00:52:55 UTC (rev 13986)
@@ -1,8 +1,9 @@
 name    = HTTP-Body
-version = 1.11
+version = 1.12
 author  = Christian Hansen, C<chansen at cpan.org>
 author  = Sebastian Riedel, C<sri at cpan.org>
 author  = Andy Grundman, C<andy at hybridized.org>
+author  = Torsten Raudssus, C<getty at cpan.org>
 abstract = HTTP Body Parser
 license = Perl_5
 copyright_holder = Christian Hansen

Modified: trunk/HTTP-Body/t/08multipart-suffix.t
===================================================================
--- trunk/HTTP-Body/t/08multipart-suffix.t	2011-03-07 19:16:14 UTC (rev 13985)
+++ trunk/HTTP-Body/t/08multipart-suffix.t	2011-03-20 00:52:55 UTC (rev 13986)
@@ -21,43 +21,61 @@
 {
     my $uploads = uploads_for('001');
 
-    like(
-        $uploads->{upload2}{tempname}, qr/\.pl$/,
-        'tempname preserves .pl suffix'
-    );
+	{
+		my ($volume,$directories,$file) = File::Spec->splitpath( $uploads->{upload2}{tempname} );	
+		like(
+			$file, qr/\.pl$/,
+			'tempname preserves .pl suffix'
+		);
+	}
 
-    unlike(
-        $uploads->{upload4}{tempname}, qr/\..+$/,
-        'tempname for upload4 has no suffix'
-    );
+	{
+		my ($volume,$directories,$file) = File::Spec->splitpath( $uploads->{upload4}{tempname} );	
+		unlike(
+			$file, qr/\..+$/,
+			'tempname for upload4 has no suffix'
+		);
+	}
+
 }
 
 {
     my $uploads = uploads_for('006');
 
-    like(
-        $uploads->{upload2}{tempname}, qr/\.pl$/,
-        'tempname preserves .pl suffix with Windows filename'
-    );
+	{
+		my ($volume,$directories,$file) = File::Spec->splitpath( $uploads->{upload2}{tempname} );	
+		like(
+			$file, qr/\.pl$/,
+			'tempname preserves .pl suffix with Windows filename'
+		);
+	}
+
 }
 
 {
     my $uploads = uploads_for('014');
 
-    like(
-        $uploads->{upload}{tempname}, qr/\.foo\.txt$/,
-        'tempname preserves .foo.txt suffix'
-    );
+	{
+		my ($volume,$directories,$file) = File::Spec->splitpath( $uploads->{upload}{tempname} );	
+		like(
+			$file, qr/\.foo\.txt$/,
+			'tempname preserves .foo.txt suffix'
+		);
+	}
 
-    like(
-        $uploads->{upload2}{tempname}, qr/\.txt$/,
-        'tempname preserves .txt suffix when dir name has .'
-    );
+	{
+		my ($volume,$directories,$file) = File::Spec->splitpath( $uploads->{upload2}{tempname} );	
+		like(
+			$file, qr/\.txt$/,
+			'tempname preserves .txt suffix when dir name has .'
+		);
+	}
 
-    like(
-        $uploads->{upload2}{tempname}, qr/[\\\/]\w+.txt$/,
-        'tempname only gets extension from filename, not from a directory name'
-    );
+	like(
+		$uploads->{upload2}{tempname}, qr/[\\\/]\w+.txt$/,
+		'tempname only gets extension from filename, not from a directory name'
+	);
+
 }
 
 sub uploads_for {