diff options
| -rw-r--r-- | t/35-result-wings.t | 9 |
1 files changed, 5 insertions, 4 deletions
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'); |