t/unit_fixture/SGN/genefamily.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More tests => 7;
   5 use FindBin;
   6 use File::Spec::Functions;
   7
   8 use_ok('SGN::Genefamily');
   9
  10 my $test_dir = 't/data/genefamily_data';
  11
  12 my $gf = SGN::Genefamily->new( files_dir => $test_dir,
  13                                build   => 'test',
  14                                name      => 'family_0'
  15     );
  16
  17 is($gf->name(), "family_0", "name test");
  18 is($gf->build(), "test", "dataset test");
  19 is($gf->files_dir(), $test_dir, "files_dir test");
  20 is($gf->get_path(), catdir($test_dir,'test'), "get_path test");
  21 my $aln = $gf->get_alignment();
  22 like($aln, qr/KLSILKDV-----------NDKSCV/, "alignment test");
  23
  24 my $fasta = $gf->get_fasta();
  25 $fasta =~ s/\n//g;
  26 like($fasta, qr/KLSILKDVNDKSCV/, "fasta test");
  27
  28
  29