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	#!/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' );