Changeset 35001 in project


Ignore:
Timestamp:
01/11/18 03:20:50 (8 months ago)
Author:
kon
Message:

add run-tests to runner

Location:
release/4/thread-utils/trunk/tests
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/thread-utils/trunk/tests/atomic-value-test.scm

    r35000 r35001  
    7474(test-group "counter w/ mutator"
    7575  (let ((a (atom-mutate (atom 0) add1)))                ;     +1
    76     (test 1 (begin (atom-set! a 0) (atom-value a)))      ;0    +1
     76    (test 1 (begin (atom-set! a 0) (atom-value a)))     ;0    +1
    7777    (test 3 (begin (atom-add1! a) (atom-value a)))      ;1 +1 +1
    7878    (test 3 (begin (atom-sub1! a) (atom-value a))) )    ;3 -1 +1
  • release/4/thread-utils/trunk/tests/run.scm

    r34914 r35001  
    3636    (system (make-pathname (cond-expand (unix "./") (else #f)) tstnam)) ) )
    3737
     38(define (run-tests eggnams #!optional (cscopts *csc-options*))
     39  (for-each (cut run-test <> cscopts) eggnams) )
     40
    3841;;;
    3942
    40 (run-test)
    41 
    42 (run-test "atomic-value")
     43(run-tests '("thread-utils" "atomic-value"))
Note: See TracChangeset for help on using the changeset viewer.