%%%% Starting test records
Group begin: records
Test begin:
  test-name: "define-record-type*"
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "define-record-type* with letrec* behavior"
Test end:
  result-kind: pass
  actual-value: #<unspecified>
Test begin:
  test-name: "define-record-type* & inherit"
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "define-record-type* & inherit & letrec* behavior"
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "define-record-type* & thunked"
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "define-record-type* & thunked & default"
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "define-record-type* & thunked & inherited"
Test end:
  result-kind: pass
  actual-value: #t
Group end: records
# of expected passes      7