# This test case points out a problem in the freeing
# of used memory in 1.90_01
use Test::More tests => 2;
use PDL::LiteF;
use Test::Exception;
# PDL::Core::set_debugging(1);
use strict;
use warnings;
kill 'INT',$$ if $ENV{UNDER_DEBUGGER}; # Useful for debugging.
lives_ok {
my $pa = pdl (1,2);
my $pb = pdl [[1,2],[1,2],[1,2]];
my $pc = $pa->slice(',*3');
$pc->make_physical;
$pc = $pb->clump(2);
$pb->make_physical;
$pc->make_physical;
};
lives_ok {
my $pa = zeroes 4,5;
my $pb = $pa->slice('1:3:2,2:4:2');
$pb .= ones(2,2);
note $pa;
};