trunk/t/02-Frey-Sponge.t

#!/usr/bin/perl
use strict;
use warnings;

my $debug = @ARGV ? 1 : 0;

use Test::More tests => 3;
use lib 'lib';

use Data::Dump qw/dump/;

BEGIN {
        use_ok('Frey::Sponge');
}

{
        package Mock;
        use Moose;
        extends 'Frey';
        with 'Frey::Sponge';
}

ok( my $o = Mock->new(
        debug => $debug,
        sponge => {
                NAME => [ qw/foo bar baz/ ],
                rows => [
                        [ 1, 2, 3 ],
                        [ 0, 0, undef ],
                ],
        },
), 'new' );
diag $o->dump(2) if $debug;

ok( $o->sponge, 'sponge' );

1	dpavlin	920	#!/usr/bin/perl
2			use strict;
3			use warnings;
4
5			my $debug = @ARGV ? 1 : 0;
6
7			use Test::More tests => 3;
8			use lib 'lib';
9
10			use Data::Dump qw/dump/;
11
12			BEGIN {
13			use_ok('Frey::Sponge');
14			}
15
16			{
17			package Mock;
18			use Moose;
19			extends 'Frey';
20			with 'Frey::Sponge';
21			}
22
23			ok( my $o = Mock->new(
24			debug => $debug,
25			sponge => {
26			NAME => [ qw/foo bar baz/ ],
27			rows => [
28			[ 1, 2, 3 ],
29			[ 0, 0, undef ],
30			],
31			},
32			), 'new' );
33			diag $o->dump(2) if $debug;
34
35			ok( $o->sponge, 'sponge' );
36