summaryrefslogtreecommitdiff
path: root/t/30-invalid-xml.t
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2022-10-03 17:47:33 +0200
committerDaniel Friesel <derf@finalrewind.org>2022-10-03 17:47:33 +0200
commit0f870c6ebde05d01988583267cd83dd0d0f45539 (patch)
tree7524a26ccba94d9c3fa0181ca8847557c07c48bb /t/30-invalid-xml.t
parent525724d48ad2fb65e4635f3582cb7e86b612fb74 (diff)
Remove support for XML HAFAS interfaces
Diffstat (limited to 't/30-invalid-xml.t')
-rwxr-xr-xt/30-invalid-xml.t32
1 files changed, 0 insertions, 32 deletions
diff --git a/t/30-invalid-xml.t b/t/30-invalid-xml.t
deleted file mode 100755
index f8f7d58..0000000
--- a/t/30-invalid-xml.t
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use 5.020;
-
-use utf8;
-
-use File::Slurp qw(read_file);
-use Test::More tests => 2;
-
-use Travel::Status::DE::HAFAS;
-
-my $xml = 'lol';
-
-my $status = Travel::Status::DE::HAFAS->new(
- service => 'NASA',
- station => 'Berlin Jannowitzbrücke',
- xml => $xml
-);
-
-is( scalar $status->results,
- 0, 'no results on valid XML with invalid HAFAS data' );
-
-$xml = 'lol<';
-
-$status = Travel::Status::DE::HAFAS->new(
- service => 'NASA',
- station => 'Berlin Jannowitzbrücke',
- xml => $xml
-);
-
-is( scalar $status->results, 0, 'no results on invalid XML' );