t/legacy/integration/biosource.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::More tests => 7;
   6
   7 use lib 't/lib';
   8 use SGN::Test::WWW::Mechanize;
   9
  10 use CXGN::Biosource::Schema;
  11
  12 my $mech = SGN::Test::WWW::Mechanize->new;
  13
  14 ## First take variables for the test from the database ##
  15
  16 my @schema_list = ('biosource', 'metadata', 'public');
  17 my $schema_list = join(',', @schema_list);
  18 my $set_path = "SET search_path TO $schema_list";
  19
  20 my $dbh = $mech->context()->dbc()->dbh();
  21
  22 my $bs_schema = CXGN::Biosource::Schema->connect( sub { $dbh },
  23                                                   {on_connect_do => $set_path} );
  24
  25
  26 ## WWW.SAMPLE TEST ###
  27
  28 my ($first_sample_row) = $bs_schema->resultset('BsSample')
  29                                    ->search( undef,
  30                                              {
  31                                                order_by => {-asc => 'sample_id'},
  32                                                rows     => 1,
  33                                              }
  34                                            );
  35
  36 ## Now it will test the expected sample web-page if there is at least one row
  37 ## in the database. If not, it will test the error page
  38
  39 if (defined $first_sample_row) {
  40
  41     my $first_sample_id = $first_sample_row->get_column('sample_id');
  42     my $first_sample_name = $first_sample_row->get_column('sample_name');
  43
  44     $mech->get_ok("/biosource/sample.pl?id=$first_sample_id");
  45     $mech->content_contains( $first_sample_name );
  46     is( $mech->status, 200 );
  47     $mech->content_unlike( qr/error/i );
  48
  49     $mech->get_ok("/biosource/sample.pl?name=$first_sample_name");
  50     $mech->content_contains( $first_sample_name );
  51     $mech->content_unlike( qr/error/i );
  52
  53 }
  54
  55