4 |
|
|
5 |
my $debug = @ARGV ? 1 : 0; |
my $debug = @ARGV ? 1 : 0; |
6 |
|
|
7 |
use Test::More tests => 25; |
use Test::More tests => 26; |
8 |
use lib 'lib'; |
use lib 'lib'; |
9 |
|
|
10 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
28 |
ok( my $html = $o->params_form, 'params_form' ); |
ok( my $html = $o->params_form, 'params_form' ); |
29 |
diag $html if $debug; |
diag $html if $debug; |
30 |
like( $html, qr/<form/, 'has form' ); |
like( $html, qr/<form/, 'has form' ); |
31 |
|
unlike( $html, qr/HASH/, 'no HASH' ); |
32 |
|
|
33 |
ok( ! $o->params->{uri}, "don't pollute params" ); |
ok( ! $o->params->{uri}, "don't pollute params" ); |
34 |
|
|