trunk/t/08-Frey-ORM-Browser.t

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

my $debug = @ARGV ? 1 : 0;

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

#use Devel::LeakTrace::Fast;
use Data::Dump qw/dump/;

BEGIN {
        use_ok('Frey::ORM::Browser');
}

ok( my $o = Frey::ORM::Browser->new( fey_class => 'Strix::User', debug => $debug ), 'new' );
isa_ok( $o, 'Frey::ORM::Browser' );
diag dump( $o ) if $debug;

1	dpavlin	60	#!/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 Devel::LeakTrace::Fast;
11			use Data::Dump qw/dump/;
12
13			BEGIN {
14	dpavlin	969	use_ok('Frey::ORM::Browser');
15	dpavlin	60	}
16
17	dpavlin	969	ok( my $o = Frey::ORM::Browser->new( fey_class => 'Strix::User', debug => $debug ), 'new' );
18			isa_ok( $o, 'Frey::ORM::Browser' );
19	dpavlin	60	diag dump( $o ) if $debug;
20