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	#!/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