Parent Directory | Revision Log
use Frey::Bootstrap to fix test
1 | dpavlin | 402 | #!/usr/bin/perl |
2 | use strict; | ||
3 | use warnings; | ||
4 | |||
5 | my $debug = @ARGV ? 1 : 0; | ||
6 | |||
7 | dpavlin | 864 | use Test::More tests => 8; |
8 | dpavlin | 402 | use lib 'lib'; |
9 | |||
10 | use Data::Dump qw/dump/; | ||
11 | |||
12 | BEGIN { | ||
13 | dpavlin | 864 | use_ok('Frey::Bootstrap'); |
14 | dpavlin | 402 | use_ok('Frey::Run'); |
15 | } | ||
16 | |||
17 | dpavlin | 864 | ok( my $o = Frey::Run->new( class => 'Frey::Feed', request_url => '/', debug => $debug ), "Frey::Feed" ); |
18 | dpavlin | 402 | ok( my $html = $o->html ); |
19 | diag $html if $debug; | ||
20 | |||
21 | dpavlin | 455 | ok( $o->run('as_sponge'), 'as_ponge' ); |
22 | dpavlin | 402 | ok( $html = $o->html ); |
23 | diag $html if $debug; | ||
24 | |||
25 | ok( my $pod = Frey::Run->new( class => 'Frey::Pod', params => { class => 'Frey::Pod' } ), 'Frey::Pod' ); | ||
26 | ok( $html = $o->html ); | ||
27 | diag $html if $debug; |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |