From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 12 Jul 2008 18:53:26 +0000 (+0000)
Subject: Format tests for @* too.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=003d2c645c2d36c77e1c73837b173c4e6c41c666;p=p5sagit%2Fp5-mst-13.2.git

Format tests for @* too.

p4raw-id: //depot/perl@34135
---

diff --git a/t/op/write.t b/t/op/write.t
index 89b5beb..976713f 100755
--- a/t/op/write.t
+++ b/t/op/write.t
@@ -61,7 +61,7 @@ for my $tref ( @NumTests ){
 my $bas_tests = 20;
 
 # number of tests in section 3
-my $bug_tests = 4 + 3 * 3 * 3;
+my $bug_tests = 4 + 3 * 3 * 5 * 2;
 
 # number of tests in section 4
 my $hmb_tests = 35;
@@ -517,17 +517,21 @@ for my $tref ( @NumTests ){
 
   foreach my $first ('N', $pound, $pound_utf8) {
     foreach my $base ('N', $pm, $pm_utf8) {
-      foreach my $second ($base, "$base\n", "$base\nMoo!") {
-	my $name = "$first, $second";
-	$name =~ s/\n/\\n/;
-
-	my ($copy1, $copy2) = ($first, $second);
-	$first =~ /(.+)/ or die $first;
-	my $expect = "1${1}2";
-	$second =~ /(.+)/ or die $second;
-	$expect .= " 3${1}4";
-
-	is swrite('1^*2 3^*4', $copy1, $copy2), $expect, $name;
+      foreach my $second ($base, "$base\n", "$base\nMoo!", "$base\nMoo!\n",
+			  "$base\nMoo!\n",) {
+	foreach (['^*', qr/(.+)/], ['@*', qr/(.*?)$/s]) {
+	  my ($format, $re) = @$_;
+	  my $name = "$first, $second $format";
+	  $name =~ s/\n/\\n/g;
+
+	  my ($copy1, $copy2) = ($first, $second);
+	  $first =~ /(.+)/ or die $first;
+	  my $expect = "1${1}2";
+	  $second =~ $re or die $second;
+	  $expect .= " 3${1}4";
+
+	  is swrite("1^*2 3${format}4", $copy1, $copy2), $expect, $name;
+	}
       }
     }
   }