print "1..1\n";

use strict;
use Unicode::Map8 qw(NOCHAR);

print "MAPS_DIR = $Unicode::Map8::MAPS_DIR\n";

my $l1 = Unicode::Map8->new("latin1") || die;
my $no = Unicode::Map8->new("no")     || die;

#print "not " unless $no->recode8($l1, "xyz{|}") eq "xyzæøå";

my $t1 = $no->recode8($l1, "xyz{|}");

print "ok 1\n";