—

              
#
# 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.
#
HideShow 18 lines of Pod
=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