view release on metacpan or  search on metacpan

t/Phylogeny/phylonode.t  view on Meta::CPAN

use strict;
use warnings;

use FindBin;
use lib "$FindBin::RealBin/../lib";

use Test::More;
use Bio::Chado::Schema::Test;

# shorthand for writing left and right indices
sub lr($$) {  left_idx => shift, right_idx => shift }

my $schema = Bio::Chado::Schema::Test->init_schema();
my $phylotree_rs  = $schema->resultset('Phylogeny::Phylotree');
my $phylonodes_rs = $schema->resultset('Phylogeny::Phylonode');
$phylonodes_rs->delete;

$schema->txn_do(sub {

    my $test_tree =
        [