Arh/t/00-action-ToggleEdit.t

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

=head1 DESCRIPTION

A (very) basic test harness for the ToggleEdit action.

=cut

use Jifty::Test tests => 20;
use Data::Dump qw/dump/;

# Make sure we can load the action
use_ok('Arh::Action::ToggleEdit');


ok( my $web = Jifty::Test->web, 'web' );

ok( $web->current_user->user_object->load_by_cols( email => 'admin@example.com' ), 'admin' );

ok( $web->current_user->editing, 'edit on' );

sub run_action {

        ok(my $a = $web->new_action(
                class => 'ToggleEdit',
        ), 'new_action ToggleEdit');

        ok( $a->run, 'run' );

        ok( my $message = $a->result->message, 'message' );
        diag dump($message);

        if ( $message =~ m/off/ ) {
                ok( ! $web->current_user->editing, 'edit off' );
        } else {
                ok( $web->current_user->editing, 'edit on' );
        }

}

run_action foreach ( 1 .. 4 );

1	dpavlin	23	#!/usr/bin/env perl
2			use warnings;
3			use strict;
4
5			=head1 DESCRIPTION
6
7			A (very) basic test harness for the ToggleEdit action.
8
9			=cut
10
11	dpavlin	34	use Jifty::Test tests => 20;
12	dpavlin	23	use Data::Dump qw/dump/;
13
14			# Make sure we can load the action
15			use_ok('Arh::Action::ToggleEdit');
16
17
18			ok( my $web = Jifty::Test->web, 'web' );
19
20			ok( $web->current_user->user_object->load_by_cols( email => 'admin@example.com' ), 'admin' );
21
22	dpavlin	34	ok( $web->current_user->editing, 'edit on' );
23	dpavlin	23
24			sub run_action {
25
26			ok(my $a = $web->new_action(
27			class => 'ToggleEdit',
28			), 'new_action ToggleEdit');
29
30			ok( $a->run, 'run' );
31
32	dpavlin	34	ok( my $message = $a->result->message, 'message' );
33			diag dump($message);
34
35			if ( $message =~ m/off/ ) {
36			ok( ! $web->current_user->editing, 'edit off' );
37			} else {
38			ok( $web->current_user->editing, 'edit on' );
39			}
40
41	dpavlin	23	}
42
43	dpavlin	34	run_action foreach ( 1 .. 4 );
44	dpavlin	23