t/unit_fixture/CXGN/Stock/StockBarcode.t

   1
   2 use strict;
   3
   4 use lib 't/lib';
   5 use Test::More tests=>6;
   6 use File::Slurp;
   7 use Data::Dumper;
   8
   9 use Bio::Chado::Schema::Result::Stock::Stock;
  10 use SGN::Test::Fixture;
  11
  12 use_ok('CXGN::Stock::StockBarcode');
  13
  14 my $test = SGN::Test::Fixture->new();
  15 my $schema = $test->bcs_schema;
  16
  17 my @contents = read_file('t/data/stock/stock_barcode/file1.txt');
  18
  19 chomp(@contents);
  20
  21 foreach my $c (@contents){
  22 #    $c=~s/^ //;
  23 #    $c=~s/\r//g;
  24 }
  25
  26 print join "\n", @contents;
  27
  28 my $sb = CXGN::Stock::StockBarcode->new({ schema => $schema });
  29
  30 $sb->parse(\@contents, 'CB', 'CO_334');
  31
  32 my $data = $sb->parsed_data();
  33
  34 #print STDERR Data::Dumper::Dumper($data);
  35
  36 is($data->{"Joe\t1\t1\t2012/11/12\t1"}->{38783}->{'CO_334:0000109'}->{value}, 0, 'check data point 1');
  37 is($data->{"Joe\t1\t1\t2012/11/12\t2"}->{38783}->{'CO_334:0000108'}->{value}, 1, 'check data point 2');
  38 is($data->{"Joe\t1\t1\t2012/11/12\t3"}->{38783}->{'CO_334:0000014'}->{value}, 5, 'check data point 3');
  39 is($data->{"Joe\t1\t1\t2012/11/12\t4"}->{38784}->{'CO_334:0000109'}->{value}, 123, 'check data point 4');
  40 is($data->{"Joe\t1\t1\t2012/11/12\t6"}->{38784}->{'CO_334:0000014'}->{value}, '4/10', 'check data point 5');