diff options
author | Daniel Friesel <derf@finalrewind.org> | 2022-10-03 17:47:33 +0200 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2022-10-03 17:47:33 +0200 |
commit | 0f870c6ebde05d01988583267cd83dd0d0f45539 (patch) | |
tree | 7524a26ccba94d9c3fa0181ca8847557c07c48bb /t/30-invalid-xml.t | |
parent | 525724d48ad2fb65e4635f3582cb7e86b612fb74 (diff) |
Remove support for XML HAFAS interfaces
Diffstat (limited to 't/30-invalid-xml.t')
-rwxr-xr-x | t/30-invalid-xml.t | 32 |
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' ); |