Merge branch 'master' into topic/simple_image_upload
[sgn.git] / t / unit_mech / Controller / system_message.t
blobe9cb5843c2a6c7dd72b4802d615e32009c1ad560
1 use Test::Most tests => 5;
2 use Path::Class;
4 use lib 't/lib';
5 use aliased 'SGN::Test::WWW::Mechanize';
6 my $mech = Mechanize->new;
8 $mech->with_test_level( local => sub {
9     my $c = $mech->context;
11     my $message_file = $c->config->{system_message_file}
12         or die "must have a system_message_file conf var defined";
14   SKIP: {
15         skip "system message file $message_file already exists, not overwriting for test", 5
16             if -f $message_file;
18         $mech->get_ok('/');
19         $mech->content_lacks('system message active', 'no system message if no message file');
21         file($message_file)->openw->write('Testing site-wide message system');
23         $mech->get_ok('/');
24         $mech->content_contains('system message active', 'system message file, now have system message');
25         $mech->content_contains('Testing site-wide message system', 'got actual message');
27         unlink $message_file;
28     }
30 }, 5);