The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

DJERIUS / Data-Record-Serialize-2.01 / t / encoders / null.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

              
#!perl
use Test2::V0;
use Test::Lib;
use Data::Record::Serialize;
my ( $s );
ok(
    lives {
        $s = Data::Record::Serialize->new( encode => 'null', )
    },
    "constructor"
) or diag $@;
ok( lives { $s->send( { a => 1, b => 2, c => 'nyuck nyuck' } ) }, 'send' );
done_testing;