t/legacy/integration/solpeople/sequencer.t

   1 =head1 NAME
   2
   3 t/integration/solpeople/sequencer.t - tests for sequencer users on solpeople URLs
   4
   5 =head1 DESCRIPTION
   6
   7 Tests for sequencer user_types on solpeople URLs
   8
   9 =head1 AUTHORS
  10
  11 Jonathan "Duke" Leto
  12
  13 =cut
  14
  15 use strict;
  16 use warnings;
  17 use Test::More;
  18 use Test::JSON;
  19 use lib 't/lib';
  20 use SGN::Test;
  21 use SGN::Test::WWW::Mechanize;
  22
  23 my $mech = SGN::Test::WWW::Mechanize->new;
  24
  25 $mech->while_logged_in({ user_type => 'sequencer' }, sub {
  26     $mech->get_ok('/solpeople/attribute_bacs.pl');
  27     $mech->content_contains('How to attribute a BAC to a sequencing project');
  28
  29     $mech->get_ok('/maps/physical/clone_reg.pl');
  30     $mech->content_contains('BAC Registry Viewer/Editor');
  31
  32     $mech->get_ok('/maps/physical/clone_il_view.pl');
  33     $mech->content_contains('Clone IL Mapping Assignments');
  34 });
  35
  36 done_testing;