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

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