Ignore:
Timestamp:
09/02/18 06:08:10 (3 years ago)
Author:
Kon Lovett
Message:

srfi-111

File:
1 edited

Legend:

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

    r36153 r36480  
    99
    1010(import box)
     11
     12;;
     13
     14(import (only (chicken platform) features))
     15
     16(test-group "Box Support"
     17  (test-assert "SRFI 111"
     18    (let loop ((rem (features)))
     19      (cond
     20        ((null? rem)
     21          #f )
     22        ((eq? #:srfi-111 (car rem))
     23          #t )
     24        (else
     25          (loop (cdr rem)) ) ) ) )
     26)
     27
     28;;
    1129
    1230(test-group "Box Mutable"
Note: See TracChangeset for help on using the changeset viewer.