User Info

#!/usr/bin/perl -I. use strict; use vars qw($TESTING $DEBUG $SKIP); $TESTING = 1; $DEBUG = $ENV{DEBUG} || 0; use Test; # use a BEGIN block so we print our plan before CGI::FormBuilder is loaded BEGIN { my $numtests = 4; plan tests => $numtests; # try to load template engine so absent template does # not cause all tests to fail eval "require CGI::FastTemplate"; $SKIP = $@ ? 'skip: CGI::FastTemplate not installed here' : 0; # success if we said NOTEST if ($ENV{NOTEST}) { ok(1) for 1..$numtests; exit; } } # Need to fake a request or else we stall $ENV{REQUEST_METHOD} = 'GET'; $ENV{QUERY_STRING} = 'ticket=111&user=pete&replacement=TRUE'; use CGI::FormBuilder; # Create our template and store it in a scalarref my $template = <<'EOT'; User Info Please update your info and hit "Submit". $JS_HEAD $START_FORM $FIELDS $SUBMIT $FORM_END EOT my $fieldtmpl = <<'EOT'; $LABEL$FIELD $COMMENT EOT my $fieldinv = <<'EOT'; $LABEL$FIELD $COMMENT $ERROR EOT # What options we want to use, and what we expect to see my @test = ( { opt => { fields => [qw/name color/], submit => 'No esta una button del resetto', template => { type => 'Fast', define_nofile => { form => $template, field => $fieldinv, field_invalid => $fieldinv, } }, validate => { name => 'NAME' }, }, mod => { color => { options => [qw/red green blue/], label => 'Best Color', value => 'red' }, size => { value => 42 }, sex => { options => [[M=>'Male'],[F=>'Female']] } }, res => q( User Info Please update your info and hit "Submit".

Name Best Color red green blue Sex Male Female Size ), }, { opt => { fields => [qw/name color size/], template => { type => 'Fast', define_nofile => { form => $template, field => $fieldinv, field_invalid => $fieldinv, } }, values => {color => [qw/purple/], size => 8}, submit => 'Start over, boob!', }, mod => { color => { options => [[white=>'White'],[black=>'Black'],[red=>'Green']], label => 'Mom', }, name => { size => 80, maxlength => 80, comment => 'Fuck off' }, sex => { options => [[1=>'Yes'], [0=>'No'], [-1=>'Maybe']], label => 'Fuck me?
' }, }, res => q( User Info Please update your info and hit "Submit". Name Fuck off Mom White Black Green Size Fuck me?
Yes No Maybe ), }, { opt => { fields => [qw/name color email/], submit => [qw/Update Delete/], reset => 0, template => { type => 'Fast', define_nofile => { form => $template, field => $fieldinv, field_invalid => $fieldinv, } }, values => {color => [qw/yellow green orange/]}, validate => { sex => [qw(1 3 5)] }, }, mod => { color => {options => [[red => 1], [blue => 2], [yellow => 3], [pink => 4]] }, size => {comment => '(unknown)', value => undef, force => 1 } , sex => {label => 'glass EYE fucker', options => [[1,2],[3,4],[5,6]] }, }, res => q( User Info Please update your info and hit "Submit". Name Color 1 2 3 4 Email glass EYE fucker 2 4 6 Size (unknown) ), }, ); # Cycle thru and try it out for (@test) { my $form = CGI::FormBuilder->new(action => 'TEST', %{ $_->{opt} }, debug => $DEBUG ); while(my($f,$o) = each %{$_->{mod} || {}}) { $o->{name} = $f; $form->field(%$o); } # just compare the output of render with what's expected my $out; eval "\$out = \$form->render"; my $ok = skip($SKIP, $out, $_->{res}); if (! $ok && $ENV{LOGNAME} eq 'nwiger') { open(O, ">/tmp/fb.1.out"); print O $_->{res}; close O; open(O, ">/tmp/fb.2.out"); print O $out; close O; system "diff /tmp/fb.1.out /tmp/fb.2.out"; exit 1; } } # MORE TESTS DOWN HERE # from eszpee for tmpl_param skip($SKIP, do{ my $form2 = CGI::FormBuilder->new( template => { type => 'Fast', define_nofile => { form => '$TEST', } }, ); $form2->tmpl_param(TEST => "this message should appear"); my $out; eval "\$out = \$form2->render"; $out; }, 'this message should appear');