-$fif = new CGI::Ex;
-$output = $fif->fill(scalarref => \$hidden_form_in,
- fobject => $q);
-if ($output =~ m!^<select name="foo1"><option><option( selected(="selected")?| value="bar1"){2}></select>$!){
- print "ok 5\n";
-} else {
- print "Got unexpected output for empty option:\n$output\n";
- print "not ok 5\n";
-}
+$output = CGI::Ex::Fill::form_fill($hidden_form_in,
+ $q);
+ok($output =~ m!^<select name="foo1"><option><option( selected(="selected")?| value="bar1"){2}></select>$!,
+ "Should match ($output)");