t/unit_mech/AJAX/Direct_trial_phenotyping.t

   1 use strict;
   2 use warnings;
   3
   4 use lib 't/lib';
   5 use SGN::Test::Fixture;
   6 use Test::More;
   7 use Test::WWW::Mechanize;
   8
   9 my $f = SGN::Test::Fixture->new();
  10 my $schema = $f->bcs_schema;
  11
  12 my $mech = Test::WWW::Mechanize->new;
  13 my $response;
  14 $mech->post_ok('http://localhost:3010/breeders/trial_phenotyping?trial_id=137',["plot_name" => "test_trial21", "select_traits_for_trait_file" => "76664", "select_pheno_value" => "20"]);
  15 ok($mech->success);
  16
  17 done_testing();