diff options
Diffstat (limited to 'Examples/test-suite/schemerunme/cpp11_move_typemaps.scm')
-rw-r--r-- | Examples/test-suite/schemerunme/cpp11_move_typemaps.scm | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/Examples/test-suite/schemerunme/cpp11_move_typemaps.scm b/Examples/test-suite/schemerunme/cpp11_move_typemaps.scm new file mode 100644 index 000000000..0a8b85a58 --- /dev/null +++ b/Examples/test-suite/schemerunme/cpp11_move_typemaps.scm @@ -0,0 +1,23 @@ +(Counter-reset-counts) +(define mo (new-MoveOnly 111)) +(Counter-check-counts 1 0 0 0 0 0) +(MoveOnly-take mo) +(Counter-check-counts 1 0 0 1 0 2) +(delete-MoveOnly mo) +(Counter-check-counts 1 0 0 1 0 2) + +(Counter-reset-counts) +(define mo (new-MovableCopyable 111)) +(Counter-check-counts 1 0 0 0 0 0) +(MovableCopyable-take mo) +(Counter-check-counts 1 0 0 1 0 2) +(delete-MovableCopyable mo) +(Counter-check-counts 1 0 0 1 0 2) + +(define mo (new-MoveOnly 222)) +(MoveOnly-take mo) +(expect-throw 'misc-error + (MoveOnly-take mo)) +; TODO: check the exception message + +(exit 0) |