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

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

my $debug = @ARGV ? 1 : 0;

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

use Data::Dump qw/dump/;

BEGIN {
        use_ok('Frey::Web::Editable');
        use_ok('Strix::User');
}

ok( my $u = Frey::Web::Editable->new( name => 'test', value => 42 ), 'new' );
isa_ok( $u, 'Frey::Web::Editable' );

diag dump( $u ) if $debug;

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

ok( my $h1 = $u->process(), 'process view' );
diag $h1 if $debug;
like( $h1, qr|^42$|, 'view' );

$u->render_as('edit');
ok( my $h2 = $u->process(), 'process edit' );
diag $h2 if $debug;
like( $h2, qr|input.*42|, 'view' );

cmp_ok( length($h2), '>', length($h1), 'edit bigger' );
1	dpavlin	149	#!/usr/bin/perl
2			use strict;
3			use warnings;
4
5			my $debug = @ARGV ? 1 : 0;
6
7			use Test::More tests => 10;
8			use lib 'lib';
9
10			use Data::Dump qw/dump/;
11
12			BEGIN {
13			use_ok('Frey::Web::Editable');
14			use_ok('Strix::User');
15			}
16
17			ok( my $u = Frey::Web::Editable->new( name => 'test', value => 42 ), 'new' );
18			isa_ok( $u, 'Frey::Web::Editable' );
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			ok( my $h1 = $u->process(), 'process view' );
26			diag $h1 if $debug;
27			like( $h1, qr\|^42$\|, 'view' );
28
29			$u->render_as('edit');
30			ok( my $h2 = $u->process(), 'process edit' );
31			diag $h2 if $debug;
32			like( $h2, qr\|input.*42\|, 'view' );
33
34			cmp_ok( length($h2), '>', length($h1), 'edit bigger' );