File: tigr.t

package info (click to toggle)
bioperl 1.7.8-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid, trixie
  • size: 35,788 kB
  • sloc: perl: 94,019; xml: 14,811; makefile: 20
file content (46 lines) | stat: -rw-r--r-- 1,248 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
# -*-Perl-*- Test Harness script for Bioperl
# $Id$

use strict;

BEGIN {
    use Bio::Root::Test;
    
    test_begin(-tests               => 8,
			   -requires_module     => 'Error',
			   -requires_networking => 0,
			  );
	
	use_ok('Bio::SeqIO::tigr');
}

my $verbose = test_debug();

TODO: {
	my $format = 'tigr';
	todo_skip "No tests for $format format -- no sample file to test against", 7, if 1;

	my $seqio_obj = Bio::SeqIO->new(-file   => test_input_file("test.$format"),
							        -format => $format);
	
	isa_ok($seqio_obj, 'Bio::SeqIO');
	
	my @methods = qw(next_seq write_seq);
	foreach my $method (@methods) {
		can_ok($seqio_obj, $method) || 
			diag "$method method not implemented for $format";	
	}
	
	# checking the first sequence object
	my $seq_obj = $seqio_obj->next_seq();
	isa_ok($seq_obj, 'Bio::Seq');
	my %expected = ('seq'         => '' .
					'length'      => '',
					'primary_id'  => '',
					'description' => qr(),
				   );
	is   ($seq_obj->seq(),         $expected{'seq'},         'sequence');
	is   ($seq_obj->length(),      $expected{'length'},      'length');
	is   ($seq_obj->primary_id(),  $expected{'primary_id'},  'primary_id');
	like ($seq_obj->description(), $expected{'description'}, 'description');
}