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
|
#!/usr/bin/perl -w
use strict;
use Wx qw( wxLANGUAGE_DEFAULT wxLANGUAGE_ENGLISH );
use Wx::Locale;
use Test::More 'tests' => 4;
my $langinfo = Wx::Locale::GetLanguageInfo(wxLANGUAGE_DEFAULT);
# see http://trac.wxwidgets.org/ticket/14039 - no default found on Mac
$langinfo = Wx::Locale::GetLanguageInfo(wxLANGUAGE_ENGLISH) if( !$langinfo );
isa_ok( $langinfo, 'Wx::LanguageInfo', 'GetLanguageInfo' );
my $goodname = $langinfo->GetCanonicalName;
my $langinfo2 = Wx::Locale::FindLanguageInfo($goodname);
isa_ok( $langinfo2, 'Wx::LanguageInfo', 'FindLanguageInfo' );
my $langinfo3 = Wx::Locale::GetLanguageInfo(5000);
ok(!defined($langinfo3), 'Undefined GetLanguageInfo');
my $langinfo4 = Wx::Locale::FindLanguageInfo('xx_xx');
ok(!defined($langinfo4), 'Undefined FindLanguageInfo');
|
