trunk/t/20-fey-web-row.t

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

my $debug = shift @ARGV;

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

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

BEGIN {
        use_ok('Strix::View::User');
}

ok( my $u = Strix::View::User->new( id => 1 ), 'new' );
isa_ok( $u, 'Strix::View::User' );

diag dump( $u ) if $debug;

ok( my @c = $u->meta->get_attribute_list , 'get_attribute_list' );
diag dump( @c ) if $debug;

#while ( $u = $i->next ) {
#       isa_ok( $u, 'Strix::View::User' );
#}

ok( my $h = $u->process(), 'process' );
diag $h if $debug;
1	dpavlin	63	#!/usr/bin/perl
2			use strict;
3			use warnings;
4
5			my $debug = shift @ARGV;
6
7			use Test::More tests => 5;
8			use lib 'lib';
9
10			#use Devel::LeakTrace::Fast;
11			use Data::Dump qw/dump/;
12
13			BEGIN {
14			use_ok('Strix::View::User');
15			}
16
17			ok( my $u = Strix::View::User->new( id => 1 ), 'new' );
18			isa_ok( $u, 'Strix::View::User' );
19
20			diag dump( $u ) if $debug;
21
22			ok( my @c = $u->meta->get_attribute_list , 'get_attribute_list' );
23			diag dump( @c ) if $debug;
24
25			#while ( $u = $i->next ) {
26			# isa_ok( $u, 'Strix::View::User' );
27			#}
28
29			ok( my $h = $u->process(), 'process' );
30			diag $h if $debug;