Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

start to avoid warnings from the tests

  • Loading branch information...
commit d4826fff345c5388d6f3d77d078399606799b46f 1 parent 2d95af3
@moritz moritz authored
Showing with 10 additions and 10 deletions.
  1. +10 −10 t/16_Tree_Simple_width_test.t
View
20 t/16_Tree_Simple_width_test.t
@@ -12,11 +12,11 @@ use Tree::Simple;
{ # test height (with pictures)
my $tree = Tree::Simple.new();
- ok($tree, Tree::Simple);
+ isa_ok($tree, Tree::Simple);
my $D = Tree::Simple.new('D');
- ok($D, Tree::Simple);
+ isa_ok($D, Tree::Simple);
$tree.addChild($D);
@@ -27,7 +27,7 @@ use Tree::Simple;
is($D.getWidth(), 1, '... D has a width of 1');
my $E = Tree::Simple.new('E');
- ok($E, Tree::Simple);
+ isa_ok($E, Tree::Simple);
$D.addChild($E);
@@ -40,7 +40,7 @@ use Tree::Simple;
is($E.getWidth(), 1, '... E has a width of 1');
my $F = Tree::Simple.new('F');
- ok($F, Tree::Simple);
+ isa_ok($F, Tree::Simple);
$E.addChild($F);
@@ -56,7 +56,7 @@ use Tree::Simple;
is($F.getWidth(), 1, '... F has a width of 1');
my $C = Tree::Simple.new('C');
- ok($C, Tree::Simple);
+ isa_ok($C, Tree::Simple);
$D.addChild($C);
@@ -73,7 +73,7 @@ use Tree::Simple;
is($C.getWidth(), 1, '... C has a width of 1');
my $B = Tree::Simple.new('B');
- ok($B, Tree::Simple);
+ isa_ok($B, Tree::Simple);
$D.addChild($B);
@@ -93,7 +93,7 @@ use Tree::Simple;
my $A = Tree::Simple.new('A');
- ok($A, Tree::Simple);
+ isa_ok($A, Tree::Simple);
$E.addChild($A);
@@ -112,7 +112,7 @@ use Tree::Simple;
is($A.getWidth(), 1, '... A has a width of 1');
my $G = Tree::Simple.new('G');
- ok($G, Tree::Simple);
+ isa_ok($G, Tree::Simple);
#TODO need to make alias for 'insertChild' that direct to insertChildAt
$E.insertChildAt(1, $G);
@@ -132,7 +132,7 @@ use Tree::Simple;
is($A.getWidth(), 1, '... A has a width of 1');
my $H = Tree::Simple.new('H');
- ok($H, Tree::Simple);
+ isa_ok($H, Tree::Simple);
$G.addChild($H);
@@ -155,7 +155,7 @@ use Tree::Simple;
is($A.getWidth(), 1, '... A has a width of 1');
my $I = Tree::Simple.new('I');
- ok($I, Tree::Simple);
+ isa_ok($I, Tree::Simple);
$G.addChild($I);
Please sign in to comment.
Something went wrong with that request. Please try again.