This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix like/is problem in perl5db.t.
authorCraig A. Berry <craigberry@mac.com>
Fri, 27 Jun 2014 19:37:43 +0000 (14:37 -0500)
committerCraig A. Berry <craigberry@mac.com>
Sat, 28 Jun 2014 00:21:06 +0000 (19:21 -0500)
aaa63daea7f8ece changed like to is, which turned out not to be
quite the same thing for these tests on VMS, where the last line
of a file always gets a newline before EOF willy nilly.  So keep
is but make the newline explicit.

lib/perl5db.t

index 0b77731..e93aee0 100644 (file)
@@ -97,24 +97,24 @@ EOF
 # [ perl #116769] Frame=2
 {
     local $ENV{PERLDB_OPTS} = "frame=2 nonstop";
 # [ perl #116769] Frame=2
 {
     local $ENV{PERLDB_OPTS} = "frame=2 nonstop";
-    my $output = runperl( switches => [ '-d' ], prog => 'print q{success}' );
+    my $output = runperl( switches => [ '-d' ], prog => 'print qq{success\n}' );
     is( $?, 0, '[perl #116769] frame=2 does not crash debugger, exit == 0' );
     is( $?, 0, '[perl #116769] frame=2 does not crash debugger, exit == 0' );
-    is( $output, 'success' , '[perl #116769] code is run' );
+    is( $output, "success\n" , '[perl #116769] code is run' );
 }
 # [ perl #116771] autotrace
 {
     local $ENV{PERLDB_OPTS} = "autotrace nonstop";
 }
 # [ perl #116771] autotrace
 {
     local $ENV{PERLDB_OPTS} = "autotrace nonstop";
-    my $output = runperl( switches => [ '-d' ], prog => 'print q{success}' );
+    my $output = runperl( switches => [ '-d' ], prog => 'print qq{success\n}' );
     is( $?, 0, '[perl #116771] autotrace does not crash debugger, exit == 0' );
     is( $?, 0, '[perl #116771] autotrace does not crash debugger, exit == 0' );
-    is( $output, 'success' , '[perl #116771] code is run' );
+    is( $output, "success\n" , '[perl #116771] code is run' );
 }
 # [ perl #41461] Frame=2 noTTY
 {
     local $ENV{PERLDB_OPTS} = "frame=2 noTTY nonstop";
     rc('');
 }
 # [ perl #41461] Frame=2 noTTY
 {
     local $ENV{PERLDB_OPTS} = "frame=2 noTTY nonstop";
     rc('');
-    my $output = runperl( switches => [ '-d' ], prog => 'print q{success}' );
+    my $output = runperl( switches => [ '-d' ], prog => 'print qq{success\n}' );
     is( $?, 0, '[perl #41461] frame=2 noTTY does not crash debugger, exit == 0' );
     is( $?, 0, '[perl #41461] frame=2 noTTY does not crash debugger, exit == 0' );
-    is( $output, 'success' , '[perl #41461] code is run' );
+    is( $output, "success\n" , '[perl #41461] code is run' );
 }
 
 package DebugWrap;
 }
 
 package DebugWrap;