--- trunk/t/20-fey-web-row.t 2008/07/11 19:19:42 100 +++ trunk/t/20-fey-web-row.t 2008/07/11 22:54:42 101 @@ -4,7 +4,7 @@ my $debug = shift @ARGV; -use Test::More tests => 20; +use Test::More tests => 21; use lib 'lib'; #use Devel::LeakTrace::Fast; @@ -12,12 +12,13 @@ BEGIN { use_ok('Frey::Web::Row'); + use_ok('Strix::User'); } ok( my $fey = Strix::User->new( id => 1, ime => 'foo', prezime => 'bar' ), 'Strix::User' ); diag dump( $fey ) if $debug; -ok( my $u = Frey::Web::Row->new( fey => $fey ), 'new' ); +ok( my $u = Frey::Web::Row->new( fey_class => ref($fey), fey => $fey ), 'new' ); isa_ok( $u, 'Frey::Web::Row' ); diag dump( $u ) if $debug;