test without meat in foreach

briandfoy · Mar 26, 2018 · c673425 · c673425
1 parent d881a50
commit c673425
Showing 1 changed file with 3 additions and 6 deletions.
diff --git a/t/lowercase.t b/t/lowercase.t
@@ -39,19 +39,16 @@ my %upper2lower = qw(
 
 	diag( "Entering foreach" );
 
-=pod
-
 foreach my $upper ( sort keys %upper2lower ) {
 	my $lower = $upper2lower{$upper};
-	use Unicode::Casing lc => \&Roman::Unicode::to_roman_lower;
+
+	# use Unicode::Casing lc => \&Roman::Unicode::to_roman_lower;
 
 	diag( "After test for $upper" );
-	is( lc $upper, $lower, "$upper turns into $lower"   );
+	# is( lc $upper, $lower, "$upper turns into $lower"   );
 	diag( "After test for $upper" );
 	}
 
-=cut
-
 	diag( "Leaving foreach" );
 
 diag "Before done_testing";