trunk/t/20-frey-web-crud.t

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

my $debug = @ARGV ? 1 : 0;

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

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

BEGIN {
        use_ok('Frey::Web::CRUD');
        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::CRUD->new( fey_class => ref($fey), fey => $fey ), 'new' );
isa_ok( $u, 'Frey::Web::CRUD' );

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::CRUD' );
#}

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