t/SeqIO/excel.t

   1 # -*-Perl-*- Test Harness script for Bioperl
   2 # $Id$
   3
   4 use strict;
   5
   6 BEGIN {
   7         use lib '.';
   8     use Bio::Root::Test;
   9
  10     test_begin(-tests               => 4,
  11                            -requires_module     => 'Spreadsheet::ParseExcel',
  12                            -requires_networking => 0,
  13                           );
  14
  15         use_ok('Bio::SeqIO::excel');
  16 }
  17
  18 my $verbose = test_debug();
  19
  20 my $format = 'excel';
  21 my $seqio_obj = Bio::SeqIO->new(-file   => test_input_file("test.xls"),
  22                                                         -format => $format);
  23
  24 isa_ok($seqio_obj, 'Bio::SeqIO');
  25
  26 my @methods = qw(next_seq write_seq);
  27 foreach my $method (@methods) {
  28         can_ok($seqio_obj, $method) ||
  29                 diag "$method method not implemented for $format";
  30 }