From 2740b486e0df5ea08d33b5bed65e23d1233baa9d Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sat, 20 Dec 2014 16:17:15 +0100
Subject: add basic ris test

---
 t/31-clean-ris.t | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 t/31-clean-ris.t

(limited to 't')

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();
-- 
cgit v1.2.3