Changeset 34956 in project


Ignore:
Timestamp:
12/24/17 19:50:42 (3 weeks ago)
Author:
kon
Message:

need srfi 18 (?)

Location:
release/4/lookup-table/trunk/tests
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/lookup-table/trunk/tests/safe-synch.scm

    r16148 r34956  
    66(newline) (print "*** Lookup Table Safe Synch ***")
    77
    8 (use test srfi-1)
     8(use test srfi-1 srfi-18)
    99;;;
    1010
     
    1717
    1818    (let ((tbl1 (alist->dict/synch (list-copy al) tst)))
    19  
     19
    2020      (test-assert (dict?/synch tbl1))
    2121      (test tst (dict-equivalence-function/synch tbl1))
    22  
     22
    2323      (test-assert (tst foodat (dict-ref/synch tbl1 'foo)))
    2424      (test-assert (begin (dict-delete!/synch tbl1 'foo) #t))
    2525      (test-assert (not (dict-ref/synch tbl1 'foo)))
    26  
     26
    2727      (test '() (dict-update!/synch tbl1 'foo (lambda () '())))
    2828      (test '(1) (dict-update!/synch tbl1 'foo void (lambda (x) (append x '(1)))))
    29  
     29
    3030      (test '() (dict-update-list!/synch tbl1 'list))
    3131      (test '(1 2) (dict-update-list!/synch tbl1 'list 1 2))
    32  
     32
    3333      (let ((tbl2 (dict-update-dict!/synch tbl1 'dict)))
    3434        (test tbl2 (dict-ref/synch tbl1 'dict))
    3535        (test tbl2 (dict-update-dict!/synch tbl1 'dict)) ) )
    36  
     36
    3737    (let ((tbl (alist->dict/synch (list-copy al) tst)))
    3838      (test-assert (begin (dict-merge!/synch tbl (alist->dict/synch '((off . rab) (baz . pob)) tst)) #t))
  • release/4/lookup-table/trunk/tests/test-body.scm

    r22484 r34956  
    11;;;; lookup-table-test-body.scm
    22
    3 (use test srfi-1)
     3(use test srfi-1 srfi-18)
    44
    55;;;
     
    1313
    1414    (let ((tbl1 (alist->dict (list-copy al) tst)))
    15  
     15
    1616      (test-assert (dict? tbl1))
    1717      (test tst (dict-equivalence-function tbl1))
    18  
     18
    1919      (test-assert (tst foodat (dict-ref tbl1 'foo)))
    2020      (test-assert (begin (dict-delete! tbl1 'foo) #t))
    2121      (test-assert (not (dict-ref tbl1 'foo)))
    22  
     22
    2323      (test '() (dict-update! tbl1 'foo (lambda () '())))
    2424      (test '(1) (dict-update! tbl1 'foo void (lambda (x) (append x '(1)))))
    25  
     25
    2626      (test '() (dict-update-list! tbl1 'list))
    2727      (test '(1 2) (dict-update-list! tbl1 'list 1 2))
    28  
     28
    2929      (let ((tbl2 (dict-update-dict! tbl1 'dict)))
    3030        (test-assert (dict? (dict-ref tbl1 'dict)))
    3131        (test tbl2 (dict-ref tbl1 'dict))
    3232        (test tbl2 (dict-update-dict! tbl1 'dict)) ) )
    33  
     33
    3434    (let ((tbl (alist->dict (list-copy al) tst)))
    3535      (test-assert (begin (dict-merge! tbl (alist->dict '((off . rab) (baz . pob)) tst)) #t))
  • release/4/lookup-table/trunk/tests/unsafe-synch.scm

    r16148 r34956  
    66(newline) (print "*** Lookup Table UnSafe Synch ***")
    77
    8 (use test srfi-1)
     8(use test srfi-1 srfi-18)
    99;;;
    1010
     
    1717
    1818    (let ((tbl1 (alist->dict/synch (list-copy al) tst)))
    19  
     19
    2020      (test-assert (dict?/synch tbl1))
    2121      (test tst (dict-equivalence-function/%synch tbl1))
    22  
     22
    2323      (test-assert (tst foodat (dict-ref/%synch tbl1 'foo)))
    2424      (test-assert (begin (dict-delete!/%synch tbl1 'foo) #t))
    2525      (test-assert (not (dict-ref/%synch tbl1 'foo)))
    26  
     26
    2727      (test '() (dict-update!/%synch tbl1 'foo (lambda () '())))
    2828      (test '(1) (dict-update!/%synch tbl1 'foo void (lambda (x) (append x '(1)))))
    29  
     29
    3030      (test '() (dict-update-list!/%synch tbl1 'list))
    3131      (test '(1 2) (dict-update-list!/%synch tbl1 'list 1 2))
    32  
     32
    3333      (let ((tbl2 (dict-update-dict!/%synch tbl1 'dict)))
    3434        (test tbl2 (dict-ref/%synch tbl1 'dict))
    3535        (test tbl2 (dict-update-dict!/%synch tbl1 'dict)) ) )
    36  
     36
    3737    (let ((tbl (alist->dict/synch (list-copy al) tst)))
    3838      (test-assert (begin (dict-merge!/%synch tbl (alist->dict/synch '((off . rab) (baz . pob)) tst)) #t))
Note: See TracChangeset for help on using the changeset viewer.