# $Id: 20pdu.t,v 1.8 2007-02-28 21:18:14 cosimo Exp $
# test pdu encoding/decoding functions for sms

use Test::More;
use Device::Gsm::Pdu;

BEGIN { plan tests => 5 };

# Test decoding unicode strings

is( Device::Gsm::Pdu::decode_text_UCS2('020041'), "A");

#1 U+0061	a	61	LATIN SMALL LETTER A
is( Device::Gsm::Pdu::decode_text_UCS2('020061'), "\x61");
#2 U+00C0	À	c3 80	LATIN CAPITAL LETTER A WITH GRAVE
is( Device::Gsm::Pdu::decode_text_UCS2('0200C0'), "\xC3\x80");
#3 U+0160	Š	c5 a0	LATIN CAPITAL LETTER S WITH CARON
is( Device::Gsm::Pdu::decode_text_UCS2('020160'), "\xC5\xA0");
#4 U+0202	Ȃ	c8 82	LATIN CAPITAL LETTER A WITH INVERTED BREVE
is( Device::Gsm::Pdu::decode_text_UCS2('020202'), "\xC8\x82");