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

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

my $debug = shift @ARGV;

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

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

BEGIN {
        use_ok('Frey::Web::Row');
}

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' );
isa_ok( $u, 'Frey::Web::Row' );

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, 'Frey::Web::Row' );
#}

ok( my $h1 = $u->process(), 'process view/div' );
diag $h1 if $debug;
like( $h1, qr|<div class="view">|, 'div view' );

$u->render_as('edit');
ok( my $h2 = $u->process(), 'process edit/div' );
diag $h2 if $debug;
like( $h2, qr|<div class="editform">|, 'div editform' );

cmp_ok( $h1, 'ne', $h2, 'view and edit differs' );

$u->layout('table');
$u->render_as('view');
ok( $h1 = $u->process(), 'process view/table' );
diag $h1 if $debug;
like( $h1, qr|<tr>|, 'tr' );

$u->render_as('edit');
ok( $h2 = $u->process(), 'process edit/table' );
diag $h2 if $debug;
like( $h2, qr|<tr>|, 'tr' );

cmp_ok( $h1, 'ne', $h2, 'view and edit differs' );

$u->layout('columns');
$u->render_as('view');
ok( $h1 = $u->process(), 'process view/table' );
diag $h1 if $debug;
like( $h1, qr|<tr>|, 'tr' );

$u->render_as('edit');
ok( $h2 = $u->process(), 'process edit/table' );
diag $h2 if $debug;
like( $h2, qr|<tr|, 'tr' );

cmp_ok( $h1, 'ne', $h2, 'view and edit differs' );

1	dpavlin	63	#!/usr/bin/perl
2			use strict;
3			use warnings;
4
5			my $debug = shift @ARGV;
6
7	dpavlin	98	use Test::More tests => 20;
8	dpavlin	63	use lib 'lib';
9
10			#use Devel::LeakTrace::Fast;
11			use Data::Dump qw/dump/;
12
13			BEGIN {
14	dpavlin	98	use_ok('Frey::Web::Row');
15	dpavlin	63	}
16
17	dpavlin	98	ok( my $fey = Strix::User->new( id => 1, ime => 'foo', prezime => 'bar' ), 'Strix::User' );
18			diag dump( $fey ) if $debug;
19	dpavlin	63
20	dpavlin	98	ok( my $u = Frey::Web::Row->new( fey => $fey ), 'new' );
21			isa_ok( $u, 'Frey::Web::Row' );
22
23	dpavlin	63	diag dump( $u ) if $debug;
24
25			ok( my @c = $u->meta->get_attribute_list , 'get_attribute_list' );
26			diag dump( @c ) if $debug;
27
28			#while ( $u = $i->next ) {
29	dpavlin	98	# isa_ok( $u, 'Frey::Web::Row' );
30	dpavlin	63	#}
31
32	dpavlin	89	ok( my $h1 = $u->process(), 'process view/div' );
33			diag $h1 if $debug;
34			like( $h1, qr\|<div class="view">\|, 'div view' );
35
36	dpavlin	98	$u->render_as('edit');
37	dpavlin	89	ok( my $h2 = $u->process(), 'process edit/div' );
38			diag $h2 if $debug;
39			like( $h2, qr\|<div class="editform">\|, 'div editform' );
40
41			cmp_ok( $h1, 'ne', $h2, 'view and edit differs' );
42
43	dpavlin	98	$u->layout('table');
44			$u->render_as('view');
45	dpavlin	95	ok( $h1 = $u->process(), 'process view/table' );
46			diag $h1 if $debug;
47			like( $h1, qr\|<tr>\|, 'tr' );
48	dpavlin	89
49	dpavlin	98	$u->render_as('edit');
50	dpavlin	95	ok( $h2 = $u->process(), 'process edit/table' );
51			diag $h2 if $debug;
52			like( $h2, qr\|<tr>\|, 'tr' );
53	dpavlin	89
54	dpavlin	95	cmp_ok( $h1, 'ne', $h2, 'view and edit differs' );
55	dpavlin	89
56	dpavlin	98	$u->layout('columns');
57			$u->render_as('view');
58	dpavlin	95	ok( $h1 = $u->process(), 'process view/table' );
59			diag $h1 if $debug;
60			like( $h1, qr\|<tr>\|, 'tr' );
61
62	dpavlin	98	$u->render_as('edit');
63	dpavlin	95	ok( $h2 = $u->process(), 'process edit/table' );
64			diag $h2 if $debug;
65			like( $h2, qr\|<tr\|, 'tr' );
66
67			cmp_ok( $h1, 'ne', $h2, 'view and edit differs' );
68