jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Guile testing - call gc instead of explicitly calling the destructor

Browse source
This commit is contained in:
William S Fulton 2022-08-18 21:42:25 +01:00
commit 63143e8773
2 changed files with 11 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Examples/test-suite/schemerunme/cpp11_std_unique_ptr.scm
View file

@ -9,7 +9,7 @@
(define s (useKlassRawPtr kini)) (define s (useKlassRawPtr kini))
(unless (string=? s "KlassInheritanceInput") (unless (string=? s "KlassInheritanceInput")
(error "Incorrect string: " s)) (error "Incorrect string: " s))
(delete-Klass kini) (set! kini '()) (gc)
(checkCount 0) (checkCount 0)
; unique_ptr as input ; unique_ptr as input
@ -21,7 +21,7 @@
(error "Incorrect string: " s)) (error "Incorrect string: " s))
(unless (is-nullptr kin) (unless (is-nullptr kin)
(error "is_nullptr failed")) (error "is_nullptr failed"))
(delete-Klass kin) ; Should not fail, even though already deleted (set! kini '()) (gc) ; Should not fail, even though already deleted
(checkCount 0) (checkCount 0)
(define kin (new-Klass "KlassInput")) (define kin (new-Klass "KlassInput"))
@ -35,7 +35,7 @@
(expect-throw 'misc-error (expect-throw 'misc-error
(takeKlassUniquePtr kin)) (takeKlassUniquePtr kin))
; TODO: check the exception message ; TODO: check the exception message
(delete-Klass kin) ; Should not fail, even though already deleted (set! kin '()) (gc) ; Should not fail, even though already deleted
(checkCount 0) (checkCount 0)
(define kin (new-Klass "KlassInput")) (define kin (new-Klass "KlassInput"))
@ -44,7 +44,7 @@
(takeKlassUniquePtr notowned)) (takeKlassUniquePtr notowned))
; TODO: check the exception message ; TODO: check the exception message
(checkCount 1) (checkCount 1)
(delete-Klass kin) (set! kin '()) (gc)
(checkCount 0) (checkCount 0)
(define kini (new-KlassInheritance "KlassInheritanceInput")) (define kini (new-KlassInheritance "KlassInheritanceInput"))
@ -55,7 +55,7 @@
(error "Incorrect string: " s)) (error "Incorrect string: " s))
(unless (is-nullptr kini) (unless (is-nullptr kini)
(error "is_nullptr failed")) (error "is_nullptr failed"))
(delete-Klass kini) ; Should not fail, even though already deleted (set! kini '()) (gc) ; Should not fail, even though already deleted
(checkCount 0) (checkCount 0)
; unique_ptr as output ; unique_ptr as output
@ -63,13 +63,13 @@
(define k2 (makeKlassUniquePtr "second")) (define k2 (makeKlassUniquePtr "second"))
(checkCount 2) (checkCount 2)
(delete-Klass k1) (set! k1 '()) (gc)
(checkCount 1) (checkCount 1)
(unless (string=? (Klass-getLabel k2) "second") (unless (string=? (Klass-getLabel k2) "second")
(error "wrong object label" )) (error "wrong object label" ))
(delete-Klass k2) (set! k2 '()) (gc)
(checkCount 0) (checkCount 0)
(exit 0) (exit 0)

6
Examples/test-suite/schemerunme/newobject1.scm
View file

@ -7,10 +7,12 @@
(define foo2 (Foo-makeMore foo1)) (define foo2 (Foo-makeMore foo1))
(check (= (Foo-fooCount) 2)) (check (= (Foo-fooCount) 2))
(delete-Foo foo1) (set! foo1 '())
(gc)
(check (= (Foo-fooCount) 1)) (check (= (Foo-fooCount) 1))
(delete-Foo foo2) (set! foo2 '())
(gc)
(check (= (Foo-fooCount) 0)) (check (= (Foo-fooCount) 0))
(exit 0) (exit 0)