X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F08multipart-suffix.t;h=b72d161fa94aade39700e090de7a8e29120724b3;hb=29a092ff5f959987f75b018cfedf4555ae495598;hp=fadc8748f52256ddc55c7b0e759c6e4cf27187c6;hpb=c292387042dcbea9a73959d9c73a65be03b42c26;p=catagits%2FHTTP-Body.git

diff --git a/t/08multipart-suffix.t b/t/08multipart-suffix.t
index fadc874..b72d161 100644
--- a/t/08multipart-suffix.t
+++ b/t/08multipart-suffix.t
@@ -24,7 +24,7 @@ my $path = catdir( getcwd(), 't', 'data', 'multipart' );
 	{
 		my ($volume,$directories,$file) = File::Spec->splitpath( $uploads->{upload2}{tempname} );	
 		like(
-			$file, qr/\.pl$/,
+			$file, qr/^.{10}\.pl$/,
 			'tempname preserves .pl suffix'
 		);
 	}
@@ -32,7 +32,7 @@ my $path = catdir( getcwd(), 't', 'data', 'multipart' );
 	{
 		my ($volume,$directories,$file) = File::Spec->splitpath( $uploads->{upload4}{tempname} );	
 		unlike(
-			$file, qr/\..+$/,
+			$file, qr/^.{10}\..+$/,
 			'tempname for upload4 has no suffix'
 		);
 	}
@@ -45,7 +45,7 @@ my $path = catdir( getcwd(), 't', 'data', 'multipart' );
 	{
 		my ($volume,$directories,$file) = File::Spec->splitpath( $uploads->{upload2}{tempname} );	
 		like(
-			$file, qr/\.pl$/,
+			$file, qr/^.{10}\.pl$/,
 			'tempname preserves .pl suffix with Windows filename'
 		);
 	}
@@ -58,7 +58,7 @@ my $path = catdir( getcwd(), 't', 'data', 'multipart' );
 	{
 		my ($volume,$directories,$file) = File::Spec->splitpath( $uploads->{upload}{tempname} );	
 		like(
-			$file, qr/\.foo\.txt$/,
+			$file, qr/^.{10}\.foo\.txt$/,
 			'tempname preserves .foo.txt suffix'
 		);
 	}
@@ -66,7 +66,7 @@ my $path = catdir( getcwd(), 't', 'data', 'multipart' );
 	{
 		my ($volume,$directories,$file) = File::Spec->splitpath( $uploads->{upload2}{tempname} );	
 		like(
-			$file, qr/\.txt$/,
+			$file, qr/^.{10}\.txt$/,
 			'tempname preserves .txt suffix when dir name has .'
 		);
 	}