summaryrefslogtreecommitdiff
path: root/t/35-result-wings.t
diff options
context:
space:
mode:
Diffstat (limited to 't/35-result-wings.t')
-rw-r--r--t/35-result-wings.t9
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');