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	#!/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	use Jifty::Test tests => 20;
12	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	ok( $web->current_user->editing, 'edit on' );
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	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	}
42
43	run_action foreach ( 1 .. 4 );
44