no-pager/t/02-frey-session.t

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

use Test::More tests => 12;
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->data, 'data' );
diag $data if $debug;
1	dpavlin	428	#!/usr/bin/perl
2			use strict;
3			use warnings;
4
5			use Test::More tests => 12;
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::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			ok( my $data = $o->data, 'data' );
34			diag $data if $debug;