SWIGTYPE && input typemaps now assume object has been moved
Replicated Java implementation. Fully implemented for: - C# - D - Guile - Javascript (UTL) - Lua - MzScheme - Octave (UTL) - Perl (UTL) - PHP - Python (UTL) - Ruby (UTL) - Tcl (UTL) PHP std::auto_ptr std::unique_ptr minor tweaks and testcase corrections
This commit is contained in:
parent
0634883089
commit
e139a36511
31 changed files with 931 additions and 46 deletions
|
|
@ -0,0 +1,54 @@
|
|||
(load-extension "cpp11_rvalue_reference_move_input.so")
|
||||
(require (lib "defmacro.ss"))
|
||||
|
||||
; Copied from ../schemerunme/cpp11_rvalue_reference_move_input.scm and modified for exceptions
|
||||
|
||||
; Function containing rvalue reference parameter
|
||||
(Counter-reset-counts)
|
||||
(define mo (new-MovableCopyable 222))
|
||||
(Counter-check-counts 1 0 0 0 0 0)
|
||||
(MovableCopyable-movein mo)
|
||||
(Counter-check-counts 1 0 0 1 0 2)
|
||||
(unless (MovableCopyable-is-nullptr mo)
|
||||
(error "is_nullptr failed"))
|
||||
(delete-MovableCopyable mo)
|
||||
(Counter-check-counts 1 0 0 1 0 2)
|
||||
|
||||
; Move constructor test
|
||||
(Counter-reset-counts)
|
||||
(define mo (new-MovableCopyable 222))
|
||||
(Counter-check-counts 1 0 0 0 0 0)
|
||||
(define mo_moved (new-MovableCopyable mo))
|
||||
(Counter-check-counts 1 0 0 1 0 1)
|
||||
(unless (MovableCopyable-is-nullptr mo)
|
||||
(error "is_nullptr failed"))
|
||||
(delete-MovableCopyable mo)
|
||||
(Counter-check-counts 1 0 0 1 0 1)
|
||||
(delete-MovableCopyable mo_moved)
|
||||
(Counter-check-counts 1 0 0 1 0 2)
|
||||
|
||||
; Move assignment operator test
|
||||
(Counter-reset-counts)
|
||||
(define mo111 (new-MovableCopyable 111))
|
||||
(define mo222 (new-MovableCopyable 222))
|
||||
(Counter-check-counts 2 0 0 0 0 0)
|
||||
(MovableCopyable-MoveAssign mo111 mo222)
|
||||
(Counter-check-counts 2 0 0 0 1 1)
|
||||
(unless (MovableCopyable-is-nullptr mo222)
|
||||
(error "is_nullptr failed"))
|
||||
(delete-MovableCopyable mo222)
|
||||
(Counter-check-counts 2 0 0 0 1 1)
|
||||
(delete-MovableCopyable mo111)
|
||||
(Counter-check-counts 2 0 0 0 1 2)
|
||||
|
||||
; null check
|
||||
(Counter-reset-counts)
|
||||
(define exception_thrown "no exception thrown for kin")
|
||||
(with-handlers ([exn:fail? (lambda (exn)
|
||||
(set! exception_thrown (exn-message exn)))])
|
||||
(MovableCopyable-movein '()))
|
||||
(unless (string=? exception_thrown "MovableCopyable-movein: swig-type-error (null reference)")
|
||||
(error (format "incorrect exception message: ~a" exception_thrown)))
|
||||
(Counter-check-counts 0 0 0 0 0 0)
|
||||
|
||||
(exit 0)
|
||||
Loading…
Add table
Add a link
Reference in a new issue