t/unit_fixture/CXGN/List/Desynonymize.t

   1 # A test for Desynonymizing stock lists
   2 use strict;
   3 use warnings;
   4
   5 use lib 't/lib';
   6
   7 use Test::More;
   8 use SGN::Test::Fixture;
   9 use CXGN::People::Person;
  10
  11 use Data::Dumper;
  12
  13 my $f = SGN::Test::Fixture->new();
  14 my $schema = $f->bcs_schema();
  15 my $phenome_schema = $f->phenome_schema();
  16 my $dbh = $f->dbh();
  17 $schema->storage->debug(1);
  18
  19 BEGIN {use_ok('CXGN::List');}
  20 BEGIN {use_ok('CXGN::List::Desynonymize');}
  21 BEGIN {require_ok('Moose');}
  22
  23 my $list = CXGN::List->new( { dbh => $dbh, list_id => 12 } );
  24 my $flat_list = $list->retrieve_elements_with_ids(12);
  25 my @name_list = map {@{$_}[1]} @{$flat_list};
  26 print STDERR Dumper @name_list;
  27 my $dsyner = CXGN::List::Desynonymize->new();
  28 print STDERR Dumper $list->type();
  29 ok(my $results = $dsyner->desynonymize($schema,$list->type(),\@name_list),
  30 "run list desynonymize");
  31 print STDERR Dumper $results;
  32
  33
  34 done_testing();