The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

NHORNE / CGI-Lingua-0.72 / t / 20-new.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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90

              
#!perl -Tw
use strict;
use warnings;
use Test::Most tests => 32;
use lib 't/lib';
use MyLogger;
BEGIN {
        use_ok('CGI::Lingua');
}
LANGUAGES: {
        eval {
                CGI::Lingua->new();
        };
        ok($@ =~ m/You must give a list of supported languages/);
        # Stop I18N::LangTags::Detect from detecting something
        delete $ENV{'LANGUAGE'};
        delete $ENV{'LC_ALL'};
        delete $ENV{'LC_MESSAGES'};
        delete $ENV{'LANG'};
        if($^O eq 'MSWin32') {
                $ENV{'IGNORE_WIN32_LOCALE'} = 1;
        }
        delete $ENV{'HTTP_ACCEPT_LANGUAGE'};
        delete $ENV{'REMOTE_ADDR'};
        my $l = CGI::Lingua->new(supported => ['en', 'fr', 'en-gb', 'en-us']);
        ok(defined $l);
        ok($l->isa('CGI::Lingua'));
        ok($l->language() eq 'Unknown');
        ok($l->requested_language() eq 'Unknown');
        $ENV{'HTTP_ACCEPT_LANGUAGE'} = '';
        $ENV{'REMOTE_ADDR'} = '66.249.67.232';  # Google
        $l = CGI::Lingua->new({supported => ['en', 'fr', 'en-gb', 'en-us']});
        ok(defined $l);
        ok($l->isa('CGI::Lingua'));
        SKIP: {
                skip 'Tests require Internet access', 2 unless(-e 't/online.enabled');
                ok($l->language() eq 'English');
                ok($l->requested_language() eq 'English');
        }
        $ENV{'HTTP_ACCEPT_LANGUAGE'} = 'en-gb,en;q=0.5';
        delete $ENV{'REMOTE_ADDR'};
        $l = CGI::Lingua->new(supported => ['en', 'fr', 'en-gb', 'en-us']);
        ok(defined $l);
        ok($l->isa('CGI::Lingua'));
        ok($l->language() eq 'English');
        ok(defined $l->requested_language());
        ok($l->requested_language() eq 'English (United Kingdom)');
        $l = CGI::Lingua->new(supported => ['de', 'fr']);
        ok(defined $l);
        ok($l->isa('CGI::Lingua'));
        ok($l->language() eq 'Unknown');
        ok(defined $l->requested_language());
        if($l->requested_language() ne 'Unknown') {
                diag('Expected Unknown got "' . $l->requested_language() . '"');
        }
        ok($l->requested_language() eq 'Unknown');
        $ENV{'HTTP_ACCEPT_LANGUAGE'} = 'zz';
        $l = CGI::Lingua->new(supported => ['en', 'fr', 'en-gb', 'en-us']);
        ok(defined $l);
        ok($l->isa('CGI::Lingua'));
        ok($l->language() eq 'Unknown');
        ok(defined $l->requested_language());
        $ENV{'REMOTE_ADDR'} = '212.159.106.41';
        $l = CGI::Lingua->new({
                supported => ['en', 'fr', 'en-gb', 'en-us'],
                logger => MyLogger->new()
        });
        ok(defined $l);
        ok($l->isa('CGI::Lingua'));
        SKIP: {
                skip 'Tests require Internet access', 6 unless(-e 't/online.enabled');
                ok($l->name() eq 'English');
                ok(defined($l->code_alpha2()));
                ok($l->code_alpha2() eq 'en');
                ok(defined $l->requested_language());
                ok($l->requested_language() =~ /English/);
                ok($l->country() eq 'gb');
        }
}