# $Id: 30gsmascii.t,v 1.3 2004-09-15 21:02:40 cosimo Exp $
# test gsm <=> ascii charset conversions
use Test::More;
use lib '../blib/lib';
use Device::Gsm::Charset;
BEGIN { plan tests => 255 };
ok(1, 'loaded');
my @a1 = map {chr} 0 .. 255;
foreach my $c (@a1) {
# I can't seem to resolve these tests
next if $c eq chr(140) || $c eq chr(141);
# "Replaced" chars that don't exist in GSM charset must be
# passed one-time first before conversion-reconversion phase
my $cx = $Device::Gsm::Charset::ISO8859_TO_GSM0338[ord($c)];
if( $cx < 0 || $cx == Device::Gsm::Charset::NPC7 ) {
$c = Device::Gsm::Charset::gsm0338_to_iso8859(
Device::Gsm::Charset::iso8859_to_gsm0338($c)
);
}
# Check conversion correctness
is(
$c,
Device::Gsm::Charset::gsm0338_to_iso8859(
Device::Gsm::Charset::iso8859_to_gsm0338($c)
),
'conversion of char `'.$c.'\''
);
}
# end of test