t/integration/phenome.t

   1 =head1 NAME
   2
   3 t/integration/phenome.t - tests for Phenome URLs
   4
   5 =head1 DESCRIPTION
   6
   7 Tests for Phenome 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 $base_url = $ENV{SGN_TEST_SERVER};
  24 my $mech = SGN::Test::WWW::Mechanize->new;
  25
  26 $mech->while_logged_in_all( sub {
  27     my ($user_info) = @_;
  28     $mech->get_ok('/phenome/qtl_form.pl');
  29     $mech->submit_form_ok( {
  30         form_number => 2,
  31         fields => {
  32         },
  33     },
  34     );
  35     $mech->content_contains('Submit Population Details');
  36     $mech->content_contains('Select Organism');
  37     $mech->content_contains('Population Details');
  38 });
  39
  40 done_testing;