trunk/t/02-frey-session.t

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

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

use Data::Dump qw/dump/;

my $debug = @ARGV ? 1 : 0;

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

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

ok( my $o = Mock->new( debug => $debug ), 'new' );
diag $o->dump(2) if $debug;

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

foreach my $nr ( 0, 1, 2, 42 ) {
        ok( defined( $o->usage->{test} = $nr ), "write $nr" );
        cmp_ok( $o->usage->{test}, '=', 42, "read $nr" );
}

ok( my $data = $o->session_as_data, 'session_as_data' );
diag $data if $debug;

ok( $o->TODO( "test,ignore" ), 'TODO' );

ok( defined( $o->bugs->{TODO} ), 'TODO' );
ok( my $todo = $o->bugs->{TODO}->{"test,ignore"}, 'have test,ignore' );

diag dump( $todo );
1	#!/usr/bin/perl
2	use strict;
3	use warnings;
4
5	use Test::More tests => 15;
6	use lib 'lib';
7
8	use Data::Dump qw/dump/;
9
10	my $debug = @ARGV ? 1 : 0;
11
12	BEGIN {
13	use_ok('Frey::Session');
14	}
15
16	{
17	package Mock;
18	use Moose;
19	extends 'Frey';
20	with 'Frey::Session';
21	}
22
23	ok( my $o = Mock->new( debug => $debug ), 'new' );
24	diag $o->dump(2) if $debug;
25
26	ok( $o->usage, 'usage' );
27
28	foreach my $nr ( 0, 1, 2, 42 ) {
29	ok( defined( $o->usage->{test} = $nr ), "write $nr" );
30	cmp_ok( $o->usage->{test}, '=', 42, "read $nr" );
31	}
32
33	ok( my $data = $o->session_as_data, 'session_as_data' );
34	diag $data if $debug;
35
36	ok( $o->TODO( "test,ignore" ), 'TODO' );
37
38	ok( defined( $o->bugs->{TODO} ), 'TODO' );
39	ok( my $todo = $o->bugs->{TODO}->{"test,ignore"}, 'have test,ignore' );
40
41	diag dump( $todo );