This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/dor.t: Provide descriptions for tests still lacking them.
authorJames E Keenan <jkeenan@cpan.org>
Sat, 8 Dec 2012 20:50:18 +0000 (15:50 -0500)
committerJames E Keenan <jkeenan@cpan.org>
Sat, 15 Dec 2012 01:50:07 +0000 (20:50 -0500)
t/op/dor.t

index 9f28050..e2385f1 100644 (file)
@@ -56,15 +56,18 @@ for (qw(getc pos readline readlink undef umask <> <FOO> <$foo> -f)) {
 # Test for some ambiguous syntaxes
 
 eval q# sub f ($) { } f $x / 2; #;
-is( $@, '' );
+is( $@, '', "'/' correctly parsed as arithmetic operator" );
 eval q# sub f ($):lvalue { $y } f $x /= 2; #;
-is( $@, '' );
+is( $@, '', "'/=' correctly parsed as assigment operator" );
 eval q# sub f ($) { } f $x /2; #;
-like( $@, qr/^Search pattern not terminated/ );
+like( $@, qr/^Search pattern not terminated/,
+    "Caught unterminated search pattern error message: empty subroutine" );
 eval q# sub { print $fh / 2 } #;
-is( $@, '' );
+is( $@, '',
+    "'/' correctly parsed as arithmetic operator in sub with built-in function" );
 eval q# sub { print $fh /2 } #;
-like( $@, qr/^Search pattern not terminated/ );
+like( $@, qr/^Search pattern not terminated/,
+    "Caught unterminated search pattern error message: sub with built-in function" );
 
 # [perl #28123] Perl optimizes // away incorrectly