From e091264b2c6c198dcfd2d3d5eead4175eb52cce1 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Thu, 21 May 2015 19:37:12 +0200 Subject: t/35: use ok instead of is where appropriate --- t/35-result-wings.t | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 't') diff --git a/t/35-result-wings.t b/t/35-result-wings.t index 2e36603..0d3c4c7 100644 --- a/t/35-result-wings.t +++ b/t/35-result-wings.t @@ -6,7 +6,7 @@ use utf8; use Data::Dumper; use DateTime; -use Test::More tests => 17; +use Test::More tests => 18; use Test::Fatal; use Travel::Status::DE::IRIS; @@ -34,8 +34,8 @@ my $abr89533 = $results[34]; is($abr89476->train_no, 89476, 'train_no'); is($abr89536->train_no, 89536, 'train_no'); -is($abr89536->is_wing, 1, 'is_wing'); -is($abr89476->is_wing, 0, 'is_wing'); +ok($abr89536->is_wing, 'is_wing'); +ok(! $abr89476->is_wing, 'is_wing'); is(scalar $abr89536->arrival_wings, undef, 'wing has no wings'); is(scalar $abr89536->departure_wings, undef, 'wing has no wings'); is(scalar $abr89476->arrival_wings, 1, 'num arrival_wings'); @@ -45,7 +45,8 @@ is(($abr89476->departure_wings)[0]->train_no, 89536, 'departure_wings[0]'); is($abr89533->train_no, 89533, 'train_no'); is($abr89473->train_no, 89473, 'train_no'); -is($abr89473->is_wing, 1, 'is_wing'); +ok($abr89473->is_wing, 'is_wing'); +ok(! $abr89533->is_wing, 'is_wing'); is(scalar $abr89473->arrival_wings, undef, 'wing has no wings'); is(scalar $abr89473->departure_wings, undef, 'wing has no wings'); is(scalar $abr89533->arrival_wings, 1, 'num arrival_wings'); -- cgit v1.2.3