diff options
| -rw-r--r-- | t/31-clean-ris.t | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/t/31-clean-ris.t b/t/31-clean-ris.t new file mode 100644 index 0000000..b410707 --- /dev/null +++ b/t/31-clean-ris.t @@ -0,0 +1,31 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use 5.014; +use Test::More; +use Test::Mojo; + +use FindBin; +require "$FindBin::Bin/../index.pl"; + +my $t = Test::Mojo->new; + +# Note: These tests depends on RIS live data. If it fails, it -might- also +# be because of RIS problems or unanticipated schedule changes. +# TODO: Support mock XML from hard disk. + +$t->get_ok('/Dortmund Universitat') + ->status_is(200) + ->content_like(qr{S 1}, 'train name') + ->content_like(qr{Dortmund Hbf}, 'dest') + ->content_like(qr{Dortmund-Oespel}, 'via') + ; + +$t->get_ok('/Dortmund Universitat&backend=ris') + ->status_is(200) + ->content_like(qr{S 1}, 'train name') + ->content_like(qr{Dortmund Hbf}, 'dest') + ->content_like(qr{Dortmund-Oespel}, 'via') + ; + +done_testing(); |