Record

Check if a record is a subtype

Given a file named “main.scm” with:

(import (scheme base))

(define-record-type foo
  (make-foo)
  foo?)

(write-u8 (if (<predicate> (make-foo)) 65 66))

When I successfully run stak main.scm

Then the stdout should contain exactly “B”.

Examples

predicate
boolean?
bytevector?
char?
eof-object?
null?
number?
pair?
port?
procedure?
string?
symbol?
vector?

Record with no field

Define a record type

Given a file named “main.scm” with:

(import (scheme base))

(define-record-type foo
  (make-foo)
  foo?)

When I successfully run stak main.scm

Then the exit status should be 0.

Make a record

Given a file named “main.scm” with:

(import (scheme base))

(define-record-type foo
  (make-foo)
  foo?)

(make-foo)

When I successfully run stak main.scm

Then the exit status should be 0.

Check a record type

Given a file named “main.scm” with:

(import (scheme base))

(define-record-type foo
  (make-foo)
  foo?)

(write-u8 (if (foo? (make-foo)) 65 66))

When I successfully run stak main.scm

Then the stdout should contain exactly “A”.

Record with fields

Define a record type

Given a file named “main.scm” with:

(import (scheme base))

(define-record-type foo
  (make-foo x y)
  foo?
  (x foo-x)
  (y foo-y foo-set-y!))

When I successfully run stak main.scm

Then the exit status should be 0.

Make a record

Given a file named “main.scm” with:

(import (scheme base))

(define-record-type foo
  (make-foo x y)
  foo?
  (x foo-x)
  (y foo-y foo-set-y!))

(make-foo 1 2)

When I successfully run stak main.scm

Then the exit status should be 0.

Check a record type

Given a file named “main.scm” with:

(import (scheme base))

(define-record-type foo
  (make-foo x y)
  foo?
  (x foo-x)
  (y foo-y))

(write-u8 (if (foo? (make-foo 1 2)) 65 66))

When I successfully run stak main.scm

Then the stdout should contain exactly “A”.

Get a field

Given a file named “main.scm” with:

(import (scheme base))

(define-record-type foo
  (make-foo x y)
  foo?
  (x foo-x)
  (y foo-y foo-set-y!))

(define record (make-foo 65 66))

(write-u8 (foo-x record))
(write-u8 (foo-y record))

When I successfully run stak main.scm

Then the stdout should contain exactly “AB”.

Set a field

Given a file named “main.scm” with:

(import (scheme base))

(define-record-type foo
  (make-foo x y)
  foo?
  (x foo-x)
  (y foo-y foo-set-y!))

(define record (make-foo 65 66))

(foo-set-y! record 88)

(write-u8 (foo-x record))
(write-u8 (foo-y record))

When I successfully run stak main.scm

Then the stdout should contain exactly “AX”.