Changeset 5646 in project


Ignore:
Timestamp:
08/23/07 12:25:36 (13 years ago)
Author:
Kon Lovett
Message:

Chgd unique tag def.

Location:
testbase
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • testbase/testbase-expects.scm

    r3513 r5646  
    2424
    2525(define (->boolean val)
    26   (not (not val)) )
     26  (and val #t)
     27  #;(not (not val)) )
    2728
    2829(define-macro (expected VAL TEST)
  • testbase/testbase-proc.scm

    r5046 r5646  
    154154
    155155(define (->boolean obj)
    156   (not (not obj)) )
     156  (and obj #t)
     157  #;(not (not obj)) )
    157158
    158159(define (length=2? obj)
     
    434435;; State get operation parameter tag; a unique object
    435436
    436 (define (tb$stttg) tb$stttg)
     437(define tb$stttg (gensym "tb$stttg"))
    437438
    438439;;
  • testbase/testbase-runtime.scm

    r5046 r5646  
    10191019
    10201020(define (test::with-output-style styler resnode . rest)
    1021   (let ([dest (:optional rest #f)]
     1021  (let ([dest (optional rest #f)]
    10221022        [thunk (lambda () (styler resnode))])
    10231023    (cond
  • testbase/testbase-stat.scm

    r3550 r5646  
    141141      ['incr!
    142142        `(define (,ONAM statobj . rest)
    143           (vector-set! statobj ,IDX (+ (vector-ref statobj ,IDX) (:optional rest 1))))]
     143          (vector-set! statobj ,IDX (+ (vector-ref statobj ,IDX) (optional rest 1))))]
    144144      ['decr!
    145145        `(define (,ONAM statobj . rest)
    146           (vector-set! statobj ,IDX (- (vector-ref statobj ,IDX) (:optional rest 1))))]
     146          (vector-set! statobj ,IDX (- (vector-ref statobj ,IDX) (optional rest 1))))]
    147147      ['ref
    148148        `(define (,BNAM statobj)
  • testbase/testbase-version.scm

    r4552 r5646  
    11;;;; testbase-version.scm
    22
    3 (define-constant TESTBASE-VERSION "1.3")
     3(define-constant TESTBASE-VERSION "1.301")
  • testbase/testbase.html

    r4552 r5646  
    2121<h3>Version</h3>
    2222<ul>
     23<li>1.301 Dropped :optional</li>
    2324<li>1.3 Added define-expect-nary and test-collect</li>
    2425<li>1.2 Bugfix for define-expect-*/values</li>
Note: See TracChangeset for help on using the changeset viewer.