# -*- Mode: Perl; -*- use strict; $^W = 1; print "1..1\n"; use HTML::FillInForm; use CGI; my $html = < Canceled
Confirmed
Wait List
No Show
Moved to Another Class
Late Cancel
EOF my $q = CGI->new; $q->param('status', 1 ); my $fif = HTML::FillInForm->new; my $output = $fif->fill( scalarref => \$html, fobject => $q ); my $matches; while ($output =~ m!( />)!g) { $matches++; } if ($matches == 6) { print "ok 1\n"; } else { print "not ok 1\n"; } print $output;