view release on metacpan or  search on metacpan

t/01_basic.t  view on Meta::CPAN

use Test2::V0;
use lib 'lib';
use Codec::CBOR;
#
my $codec = Codec::CBOR->new();
#
subtest 'Basic Roundtrip' => sub {
    my @cases = (
        undef, 0, 1, 23, 24, 255, 256, 65535, 65536, 4294967295, 4294967296, -1, -24, -255, -65536, 'hello',
        'world with spaces',
        "unicode \x{1f600}",
        [ 1, 2, 3 ],
        { a     => 1,              b => 2 },
        { inner => [ { x => 1 } ], y => 'z' }
    );
    for my $case (@cases) {
        my $encoded = $codec->encode($case);
        my $decoded = $codec->decode($encoded);
        is $decoded, $case, 'Roundtrip for ' . ( defined $case ? ( ref $case // $case ) : 'undef' );
    }
};