[www-oxontime.git] / t / WWW-Oxontime.t

#!/usr/bin/perl
use strict;
use warnings;

use Test::RequiresInternet ('www.oxontime.com' => 80);

use Test::More tests => 2;
BEGIN { use_ok('WWW::Oxontime', 'stops_for_route') };

my @stops = stops_for_route 15957;
ok @stops > 1, 'route 15957 has at least two stops';
Commit	Line	Data
f9a1b9d7 MG	1	#!/usr/bin/perl
	2	use strict;
	3	use warnings;
	4
	5	use Test::RequiresInternet ('www.oxontime.com' => 80);
	6
	7	use Test::More tests => 2;
	8	BEGIN { use_ok('WWW::Oxontime', 'stops_for_route') };
	9
	10	my @stops = stops_for_route 15957;
	11	ok @stops > 1, 'route 15957 has at least two stops';