Dogcows Code - chaz/p5-CGI-Ex/blob - t/2_fill_20_switcharoo.t

   1 # -*- Mode: Perl; -*-
   2
   3 use strict;
   4 $^W = 1;
   5 print "1..27\n";
   6 use CGI::Ex;
   7 print "ok 1\n";
   8
   9
  10 my $string;
  11 my %fdat = (foo1 => 'bar1');
  12 my $cgix = new CGI::Ex;
  13 my $n    = 1;
  14 my $dook = sub {
  15   $n ++;
  16   print "$n - ($string)\n";
  17   my @a;
  18   if ($string =~ m/ value=([\"\'])bar1\1/i
  19       && 1 == scalar(@a=$string =~ m/(value)/gi)) {
  20     print "ok $n\n";
  21   } else {
  22     print "not ok $n\n";
  23   }
  24 };
  25
  26 ###----------------------------------------------------------------###
  27
  28 $string = qq{<input name="foo1">};
  29 $cgix->fill(text => \$string, form => \%fdat);
  30 &$dook();
  31
  32 $string = qq{<input name=foo1>};
  33 $cgix->fill(text => \$string, form => \%fdat);
  34 &$dook();
  35
  36 $string = qq{<input name=foo1 />};
  37 $cgix->fill(text => \$string, form => \%fdat);
  38 &$dook();
  39
  40 $string = qq{<input value name="foo1">};
  41 $cgix->fill(text => \$string, form => \%fdat);
  42 &$dook();
  43
  44 $string = qq{<input value value name="foo1">};
  45 $cgix->fill(text => \$string, form => \%fdat);
  46 &$dook();
  47
  48 $string = qq{<input value value="" name="foo1">};
  49 $cgix->fill(text => \$string, form => \%fdat);
  50 &$dook();
  51
  52 $string = qq{<input grrr name="foo1" value="">};
  53 $cgix->fill(text => \$string, form => \%fdat);
  54 &$dook();
  55
  56 $string = qq{<input value= name="foo1">};
  57 $cgix->fill(text => \$string, form => \%fdat);
  58 &$dook();
  59
  60 $string = qq{<input type=hidden value= name="foo1">};
  61 $cgix->fill(text => \$string, form => \%fdat);
  62 &$dook();
  63
  64 $string = qq{<input value= type="hidden" name="foo1">};
  65 $cgix->fill(text => \$string, form => \%fdat);
  66 &$dook();
  67
  68 $string = qq{<input value="" name="foo1">};
  69 $cgix->fill(text => \$string, form => \%fdat);
  70 &$dook();
  71
  72 $string = qq{<input value='' name="foo1">};
  73 $cgix->fill(text => \$string, form => \%fdat);
  74 &$dook();
  75
  76 $string = qq{<input value='one' name="foo1">};
  77 $cgix->fill(text => \$string, form => \%fdat);
  78 &$dook();
  79
  80 $string = qq{<input Value="one" name="foo1">};
  81 $cgix->fill(text => \$string, form => \%fdat);
  82 &$dook();
  83
  84 $string = qq{<input VALUE="one" name="foo1">};
  85 $cgix->fill(text => \$string, form => \%fdat);
  86 &$dook();
  87
  88 $string = qq{<input name="foo1" value="one">};
  89 $cgix->fill(text => \$string, form => \%fdat);
  90 &$dook();
  91
  92 $string = qq{<INPUT NAME="foo1" VALUE="one">};
  93 $cgix->fill(text => \$string, form => \%fdat);
  94 &$dook();
  95
  96 $string = qq{<INPUT NAME="foo1" VALUE="one" >};
  97 $cgix->fill(text => \$string, form => \%fdat);
  98 &$dook();
  99
 100 $string = qq{<INPUT NAME="foo1" VALUE="" >};
 101 $cgix->fill(text => \$string, form => \%fdat);
 102 &$dook();
 103
 104 $string = qq{<INPUT NAME="foo1" VALUE= >};
 105 $cgix->fill(text => \$string, form => \%fdat);
 106 &$dook();
 107
 108 $string = qq{<INPUT NAME="foo1" VALUE >};
 109 $cgix->fill(text => \$string, form => \%fdat);
 110 &$dook();
 111
 112 $string = qq{<INPUT NAME="foo1" VALUE />};
 113 $cgix->fill(text => \$string, form => \%fdat);
 114 &$dook();
 115
 116 $string = qq{<INPUT NAME="foo1" VALUE= />};
 117 $cgix->fill(text => \$string, form => \%fdat);
 118 &$dook();
 119
 120 $string = qq{<INPUT NAME="foo1" VALUE="" />};
 121 $cgix->fill(text => \$string, form => \%fdat);
 122 &$dook();
 123
 124 $string = qq{<INPUT NAME="foo1" VALUE="one" />};
 125 $cgix->fill(text => \$string, form => \%fdat);
 126 &$dook();
 127
 128 $string = qq{<INPUT NAME="foo1" VALUE="one" />};
 129 $cgix->fill(text => \$string, form => \%fdat);
 130 &$dook();
 131
 132