/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/69/ |
H A D | test.sld | 7 (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 D | test.sld | 157 (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 D | srfi-1.test | 1651 (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 D | srfi-69.test | 1 ;;;; 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 D | ftw.test | 65 (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 D | reader.test | 1 ;;;; 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 D | srfi-1.test | 1652 (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 D | srfi-69.test | 1 ;;;; 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 D | ftw.test | 67 (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 D | coverage.test | 19 (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 D | reader.test | 1 ;;;; 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 D | srfi-1.test | 1593 (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 D | srfi-69.test | 1 ;;;; 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 D | lset.rkt | 41 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 D | jim.test | 810 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 D | misc.test | 160 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 D | jim.test | 809 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 D | misc.test | 160 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 D | red.sld | 168 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 D | iset-test.sld | 1 (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 D | srfi.scrbl | 156 (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 D | interactive.expect.rc | 3 # 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 D | srfi-modules.texi | 90 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 D | runtime.pkg | 320 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 D | srfi-modules.texi | 58 * 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 …]
|