t/legacy/integration/markup_string.t

   1 use strict;
   2 use warnings;
   3
   4 use SGN::Context;
   5 use Bio::PrimarySeq;
   6
   7 use Test::More;
   8
   9 use lib 't/lib';
  10 BEGIN { $ENV{SGN_SKIP_CGI} = 1 }
  11 use SGN::Test qw/ ctx_request /;
  12 use SGN::Test::WWW::Mechanize;
  13
  14 my $mech = SGN::Test::WWW::Mechanize->new;
  15 $mech->with_test_level( process => sub {
  16    my ( undef, $c ) = ctx_request('/');
  17
  18    my $test_string = 'fooish bar in the mailbox';
  19    { my $html = $c->render_mason('/util/markup_string.mas',
  20                                  string => $test_string,
  21                                 );
  22
  23      like( $html, qr|^\s*$test_string\s*$|, 'outputs string and nothing else if no styles' );
  24    }
  25
  26
  27    { my $html = $c->render_mason('/util/markup_string.mas',
  28                                  string => $test_string,
  29                                  styles => { foo => ['<span class="foo">','</span>'] },
  30                                  regions => [ [ 'foo', 0, 3 ] ],
  31                                 );
  32
  33      like( $html, qr|$test_string|, 'test string is in single-region markup' );
  34      like( $html, qr|<span class=\\"foo\\">|, 'markup string is present' );
  35    }
  36 });
  37
  38
  39 done_testing;
  40