diff --git a/modules/t/repeatConsensus.t b/modules/t/repeatConsensus.t new file mode 100644 index 0000000000000000000000000000000000000000..5480904a327f9e6171be4ceb4b5c48828cbc14a3 --- /dev/null +++ b/modules/t/repeatConsensus.t @@ -0,0 +1,45 @@ +use lib 't'; +use TestUtils qw(test_getter_setter); + +BEGIN { $| = 1; + use Test; + plan tests => 13; +} + +my $loaded = 0; +END {print "not ok 1\n" unless $loaded;} + +my $verbose = 0; + +use MultiTestDB; + +my $multi = MultiTestDB->new(); + +$loaded = 1; + +ok(1); + +my $db = $multi->get_DBAdaptor( 'core' ); + +$repeat_c_ad = $db->get_RepeatConsensusAdaptor(); + +ok ($repeat_c_ad); + +my $repeat_consensus = Bio::EnsEMBL::RepeatConsensus->new(); + +ok ($repeat_consensus); + +ok (test_getter_setter($repeat_consensus,'length',10)); +ok (test_getter_setter($repeat_consensus,'repeat_class','dummy')); +ok (test_getter_setter($repeat_consensus,'name','dummy')); +ok (test_getter_setter($repeat_consensus,'repeat_consensus','ATGCATGCAT')); +ok (test_getter_setter($repeat_consensus,'dbID',42)); + +ok ($repeat_consensus->desc eq 'class=dummy'); +ok ($repeat_consensus->moltype eq 'dna'); +ok ($repeat_consensus->alphabet eq 'dna'); +ok ($repeat_consensus->seq eq 'ATGCATGCAT'); + +$repeat_c_ad->store($repeat_consensus); + +ok(1);