if
( $] > 5.007 ) {
binmode
(STDOUT,
":utf8"
);
}
my
$ascii
=
"HELLO"
;
print
"[0/6] Testing Braill-ASCII : \"$ascii\"\n"
;
my
$unicode
= brailleAsciiToUnicode (
$ascii
);
print
"[1/6] brailleAsciiToUnicode: $ascii => $unicode (has length: "
,
length
(
$unicode
),
")\n"
;
my
$dots
= brailleAsciiToDots (
$ascii
);
print
"[2/6] brailleAsciiToDots : $ascii => $dots\n"
;
$ascii
= brailleDotsToAscii (
$dots
);
print
"[3/6] brailleDotsToAscii : $dots => $ascii\n"
;
$unicode
= brailleDotsToUnicode (
$dots
);
print
"[4/6] brailleDotsToUnicode : $dots => $unicode (has length: "
,
length
(
$unicode
),
")\n"
;
$dots
= brailleUnicodeToDots (
$unicode
);
print
"[5/6] brailleUnicodeToDots : $unicode => $dots\n"
;
$ascii
= brailleUnicodeToAscii (
$unicode
);
print
"[6/6] brailleUnicodeToAscii: $unicode => $ascii\n"
;