X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2Fconf%2Fnormalize%2Fsub.pl;fp=t%2Fconf%2Fnormalize%2Fsub.pl;h=62dec9864c8d910b9b7e977e6e5e6bfd773a91d7;hb=87df497b2d849ea5fae2ba1641850af3dc1ba53e;hp=c8103553d52ddac7bb20188744c82f00983f765c;hpb=440a84cffee44af7e50ef647b0b451416cf874f1;p=webpac2

diff --git a/t/conf/normalize/sub.pl b/t/conf/normalize/sub.pl
index c810355..62dec98 100644
--- a/t/conf/normalize/sub.pl
+++ b/t/conf/normalize/sub.pl
@@ -1,3 +1,5 @@
+# check all repairs in WebPAC::Parser
+
 sub foo {
 	push @test, 'foo';
 }
@@ -9,3 +11,11 @@ sub bar($) {
 foo();
 bar(foo());
 bar(42);
+
+sub test($) {
+	push @test, $_[0];
+}
+
+foreach my $a ( 1,2,3 ) {
+	test($a);	
+}