Retropikzel
/
foreign-c
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Uncomment all tests as accidentally merged in commented out version from mosh branch

This commit is contained in:
retropikzel 2025-03-15 06:49:38 +02:00
parent f529fcab52
commit a91d07398c
1 changed files with 21 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
test.scm
View File

@ -728,43 +728,32 @@
(debug (pffi-struct-get struct-test 'b)) (debug (pffi-struct-get struct-test 'b))
(assert char=? (pffi-struct-get struct-test 'b) #\b) (assert char=? (pffi-struct-get struct-test 'b) #\b)
(debug (pffi-struct-get struct-test 'c)) (debug (pffi-struct-get struct-test 'c))
;; FIXME (assert = (pffi-struct-get struct-test 'c) 3.0)
;(assert = (pffi-struct-get struct-test 'c) 3.0)
(debug (pffi-struct-get struct-test 'd)) (debug (pffi-struct-get struct-test 'd))
(assert char=? (pffi-struct-get struct-test 'd) #\d) (assert char=? (pffi-struct-get struct-test 'd) #\d)
(debug (pffi-struct-get struct-test 'e)) (debug (pffi-struct-get struct-test 'e))
(debug (pffi-pointer-null? (pffi-struct-get struct-test 'e))) (debug (pffi-pointer-null? (pffi-struct-get struct-test 'e)))
(assert equal? (pffi-pointer-null? (pffi-struct-get struct-test 'e)) #t) (assert equal? (pffi-pointer-null? (pffi-struct-get struct-test 'e)) #t)
(debug (pffi-struct-get struct-test 'f)) (debug (pffi-struct-get struct-test 'f))
;; FIXME (assert = (pffi-struct-get struct-test 'f) 6.0)
;(assert = (pffi-struct-get struct-test 'f) 6.0)
(debug (pffi-struct-get struct-test 'g)) (debug (pffi-struct-get struct-test 'g))
;; FIXME (debug (pffi-pointer->string (pffi-struct-get struct-test 'g)))
;(debug (pffi-pointer->string (pffi-struct-get struct-test 'g))) (assert equal? (string=? (pffi-pointer->string (pffi-struct-get struct-test 'g)) "FOOBAR") #t)
;; FIXME
;(assert equal? (string=? (pffi-pointer->string (pffi-struct-get struct-test 'g)) "FOOBAR") #t)
(debug (pffi-struct-get struct-test 'h)) (debug (pffi-struct-get struct-test 'h))
(assert = (pffi-struct-get struct-test 'h) 8) (assert = (pffi-struct-get struct-test 'h) 8)
(debug (pffi-struct-get struct-test 'i)) (debug (pffi-struct-get struct-test 'i))
(debug (pffi-pointer-null? (pffi-struct-get struct-test 'i))) (debug (pffi-pointer-null? (pffi-struct-get struct-test 'i)))
;; FIXME (assert equal? (pffi-pointer-null? (pffi-struct-get struct-test 'i)) #t)
;(assert equal? (pffi-pointer-null? (pffi-struct-get struct-test 'i)) #t) (debug (pffi-struct-get struct-test 'j))
;; FIXME (assert = (pffi-struct-get struct-test 'j) 10)
;(debug (pffi-struct-get struct-test 'j))
;; FIXME
;(assert = (pffi-struct-get struct-test 'j) 10)
(debug (pffi-struct-get struct-test 'k)) (debug (pffi-struct-get struct-test 'k))
;; FIXME (assert = (pffi-struct-get struct-test 'k) 11)
;(assert = (pffi-struct-get struct-test 'k) 11)
(debug (pffi-struct-get struct-test 'l)) (debug (pffi-struct-get struct-test 'l))
;; FIXME (assert = (pffi-struct-get struct-test 'l) 12)
;(assert = (pffi-struct-get struct-test 'l) 12)
(debug (pffi-struct-get struct-test 'm)) (debug (pffi-struct-get struct-test 'm))
;; FIXME (assert = (pffi-struct-get struct-test 'm) 13.0)
;(assert = (pffi-struct-get struct-test 'm) 13.0)
(debug (pffi-struct-get struct-test 'n)) (debug (pffi-struct-get struct-test 'n))
;; FIXME (assert = (pffi-struct-get struct-test 'n) 14.0)
;(assert = (pffi-struct-get struct-test 'n) 14.0)
;; pffi-struct-set! 1 ;; pffi-struct-set! 1
@ -833,40 +822,31 @@
(debug (pffi-struct-get struct-test2 'b)) (debug (pffi-struct-get struct-test2 'b))
(assert char=? (pffi-struct-get struct-test2 'b) #\b) (assert char=? (pffi-struct-get struct-test2 'b) #\b)
(debug (pffi-struct-get struct-test2 'c)) (debug (pffi-struct-get struct-test2 'c))
;; FIXME (assert = (pffi-struct-get struct-test2 'c) 3)
;(assert = (pffi-struct-get struct-test2 'c) 3)
(debug (pffi-struct-get struct-test2 'd)) (debug (pffi-struct-get struct-test2 'd))
(assert char=? (pffi-struct-get struct-test2 'd) #\d) (assert char=? (pffi-struct-get struct-test2 'd) #\d)
(debug (pffi-struct-get struct-test2 'e)) (debug (pffi-struct-get struct-test2 'e))
(debug (pffi-pointer-null? (pffi-struct-get struct-test2 'e))) (debug (pffi-pointer-null? (pffi-struct-get struct-test2 'e)))
(assert equal? (pffi-pointer-null? (pffi-struct-get struct-test2 'e)) #t) (assert equal? (pffi-pointer-null? (pffi-struct-get struct-test2 'e)) #t)
(debug (pffi-struct-get struct-test2 'f)) (debug (pffi-struct-get struct-test2 'f))
;; FIXME (assert = (pffi-struct-get struct-test2 'f) 6.0)
;(assert = (pffi-struct-get struct-test2 'f) 6.0) (debug (pffi-pointer->string (pffi-struct-get struct-test2 'g)))
;; FIXME (assert equal? (string=? (pffi-pointer->string (pffi-struct-get struct-test2 'g)) "FOOBAR") #t)
;(debug (pffi-pointer->string (pffi-struct-get struct-test2 'g)))
;(assert equal? (string=? (pffi-pointer->string (pffi-struct-get struct-test2 'g)) "FOOBAR") #t)
(debug (pffi-struct-get struct-test2 'h)) (debug (pffi-struct-get struct-test2 'h))
(assert = (pffi-struct-get struct-test2 'h) 8) (assert = (pffi-struct-get struct-test2 'h) 8)
(debug (pffi-struct-get struct-test2 'i)) (debug (pffi-struct-get struct-test2 'i))
(debug (pffi-pointer-null? (pffi-struct-get struct-test2 'i))) (debug (pffi-pointer-null? (pffi-struct-get struct-test2 'i)))
;; FIXME (assert (lambda (p t) (pffi-pointer-null? p)) (pffi-struct-get struct-test2 'i) #t)
;(assert (lambda (p t) (pffi-pointer-null? p)) (pffi-struct-get struct-test2 'i) #t)
(debug (pffi-struct-get struct-test2 'j)) (debug (pffi-struct-get struct-test2 'j))
;; FIXME (assert = (pffi-struct-get struct-test2 'j) 10)
;(assert = (pffi-struct-get struct-test2 'j) 10)
(debug (pffi-struct-get struct-test2 'k)) (debug (pffi-struct-get struct-test2 'k))
;; FIXME (assert = (pffi-struct-get struct-test2 'k) 11)
;(assert = (pffi-struct-get struct-test2 'k) 11)
(debug (pffi-struct-get struct-test2 'l)) (debug (pffi-struct-get struct-test2 'l))
;; FIXME (assert = (pffi-struct-get struct-test2 'l) 12)
;(assert = (pffi-struct-get struct-test2 'l) 12)
(debug (pffi-struct-get struct-test2 'm)) (debug (pffi-struct-get struct-test2 'm))
;; FIXME (assert = (pffi-struct-get struct-test2 'm) 13.0)
;(assert = (pffi-struct-get struct-test2 'm) 13.0)
(debug (pffi-struct-get struct-test2 'n)) (debug (pffi-struct-get struct-test2 'n))
;; FIXME (assert = (pffi-struct-get struct-test2 'n) 14.0)
;(assert = (pffi-struct-get struct-test2 'n) 14.0)
;; pffi-struct-dereference ;; pffi-struct-dereference