Permalink
Browse files

Add messages to *t

  • Loading branch information...
1 parent ff5b2ec commit 3d50a5a5f8ffc99425ebe1a40ffbf003cddfcd9a @bosborne bosborne committed Dec 13, 2011
Showing with 5 additions and 5 deletions.
  1. +5 −5 t/FastTree.t
View
@@ -15,7 +15,7 @@ BEGIN {
use_ok('Bio::AlignIO');
}
-ok my $ft = Bio::Tools::Run::Phylo::FastTree->new( -quiet => 1 );
+ok (my $ft = Bio::Tools::Run::Phylo::FastTree->new( -quiet => 1 ),"Make the object");
SKIP: {
test_skip(
@@ -31,15 +31,15 @@ SKIP: {
my $alnobj = $alignio->next_aln;
my $tree = $ft->run($alnobj);
- ok defined($tree);
+ ok( defined($tree), "Tree is defined" );
my @nodes = $tree->get_nodes;
- is($#nodes,3);
+ is($#nodes,3,"Number of nodes is correct");
# The input could be an alignment file (fasta or phylip interleaved)
my $alignfile = test_input_file("sample_dataset_1_aligned.fa");
my $fastft = Bio::Tools::Run::Phylo::FastTree->new( -quiet => 1, -fastest => 1 );
$tree = $fastft->run($alignfile);
- ok defined($tree);
+ ok( defined($tree), "Tree is defined" );
# Input is protein sequence alignment
$alignio = Bio::AlignIO->new(
@@ -49,5 +49,5 @@ SKIP: {
$alnobj = $alignio->next_aln;
my $ptree = $ft->run($alnobj);
- ok defined($ptree);
+ ok( defined($tree), "Tree is defined" );
}

0 comments on commit 3d50a5a

Please sign in to comment.