| /dports/lang/guile1/guile-1.8.8/test-suite/tests/ |
| H A D | alist.test | 62 (pass-if "sloppy-assv"
86 (pass-if "assv"
87 (let ((x (assv 'a a)))
93 (assv 'x deformed))
117 (pass-if "assv-ref"
122 (pass-if-not "assv-ref not" (assv-ref b "one"))
133 (let* ((have-sloppy-assv-ref? (defined? 'sloppy-assv-ref)))
169 (pass-if "assv-set!"
175 (pass-if "assv-set! add"
194 (let* ((have-sloppy-assv-ref? (defined? 'sloppy-assv-ref)))
[all …]
|
| /dports/textproc/uim-gtk/sigscheme-beb8fbd/test/ |
| H A D | test-assoc.scm | 143 (assert-false (tn) (assv 'a '()))
165 (assert-false (tn) (assv 0 '()))
191 (assert-false (tn) (assv (string #\a) '()))
203 (assert-false (tn) (assv (list (string #\a))
205 (assert-false (tn) (assv (list (string #\b))
207 (assert-false (tn) (assv (list (string #\c))
209 (assert-false (tn) (assv (list (string #\d))
219 (assert-error (tn) (lambda () (assv 'a 'a)))
227 (assert-error (tn) (lambda () (assv 0 '0)))
232 (assert-equal? (tn) '(#\b . 1) (assv #\b
[all …]
|
| /dports/textproc/uim-gtk/uim-d1ac9d9/sigscheme/test/ |
| H A D | test-assoc.scm | 143 (assert-false (tn) (assv 'a '()))
165 (assert-false (tn) (assv 0 '()))
191 (assert-false (tn) (assv (string #\a) '()))
203 (assert-false (tn) (assv (list (string #\a))
205 (assert-false (tn) (assv (list (string #\b))
207 (assert-false (tn) (assv (list (string #\c))
209 (assert-false (tn) (assv (list (string #\d))
219 (assert-error (tn) (lambda () (assv 'a 'a)))
227 (assert-error (tn) (lambda () (assv 0 '0)))
232 (assert-equal? (tn) '(#\b . 1) (assv #\b
[all …]
|
| /dports/textproc/uim-m17nlib/uim-d1ac9d9/sigscheme/test/ |
| H A D | test-assoc.scm | 143 (assert-false (tn) (assv 'a '()))
165 (assert-false (tn) (assv 0 '()))
191 (assert-false (tn) (assv (string #\a) '()))
203 (assert-false (tn) (assv (list (string #\a))
205 (assert-false (tn) (assv (list (string #\b))
207 (assert-false (tn) (assv (list (string #\c))
209 (assert-false (tn) (assv (list (string #\d))
219 (assert-error (tn) (lambda () (assv 'a 'a)))
227 (assert-error (tn) (lambda () (assv 0 '0)))
232 (assert-equal? (tn) '(#\b . 1) (assv #\b
[all …]
|
| /dports/textproc/uim-qt5/uim-d1ac9d9/sigscheme/test/ |
| H A D | test-assoc.scm | 143 (assert-false (tn) (assv 'a '()))
165 (assert-false (tn) (assv 0 '()))
191 (assert-false (tn) (assv (string #\a) '()))
203 (assert-false (tn) (assv (list (string #\a))
205 (assert-false (tn) (assv (list (string #\b))
207 (assert-false (tn) (assv (list (string #\c))
209 (assert-false (tn) (assv (list (string #\d))
219 (assert-error (tn) (lambda () (assv 'a 'a)))
227 (assert-error (tn) (lambda () (assv 0 '0)))
232 (assert-equal? (tn) '(#\b . 1) (assv #\b
[all …]
|
| /dports/textproc/uim-qt5/sigscheme-beb8fbd/test/ |
| H A D | test-assoc.scm | 143 (assert-false (tn) (assv 'a '()))
165 (assert-false (tn) (assv 0 '()))
191 (assert-false (tn) (assv (string #\a) '()))
203 (assert-false (tn) (assv (list (string #\a))
205 (assert-false (tn) (assv (list (string #\b))
207 (assert-false (tn) (assv (list (string #\c))
209 (assert-false (tn) (assv (list (string #\d))
219 (assert-error (tn) (lambda () (assv 'a 'a)))
227 (assert-error (tn) (lambda () (assv 0 '0)))
232 (assert-equal? (tn) '(#\b . 1) (assv #\b
[all …]
|
| /dports/textproc/uim-m17nlib/sigscheme-beb8fbd/test/ |
| H A D | test-assoc.scm | 143 (assert-false (tn) (assv 'a '()))
165 (assert-false (tn) (assv 0 '()))
191 (assert-false (tn) (assv (string #\a) '()))
203 (assert-false (tn) (assv (list (string #\a))
205 (assert-false (tn) (assv (list (string #\b))
207 (assert-false (tn) (assv (list (string #\c))
209 (assert-false (tn) (assv (list (string #\d))
219 (assert-error (tn) (lambda () (assv 'a 'a)))
227 (assert-error (tn) (lambda () (assv 0 '0)))
232 (assert-equal? (tn) '(#\b . 1) (assv #\b
[all …]
|
| /dports/textproc/uim-gtk3/sigscheme-beb8fbd/test/ |
| H A D | test-assoc.scm | 143 (assert-false (tn) (assv 'a '()))
165 (assert-false (tn) (assv 0 '()))
191 (assert-false (tn) (assv (string #\a) '()))
203 (assert-false (tn) (assv (list (string #\a))
205 (assert-false (tn) (assv (list (string #\b))
207 (assert-false (tn) (assv (list (string #\c))
209 (assert-false (tn) (assv (list (string #\d))
219 (assert-error (tn) (lambda () (assv 'a 'a)))
227 (assert-error (tn) (lambda () (assv 0 '0)))
232 (assert-equal? (tn) '(#\b . 1) (assv #\b
[all …]
|
| /dports/textproc/uim-gtk3/uim-d1ac9d9/sigscheme/test/ |
| H A D | test-assoc.scm | 143 (assert-false (tn) (assv 'a '()))
165 (assert-false (tn) (assv 0 '()))
191 (assert-false (tn) (assv (string #\a) '()))
203 (assert-false (tn) (assv (list (string #\a))
205 (assert-false (tn) (assv (list (string #\b))
207 (assert-false (tn) (assv (list (string #\c))
209 (assert-false (tn) (assv (list (string #\d))
219 (assert-error (tn) (lambda () (assv 'a 'a)))
227 (assert-error (tn) (lambda () (assv 0 '0)))
232 (assert-equal? (tn) '(#\b . 1) (assv #\b
[all …]
|
| /dports/japanese/uim-anthy/sigscheme-beb8fbd/test/ |
| H A D | test-assoc.scm | 143 (assert-false (tn) (assv 'a '()))
165 (assert-false (tn) (assv 0 '()))
191 (assert-false (tn) (assv (string #\a) '()))
203 (assert-false (tn) (assv (list (string #\a))
205 (assert-false (tn) (assv (list (string #\b))
207 (assert-false (tn) (assv (list (string #\c))
209 (assert-false (tn) (assv (list (string #\d))
219 (assert-error (tn) (lambda () (assv 'a 'a)))
227 (assert-error (tn) (lambda () (assv 0 '0)))
232 (assert-equal? (tn) '(#\b . 1) (assv #\b
[all …]
|
| /dports/japanese/uim-anthy/uim-d1ac9d9/sigscheme/test/ |
| H A D | test-assoc.scm | 143 (assert-false (tn) (assv 'a '()))
165 (assert-false (tn) (assv 0 '()))
191 (assert-false (tn) (assv (string #\a) '()))
203 (assert-false (tn) (assv (list (string #\a))
205 (assert-false (tn) (assv (list (string #\b))
207 (assert-false (tn) (assv (list (string #\c))
209 (assert-false (tn) (assv (list (string #\d))
219 (assert-error (tn) (lambda () (assv 'a 'a)))
227 (assert-error (tn) (lambda () (assv 0 '0)))
232 (assert-equal? (tn) '(#\b . 1) (assv #\b
[all …]
|
| /dports/lang/guile2/guile-2.2.7/test-suite/tests/ |
| H A D | alist.test | 29 (let ((x (assv elt alist)))
51 (pass-if "sloppy-assv"
56 (pass-if "sloppy-assv not"
75 (pass-if "assv"
76 (let ((x (assv 'a a)))
82 (assv 'x deformed))
106 (pass-if "assv-ref"
111 (pass-if-not "assv-ref not" (assv-ref b "one"))
150 (pass-if "assv-set!"
156 (pass-if "assv-set! add"
[all …]
|
| /dports/lang/guile/guile-3.0.7/test-suite/tests/ |
| H A D | alist.test | 29 (let ((x (assv elt alist)))
51 (pass-if "sloppy-assv"
56 (pass-if "sloppy-assv not"
75 (pass-if "assv"
76 (let ((x (assv 'a a)))
82 (assv 'x deformed))
106 (pass-if "assv-ref"
111 (pass-if-not "assv-ref not" (assv-ref b "one"))
150 (pass-if "assv-set!"
156 (pass-if "assv-set! add"
[all …]
|
| /dports/textproc/uim-el/uim-d1ac9d9/test/ |
| H A D | test-im.scm | 755 (assert-false (uim-bool '(assv 3 context-list)))
762 (assert-false (uim-bool '(assv 1 context-list)))
765 (assert-false (uim-bool '(assv 3 context-list)))
773 (assert-false (uim-bool '(assv 1 context-list)))
776 (assert-false (uim-bool '(assv 3 context-list)))
783 (assert-false (uim-bool '(assv 1 context-list)))
786 (assert-false (uim-bool '(assv 3 context-list)))
787 (assert-false (uim-bool '(assv 4 context-list)))
791 (assert-false (uim-bool '(assv 1 context-list)))
792 (assert-false (uim-bool '(assv 2 context-list)))
[all …]
|
| /dports/textproc/uim-gtk/uim-d1ac9d9/test/ |
| H A D | test-im.scm | 755 (assert-false (uim-bool '(assv 3 context-list)))
762 (assert-false (uim-bool '(assv 1 context-list)))
765 (assert-false (uim-bool '(assv 3 context-list)))
773 (assert-false (uim-bool '(assv 1 context-list)))
776 (assert-false (uim-bool '(assv 3 context-list)))
783 (assert-false (uim-bool '(assv 1 context-list)))
786 (assert-false (uim-bool '(assv 3 context-list)))
787 (assert-false (uim-bool '(assv 4 context-list)))
791 (assert-false (uim-bool '(assv 1 context-list)))
792 (assert-false (uim-bool '(assv 2 context-list)))
[all …]
|
| /dports/textproc/uim-qt5/uim-d1ac9d9/test/ |
| H A D | test-im.scm | 755 (assert-false (uim-bool '(assv 3 context-list)))
762 (assert-false (uim-bool '(assv 1 context-list)))
765 (assert-false (uim-bool '(assv 3 context-list)))
773 (assert-false (uim-bool '(assv 1 context-list)))
776 (assert-false (uim-bool '(assv 3 context-list)))
783 (assert-false (uim-bool '(assv 1 context-list)))
786 (assert-false (uim-bool '(assv 3 context-list)))
787 (assert-false (uim-bool '(assv 4 context-list)))
791 (assert-false (uim-bool '(assv 1 context-list)))
792 (assert-false (uim-bool '(assv 2 context-list)))
[all …]
|
| /dports/textproc/uim-m17nlib/uim-d1ac9d9/test/ |
| H A D | test-im.scm | 755 (assert-false (uim-bool '(assv 3 context-list)))
762 (assert-false (uim-bool '(assv 1 context-list)))
765 (assert-false (uim-bool '(assv 3 context-list)))
773 (assert-false (uim-bool '(assv 1 context-list)))
776 (assert-false (uim-bool '(assv 3 context-list)))
783 (assert-false (uim-bool '(assv 1 context-list)))
786 (assert-false (uim-bool '(assv 3 context-list)))
787 (assert-false (uim-bool '(assv 4 context-list)))
791 (assert-false (uim-bool '(assv 1 context-list)))
792 (assert-false (uim-bool '(assv 2 context-list)))
[all …]
|
| /dports/textproc/uim-gtk3/uim-d1ac9d9/test/ |
| H A D | test-im.scm | 755 (assert-false (uim-bool '(assv 3 context-list)))
762 (assert-false (uim-bool '(assv 1 context-list)))
765 (assert-false (uim-bool '(assv 3 context-list)))
773 (assert-false (uim-bool '(assv 1 context-list)))
776 (assert-false (uim-bool '(assv 3 context-list)))
783 (assert-false (uim-bool '(assv 1 context-list)))
786 (assert-false (uim-bool '(assv 3 context-list)))
787 (assert-false (uim-bool '(assv 4 context-list)))
791 (assert-false (uim-bool '(assv 1 context-list)))
792 (assert-false (uim-bool '(assv 2 context-list)))
[all …]
|
| /dports/japanese/uim-anthy/uim-d1ac9d9/test/ |
| H A D | test-im.scm | 755 (assert-false (uim-bool '(assv 3 context-list)))
762 (assert-false (uim-bool '(assv 1 context-list)))
765 (assert-false (uim-bool '(assv 3 context-list)))
773 (assert-false (uim-bool '(assv 1 context-list)))
776 (assert-false (uim-bool '(assv 3 context-list)))
783 (assert-false (uim-bool '(assv 1 context-list)))
786 (assert-false (uim-bool '(assv 3 context-list)))
787 (assert-false (uim-bool '(assv 4 context-list)))
791 (assert-false (uim-bool '(assv 1 context-list)))
792 (assert-false (uim-bool '(assv 2 context-list)))
[all …]
|
| /dports/lang/gambit-c/gambit-4.9.3/tests/unit-tests/04-list/ |
| H A D | assoc.scm | 17 (check-equal? (assv '() '()) #f)
18 (check-equal? (assv '() '((1 . 11) (2 . 22))) #f)
19 (check-equal? (assv '() '((1 . 11) (() . 22))) '(() . 22))
20 (check-equal? (assv '() '((1 . 11) (() . 22) (() . 33))) '(() . 22))
21 (check-equal? (assv 100000000000000000000 '((1 . 11) (100000000000000000000 . 22) (3 . 33))) '(1000…
22 (check-equal? (assv (cons 1 2) '((1 . 11) ((1 . 2) . 22) (() . 33))) #f)
24 (check-tail-exn type-exception? (lambda () (assv '() #f)))
25 (check-tail-exn type-exception? (lambda () (assv '() '(1 2 3))))
27 (check-tail-exn wrong-number-of-arguments-exception? (lambda () (assv)))
28 (check-tail-exn wrong-number-of-arguments-exception? (lambda () (assv '())))
[all …]
|
| /dports/lang/slib/slib-3b6/ |
| H A D | getparam.scm | 65 (positional? (assv 0 aliases))
78 (alias+ (assv 1 aliases) (assv idx aliases))
79 (alias- (assv -1 aliases) (assv (- idx) aliases)))
91 (let ((alias (assv '0 aliases)))
196 (alias+ (assv 1 aliases) (assv idx aliases))
197 (alias- (assv -1 aliases) (assv (- idx) aliases)))
201 (let ((alias (assv 0 aliases)))
|
| H A D | alist.scm | 39 ((eq? = pred) assv)
40 ((eq? eqv? pred) assv)
41 ((eq? char=? pred) assv)
|
| /dports/lang/sketchy/sketchy-20070218/lib/ |
| H A D | assv.scm | 41 (define assv #t) unknown
48 (define (assv x a)
51 (else (assv x (cdr a)))))
|
| /dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/129/ |
| H A D | titlecase.scm | 9 ((assv ch title-single-map) => cadr)
28 (let ((multi-title (assv ch title-multiple-map)))
35 (let ((multi-downcase (assv ch lower-multiple-map)))
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/sitelib/slib/ |
| H A D | alist.scm | 46 ((eq? = pred) assv)
47 ((eq? eqv? pred) assv)
48 ((eq? char=? pred) assv)
|