t/WWW-Oxontime.t

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