X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVariable-Temp.git;a=blobdiff_plain;f=samples%2Fgen_lvalue_test;fp=samples%2Fgen_lvalue_test;h=a921f518995dac503e92a6bb9571b5868ac510d2;hp=0000000000000000000000000000000000000000;hb=74f10ab295009c4fb93ccf989d4ed442d15479d3;hpb=01a4daa0f14207acfeff236b5381e3dfebe1b981

diff --git a/samples/gen_lvalue_test b/samples/gen_lvalue_test
new file mode 100644
index 0000000..a921f51
--- /dev/null
+++ b/samples/gen_lvalue_test
@@ -0,0 +1,33 @@
+#!perl
+
+use strict;
+use warnings;
+use autodie;
+
+open my $in,  '<', 't/10-base.t';
+open my $out, '>', 't/20-lvalue.t';
+
+while (<$in>) {
+ if (/use Variable::Temp/) {
+  print $out "use Variable::Temp 'temp';\n";
+ } elsif (/use +Test::More +(tests *=>.*); *$/) {
+  print $out <<"  HEAD";
+use Test::More;
+
+BEGIN {
+ if ("\$]" < 5.014) {
+  plan skip_all => 'perl 5.14 required to use lvalue temp()';
+ } else {
+  plan $1;
+ }
+}
+  HEAD
+ } else {
+  s/set_temp(.*?)=>/temp$1=/g;
+  s/set_temp(.*?);/temp$1;/g;
+  print $out $_;
+ }
+}
+
+close $out;
+close $in;