#!/usr/bin/perl use strict; use vars qw($TESTING); $TESTING = 1; use Test; # use a BEGIN block so we print our plan before CGI::FormBuilder is loaded BEGIN { plan tests => 10 } # 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; # UNIX test #my $NOT_UNIX = -d '/usr' ? 0 : 1; my $NOT_UNIX = 0; #warn "# VERSION = $CGI::FormBuilder::VERSION\n"; # What options we want to use, and what we expect to see my @test = ( { opt => { fields => [qw/name email/] }, res => q(
Name
Email
) }, { opt => { fields => [qw/Upper Case/], values => { Upper => 1, Case => 0 } }, res => q(
Upper
Case
), }, { opt => { fields => [qw/first_name last_name/], submit => 'Update', reset => 0 }, res => q(
First Name
Last Name
), }, { opt => { fields => [qw/first_name last_name/], submit => 'Update', reset => 0, header => 1, body => {bgcolor => 'black'} }, res => q(Content-type: text/html 00generate

00generate

First Name
Last Name
), }, { opt => { fields => {first_name => 'Nate', email => 'nate@wiger.org' }, validate => {email => 'EMAIL'}, required => [qw/first_name/] }, res => q(

Fields shown in bold are required.

Email (name@host.domain)
First Name
), }, { # utilize our query_string to test stickiness opt => { fields => [qw/ticket user part_number/], method => 'POST', keepextras => 1, validate => { ticket => '/^\d+$/' }, submit => [qw/Update Delete Cancel/], }, res => q(

Fields shown in bold are required.

Ticket
User
Part Number
), }, { # max it out, baby opt => { fields => [qw/supply demand/], values => { supply => [qw/1 2 3 4 5/], demand => [qw/6 7 8 9 0/] }, method => 'PUT', title => 'Econ 101', action => '/nowhere.cgi', header => 1, name => 'econ', font => 'arial,helvetica', fieldtype => 'select' }, res => q(Content-type: text/html Econ 101

Econ 101

Supply
Demand
), }, { opt => { fields => [qw/db:name db:type db:tab ux:user ux:name/], static => 1 }, res => q(
Db Name
Db Type
Db Tab
Ux User
Ux Name
), }, { # single-line search thing ala Yahoo! opt => { fields => 'search', submit => 'Go', reset => 0 }, res => q(
Search
), }, { opt => { fields => [qw/hostname domain/], header => 1, keepextras => 1, values => [qw/localhost localdomain/], validate => {hostname => 'HOST', domain => 'DOMAIN'}, }, res => q(Content-type: text/html 00generate

00generate

Fields shown in bold are required.
Hostname
Domain
), }, ); # Cycle thru and try it out for (@test) { my $form = CGI::FormBuilder->new( %{ $_->{opt} } ); while(my($f,$o) = each %{$_->{mod} || {}}) { $o->{name} = $f; $form->field(%$o); } # skip all tests on non-UNIX platforms because of fucking CRLF skip($NOT_UNIX, $form->render, $_->{res}); }