Login
svn merge -r 2029:2018 ProhibitNegativeExpressionsInUnlessAndUntilConditions.run.PL
authorJeffrey Ryan Thalhammer <jeff@imaginative-software.com>
Mon, 10 Dec 2007 07:19:04 +0000 (07:19 +0000)
committerJeffrey Ryan Thalhammer <jeff@imaginative-software.com>
Mon, 10 Dec 2007 07:19:04 +0000 (07:19 +0000)
Rolling back revision 2029 because Elliot cringed.

t/ControlStructures/ProhibitNegativeExpressionsInUnlessAndUntilConditions.run.PL

index fd79429..63992ac 100644 (file)
@@ -49,79 +49,76 @@ print "Done.\n\n";
 sub emit_not_operator_code {
     my ($test_file, $operator) = @_;
 
-    my $code_template = <<'END_NOT_OPERATOR_CODE';
+    print {$test_file} <<"END_NOT_OPERATOR_CODE";
 
-## name "%OPERATOR%" within positive control structures
+## name "$operator" within positive control structures
 ## failures 0
 ## cut
 
-if (%OPERATOR% $foo) {
+if ($operator \$foo) {
     blah();
 }
 
-if ($foo) {
-    blah($foo);
+if (\$foo) {
+    blah(\$foo);
 }
-elsif (%OPERATOR% $bar) {
-    blah($bar);
+elsif ($operator \$bar) {
+    blah(\$bar);
 }
 else {
     blah(undef);
 }
 
-while (%OPERATOR% $foo) {
+while ($operator \$foo) {
     blah();
 }
 
-foreach my $bar ( grep { %OPERATOR% $_ } \@foo ) {
-    blah($bar);
+foreach my \$bar ( grep { $operator \$_ } \@foo ) {
+    blah(\$bar);
 }
 
-for (my $bar = 0; %OPERATOR% $bar; $bar++) {
-    blah($bar);
+for (my \$bar = 0; $operator \$bar; \$bar++) {
+    blah(\$bar);
 }
 
 #-----------------------------------------------------------------------------
 
-## name "%OPERATOR%" within positive postfix statement modifiers
+## name "$operator" within positive postfix statement modifiers
 ## failures 0
 ## cut
 
-blah() if %OPERATOR% $foo;
+blah() if $operator \$foo;
 
-blah() while %OPERATOR% $foo;
+blah() while $operator \$foo;
 
-blah($_) for grep { %OPERATOR% $_ } \@foo;
+blah(\$_) for grep { $operator \$_ } \@foo;
 
 #-----------------------------------------------------------------------------
 
-## name "%OPERATOR%" within negative control structures
+## name "$operator" within negative control structures
 ## failures 2
 ## cut
 
-unless (%OPERATOR% $foo) {
+unless ($operator \$foo) {
     blah();
 }
 
-until (%OPERATOR% $foo) {
+until ($operator \$foo) {
     blah();
 }
 
 #-----------------------------------------------------------------------------
 
-## name "%OPERATOR%" within negative postfix statement modifiers
+## name "$operator" within negative postfix statement modifiers
 ## failures 2
 ## cut
 
-blah() unless %OPERATOR% $foo;
+blah() unless $operator \$foo;
 
-blah() until %OPERATOR% $foo;
+blah() until $operator \$foo;
 
 #-----------------------------------------------------------------------------
 END_NOT_OPERATOR_CODE
-
-    $code_template =~ s{%OPERATOR%}{$operator}gmx;
-    print {$test_file} $code_template;
 }
 
 #-----------------------------------------------------------------------------
@@ -206,79 +203,76 @@ END_NOT_MATCH_CODE
 sub emit_comparator_code {
     my ($test_file, $operator) = @_;
 
-    my $code_template = <<'END_COMPARATOR_CODE';
+    print {$test_file} <<"END_COMPARATOR_CODE";
 
-## name "%OPERATOR%" within positive control structures
+## name "$operator" within positive control structures
 ## failures 0
 ## cut
 
-if ($foo %OPERATOR% $bar) {
+if (\$foo $operator \$bar) {
     blah();
 }
 
-if ($foo %OPERATOR% $bar) {
-    blah($foo);
+if (\$foo $operator \$bar) {
+    blah(\$foo);
 }
-elsif ($bar %OPERATOR% $baz) {
-    blah($bar);
+elsif (\$bar $operator \$baz) {
+    blah(\$bar);
 }
 else {
     blah(undef);
 }
 
-while ($foo %OPERATOR% $bar) {
+while (\$foo $operator \$bar) {
     blah();
 }
 
-foreach my $bar ( grep { $_ %OPERATOR% $baz } \@foo ) {
-    blah($bar);
+foreach my \$bar ( grep { \$_ $operator \$baz } \@foo ) {
+    blah(\$bar);
 }
 
-for (my $bar = 0; $bar %OPERATOR% $baz; $bar++) {
-    blah($bar);
+for (my \$bar = 0; \$bar $operator \$baz; \$bar++) {
+    blah(\$bar);
 }
 
 #-----------------------------------------------------------------------------
 
-## name "%OPERATOR%" within positive postfix statement modifiers
+## name "$operator" within positive postfix statement modifiers
 ## failures 0
 ## cut
 
-blah() if $foo %OPERATOR% $bar;
+blah() if \$foo $operator \$bar;
 
-blah() while $foo %OPERATOR% $bar;
+blah() while \$foo $operator \$bar;
 
-blah($_) for grep { $_ %OPERATOR% $bar } \@foo;
+blah(\$_) for grep { \$_ $operator \$bar } \@foo;
 
 #-----------------------------------------------------------------------------
 
-## name "%OPERATOR%" within negative control structures
+## name "$operator" within negative control structures
 ## failures 2
 ## cut
 
-unless ($foo %OPERATOR% $bar) {
+unless (\$foo $operator \$bar) {
     blah();
 }
 
-until ($foo %OPERATOR% $bar) {
+until (\$foo $operator \$bar) {
     blah();
 }
 
 #-----------------------------------------------------------------------------
 
-## name "%OPERATOR%" within negative postfix statement modifiers
+## name "$operator" within negative postfix statement modifiers
 ## failures 2
 ## cut
 
-blah() unless $foo %OPERATOR% $bar;
+blah() unless \$foo $operator \$bar;
 
-blah() until $foo %OPERATOR% $bar;
+blah() until \$foo $operator \$bar;
 
 #-----------------------------------------------------------------------------
 END_COMPARATOR_CODE
-
-    $code_template =~ s{%OPERATOR%}{$operator}gmx;
-    print {$test_file} $code_template;
 }
 
 #-----------------------------------------------------------------------------