add basic ris test

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();