view release on metacpan or  search on metacpan

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

use strict;
use warnings;
use Test::More;
use Test::LongString;
use Data::Undump qw(undump);
use Data::Dumper;
our @dump;
{
    local $/="";
    while (<DATA>) {
        chomp;
        push @dump, $_;
    }
}
plan tests => 1 + 3 * @dump;
pass();
sub dd { return Data::Dumper->new([$_[0]])->Purity(1)->Useqq(1)->Sortkeys(1)->Dump() }
sub check {
    my $dump= shift;

t/02_error.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Data::Undump qw(undump);
use Data::Dumper;
our @tests;
{
    local $/= "";
    while (<DATA>) {
        chomp;
        push @tests, [split /\s*\|\s*/, $_, 2];
    }
}
plan tests => 1 + @tests;
pass();
foreach my $test (@tests) {
    my ($dump, $want_error)= @$test;
    my $res= undump($dump);