%%%% 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