#! /usr/bin/perl

use utf8;
use Locale::gettext;

binmode(STDOUT, ":utf8");

$d="auto-multiple-choice";
$s="Copying scans to project directory...";

print "* utf8\n";
print "Des œufs cassés\n";

print "* simple\n";
my $l=Locale::gettext->domain($d);
print $l->get($s)."\n";

print "* raw\n";
my $lr=Locale::gettext->domain_raw($d);
$lr->codeset("UTF-8");
print $lr->get($s)."\n";

print "* decode\n";
my $lh=Locale::gettext->domain_raw($d);
my $ss=$lh->get($s);
utf8::decode($ss);
print($ss."\n");

