#!/usr/local/bin/perl -w

# All tests must be run from the software directory;
# make sure we are getting the modules from here:
use lib '.';
use strict;
use Test;
BEGIN { plan tests => 2 }   
use GO::TestHarness;
use GO::AppHandle;

# ----- REQUIREMENTS -----

# ------------------------

#n_tests(7);

#stmt_ok;
#exit 0;

my $acc = "GO:0003734";
my $apph = get_readonly_apph();
my $t=$apph->get_term({acc=>$acc});
my $children = $t->get_parent_terms;
my $g = $apph->get_graph($acc, 0);
stmt_note($g->n_parents($acc));
stmt_check(scalar(@$children) == $g->n_parents($acc));

stmt_ok;
