t/system_message.t

   1 use Test::Most tests => 5;
   2 use Path::Class;
   3
   4 use lib 't/lib';
   5 use aliased 'SGN::Test::WWW::Mechanize';
   6 my $mech = Mechanize->new;
   7
   8 $mech->with_test_level( local => sub {
   9     my $c = $mech->context;
  10
  11     my $message_file = $c->config->{system_message_file}
  12         or die "must have a system_message_file conf var defined";
  13
  14   SKIP: {
  15         skip "system message file $message_file already exists, not overwriting for test", 5
  16             if -f $message_file;
  17
  18         $mech->get_ok('/');
  19         $mech->content_lacks('system message active', 'no system message if no message file');
  20
  21         file($message_file)->openw->write('Testing site-wide message system');
  22
  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');
  26
  27         unlink $message_file;
  28     }
  29
  30 }, 5);
  31