view release on metacpan or  search on metacpan

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

         'files' => [
                      bless( {
                               'contents' => 'print \'hello world\'',
                               'filename' => '__code'
                             }, 'App::EvalServerAdvanced::Protocol::Eval::File' )
                    ],
         'sequence' => 173
       }, 'App::EvalServerAdvanced::Protocol::Eval' ),
bless( {
         'files' => [
                      bless( {
                               'filename' => '__code',
                               'contents' => 'print \'hello world\''
                             }, 'App::EvalServerAdvanced::Protocol::Eval::File' )
                    ],
         'sequence' => 222,
         'prio' => bless( {
                            'pr_realtime' => bless( {}, 'App::EvalServerAdvanced::Protocol::Priority::Priority_Realtime' )
                          }, 'App::EvalServerAdvanced::Protocol::Priority' ),
         'language' => 'perl'
       }, 'App::EvalServerAdvanced::Protocol::Eval' ),
bless( {
         'sequence' => 21,
         'files' => [
                      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' ),
bless( {
         'sequence' => 161,
         'files' => [
                      bless( {
                               'contents' => 'print \'hello world\'',
                               'filename' => '__code'
                             }, 'App::EvalServerAdvanced::Protocol::Eval::File' )
                    ],
         'language' => 'perl',
         'prio' => bless( {
                            'pr_realtime' => bless( {}, 'App::EvalServerAdvanced::Protocol::Priority::Priority_Realtime' )
                          }, 'App::EvalServerAdvanced::Protocol::Priority' )
       }, 'App::EvalServerAdvanced::Protocol::Eval' ),
bless( {
         'sequence' => 227,
         'files' => [
                      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;