view release on metacpan or  search on metacpan

t/01-decode.t  view on Meta::CPAN

                      bless( {
                               'contents' => 'print \'hello world\'',
                               'filename' => '__code'
                             }, 'App::EvalServerAdvanced::Protocol::Eval::File' )
                    ],
         'prio' => bless( {
                            'pr_realtime' => bless( {}, 'App::EvalServerAdvanced::Protocol::Priority::Priority_Realtime' )
                          }, 'App::EvalServerAdvanced::Protocol::Priority' ),
         'language' => 'perl'
       }, 'App::EvalServerAdvanced::Protocol::Eval' ),
], "All packets decoded properly");

my $re_data = join '', map {encode_message("eval" => $_)} @msgs;

is($re_data, $alldata, "Re-encoded message matches original");

done_testing;

t/02-encoding.t  view on Meta::CPAN

use strict;
use warnings;

use utf8;

use App::EvalServerAdvanced::Protocol;
use Test::More;

my $message = encode_message(response => {encoding => "utf8", contents => "\x{2603}", sequence => 42});
my ($res, $decoded) = decode_message($message);

ok($res, "decoding succeeded");

is($decoded->get_contents, "\x{2603}", "utf8 transfers properly");

done_testing;