view release on metacpan or  search on metacpan

t/fuzzed.t  view on Meta::CPAN

    next if $node =~ tr<.><>;

    open my $rfh, '<:raw', "$fuzzed_dir/$node";
    my $cbor = do { local $/; <$rfh> };

    eval {
        local $SIG{'__WARN__'} = sub {};
        CBOR::Free::decode($cbor);
    };

    ok 1, "$node: still alive";
}

done_testing;