t/unit_mech/AJAX/Stability.t

   1
   2 use strict;
   3 use warnings;
   4
   5 use lib 't/lib';
   6 use SGN::Test::Fixture;
   7 use Test::More;
   8 use Test::WWW::Mechanize;
   9
  10 use Data::Dumper;
  11 use JSON;
  12 use Spreadsheet::Read;
  13
  14 use CXGN::Dataset;
  15
  16 my $f = SGN::Test::Fixture->new();
  17 my $schema = $f->bcs_schema;
  18 my $people_schema = $f->people_schema();
  19
  20 my $mech = Test::WWW::Mechanize->new;
  21 my $response;
  22
  23 # login
  24 #
  25 $mech->post_ok('http://localhost:3010/brapi/v1/token', [ "username"=> "janedoe", "password"=> "secretpw", "grant_type"=> "password" ], 'login with brapi call');
  26
  27 $response = decode_json $mech->content;
  28
  29 is($response->{'userDisplayName'}, 'Jane Doe', 'check login name');
  30
  31 # create a suitable dataset
  32 #
  33 my $ds = CXGN::Dataset->new( { schema=> $schema, people_schema => $people_schema });
  34
  35 $ds->trials( [ 139, 141 ]);
  36 $ds->store();
  37
  38 my $dataset_id = $ds->sp_dataset_id();
  39
  40 $mech->get_ok('http://localhost:3010/tools/stability', 'load stability input page');
  41
  42 $mech->get_ok('http://localhost:3010/ajax/stability/shared_phenotypes?dataset_id='.$dataset_id, 'get common traits for dataset');
  43
  44 my $sp_data = JSON::Any->decode($mech->content());
  45
  46 my $trait_id = $sp_data->{options}->[0]->[0];
  47
  48 $mech->get_ok('http://localhost:3010//ajax/stability/generate_results?dataset_id='.$dataset_id.'&trait_id='.$trait_id."&method_id=AMMI", 'run the AMMI analysis');
  49
  50 my $rdata = JSON::Any->decode($mech->content());
  51
  52 # check if files were created
  53 #
  54 ok( -e "static/".$rdata->{figure1}, "AMMI figure 1 created");
  55 ok( -e "static/".$rdata->{figure2}, "AMMI figure 2 created");
  56 ok( -e "static/".$rdata->{AMMITable}, "AMMI table created");
  57
  58 $mech->get_ok('http://localhost:3010//ajax/stability/generate_results?dataset_id='.$dataset_id.'&trait_id='.$trait_id."&method_id=GGE", 'run the GGE analysis');
  59
  60 my $rdata2 = JSON::Any->decode($mech->content());
  61
  62 # check if files were created
  63 #
  64 ok( -e "static/".$rdata2->{figure1}, "GGE figure 1 created");
  65 ok( -e "static/".$rdata2->{figure2}, "GGE figure 2 created");
  66 ok( -e "static/".$rdata2->{AMMITable}, "GGE table created");
  67
  68 # remove changes to the database
  69 #
  70 $ds->delete();
  71
  72 done_testing();