diff --git a/modules/t/unconventionalTranscriptAssociation.t b/modules/t/unconventionalTranscriptAssociation.t new file mode 100644 index 0000000000000000000000000000000000000000..75aa06c12607cdcf0241031fe94216f9618f33e9 --- /dev/null +++ b/modules/t/unconventionalTranscriptAssociation.t @@ -0,0 +1,45 @@ +use strict; + +use Bio::EnsEMBL::Test::TestUtils; + +BEGIN { $| = 1; + use Test; + plan tests => 4; +} + +use Bio::EnsEMBL::Test::MultiTestDB; +use Bio::EnsEMBL::UnconventionalTranscriptAssociation; + + +our $verbose = 0; + +my $multi = Bio::EnsEMBL::Test::MultiTestDB->new; + +# get a core DBAdaptor +# +my $db = $multi->get_DBAdaptor("core"); +my $utaa = $db->get_UnconventionalTranscriptAssociationAdaptor; + +my $gene = $db->get_GeneAdaptor->fetch_by_stable_id('ENSG00000355555'); +my $transcript = my $ta = $db->get_TranscriptAdaptor()->fetch_by_stable_id("ENST00000217347"); + +# +# 1 create a new UnconventionalTranscriptAssociation +# +my $uta = new Bio::EnsEMBL::UnconventionalTranscriptAssociation($transcript, $gene, 'antisense'); +ok($uta); + +# +# 2-4 test the basic getter and setters +# + +# 2 gene +ok(test_getter_setter($uta, 'gene', $gene)); + +# 3 transcript +ok(test_getter_setter($uta, 'transcript', $transcript)); + +# 4 type +ok(test_getter_setter($uta, 'interaction_type', 'antisense')); + +