#!/usr/bin/perl -wT
# test3a.pl
use CGI;
use strict;
use Test::Simple tests => 11;
use Scalar::Util qw(tainted);
my $c = CGI->new();

pr($c->header());
pr($c->start_html());
pr("print world");
pr($c->param());
pr($c->param("blah"));
pr($c->hidden(-name=>"blah"));
pr($c->start_form());
pr($c->self_url());
pr($c->submit());
pr($c->end_form());
pr($c->end_html());

sub pr {
    my @thingy = shift;
    foreach my $t (@thingy) {
        ok(!tainted($t), $t);
    }
}