10 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
11 |
|
|
12 |
BEGIN { |
BEGIN { |
13 |
use_ok('Frey::Designer'); |
use_ok('Frey::HTML::Designer'); |
14 |
} |
} |
15 |
|
|
16 |
ok( my $o = Frey::Designer->new( debug => $debug, uri => 'http://localhost' ), 'new' ); |
ok( my $o = Frey::HTML::Designer->new( debug => $debug, uri => 'http://localhost' ), 'new' ); |
17 |
isa_ok( $o, 'Frey::Designer' ); |
isa_ok( $o, 'Frey::HTML::Designer' ); |
18 |
diag dump( $o ) if $debug; |
diag dump( $o ) if $debug; |
19 |
|
|
20 |
ok( defined $o->uri, 'uri' ); |
ok( defined $o->uri, 'uri' ); |