t/system_message.t

   1 use Test::Most tests => 2;
   2 use File::Temp;
   3
   4 use SGN::Context;
   5 use CXGN::MasonFactory;
   6
   7 my $c = SGN::Context->new;
   8
   9 my $tempfile = File::Temp->new;
  10 $tempfile->print("fogbat!");
  11 $tempfile->close;
  12
  13 $c->config->{system_message_file} = undef;
  14 is( CXGN::MasonFactory->bare_render('/system_message.mas' ),
  15     '',
  16     'system message is empty for no message file'
  17    );
  18
  19 # correctly set system_message_file var
  20 $c->config->{system_message_file} = "$tempfile";
  21 like( CXGN::MasonFactory->bare_render('/system_message.mas'),
  22       qr/fogbat/,
  23       'system message looks correct'
  24      );