Examples/test-suite/perl5/cpp11_move_typemaps_runme.pl

use strict;
use warnings;
use Test::More tests => 3;
BEGIN { use_ok('cpp11_move_typemaps') }
require_ok('cpp11_move_typemaps');

{
  cpp11_move_typemaps::Counter::reset_counts();
  my $mo = new cpp11_move_typemaps::MoveOnly(111);
  cpp11_move_typemaps::Counter::check_counts(1, 0, 0, 0, 0, 0);
  cpp11_move_typemaps::MoveOnly::take($mo);
  cpp11_move_typemaps::Counter::check_counts(1, 0, 0, 1, 0, 2);
  undef $mo;
}
cpp11_move_typemaps::Counter::check_counts(1, 0, 0, 1, 0, 2);

{
  cpp11_move_typemaps::Counter::reset_counts();
  my $mo = new cpp11_move_typemaps::MovableCopyable(111);
  cpp11_move_typemaps::Counter::check_counts(1, 0, 0, 0, 0, 0);
  cpp11_move_typemaps::MovableCopyable::take($mo);
  cpp11_move_typemaps::Counter::check_counts(1, 0, 0, 1, 0, 2);
  undef $mo;
}
cpp11_move_typemaps::Counter::check_counts(1, 0, 0, 1, 0, 2);

{
  my $mo = new cpp11_move_typemaps::MoveOnly(222);
  cpp11_move_typemaps::MoveOnly::take($mo);
  eval {
    cpp11_move_typemaps::MoveOnly::take($mo);
  };
  like($@, qr/\bcannot release ownership as memory is not owned\b/, "double usage of takeKlassUniquePtr should be an error");
}