use strict;
is_deeply(
append( zeroes( 2, 0 ), zeroes( 3, 0 ) )->shape->unpdl,
[ 5, 0 ],
'multi-dim empty shape'
);
is_deeply( append( pdl( 1, 2, 3, 4 ), 2 )->unpdl, [ 1, 2, 3, 4, 2 ], '[4], [1]' );
subtest '$output = append (null,null) ' => sub {
my $output = append( null, null );
ok !$output->isnull, 'returns non-null';
ok $output->isempty, 'returns empty';
};
subtest 'append(null, null, $output)' => sub {
my $output = zeroes(1);
append( null, null, $output );
is_deeply( $output->unpdl, [0], q{user's ndarray is unchanged} );
};
subtest types => sub {
is( append( zeroes( float, 2, 0 ), zeroes( 3, 0 ) )->type,
'float', 'float + double = float' );
my $b1 = indx( 1, 2 );
is $b1->type, 'indx', '$indx_pdl is an indx pdl';
$b1 = $b1->append(-1);
is $b1->type, 'indx', 'append($indx_pdl, -1) returns an indx pdl';
is $b1. '', '[1 2 -1]', 'append($indx_pdl, -1) correct content';
};
done_testing;