<![CDATA[
#!perl -w
use strict;
package main;
use Test::More tests => 11;
{
BEGIN {
use_ok("Sequence");
}
my $seq = Sequence->new;
isa_ok($seq, 'Sequence');
can_ok('Sequence',qw/revcom transpose/);
$seq->seq("catcatcat");
$seq->type("dna");
is($seq->seq,"catcatcat", "Test sequence");
is($seq->type,"dna", "Test sequence type");
is($seq->revcom,"atgatgatg","Test reverse complement");
is($seq->transpose("at","cg"),"ccgccgccg","Test transpose");
# test read and save of Sequence from file
open(FILE, "> temp.data") or die "Unable to open test file";
print FILE <<"EOF";
catcatcat
EOF
close FILE;
$seq = Sequence->new(file => "temp.data", form => "raw", type => "dna");
isa_ok($seq, 'Sequence');
is($seq->raw, "catcatcat\n", "Test of reading raw dna data");
$seq->seq($seq->raw);
is($seq->revcom, "\natgatgatg", "Test of revcom dna data");
unlink "temp.data";
$seq->save();
$seq = Sequence->new(file => "temp.data", form => "raw", type => "dna");
is($seq->raw, "catcatcat\n", "Test of saved seq data");
unlink "temp.data";
exit(0);
}
]]>