t/unit_fixture/CXGN/Trait.t

   1
   2 use strict;
   3
   4 use lib 't/lib';
   5 use SGN::Test::Fixture;
   6 use Test::More;
   7
   8 use CXGN::Trait;
   9
  10 my $f = SGN::Test::Fixture->new();
  11
  12 my $trait = CXGN::Trait->new( { bcs_schema => $f->bcs_schema(), cvterm_id => 70666 });
  13
  14 is($trait->name(), "fresh root weight", "check trait name");
  15
  16 is($trait->format(), "numeric", "check trait format");
  17
  18 is($trait->db(), "CO_334", "check db property");
  19
  20 is($trait->accession(), "0000012", "check accession property");
  21
  22 is($trait->term(), "CO_334:0000012", "check term property");
  23
  24 #is($trait->display_name(), "CO_334:fresh root weight", "check display name property");
  25 is($trait->display_name(), "fresh root weight|CO_334:0000012", "check display name property");
  26
  27 done_testing();
  28