MANWAR / Map-Tube-4.06 / t / test-the-test / 04-station-names-different.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75

              
#!/usr/bin/perl
use 5.012;
use strict;
use warnings;
use Test::Lib;
use File::Spec;
use Test::More;
use Test::Map::Tube;
use Sample;
eval( "require Text::Levenshtein::XS;" );
plan skip_all => 'This test requires the Text::Levenshtein::XS module to be installed' if $@;
my %tests = (
              'good-map.xml'              => undef, # supposed to pass
              'station-names-similar.xml' => 'Similar names maybe due to typo? :Station A1:Statione A2:', # supposed to fail
            );
my @localdir = File::Spec->splitdir($0);
pop(@localdir);
for my $name ( sort keys %tests ) {
    my $dataname = File::Spec->catfile( @localdir, $name );
    my $map      = Sample->new( xml => $dataname );
    my( $ok, @messages ) = ok_station_names_different( $map, { name => $name } );
    if ( $tests{$name} ) {
        # Expected to fail with a certain message:
        if ($ok) {
            # Unexpectedly passed the test when we shouldn't
            diag('Test passed although it should not, expected ' . $tests{$name} );
            ok( !$ok, $name );
        } else {
            # We failed as expected. Check whether we failed for the right reason.
            is( $messages[1], $tests{$name}, $name );
        }
    } else {
        # Expected to pass the test.
        diag($_) for @messages;
        ok( $ok, $name );
    }
}
my $name     = 'station-names-similar.xml';
my $dataname = File::Spec->catfile( @localdir, $name );
my $map      = Sample->new( xml => $dataname );
my( $ok, @messages ) = ok_station_names_different( $map, { name => $name, dist_limit => 1 } );
diag($_) for @messages;
ok( $ok, $name );
( $ok, @messages ) = ok_station_names_different( $map, { name => $name, max_allowed => 1 } );
diag($_) for @messages;
ok( $ok, $name );
( $ok, @messages ) = ok_station_names_different( $map, { name => $name, dist_limit => 2 } );
if ($ok) {
    # Unexpectedly passed the test when we shouldn't
    diag('Test passed although it should not, expected ' . $tests{$name} );
    ok( !$ok, $name );
} else {
    # We failed as expected. Check whether we failed for the right reason.
    is( $messages[1], $tests{$name}, $name );
}
( $ok, @messages ) = ok_station_names_different( $map, { name => $name, max_allowed => 0 } );
if ($ok) {
    # Unexpectedly passed the test when we shouldn't
    diag('Test passed although it should not, expected ' . $tests{$name} );
    ok( !$ok, $name );
} else {
    # We failed as expected. Check whether we failed for the right reason.
    is( $messages[1], $tests{$name}, $name );
}
done_testing;