t/unit_fixture/CXGN/BreedersToolbox/AccessionsFuzzySearch.t

   1 ## A test for fuzzy searching of accessions (stocks of type 'accession')
   2 ## Jeremy D. Edwards (jde22@cornell.edu) 2013
   3
   4 use strict;
   5 use warnings;
   6
   7 use lib 't/lib';
   8 use Test::More tests=>12;
   9 use SGN::Test::Fixture;
  10
  11 BEGIN {use_ok('CXGN::BreedersToolbox::StocksFuzzySearch');}
  12 BEGIN {use_ok('CXGN::DB::Connection');}
  13 BEGIN {require_ok('Moose');}
  14
  15 my $f = SGN::Test::Fixture->new();
  16 my $schema = $f->bcs_schema();
  17 my $accession_name = "testing";
  18 my $max_distance = 1;
  19 my @accession_list;
  20 push (@accession_list, $accession_name);
  21
  22 ok(my $fuzzy_accession_search = CXGN::BreedersToolbox::StocksFuzzySearch->new({schema => $schema}),"Create StocksFuzzySearch object");
  23 ok(my $fuzzy_search_result = $fuzzy_accession_search->get_matches(\@accession_list, $max_distance, 'accession'),"Do a fuzzy accession search");
  24 isa_ok($fuzzy_search_result,'HASH',"Result is a hash reference");
  25 ok(my $found_results = $fuzzy_search_result->{'found'});
  26 isa_ok($found_results, 'ARRAY', "Result is an array reference");
  27 ok(my $fuzzy_results = $fuzzy_search_result->{'fuzzy'});
  28 isa_ok($found_results, 'ARRAY', "Result is an array reference");
  29 ok(my $absent_results = $fuzzy_search_result->{'absent'});
  30 isa_ok($found_results, 'ARRAY', "Result is an array reference");