Home
last modified time | relevance | path

Searched +refs:test +refs:lset +refs:eq (Results 1 – 25 of 90) sorted by relevance

1234

/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/69/
H A Dtest.sld7 (define-syntax test-lset-eq?
10 (test-equal (lambda (a b) (lset= eq? a b)) . args))))
36 (test-lset-eq? '(cat dog elephant) (hash-table-keys ht))
37 (test-lset-eq? '(black white pink) (hash-table-values ht))
50 (test-lset-eq? '(cat elephant) (hash-table-keys ht))
51 (test-lset-eq? '(black pink) (hash-table-values ht))
68 (test-lset-eq? '(cat elephant) (hash-table-keys ht))
69 (test-lset-eq? '(calico pink) (hash-table-values ht))
90 (test-lset-eq? '(cat elephant) (hash-table-keys ht2))
91 (test-lset-eq? '(calico pink) (hash-table-values ht2))
[all …]
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/1/
H A Dtest.sld157 (test #t (lset<= eq?))
158 (test #t (lset<= eq? '(a)))
159 (test #f (lset= eq? '(a) '()))
160 (test #f (lset= eq? '() '(a)))
162 (test #t (lset= eq?))
163 (test #t (lset= eq? '(a)))
172 (test '() (lset-union eq?))
173 (test '(a b c) (lset-union eq? '(a b c)))
178 (test '(a b c) (lset-difference eq? '(a b c)))
179 (test #t (lset= eq? '(d c b i o u) (lset-xor eq? '(a b c d e) '(a e i o u))))
[all …]
/dports/lang/guile2/guile-2.2.7/test-suite/tests/
H A Dsrfi-1.test1651 (eq? #t (lset= eq?)))
1656 (eq? #t (lset= eqv? '())))
1659 (eq? #t (lset= eqv? '(1))))
1662 (eq? #t (lset= eqv? '(1 2)))))
1667 (eq? #t (lset= eqv? '() '())))
1670 (eq? #t (lset= eqv? '(1) '(1))))
1673 (eq? #f (lset= eqv? '(1) '(2))))
1676 (eq? #f (lset= eqv? '(1) '(1 2))))
1679 (eq? #t (lset= eqv? '(1 2) '(2 1))))
1693 (eq? #t (lset= eqv? '() '() '())))
[all …]
H A Dsrfi-69.test1 ;;;; srfi-69.test --- Test suite for SRFI 69 -*- scheme -*-
19 (define-module (test-srfi-69)
20 #:use-module (test-suite lib)
31 (with-test-prefix "SRFI-69"
38 (lset= equal? end-alist (take start-alist 3))
50 (lset= string-ci-assoc-equal?
73 (lset= equal? '((b . 2)) (hash-table->alist ht)))))
80 eq?)
95 (lset= equal? '((a . 6)) (hash-table->alist ht)))))
98 (let ((ht (make-hash-table eq?)))
[all …]
H A Dftw.test65 (pass-if "0 1" (eq? #f (try-visited? 0 1)))
66 (pass-if "0 2" (eq? #f (try-visited? 0 2)))
67 (pass-if "0 3" (eq? #f (try-visited? 0 3)))
69 (pass-if "5 5" (eq? #f (try-visited? 5 5)))
70 (pass-if "5 7" (eq? #f (try-visited? 5 7)))
71 (pass-if "7 5" (eq? #f (try-visited? 7 5)))
72 (pass-if "7 7" (eq? #f (try-visited? 7 7)))
291 (lset= string=?
292 (lset-intersection string=? files expected)
310 (lset= string=?
[all …]
H A Dreader.test1 ;;;; reader.test --- Reader test. -*- coding: iso-8859-1; mode: scheme -*-
69 (with-test-prefix "reading"
153 (and result (eq? x y)))
244 (not (eq? 'guile 'GuiLe)))
246 (eq? 'guile
256 (eq? #:keyword
265 (eq? #:keyword
275 (eq? ':
376 (lset= eqv?
477 (with-test-prefix "#;"
[all …]
/dports/lang/guile/guile-3.0.7/test-suite/tests/
H A Dsrfi-1.test1652 (eq? #t (lset= eq?)))
1657 (eq? #t (lset= eqv? '())))
1660 (eq? #t (lset= eqv? '(1))))
1663 (eq? #t (lset= eqv? '(1 2)))))
1668 (eq? #t (lset= eqv? '() '())))
1671 (eq? #t (lset= eqv? '(1) '(1))))
1674 (eq? #f (lset= eqv? '(1) '(2))))
1677 (eq? #f (lset= eqv? '(1) '(1 2))))
1680 (eq? #t (lset= eqv? '(1 2) '(2 1))))
1694 (eq? #t (lset= eqv? '() '() '())))
[all …]
H A Dsrfi-69.test1 ;;;; srfi-69.test --- Test suite for SRFI 69 -*- scheme -*-
19 (define-module (test-srfi-69)
20 #:use-module (test-suite lib)
31 (with-test-prefix "SRFI-69"
38 (lset= equal? end-alist (take start-alist 3))
50 (lset= string-ci-assoc-equal?
73 (lset= equal? '((b . 2)) (hash-table->alist ht)))))
80 eq?)
95 (lset= equal? '((a . 6)) (hash-table->alist ht)))))
98 (let ((ht (make-hash-table eq?)))
[all …]
H A Dftw.test67 (pass-if "0 2" (eq? #f (try-visited? 0 2 "0.2")))
68 (pass-if "0 3" (eq? #f (try-visited? 0 3 "0.3")))
69 (pass-if "0 4" (eq? #f (try-visited? 0 4 "0.4")))
71 (pass-if "5 5" (eq? #f (try-visited? 5 5 "5.5")))
72 (pass-if "5 7" (eq? #f (try-visited? 5 7 "5.7")))
73 (pass-if "7 5" (eq? #f (try-visited? 7 5 "7.5")))
74 (pass-if "7 7" (eq? #f (try-visited? 7 7 "7.7")))
312 (lset= string=?
313 (lset-intersection string=? files expected)
331 (lset= string=?
[all …]
H A Dcoverage.test19 (define-module (test-coverage)
20 #:use-module (test-suite lib)
36 (define test-procedure
43 (with-test-prefix "instrumented/executed-lines"
72 (with-test-prefix "line-execution-counts"
188 (lset= equal? '((0 . 2) (1 . 1) (2 . 1)) counts))))))
211 tail-call-test)")))
216 (define (lset-contains? eq? a b)
217 (lset= eq? b (lset-intersection eq? a b)))
221 (lset-contains? equal? counts '((1 . 1) (2 . 1) (6 . 1))))))))
[all …]
H A Dreader.test1 ;;;; reader.test --- Reader test. -*- coding: iso-8859-1; mode: scheme -*-
70 (with-test-prefix "reading"
154 (and result (eq? x y)))
272 (not (eq? 'guile 'GuiLe)))
274 (eq? 'guile
284 (eq? #:keyword
293 (eq? #:keyword
303 (eq? ':
404 (lset= eqv?
505 (with-test-prefix "#;"
[all …]
/dports/lang/guile1/guile-1.8.8/test-suite/tests/
H A Dsrfi-1.test1593 (eq? #t (lset= eq?)))
1598 (eq? #t (lset= eqv? '())))
1601 (eq? #t (lset= eqv? '(1))))
1604 (eq? #t (lset= eqv? '(1 2)))))
1609 (eq? #t (lset= eqv? '() '())))
1612 (eq? #t (lset= eqv? '(1) '(1))))
1615 (eq? #f (lset= eqv? '(1) '(2))))
1618 (eq? #f (lset= eqv? '(1) '(1 2))))
1621 (eq? #t (lset= eqv? '(1 2) '(2 1))))
1635 (eq? #t (lset= eqv? '() '() '())))
[all …]
H A Dsrfi-69.test1 ;;;; srfi-69.test --- Test suite for SRFI 69 -*- scheme -*-
20 (define-module (test-srfi-69)
21 #:use-module (test-suite lib)
32 (with-test-prefix "SRFI-69"
39 (lset= equal? end-alist (take start-alist 3))
51 (lset= string-ci-assoc-equal?
74 (lset= equal? '((b . 2)) (hash-table->alist ht)))))
81 eq?)
96 (lset= equal? '((a . 6)) (hash-table->alist ht)))))
99 (let ((ht (make-hash-table eq?)))
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/srfi-lite-lib/srfi/1/
H A Dlset.rkt41 lset-xor (rename-out [lset-xor lset-xor!])
66 (and (or (eq? s2 s1) ; Fast path
67 (%lset2<= = s1 s2)) ; Real test
77 (and (or (eq? s1 s2) ; Fast path
78 (and (%lset2<= = s1 s2) (%lset2<= = s2 s1))) ; Real test
91 ((eq? lis ans) ans)
106 ((eq? lis ans) ans)
118 (let ((lists (delete lis1 lists eq?))) ; Throw out any LIS1 vals.
128 (let ((lists (delete lis1 lists eq?))) ; Throw out any LIS1 vals.
162 ;; cuts for the cases A = (), B = (), and A eq? B. It takes
[all …]
/dports/devel/openocd/openocd-0.11.0/jimtcl/tests/
H A Djim.test810 expr {$x eq $y}
2720 if {$i>6 && $tcl_platform(machine) eq "xxx"} {
2725 if {$i>6 && $tcl_platform(machine) eq "xxx"} {
2730 if {$i>6 && $tcl_platform(machine) eq "xxx"} {
2735 if {$i>6 && $tcl_platform(machine) eq "xxx"} {
2740 if {$i>6 && $tcl_platform(machine) eq "xxx"} {
2799 if {$i>6 && $tcl_platform(machine) eq "xxx"} {
2804 if {$i>6 && $tcl_platform(machine) eq "xxx"} {
2809 if {$i>6 && $tcl_platform(machine) eq "xxx"} {
2814 if {$i>6 && $tcl_platform(machine) eq "xxx"} {
[all …]
H A Dmisc.test160 test lindex-1.5 "end" {
164 test lindex-1.6 "end" {
168 test lindex-1.7 "end" {
242 set b "$a(2)-test"
362 test sharing-1.4 "Problems with ref sharing in arrays: lset" {
365 lset b(c) 1 x
500 lset a 1 x
540 test lset-1.1 "lset with bad var" {
541 catch {lset badvar 1 x}
548 if {$x eq "xabc \\\\ def {\"}" || $x eq "xdef {\"} abc \\\\"} {
[all …]
/dports/lang/jimtcl/jimtcl-0.81/tests/
H A Djim.test809 expr {$x eq $y}
2754 if {$i>6 && $tcl_platform(machine) eq "xxx"} {
2759 if {$i>6 && $tcl_platform(machine) eq "xxx"} {
2764 if {$i>6 && $tcl_platform(machine) eq "xxx"} {
2769 if {$i>6 && $tcl_platform(machine) eq "xxx"} {
2774 if {$i>6 && $tcl_platform(machine) eq "xxx"} {
2833 if {$i>6 && $tcl_platform(machine) eq "xxx"} {
2838 if {$i>6 && $tcl_platform(machine) eq "xxx"} {
2843 if {$i>6 && $tcl_platform(machine) eq "xxx"} {
2848 if {$i>6 && $tcl_platform(machine) eq "xxx"} {
[all …]
H A Dmisc.test160 test lindex-1.5 "end" {
242 set b "$a(2)-test"
362 test sharing-1.4 "Problems with ref sharing in arrays: lset" {
365 lset b(c) 1 x
500 lset a 1 x
540 test lset-1.1 "lset with bad var" {
541 catch {lset badvar 1 x}
544 test lset-1.2 "lset error message" {
545 catch lset msg
547 } {wrong # args: should be "lset listVar ?index ...? value"}
[all …]
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/scheme/
H A Dred.sld168 comparator-test-type comparator-type-test-predicate
193 ephemeron? eq?
334 lseq? lset-adjoin
335 lset-diff+intersection lset-diff+intersection!
336 lset-difference lset-difference!
337 lset-intersection lset-intersection!
338 lset-union lset-union!
339 lset-xor lset-xor!
340 lset<= lset=
344 make-eq-comparator make-equal-comparator
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/chibi/
H A Diset-test.sld1 (define-library (chibi iset-test)
6 (chibi test))
9 (define (test-name iset op)
18 (test-begin "iset")
171 (test-assert (lset= equal? ls2 (iset->list is)))
202 (test-assert name
205 (test-assert name
209 (test-assert name
215 (let ((arg (cond ((eq? 'u: (car op))
220 (test-assert name
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/srfi-doc/srfi/scribblings/
H A Dsrfi.scrbl156 (lset #f "lset")
157 (lset= #f "lset=")
158 (lset-adjoin #f "lset-adjoin")
159 (lset-union #f "lset-union")
162 (lset-union! #f "lset-union!")
163 (lset-difference! #f "lset-difference!")
164 (lset-xor! #f "lset-xor!")
166 (lset-difference #f "lset-difference")
167 (lset-xor #f "lset-xor")
804 (vector= #f "vector-eq")
[all …]
/dports/shells/ksh2020/ast-ksh2020/src/cmd/ksh93/tests/util/
H A Dinteractive.expect.rc3 # This file is meant to be sourced by the `expect` command before running the actual test script.
13 # If we receive SIGUSR1 exit. Hopefully providing more information about the state of the test via
16 # This signal is sent by the test framework when we're within one second of a meson test timeout.
68 # one unit test that causes that sequence to appear just before the next prompt. Solaris (and
110 if {$arg eq "unmatched" && $state eq "firstarg"} {
174 if {[lindex $cmd 1] eq "*" && [llength $cmd] == 3} {
275 lset args end [lindex $args end]\r
/dports/lang/guile1/guile-1.8.8/doc/ref/
H A Dsrfi-modules.texi90 This SRFI lets a portable Scheme program test for the presence of
106 test combinations. The last clause can be an @code{else}, to be used
254 The procedures in this section test specific properties of lists.
1017 sameness. This predicate must be consistent with @code{eq?}
1019 @code{eq?} then they must also be equal under the predicate. This
1033 (lset<= eq?) @result{} #t
1053 (lset= eq?) @result{} #t
1114 The test for an element of @var{list1} to be in the return is simply
3024 This SRFI extends RnRS @code{cond} to support test expressions that
3025 return multiple values, as well as arbitrary definitions of test
[all …]
/dports/lang/mit-scheme/mit-scheme-9.2/src/runtime/
H A Druntime.pkg320 flo:test-exceptions
368 test-bit-field
369 test-bit-field?
2709 lset-adjoin
2716 lset-union
2718 lset-xor
2719 lset-xor!
2720 lset<=
2721 lset=
3281 port-error-test)
[all …]
/dports/lang/guile2/guile-2.2.7/doc/ref/
H A Dsrfi-modules.texi58 * SRFI-64:: A Scheme API for test suites.
108 This SRFI lets a portable Scheme program test for the presence of
124 test combinations. The last clause can be an @code{else}, to be used
301 The procedures in this section test specific properties of lists.
1066 sameness. This predicate must be consistent with @code{eq?}
1082 (lset<= eq?) @result{} #t
1102 (lset= eq?) @result{} #t
1163 The test for an element of @var{list1} to be in the return is simply
4197 Fenders can test the common case where two stream elements must be
5190 return multiple values, as well as arbitrary definitions of test
[all …]

1234