]>
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'; |