This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ref.t: To-do test for retvals of folded ops
authorFather Chrysostomos <sprout@cpan.org>
Sat, 15 Jun 2013 18:57:56 +0000 (11:57 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 26 Jul 2013 06:47:58 +0000 (23:47 -0700)
t/comp/fold.t

index 5d6d9bf..f6a9470 100644 (file)
@@ -4,7 +4,7 @@
 # we've not yet verified that use works.
 # use strict;
 
 # we've not yet verified that use works.
 # use strict;
 
-print "1..26\n";
+print "1..27\n";
 my $test = 0;
 
 # Historically constant folding was performed by evaluating the ops, and if
 my $test = 0;
 
 # Historically constant folding was performed by evaluating the ops, and if
@@ -149,3 +149,12 @@ eval "truncate 1 ? $n : 0, 0;";
 print "not " unless -z $n;
 print "ok ", ++$test, " - truncate(const ? word : ...)\n";
 unlink $n;
 print "not " unless -z $n;
 print "ok ", ++$test, " - truncate(const ? word : ...)\n";
 unlink $n;
+
+# Constant folding should not change the mutability of returned values.
+for(1+2) {
+    eval { $_++ };
+    print "not " unless $_ eq 4;
+    print "ok ", ++$test,
+          " - 1+2 returns mutable value, just like \$a+\$b",
+          " # TODO\n";
+}