#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use FindBin qw($Bin);
use Locale::Simple;
use utf8;
l_dir($Bin.'/data/locale');
l_lang('de_DE');
ltd('test');
is(
l("Hello"),
"Hallo",
"simple"
);
ltd('othertest');
is(
l("Hello"),
"Anderes Hallo",
"other simple"
);
my $umlaut_trans = l("Umlaut-Test");
is(
$umlaut_trans,
'Dies ist ein Ümläut',
"Umlaut Test"
);
done_testing;