t/unit_fixture/CXGN/Stock/GetStockSynonyms.t

   1 # A test for getting stock synonyms
   2 use strict;
   3 use warnings;
   4
   5 use lib 't/lib';
   6
   7 use Test::More;
   8 use SGN::Test::Fixture;
   9
  10 use Data::Dumper;
  11
  12 my $f = SGN::Test::Fixture->new();
  13 my $schema = $f->bcs_schema();
  14 my $phenome_schema = $f->phenome_schema();
  15 my $dbh = $f->dbh();
  16 $schema->storage->debug(1);
  17
  18 BEGIN {use_ok('CXGN::Stock::StockLookup');}
  19 BEGIN {require_ok('Moose');}
  20
  21 my $slookup = CXGN::Stock::StockLookup->new({ schema => $schema});
  22
  23 ok(my $resultsA = $slookup
  24   ->get_stock_synonyms('stock_id', 'accession', ['38857','38840','38863']),
  25   "Find synonyms by ID");
  26 print STDERR Dumper $resultsA;
  27
  28 ok(my $resultsB = $slookup
  29   ->get_stock_synonyms('uniquename', 'accession', ['new_test_crossP005','new_test_crossP009','test_accession2']),
  30   "Find synonyms by uniquename");
  31 print STDERR Dumper $resultsB;
  32
  33 ok(my $resultsC = $slookup
  34   ->get_stock_synonyms('any_name', 'accession', ['test_accession2_synonym1','new_test_crossP009','test_accession1','test_accession2','test_accession3_synonym1']),
  35   "Find synonyms by any name (unique or syn)");
  36 print STDERR Dumper $resultsC;
  37
  38 done_testing();