diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2015-05-21 19:37:12 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2015-05-21 19:37:12 +0200 |
| commit | e091264b2c6c198dcfd2d3d5eead4175eb52cce1 (patch) | |
| tree | 8b88fa938800281bc0bc7104c1342e5af5182a10 /t/35-result-wings.t | |
| parent | 2d5a4e996cb6bcf94e2ebaeab1c5804657a04428 (diff) | |
t/35: use ok instead of is where appropriate
Diffstat (limited to 't/35-result-wings.t')
| -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'); |