Op een mooie herfstdag (Tuesday 24 September 2002 17:57), schreef H.Merijn
Brand:
> 2. I'm testing conversions to and from Unicode
>
> --8<---
> use Test::More tests => 86;
>
> use strict;
>
> BEGIN {
> use_ok ("PROCURA::Diac", 4.12);
> SKIP: {
> $^V ge v5.8.0 or skip "Need 5.8.0 for Unicode", 1;
> use_ok ("charnames", qw(:full));
> }
> }
> -->8---
Perhaps the "BUGS" section of the charnames pragma applies here.
If so, you can't do use_ok() on charnames.
Maybe this works for you (untested):
use Test::More;
use strict;
BEGIN {
plan $^V ge v5.8.0 ? 85 : (skip_all => "Need 5.8.0 for UniCode");
use_ok( "PROCURA::Diac", 4.12 );
}
use charnames;
good luck,
Abe
--
Amsterdam Perl Mongers http://amsterdam.pm.org
perl -wl
%_ = reverse (tsuJ=>0, rehtona=>1, lreP=>2, rekcah=>3);
@_ = reverse map { ($_{$_}, $_) } sort keys %_;
$_ = reverse join " ", map $_[$_] => grep $_%2 => 0..$#_; print;
