view release on metacpan or  search on metacpan

lib/FP/Weak/t.pm  view on Meta::CPAN

#
# Copyright (c) 2015 Christian Jaeger, copying@christianjaeger.ch
#
# This is free software, offered under either the same terms as perl 5
# or the terms of the Artistic License version 2 or the terms of the
# MIT License (Expat version). See the file COPYING.md that came
# bundled with this file.
#

=head1 NAME

FP::Weak::t - tests for FP::Weak

=head1 SYNOPSIS

 # just let it sit there and be tested by `t/require_and_run_tests`

=head1 DESCRIPTION


=head1 NOTE

This is alpha software! Read the status section in the package README
or on the L<website|http://functional-perl.org/>.

=cut

package FP::Weak::t;

use strict;
use warnings;
use warnings FATAL => 'uninitialized';

use FP::Weak ":all";
use Chj::TEST;

sub t {
    my $foo = [];
    weaken $foo;
    $foo
}

TEST { my $foo = []; noweaken $foo; $foo }
[];
TEST {t}
undef;
TEST {
    with_noweaken {t}
}
[];
TEST { &with_noweaken(\&t) }
[];
TEST {t}
undef;
TEST {
    my @w;
    local $SIG{__WARN__} = sub {
        my ($msg) = @_;
        $msg =~ s/0x[0-9a-f]*/0x.../s;
        $msg =~ s/ at .*/ .../s;
        push @w, $msg
    };
    [&with_warnweaken(\&t), @w]
}
[undef, "weaken (ARRAY(0x...)) ..."];

1