Ignore:
Timestamp:
08/21/20 16:46:26 (2 months ago)
Author:
Kon Lovett
Message:

dup slot storage

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/coops-utils/trunk/tests/coops-utils-test.scm

    r38761 r38863  
    9090;make-copy
    9191(let ((inst (make-copy s1xy-inst 'y 23)))
    92   (test "make-copy" 23 (slot@ inst y)) )
     92  ;check copy
     93  (test-assert "make-copy" (instance? inst))
     94  (test-assert "make-copy" (instance-of? inst <s1xy>))
     95  (test "make-copy" 23 (slot@ inst y))
     96  (test "make-copy" 1 (slot@ inst x))
     97  ;copy own slots?
     98  (slot@ inst x = 32)
     99  (test "make-copy isolation" 32 (slot@ inst x))
     100  (test "make-copy isolation" 1 (slot@ s1xy-inst x)) )
    93101
    94102(let ()
Note: See TracChangeset for help on using the changeset viewer.