Commit e2d2c208 authored by Marek Szuba's avatar Marek Szuba
Browse files

Add some RNAProductAdaptor::fetch_all_by_type_id() tests

parent cffc4712
......@@ -190,6 +190,18 @@ subtest 'fetch_all_by_Transcript() functionality' => sub {
cmp_ok(scalar @{$rps}, '>', 0, 'Non-empty list for Transcript with RNA products');
};
subtest 'fetch_all_by_type_id() functionality' => sub {
my $n_rps;
# At the moment we have only got miRNA in the homo_sapiens test database
# FIXME: compare this to the total number of RNAProducts?
$n_rps = scalar @{$rp_a->fetch_all_by_type_id(1)};
cmp_ok($n_rps, '>', 0, 'Got non-empty list of type_id==1 rnaproducts');
$n_rps = scalar @{$rp_a->fetch_all_by_type_id(2)};
cmp_ok($n_rps, '==', 0, 'Got empty list of type_id==2 rnaproducts');
};
$rp = undef;
$rp = $rp_a->fetch_by_dbID(1);
ok($rp, 'Can fetch RNAProduct by dbID');
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment