view release on metacpan or  search on metacpan

t/03-frozen.t  view on Meta::CPAN

    is $A->total_count, 4, "merge target total_count includes its own record plus the frozen other's three";
    is $A->min, 50,   'merge: min adopted from the frozen other';
    is $A->max, 1000, 'merge: max stays the local value';
    cmp_ok $A->count_at_value(1000), '>=', 1, 'merge target keeps its own item';
    cmp_ok $A->count_at_value($_), '>=', 1, "merged-in value $_ present after merge from frozen other"
        for (50, 60, 70);
}

done_testing;

# minimal exception helper (avoid a Test::Fatal dependency)
sub exception {
    my $code = shift;
    my $err;
    { local $@; eval { $code->(); 1 } or $err = $@; }
    return $err;
}