This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
startkve.t: Refactor setting of $errpat
authorFather Chrysostomos <sprout@cpan.org>
Mon, 25 Apr 2016 00:21:44 +0000 (17:21 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 17 May 2016 03:22:02 +0000 (20:22 -0700)
This will simplify things in the next commit.

t/op/smartkve.t

index f761b4c..c57bc68 100644 (file)
@@ -14,8 +14,12 @@ plan 'no_plan';
 
 my $empty;
 
+sub set_errpat {
+    $errpat = qr/Experimental $_[0] on scalar is now forbidden/;
+}
+
 # Keys -- errors
-$errpat = qr/Experimental keys on scalar is now forbidden/;
+set_errpat 'keys';
 
 eval "keys undef";
 like($@, $errpat,
@@ -46,7 +50,7 @@ like($@, $errpat,
 ) or print "# Got: $@";
 
 # Values -- errors
-$errpat = qr/Experimental values on scalar is now forbidden/;
+set_errpat 'values';
 
 eval "values undef";
 like($@, $errpat,
@@ -77,7 +81,7 @@ like($@, $errpat,
 ) or print "# Got: $@";
 
 # Each -- errors
-$errpat = qr/Experimental each on scalar is now forbidden/;
+set_errpat 'each';
 
 eval "each undef";
 like($@, $errpat,