File perl-5142-re-syntax.patch of Package perl-File-MimeInfo

Overview Repositories Revisions Requests Users Attributes Meta

File perl-5142-re-syntax.patch of Package perl-File-MimeInfo (Revision ff45b72ab7ff815ac1e7ac8b14124981)

Currently displaying revision ff45b72ab7ff815ac1e7ac8b14124981 , Show latest

--- File-MimeInfo-0.15/t/01_normal.t.orig	2008-02-14 00:38:59.000000000 +0000
+++ File-MimeInfo-0.15/t/01_normal.t	2011-11-21 01:48:12.348109257 +0000
@@ -18,12 +18,23 @@ use_ok('File::MimeInfo', qw/mimetype des
 
 # test _glob_to_regexp
 my $i = 0;
-for (
-	[ '*.pl',	'(?-xism:^.*\.pl$)'	],	# 4
-	[ '*.h++',	'(?-xism:^.*\.h\+\+$)'	],	# 5
-	[ '*.[tar].*',	'(?-xism:^.*\.[tar]\..*$)'],	# 6
-	[ '*.?',	'(?-xism:^.*\..?$)'],		# 7
-) { is( File::MimeInfo::_glob_to_regexp($_->[0]), $_->[1], 'glob '.++$i ) }
+for my $glob ( 
+   [ '*.pl', [ '(?-xism:^.*\.pl$)', '(?^u:^.*\.pl$)' ] ], # 4 
+   [ '*.h++', [ '(?-xism:^.*\.h\+\+$)', '(?^u:^.*\.h\+\+$)' ] ], # 5 
+   [ '*.[tar].*', [ '(?-xism:^.*\.[tar]\..*$)', '(?^u:^.*\.[tar]\..*$)' ] ], # 6 
+   [ '*.?', [ '(?-xism:^.*\..?$)', '(?^u:^.*\..?$)' ] ], # 7 
+   ) 
+{ 
+  my $converted = File::MimeInfo::_glob_to_regexp( $glob->[0] ); 
+  my $number = ++$i; 
+  if ( my ($match) = grep { $_ eq "$converted" } @{ $glob->[1] } ) { 
+    pass( 'glob ' . $number . ' matches an expected value' ); 
+    # note explain $match; 
+    next; 
+  } 
+  fail( 'glob ' . $number . ' matches an expected value' ); 
+  diag explain { got => "$converted", expected_one_of => $glob->[1] }; 
+}

# test parsing file names
 $i = 0;

Places

File perl-5142-re-syntax.patch of Package perl-File-MimeInfo (Revision ff45b72ab7ff815ac1e7ac8b14124981)

Places