#!/usr/local/bin/perl -w
n_tests(5);
create_test_database(
"go_species"
);
my
$apph
= getapph();
my
$parser
= new GO::Parser ({
handler
=>
'db'
});
$parser
->xslt(
'oboxml_to_godb_prestore'
);
$parser
->handler->apph(
$apph
);
$parser
->parse (
"./t/data/baby-function.dat"
);
my
@errs
=
$parser
->parse_assocs(
"./t/data/mini-fb-assocs.fb"
);
stmt_check(!
@errs
);
my
$pl
=
$apph
->get_products({
term
=>3677,
deep
=>1});
stmt_check(
scalar
(
@$pl
));
printf
"%s %s\n"
,
$_
->symbol,
$_
->type
foreach
@$pl
;
my
$p
=
$apph
->get_product({
symbol
=>
'Zfh1'
});
stmt_check(
$p
->species->ncbi_taxa_id(), 7227);
stmt_note(
$p
->type);
stmt_check(
$p
->type,
'faketype'
);
stmt_ok;