view release on metacpan or  search on metacpan

t/Audio-GSM.t  view on Meta::CPAN

my $gsm = new_ok('Audio::GSM');
ok(
   $gsm->option(GSM_OPT_WAV49) == 0
   && $gsm->option(GSM_OPT_WAV49, 0) == 0
   && $gsm->option(GSM_OPT_WAV49, 1) == 0
   && $gsm->option(GSM_OPT_WAV49, 1) == 1
   && $gsm->option(GSM_OPT_WAV49) == 1,
   'option'
);
my $gsmData = pack('H*', '265899A122842483D1B7EF43C1AA253E51CDCC4701412F3942CE41D7E1548FB1611E99F36E457835146F95561EB10D1C54AB59254212FEB679F81AE974CEABB10093');
my $pcmData = pack('H*', '00000000000000000000000000000000000000000000000000000001FFFF0002FFFE0002FFFE00010000FFFE0007FFF1006C011C019701C40193016A00BBFFB4FEC9FE26FE54FF14001B011B01CD025C02A803420345035C03E003EA0401044904D404AC04B2044603D8039D02A302A0...
is(length($gsm->encode($pcmData)), 65, 'encode');
is(length($gsm->decode($gsmData)), 640, 'decode');