#!/usr/bin/perl -I.
use strict;
use vars qw($TESTING $DEBUG);
$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 = 20;
plan tests => $numtests;
# 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&action=Unsubscribe&name=Pete+Peteson&email=pete%40peteson.com&extra=junk';
use CGI 'header';
use CGI::FormBuilder;
use CGI::FormBuilder::Source::File;
# egads this part is annoying due to line disciplines
my $h = header();
# For testing sortopts in test 18
sub refsort {
$_[0] <=> $_[1]
}
sub getopts {
return [99,9,8,83,7,73,6,61,66,5,4,104,3,2,10,1,101];
}
# What options we want to use, and what we expect to see
my @test = (
#1
{
str => '
fields:
name
email
sticky: 0
',
res => q(
)
},
#2
{
str => '
# comment
fields:
Upper:
type: password
Case
values:
Upper: 1
Case: 0
',
res => q(
),
},
#3
{
str => '
# test three
fields:
first_name
last_name
submit: Update
reset: 0
',
res => q(
),
},
#4
{
str => '
fields:
first_name
last_name:
type: text
submit: Update
reset: 0
header: 1
body:
bgcolor: black
',
res => $h . q(TEST
TEST
),
},
#5
{
str => '
# rewritten fields hash
# as a set of values
fields:
email:
required: 0
first_name:
required: 1
values:
first_name: Nate
email: nate@wiger.org
validate:
email: EMAIL
sticky: 0
',
res => q(
Fields that are highlighted are required.
),
},
#6
{
# utilize our query_string to test stickiness
str => '
fields:
ticket
user
part_number
method: POST
keepextras: 1
validate:
ticket: /^\d+$/
submit: Update,Delete,Cancel
',
res => q(