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::Web');
}

{
        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	dpavlin	428	#!/usr/bin/perl
2			use strict;
3			use warnings;
4
5	dpavlin	562	use Test::More tests => 15;
6	dpavlin	428	use lib 'lib';
7
8			use Data::Dump qw/dump/;
9
10			my $debug = @ARGV ? 1 : 0;
11
12			BEGIN {
13			use_ok('Frey::Web');
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	dpavlin	675	ok( my $data = $o->session_as_data, 'session_as_data' );
34	dpavlin	428	diag $data if $debug;
35	dpavlin	562
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 );