tests/foreign-record.log

   1 %%%% Starting test foreign-record
   2 Group begin: foreign-record
   3 Test begin:
   4   source-file: "tests/foreign-record.scm"
   5   source-line: 36
   6   source-form: (test-assert (dimension2d? dim))
   7 Test end:
   8   result-kind: pass
   9   actual-value: #t
  10 Test begin:
  11   source-file: "tests/foreign-record.scm"
  12   source-line: 37
  13   source-form: (test-equal 10 (dimension2d-width dim))
  14 Test end:
  15   result-kind: pass
  16   actual-value: 10
  17   expected-value: 10
  18 Test begin:
  19   source-file: "tests/foreign-record.scm"
  20   source-line: 38
  21   source-form: (test-equal 20 (dimension2d-height dim))
  22 Test end:
  23   result-kind: pass
  24   actual-value: 20
  25   expected-value: 20
  26 Test begin:
  27   source-file: "tests/foreign-record.scm"
  28   source-line: 43
  29   source-form: (test-equal 50 (dimension2d-width dim))
  30 Test end:
  31   result-kind: pass
  32   actual-value: 50
  33   expected-value: 50
  34 Test begin:
  35   source-file: "tests/foreign-record.scm"
  36   source-line: 44
  37   source-form: (test-equal 100 (dimension2d-height dim))
  38 Test end:
  39   result-kind: pass
  40   actual-value: 100
  41   expected-value: 100
  42 Test begin:
  43   source-file: "tests/foreign-record.scm"
  44   source-line: 47
  45   source-form: (test-assert (pointer? (foreign-record->pointer dim)))
  46 Test end:
  47   result-kind: pass
  48   actual-value: #t
  49 Group end: foreign-record
  50 # of expected passes      6