+++ /dev/null
-%%%% Starting test foreign-record
-Group begin: foreign-record
-Test begin:
- source-file: "tests/foreign-record.scm"
- source-line: 36
- source-form: (test-assert (dimension2d? dim))
-Test end:
- result-kind: pass
- actual-value: #t
-Test begin:
- source-file: "tests/foreign-record.scm"
- source-line: 37
- source-form: (test-equal 10 (dimension2d-width dim))
-Test end:
- result-kind: pass
- actual-value: 10
- expected-value: 10
-Test begin:
- source-file: "tests/foreign-record.scm"
- source-line: 38
- source-form: (test-equal 20 (dimension2d-height dim))
-Test end:
- result-kind: pass
- actual-value: 20
- expected-value: 20
-Test begin:
- source-file: "tests/foreign-record.scm"
- source-line: 43
- source-form: (test-equal 50 (dimension2d-width dim))
-Test end:
- result-kind: pass
- actual-value: 50
- expected-value: 50
-Test begin:
- source-file: "tests/foreign-record.scm"
- source-line: 44
- source-form: (test-equal 100 (dimension2d-height dim))
-Test end:
- result-kind: pass
- actual-value: 100
- expected-value: 100
-Test begin:
- source-file: "tests/foreign-record.scm"
- source-line: 47
- source-form: (test-assert (pointer? (foreign-record->pointer dim)))
-Test end:
- result-kind: pass
- actual-value: #t
-Group end: foreign-record
-# of expected passes 6