__ __ __ __ _____ _ _ _____ _ _ _ | \/ | \ \ / / | __ \ (_) | | / ____| | | | | | \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | | | |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | | | | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | | |_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1 if you need WebShell for Seo everyday contact me on Telegram Telegram Address : @jackleetFor_More_Tools:
use Test::More tests => 10;
use Date::Language;
# Tests for language-specific timezone abbreviation translation (issue #1 / RT#52878)
# When using %Z format with a language object, timezone abbreviations should be
# translated to the language's local equivalents if the language defines a %TZ mapping.
my $german = Date::Language->new('German');
my $english = Date::Language->new('English');
# Fixed timestamp: 2009-01-01 00:00:00 UTC (standard time, no DST)
my $t = 1230768000;
# English should return standard English abbreviations unchanged
is( $english->time2str('%Z', $t, 'CET'), 'CET', 'English: CET stays CET' );
is( $english->time2str('%Z', $t, 'CEST'), 'CEST', 'English: CEST stays CEST' );
is( $english->time2str('%Z', $t, 'GMT'), 'GMT', 'English: GMT stays GMT' );
# German should translate CET → MEZ and CEST → MESZ
is( $german->time2str('%Z', $t, 'CET'), 'MEZ', 'German: CET → MEZ' );
is( $german->time2str('%Z', $t, 'CEST'), 'MESZ', 'German: CEST → MESZ' );
# German: timezones without a translation should pass through unchanged
is( $german->time2str('%Z', $t, 'GMT'), 'GMT', 'German: GMT passes through (no translation defined)' );
is( $german->time2str('%Z', $t, 'UTC'), 'UTC', 'German: UTC passes through (no translation defined)' );
# German: other European timezone translations
is( $german->time2str('%Z', $t, 'EET'), 'OEZ', 'German: EET → OEZ' );
is( $german->time2str('%Z', $t, 'EEST'), 'OESZ', 'German: EEST → OESZ' );
is( $german->time2str('%Z', $t, 'WET'), 'WEZ', 'German: WET → WEZ' );
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| 00-report-prereqs.dd | File | 1.47 KB | 0644 |
|
| 00-report-prereqs.t | File | 5.88 KB | 0644 |
|
| cpanrt-format.t | File | 599 B | 0644 |
|
| cpanrt-language.t | File | 466 B | 0644 |
|
| cpanrt-overflow.t | File | 808 B | 0644 |
|
| cpanrt-parse.t | File | 5.07 KB | 0644 |
|
| cpanrt-zone.t | File | 4.03 KB | 0644 |
|
| date.t | File | 5 KB | 0644 |
|
| edge-cases.t | File | 8.93 KB | 0644 |
|
| format.t | File | 3.26 KB | 0644 |
|
| getdate.t | File | 7.62 KB | 0644 |
|
| gh10.t | File | 2.34 KB | 0644 |
|
| gh12.t | File | 1.13 KB | 0644 |
|
| lang-data.t | File | 10.29 KB | 0644 |
|
| lang-encoding.t | File | 1.19 KB | 0644 |
|
| lang.t | File | 479 B | 0644 |
|
| msk-tz.t | File | 594 B | 0644 |
|
| pod-valid.t | File | 436 B | 0644 |
|
| rt-format.t | File | 340 B | 0644 |
|
| rt-parse.t | File | 1.32 KB | 0644 |
|
| rt-timezone.t | File | 2.78 KB | 0644 |
|
| rt106105.t | File | 1.14 KB | 0644 |
|
| rt52387.t | File | 782 B | 0644 |
|
| rt57800.t | File | 1.29 KB | 0644 |
|
| str2time-epoch.t | File | 1.28 KB | 0644 |
|
| strptime-iso8601.t | File | 2.75 KB | 0644 |
|
| time2str-lang.t | File | 886 B | 0644 |
|
| tz-lang.t | File | 1.52 KB | 0644 |
|
| zone.t | File | 3.75 KB | 0644 |
|