t/CXGN/Graphics/blastgraph.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 use File::Temp;
   6
   7 use FindBin;
   8 use Path::Class;
   9
  10 use Test::More tests => 3;
  11
  12 BEGIN {
  13   use_ok(  'CXGN::Graphics::BlastGraph'  )
  14     or BAIL_OUT('could not include the module being tested');
  15 }
  16
  17 my $tempfile = File::Temp->new;
  18 my $raw_report_file = file( $FindBin::RealBin, 'blast_report_2.txt' );
  19
  20 my $graph2 = CXGN::Graphics::BlastGraph->new( blast_outfile => $raw_report_file,
  21                                               graph_outfile => $tempfile,
  22                                              );
  23
  24 my $errstr = $graph2->write_img();
  25 is( $errstr, '', 'no error' );
  26 cmp_ok( -s $tempfile, '>', 1_000,
  27         'blast graphic looks like it has some data in it',
  28        )
  29     or system 'display', $tempfile;
  30