Commit e091264b authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

t/35: use ok instead of is where appropriate

parent 2d5a4e99

t/35-result-wings.t

+5 −4
Original line number Diff line number Diff line
@@ -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');