t/unit_fixture/CXGN/Trial/TrialLayout.t

   1
   2 use strict;
   3
   4 use lib 't/lib';
   5
   6 use Test::More;
   7 use Data::Dumper;
   8 use SGN::Test::Fixture;
   9 use CXGN::Trial::TrialLayout;
  10
  11 my $f = SGN::Test::Fixture->new();
  12
  13 my $trial_id = 139;
  14
  15 my $tl = CXGN::Trial::TrialLayout->new({ schema => $f->bcs_schema(), trial_id => $trial_id, experiment_type => 'field_layout' });
  16
  17 my $d = $tl->get_design();
  18
  19 #print STDERR Dumper($d);
  20
  21 # '35700' => {
  22 #                        'rep_number' => '1',
  23 #                        'plot_number' => '35700',
  24 #                        'block_number' => '6',
  25 #                        'accession_name' => 'UG120109',
  26 #                        'plot_name' => 'KASESE_TP2013_699',
  27 #                        'plot_id' => 39893
  28 #                      },
  29
  30
  31
  32 is($d->{35700}->{block_number}, 6, "block number");
  33 is($d->{35700}->{accession_name}, 'UG120109', "accession name");
  34 is($d->{35700}->{plot_id}, 39893, "plot_id");
  35
  36
  37 done_testing();
  38
  39
  40