Changeset 34195 in project


Ignore:
Timestamp:
06/19/17 20:49:55 (5 months ago)
Author:
kon
Message:

added snan test

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/coops-utils/trunk/tests/run.scm

    r33518 r34195  
    7575  (test "make/copy" 23 (slot@ inst y)) )
    7676
     77(let ()
     78  (define-class city () (name (market-class reader: city-market-class) sellers buyers (goods accessor: city-goods)))
     79  (define temphawa (make city 'name "Hawa" 'market-class 2))
     80  (test-assert "make/copy temphawa" (make/copy temphawa)) )
     81
    7782;primitive-instance?
    7883
Note: See TracChangeset for help on using the changeset viewer.