diff options
author | Daniel Friesel <derf@finalrewind.org> | 2013-12-24 16:12:52 +0100 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2013-12-24 16:15:45 +0100 |
commit | 686a48d6bdfa7ccb20e536a9151ce3c146a1e236 (patch) | |
tree | 967bbdc78a9493250096fcf9a410f78d4e5892fe /t/21-get-stop-by-name.t | |
parent | 8a07867b705e81db248e6fab4f75e9d2b0315f1e (diff) |
split up test cases for more concurrency
Diffstat (limited to 't/21-get-stop-by-name.t')
-rw-r--r-- | t/21-get-stop-by-name.t | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/t/21-get-stop-by-name.t b/t/21-get-stop-by-name.t new file mode 100644 index 0000000..43952ac --- /dev/null +++ b/t/21-get-stop-by-name.t @@ -0,0 +1,44 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use 5.010; +use utf8; + +use Encode qw(decode); +use File::Slurp qw(slurp); +use List::Util qw(first); +use Test::More tests => 5; + +BEGIN { + use_ok('Travel::Status::DE::ASEAG'); +} +require_ok('Travel::Status::DE::ASEAG'); + +my $rawstr = slurp('t/in/aseag_20131223T132300'); +my $s = Travel::Status::DE::ASEAG->new_from_raw( + raw_str => $rawstr, + hide_past => 0 +); + +# fuzzy matching: bushof should return Aachen Bushof, Eschweiler Bushof, +# Eupon Bushof + +my @fuzzy = $s->get_stop_by_name('bushof'); + +is_deeply(\@fuzzy, ['Aachen Bushof', 'Eschweiler Bushof', 'Eupen Bushof'], +'fuzzy match for "bushof" works'); + +# fuzzy matching: whitespaces work + +@fuzzy = $s->get_stop_by_name('Aachen Bushof'); + +is_deeply(\@fuzzy, ['Aachen Bushof'], +'fuzzy match with exact name "Aachen Bushof" works'); + +# fuzzy matching: exact name only matches one, even though longer alternatives +# exist + +@fuzzy = $s->get_stop_by_name('brand'); + +is_deeply(\@fuzzy, ['Brand'], +'fuzzy match with exact name "brand" works'); |