File: cpp11_rvalue_reference_move_runme.pl

package info (click to toggle)
swig 4.1.0-0.2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 47,992 kB
  • sloc: cpp: 50,555; ansic: 27,840; java: 15,366; python: 11,221; cs: 8,852; ruby: 6,307; yacc: 6,290; makefile: 5,702; sh: 5,492; perl: 3,818; php: 3,046; ml: 2,094; lisp: 1,756; javascript: 1,751; tcl: 1,499; xml: 115
file content (70 lines) | stat: -rw-r--r-- 2,914 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
use strict;
use warnings;
use Test::More tests => 7;
BEGIN { use_ok('cpp11_rvalue_reference_move') }
require_ok('cpp11_rvalue_reference_move');

{
  # Function containing rvalue reference parameter
  cpp11_rvalue_reference_move::Counter::reset_counts();
  my $mo = new cpp11_rvalue_reference_move::MovableCopyable(222);
  cpp11_rvalue_reference_move::Counter::check_counts(1, 0, 0, 0, 0, 0);
  cpp11_rvalue_reference_move::MovableCopyable::movein($mo);
  cpp11_rvalue_reference_move::Counter::check_counts(1, 0, 0, 1, 0, 2);
  is(cpp11_rvalue_reference_move::MovableCopyable::is_nullptr($mo), 1, "is_nullptr check");
  undef $mo;
  cpp11_rvalue_reference_move::Counter::check_counts(1, 0, 0, 1, 0, 2);
}

{
  # Move constructor test
  cpp11_rvalue_reference_move::Counter::reset_counts();
  my $mo = new cpp11_rvalue_reference_move::MovableCopyable(222);
  cpp11_rvalue_reference_move::Counter::check_counts(1, 0, 0, 0, 0, 0);
  my $mo_moved = new cpp11_rvalue_reference_move::MovableCopyable($mo);
  cpp11_rvalue_reference_move::Counter::check_counts(1, 0, 0, 1, 0, 1);
  is(cpp11_rvalue_reference_move::MovableCopyable::is_nullptr($mo), 1, "is_nullptr check");
  undef $mo;
  cpp11_rvalue_reference_move::Counter::check_counts(1, 0, 0, 1, 0, 1);
  undef $mo_moved;
  cpp11_rvalue_reference_move::Counter::check_counts(1, 0, 0, 1, 0, 2);
}

{
  # Move assignment operator test
  cpp11_rvalue_reference_move::Counter::reset_counts();
  my $mo111 = new cpp11_rvalue_reference_move::MovableCopyable(111);
  my $mo222 = new cpp11_rvalue_reference_move::MovableCopyable(222);
  cpp11_rvalue_reference_move::Counter::check_counts(2, 0, 0, 0, 0, 0);
  $mo111->MoveAssign($mo222);
  cpp11_rvalue_reference_move::Counter::check_counts(2, 0, 0, 0, 1, 1);
  is(cpp11_rvalue_reference_move::MovableCopyable::is_nullptr($mo222), 1, "is_nullptr check");
  undef $mo222;
  cpp11_rvalue_reference_move::Counter::check_counts(2, 0, 0, 0, 1, 1);
  undef $mo111;
  cpp11_rvalue_reference_move::Counter::check_counts(2, 0, 0, 0, 1, 2);
}

{
  # null check
  cpp11_rvalue_reference_move::Counter::reset_counts();
  eval {
    cpp11_rvalue_reference_move::MovableCopyable::movein(undef);
  };
  like($@, qr/\binvalid null reference/, "Should have thrown null error");
  cpp11_rvalue_reference_move::Counter::check_counts(0, 0, 0, 0, 0, 0);
}

{
  # output
  cpp11_rvalue_reference_move::Counter::reset_counts();
  my $mc = cpp11_rvalue_reference_move::MovableCopyable::moveout(1234);
  cpp11_rvalue_reference_move::Counter::check_counts(2, 0, 0, 0, 1, 1);
  cpp11_rvalue_reference_move::MovableCopyable::check_numbers_match($mc, 1234);

  eval {
    cpp11_rvalue_reference_move::MovableCopyable::movein($mc);
  };
  like($@, qr/\bcannot release ownership as memory is not owned\b/, "Should have thrown 'Cannot release ownership as memory is not owned' error");
  cpp11_rvalue_reference_move::Counter::check_counts(2, 0, 0, 0, 1, 1);
}