Parent Directory | Revision Log | Patch
trunk/t/50-strix-user.t revision 143 by dpavlin, Wed Jul 16 14:17:46 2008 UTC | branches/dbic/t/50-strix-user.t revision 998 by dpavlin, Sun Jan 11 22:54:35 2009 UTC | |
---|---|---|
# | Line 2 | Line 2 |
2 | use strict; | use strict; |
3 | use warnings; | use warnings; |
4 | ||
5 | my $debug = shift @ARGV; | my $debug = @ARGV ? 1 : 0; |
6 | ||
7 | use Test::More tests => 10; | use Test::More tests => 10; |
8 | use lib 'lib'; | use lib 'lib'; |
# | Line 12 use Data::Dump qw/dump/; | Line 12 use Data::Dump qw/dump/; |
12 | ||
13 | BEGIN { | BEGIN { |
14 | use_ok('Strix::User'); | use_ok('Strix::User'); |
use_ok('Frey::Pager'); | ||
15 | } | } |
16 | ||
17 | ok( my $u = Strix::User->new( id => 1 ), 'new' ); | ok( my $u = Strix::User->new( id => 1 ), 'new' ); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |