Changeset 13848 in project


Ignore:
Timestamp:
03/20/09 15:16:01 (11 years ago)
Author:
Kon Lovett
Message:

Reduced bounds so the tests will see a finish

Location:
release/4/srfi-45
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/srfi-45/tags/2.0.0/tests/run.scm

    r13839 r13848  
    33(require-extension srfi-45)
    44
    5 #;
    6 (define-syntax bounded-space
     5(define-syntax +bounded-space
    76  (syntax-rules (force)
    87    ((_ (force ?expr))
    9      (force ?expr) ) ) )
    10 (define-syntax bounded-space
     8      (begin
     9        (print "+++ Bounded Space Test: (force " '?expr ") +++")
     10        (force ?expr) ) ) ) )
     11
     12(define-syntax -bounded-space
    1113  (syntax-rules (force)
    1214    ((_ (force ?expr))
    13      (print "+++ Skipping Bounded Space Test: (force " '?expr ") +++") ) ) )
     15      (print "+++ Skipping Bounded Space Test: (force " '?expr ") +++") ) ) )
    1416
    1517;=========================================================================
     
    131133(define (loop) (lazy (loop)))
    132134
    133 (bounded-space (force (loop)))
     135(-bounded-space (force (loop)))
    134136
    135137;=========================================================================
     
    139141(define s (loop))
    140142
    141 (bounded-space (force s))
     143(-bounded-space (force s))
    142144
    143145;=========================================================================
     
    150152  (lazy (traverse (cdr (force s)))))
    151153
    152 (bounded-space (force (traverse (from 0))))
     154(-bounded-space (force (traverse (from 0))))
    153155
    154156;=========================================================================
     
    158160(define s (traverse (from 0)))
    159161
    160 (bounded-space (force s))
     162(-bounded-space (force s))
    161163
    162164;=========================================================================
     
    186188                       (stream-filter p? t))))))
    187189
    188 (bounded-space (force (stream-filter (lambda (n) (= n 10000000000)) (from 0))))
     190(+bounded-space (force (stream-filter (lambda (n) (= n 100000 #;10000000000)) (from 0))))
    189191
    190192;========================================================================
     
    208210(print "+++ Should print 0 +++")
    209211
    210 (print (force (stream-ref (stream-filter zero? (from 0)) 0))) ;==> 0
    211 
    212 (define s (stream-ref (from 0) 100000000))
    213 
    214 (bounded-space (force s))
     212(print (force (stream-ref (stream-filter zero? (from 0)) 0)))
     213
     214(define s (stream-ref (from 0) 10000 #;100000000))
     215
     216(+bounded-space (force s))
    215217
    216218;======================================================================
     
    227229(print (force (times3 7)))
    228230
    229 (bounded-space (force (times3 100000000)))
     231(+bounded-space (force (times3 10000 #;100000000)))
  • release/4/srfi-45/trunk/tests/run.scm

    r13837 r13848  
    33(require-extension srfi-45)
    44
    5 #;
    6 (define-syntax bounded-space
     5(define-syntax +bounded-space
    76  (syntax-rules (force)
    87    ((_ (force ?expr))
    9      (force ?expr) ) ) )
    10 (define-syntax bounded-space
     8      (begin
     9        (print "+++ Bounded Space Test: (force " '?expr ") +++")
     10        (force ?expr) ) ) ) )
     11
     12(define-syntax -bounded-space
    1113  (syntax-rules (force)
    1214    ((_ (force ?expr))
    13      (print "+++ Skipping Bounded Space Test: (force " '?expr ") +++") ) ) )
     15      (print "+++ Skipping Bounded Space Test: (force " '?expr ") +++") ) ) )
    1416
    1517;=========================================================================
     
    131133(define (loop) (lazy (loop)))
    132134
    133 (bounded-space (force (loop)))
     135(-bounded-space (force (loop)))
    134136
    135137;=========================================================================
     
    139141(define s (loop))
    140142
    141 (bounded-space (force s))
     143(-bounded-space (force s))
    142144
    143145;=========================================================================
     
    150152  (lazy (traverse (cdr (force s)))))
    151153
    152 (bounded-space (force (traverse (from 0))))
     154(-bounded-space (force (traverse (from 0))))
    153155
    154156;=========================================================================
     
    158160(define s (traverse (from 0)))
    159161
    160 (bounded-space (force s))
     162(-bounded-space (force s))
    161163
    162164;=========================================================================
     
    186188                       (stream-filter p? t))))))
    187189
    188 (bounded-space (force (stream-filter (lambda (n) (= n 10000000000)) (from 0))))
     190(+bounded-space (force (stream-filter (lambda (n) (= n 100000 #;10000000000)) (from 0))))
    189191
    190192;========================================================================
     
    208210(print "+++ Should print 0 +++")
    209211
    210 (print (force (stream-ref (stream-filter zero? (from 0)) 0))) ;==> 0
    211 
    212 (define s (stream-ref (from 0) 100000000))
    213 
    214 (bounded-space (force s))
     212(print (force (stream-ref (stream-filter zero? (from 0)) 0)))
     213
     214(define s (stream-ref (from 0) 10000 #;100000000))
     215
     216(+bounded-space (force s))
    215217
    216218;======================================================================
     
    227229(print (force (times3 7)))
    228230
    229 (bounded-space (force (times3 100000000)))
     231(+bounded-space (force (times3 10000 #;100000000)))
Note: See TracChangeset for help on using the changeset viewer.