>>> skint: Building community/skint 0.8.5-r0 (using abuild 3.18.0_rc7-r0) started Sun, 11 Oct 2026 01:47:01 +0000 >>> skint: Validating /home/buildozer/aports/community/skint/APKBUILD... >>> WARNING: skint: No maintainer >>> skint: Analyzing dependencies... >>> skint: Installing for build: build-base (1/1) Installing .makedepends-skint (20261011.014701) OK: 442.2 MiB in 108 packages >>> skint: Cleaning up srcdir >>> skint: Cleaning up pkgdir >>> skint: Cleaning up tmpdir >>> skint: Fetching https://distfiles.alpinelinux.org/distfiles/edge/skint-0.8.5.tar.gz Connecting to distfiles.alpinelinux.org (172.105.82.32:443) wget: server returned error: HTTP/1.1 404 Not Found >>> skint: Fetching https://github.com/false-schemers/skint/archive/refs/tags/v0.8.5/skint-0.8.5.tar.gz Connecting to github.com (140.82.121.3:443) Connecting to codeload.github.com (140.82.121.9:443) saving to '/var/cache/distfiles/edge/skint-0.8.5.tar.gz.part' skint-0.8.5.tar.gz.p 100% |********************************| 1698k 0:00:00 ETA '/var/cache/distfiles/edge/skint-0.8.5.tar.gz.part' saved /var/cache/distfiles/edge/skint-0.8.5.tar.gz: OK /home/buildozer/aports/community/skint/add-destdir-to-install.patch: OK >>> skint: Fetching https://distfiles.alpinelinux.org/distfiles/edge/skint-0.8.5.tar.gz /var/cache/distfiles/edge/skint-0.8.5.tar.gz: OK /home/buildozer/aports/community/skint/add-destdir-to-install.patch: OK >>> skint: Unpacking /var/cache/distfiles/edge/skint-0.8.5.tar.gz... >>> skint: add-destdir-to-install.patch patching file Makefile Hunk #1 succeeded at 153 (offset 26 lines). version is 0.8.5 prefix is set to /usr use-tower is set to 0 use-unicode is set to 0 use-enhanced-tty is set to 0 X86_64 architecture is detected gcc -O3 -DNDEBUG -DLIBDIR=/usr/share/skint/lib -D NAN_BOXING -c -o s.o s.c gcc -O3 -DNDEBUG -DLIBDIR=/usr/share/skint/lib -D NAN_BOXING -c -o k.o k.c gcc -O3 -DNDEBUG -DLIBDIR=/usr/share/skint/lib -D NAN_BOXING -c -o i.o i.c gcc -O3 -DNDEBUG -DLIBDIR=/usr/share/skint/lib -D NAN_BOXING -c -o n.o n.c gcc -O3 -DNDEBUG -DLIBDIR=/usr/share/skint/lib -D NAN_BOXING -c -o t.o t.c sed -e 's|@VERSION@|0.8.5|g' \ -e 's|@DATE@|''|g' \ -e 's|@LIBDIR@|/usr/share/skint/lib|g' \ -e 's|@PREFIX@|/usr|g' \ doc/skint.1.in >skint.1 gcc -O3 -DNDEBUG -DLIBDIR=/usr/share/skint/lib -D NAN_BOXING -o skint s.o k.o i.o n.o t.o -lm version is 0.8.5 prefix is set to /usr use-tower is set to 0 use-unicode is set to 0 use-enhanced-tty is set to 0 X86_64 architecture is detected ./skint test/test.scm 1. (square 42) .......... [PASS] 2. (square 2) .......... [PASS] 3. ((lambda (x) (+ x x)) 4) .......... [PASS] 4. ((lambda x x) 3 4 5 6) .......... [PASS] 5. ((lambda (x y . z) z) 3 4 5 6) .......... [PASS] 6. (if (> 3 2) (quote yes) (quote no)) .......... [PASS] 7. (if (> 2 3) (quote yes) (quote no)) .......... [PASS] 8. (if (> 3 2) (- 3 2) (+ 3 2)) .......... [PASS] 9. (cond ((> 3 2) (quote greater)) ((< 3 2) (quote less))) .......... [PASS] 10. (cond ((> 3 3) (quote greater)) ((< 3 3) (quote less)) (else (quote equal))) .......... [PASS] 11. (case (* 2 3) ((2 3 5 7) (quote prime)) ((1 4 6 8 9) (quote composite))) .......... [PASS] 12. (case (car (quote (c d))) ((a e i o u) (quote vowel)) ((w y) (quote semivowel)) (else (quote consonant))) .......... [PASS] 13. (and (= 2 2) (> 2 1)) .......... [PASS] 14. (and (= 2 2) (< 2 1)) .......... [PASS] 15. (and 1 2 (quote c) (quote (f g))) .......... [PASS] 16. (and) .......... [PASS] 17. (or (= 2 2) (> 2 1)) .......... [PASS] 18. (or (= 2 2) (< 2 1)) .......... [PASS] 19. (or (memq (quote b) (quote (a b c))) (/ 3 0)) .......... [PASS] 20. (let ((x 2) (y 3)) (* x y)) .......... [PASS] 21. (let ((x 2) (y 3)) (let ((x 7) (z (+ x y))) (* z x))) .......... [PASS] 22. (let ((x 2) (y 3)) (let* ((x 7) (z (+ x y))) (* z x))) .......... [PASS] 23. (let () (define x 2) (define f (lambda () (- x))) (f)) .......... [PASS] 24. let*-def .......... [PASS] 25. (do ((vec (make-vector 5)) (i 0 (+ i 1))) ((= i 5) vec) (vector-set! vec i i)) .......... [PASS] 26. (let ((x (quote (1 3 5 7 9)))) (do ((x x (cdr x)) (sum 0 (+ sum (car x)))) ((null? x) sum))) .......... [PASS] 27. (let loop ((numbers (quote (3 -2 1 6 -5))) (nonneg (quote ())) (neg (quote ()))) (cond ((null? numbers) (list nonneg neg)) ((>= (car numbers) 0) (loop (cdr numbers) (cons (car numbers) nonneg) neg)) ((< (car numbers) 0) (loop (cdr numbers) nonneg (cons (car numbers) neg))))) .......... [PASS] 28. (quasiquote (list (unquote (+ 1 2)) 4)) .......... [PASS] 29. (let ((name (quote a))) (quasiquote (list (unquote name) (quote (unquote name))))) .......... [PASS] 30. (quasiquote (a (unquote (+ 1 2)) (unquote-splicing (map abs (quote (4 -5 6)))) b)) .......... [PASS] 31. (quasiquote (10 5 (unquote (expt 2 2)) (unquote-splicing (map (lambda (n) (expt n 2)) (quote (4 3)))) 8)) .......... [PASS] 32. (quasiquote (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo (unquote (+ 1 3)) d)) e)) f)) .......... [PASS] 33. (let ((name1 (quote x)) (name2 (quote y))) (quasiquote (a (quasiquote (b (unquote (unquote name1)) (unquote (quote (unquote name2))) d)) e))) .......... [PASS] 34. (quasiquote (list (unquote (+ 1 2)) 4)) .......... [PASS] 35. (eqv? (quote a) (quote a)) .......... [PASS] 36. (eqv? (quote a) (quote b)) .......... [PASS] 37. (eqv? (quote ()) (quote ())) .......... [PASS] 38. (eqv? (cons 1 2) (cons 1 2)) .......... [PASS] 39. (eqv? (lambda () 1) (lambda () 2)) .......... [PASS] 40. (let ((p (lambda (x) x))) (eqv? p p)) .......... [PASS] 41. (eq? (quote a) (quote a)) .......... [PASS] 42. (eq? (list (quote a)) (list (quote a))) .......... [PASS] 43. (eq? (quote ()) (quote ())) .......... [PASS] 44. (eq? car car) .......... [PASS] 45. (let ((x (quote (a)))) (eq? x x)) .......... [PASS] 46. (let ((p (lambda (x) x))) (eq? p p)) .......... [PASS] 47. (equal? (quote a) (quote a)) .......... [PASS] 48. (equal? (quote (a)) (quote (a))) .......... [PASS] 49. (equal? (quote (a (b) c)) (quote (a (b) c))) .......... [PASS] 50. (equal? "abc" "abc") .......... [PASS] 51. (equal? "abc" "abcd") .......... [PASS] 52. (equal? "a" "b") .......... [PASS] 53. (equal? 2 2) .......... [PASS] 54. (eqv? 2 2.0) .......... [PASS] 55. (equal? 2.0 2) .......... [PASS] 56. (equal? (make-vector 5 (quote a)) (make-vector 5 (quote a))) .......... [PASS] 57. (max 3 4) .......... [PASS] 58. (max 3.9 4) .......... [PASS] 59. (+ 3 4) .......... [PASS] 60. (+ 3) .......... [PASS] 61. (+) .......... [PASS] 62. (* 4) .......... [PASS] 63. (*) .......... [PASS] 64. (- 3 4) .......... [PASS] 65. (- 3 4 5) .......... [PASS] 66. (- 3) .......... [PASS] 67. (- 3.0 4) .......... [PASS] 68. (< -1 0) .......... [PASS] 69. (abs -7) .......... [PASS] 70. (modulo 13 4) .......... [PASS] 71. (remainder 13 4) .......... [PASS] 72. (modulo -13 4) .......... [PASS] 73. (remainder -13 4) .......... [PASS] 74. (modulo 13 -4) .......... [PASS] 75. (modulo 3333333 -3) .......... [PASS] 76. (remainder 13 -4) .......... [PASS] 77. (modulo -13 -4) .......... [PASS] 78. (remainder -13 -4) .......... [PASS] 79. (gcd 32 -36) .......... [PASS] 80. (lcm 32 -36) .......... [PASS] 81. (string->number "100") .......... [PASS] 82. (string->number "100" 16) .......... [PASS] 83. (string->number "177" 8) .......... [PASS] 84. (string->number "101" 2) .......... [PASS] 85. (string->number "1e2") .......... [PASS] 86. (number->string 100) .......... [PASS] 87. (number->string 256 16) .......... [PASS] 88. (number->string 255 16) .......... [PASS] 89. (number->string 127 8) .......... [PASS] 90. (number->string 5 2) .......... [PASS] 91. (not 3) .......... [PASS] 92. (not (list 3)) .......... [PASS] 93. (not (quote ())) .......... [PASS] 94. (not (list)) .......... [PASS] 95. (not (quote ())) .......... [PASS] 96. (boolean? 0) .......... [PASS] 97. (boolean? (quote ())) .......... [PASS] 98. (boolean=? #t #t) .......... [PASS] 99. (boolean=? #f #t) .......... [PASS] 100. (boolean=? #f #f #f) .......... [PASS] 101. (boolean=? #f #f #f #t #f) .......... [PASS] 102. (pair? (quote (a . b))) .......... [PASS] 103. (pair? (quote (a b c))) .......... [PASS] 104. (cons (quote a) (quote ())) .......... [PASS] 105. (cons (quote (a)) (quote (b c d))) .......... [PASS] 106. (cons "a" (quote (b c))) .......... [PASS] 107. (cons (quote a) 3) .......... [PASS] 108. (cons (quote (a b)) (quote c)) .......... [PASS] 109. (car (quote (a b c))) .......... [PASS] 110. (car (quote ((a) b c d))) .......... [PASS] 111. (car (quote (1 . 2))) .......... [PASS] 112. (cdr (quote ((a) b c d))) .......... [PASS] 113. (cdr (quote (1 . 2))) .......... [PASS] 114. (list? (quote (a b c))) .......... [PASS] 115. (list? (quote ())) .......... [PASS] 116. (list? (quote (a . b))) .......... [PASS] 117. (let ((x (list (quote a)))) (set-cdr! x x) (list? x)) .......... [PASS] 118. (list (quote a) (+ 3 4) (quote c)) .......... [PASS] 119. (list) .......... [PASS] 120. (length (quote (a b c))) .......... [PASS] 121. (length (quote (a (b) (c d e)))) .......... [PASS] 122. (length (quote ())) .......... [PASS] 123. (append (quote (x)) (quote (y))) .......... [PASS] 124. (append (quote (a)) (quote (b c d))) .......... [PASS] 125. (append (quote (a (b))) (quote ((c)))) .......... [PASS] 126. (append (quote (a b)) (quote (c . d))) .......... [PASS] 127. (append (quote ()) (quote a)) .......... [PASS] 128. (reverse (quote (a b c))) .......... [PASS] 129. (reverse (quote (a (b c) d (e (f))))) .......... [PASS] 130. (list-ref (quote (a b c d)) 2) .......... [PASS] 131. (memq (quote a) (quote (a b c))) .......... [PASS] 132. (memq (quote b) (quote (a b c))) .......... [PASS] 133. (memq (quote a) (quote (b c d))) .......... [PASS] 134. (memq (list (quote a)) (quote (b (a) c))) .......... [PASS] 135. (member (list (quote a)) (quote (b (a) c))) .......... [PASS] 136. (memv 101 (quote (100 101 102))) .......... [PASS] 137. (assq (list (quote a)) (quote (((a)) ((b)) ((c))))) .......... [PASS] 138. (assoc (list (quote a)) (quote (((a)) ((b)) ((c))))) .......... [PASS] 139. (assv 5 (quote ((2 3) (5 7) (11 13)))) .......... [PASS] 140. (values y) .......... [PASS] 141. (list? y) .......... [PASS] 142. (values x) .......... [PASS] 143. (eqv? x y) .......... [PASS] 144. (list? y) .......... [PASS] 145. (list? x) .......... [PASS] 146. (pair? (quote (a . b))) .......... [PASS] 147. (pair? (quote (a b c))) .......... [PASS] 148. (pair? (quote ())) .......... [PASS] 149. (pair? (quote #(a b))) .......... [PASS] 150. (cons (quote a) (quote ())) .......... [PASS] 151. (cons (quote (a)) (quote (b c d))) .......... [PASS] 152. (cons "a" (quote (b c))) .......... [PASS] 153. (cons (quote a) 3) .......... [PASS] 154. (cons (quote (a b)) (quote c)) .......... [PASS] 155. (car (quote (a b c))) .......... [PASS] 156. (car (quote ((a) b c d))) .......... [PASS] 157. (car (quote (1 . 2))) .......... [PASS] 158. (cdr (quote ((a) b c d))) .......... [PASS] 159. (cdr (quote (1 . 2))) .......... [PASS] 160. (list? (quote (a b c))) .......... [PASS] 161. (list? (quote ())) .......... [PASS] 162. (list? (quote (a . b))) .......... [PASS] 163. (let ((x (list (quote a)))) (set-cdr! x x) (list? x)) .......... [PASS] 164. (make-list 0 3) .......... [PASS] 165. (make-list 2 3) .......... [PASS] 166. (length (make-list 42)) .......... [PASS] 167. (list (quote a) (+ 3 4) (quote c)) .......... [PASS] 168. (list) .......... [PASS] 169. (length (quote (a b c))) .......... [PASS] 170. (length (quote (a (b) (c d e)))) .......... [PASS] 171. (length (quote ())) .......... [PASS] 172. (append (quote (x)) (quote (y))) .......... [PASS] 173. (append (quote (a)) (quote (b c d))) .......... [PASS] 174. (append (quote (a (b))) (quote ((c)))) .......... [PASS] 175. (append (quote (a b)) (quote (c . d))) .......... [PASS] 176. (append (quote ()) (quote a)) .......... [PASS] 177. (reverse (quote (a b c))) .......... [PASS] 178. (reverse (quote (a (b c) d (e (f))))) .......... [PASS] 179. (list-tail (quote (a b c d e)) 3) .......... [PASS] 180. (list-ref (quote (a b c d)) 2) .......... [PASS] 181. (list-ref (quote (a b c d)) (exact (round 1.8))) .......... [PASS] 182. (let ((lst (list 0 (quote (2 2 2 2)) "Anna"))) (list-set! lst 1 (quote ("Sue" "Sue"))) lst) .......... [PASS] 183. (memq (quote a) (quote (a b c))) .......... [PASS] 184. (memq (quote b) (quote (a b c))) .......... [PASS] 185. (memq (quote a) (quote (b c d))) .......... [PASS] 186. (memq (list (quote a)) (quote (b (a) c))) .......... [PASS] 187. (member (list (quote a)) (quote (b (a) c))) .......... [PASS] 188. (member "B" (quote ("a" "b" "c")) string-ci=?) .......... [PASS] 189. (memv 101 (quote (100 101 102))) .......... [PASS] 190. (assq (quote a) e) .......... [PASS] 191. (assq (quote b) e) .......... [PASS] 192. (assq (quote d) e) .......... [PASS] 193. (assq (list (quote a)) (quote (((a)) ((b)) ((c))))) .......... [PASS] 194. (assoc (list (quote a)) (quote (((a)) ((b)) ((c))))) .......... [PASS] 195. (assoc 2.0 (quote ((1 1) (2 4) (3 9))) =) .......... [PASS] 196. (assv 5 (quote ((2 3) (5 7) (11 13)))) .......... [PASS] 197. (list-copy (quote (1 2 3))) .......... [PASS] 198. (list-copy "foo") .......... [PASS] 199. (list-copy (quote ())) .......... [PASS] 200. (list-copy (quote (3 . 4))) .......... [PASS] 201. (list-copy (quote (6 7 8 . 9))) .......... [PASS] 202. (quote ((a b) (c d) e)) .......... [PASS] 203. (eq? (car l1) (car l2)) .......... [PASS] 204. (eq? (cadr l1) (cadr l2)) .......... [PASS] 205. (eq? (cdr l1) (cdr l2)) .......... [PASS] 206. (eq? (cddr l1) (cddr l2)) .......... [PASS] 207. (char? #\a) .......... [PASS] 208. (char? "a") .......... [PASS] 209. (char? (quote a)) .......... [PASS] 210. (char? 0) .......... [PASS] 211. (char=? #\a #\a #\a) .......... [PASS] 212. (char=? #\a #\A) .......... [PASS] 213. (char? #\a #\b) .......... [PASS] 217. (char>? #\a #\a) .......... [PASS] 218. (char>? #\c #\b #\a) .......... [PASS] 219. (char<=? #\a #\b #\b) .......... [PASS] 220. (char<=? #\a #\a) .......... [PASS] 221. (char<=? #\b #\a) .......... [PASS] 222. (char>=? #\a #\b) .......... [PASS] 223. (char>=? #\a #\a) .......... [PASS] 224. (char>=? #\b #\b #\a) .......... [PASS] 225. (char-ci=? #\a #\a) .......... [PASS] 226. (char-ci=? #\a #\A #\a) .......... [PASS] 227. (char-ci=? #\a #\b) .......... [PASS] 228. (char-ci? #\A #\b) .......... [PASS] 232. (char-ci>? #\a #\A) .......... [PASS] 233. (char-ci>? #\c #\B #\a) .......... [PASS] 234. (char-ci<=? #\a #\B #\b) .......... [PASS] 235. (char-ci<=? #\A #\a) .......... [PASS] 236. (char-ci<=? #\b #\A) .......... [PASS] 237. (char-ci>=? #\A #\b) .......... [PASS] 238. (char-ci>=? #\a #\A) .......... [PASS] 239. (char-ci>=? #\b #\B #\a) .......... [PASS] 240. (char-alphabetic? #\a) .......... [PASS] 241. (char-alphabetic? #\space) .......... [PASS] 242. (char-numeric? #\0) .......... [PASS] 243. (char-numeric? #\.) .......... [PASS] 244. (char-numeric? #\a) .......... [PASS] 245. (char-whitespace? #\space) .......... [PASS] 246. (char-whitespace? #\tab) .......... [PASS] 247. (char-whitespace? #\newline) .......... [PASS] 248. (char-whitespace? #\_) .......... [PASS] 249. (char-whitespace? #\a) .......... [PASS] 250. (char-upper-case? #\A) .......... [PASS] 251. (char-upper-case? #\a) .......... [PASS] 252. (char-upper-case? #\3) .......... [PASS] 253. (char-lower-case? #\a) .......... [PASS] 254. (char-lower-case? #\A) .......... [PASS] 255. (char-lower-case? #\3) .......... [PASS] 256. (char-upcase #\a) .......... [PASS] 257. (char-upcase #\A) .......... [PASS] 258. (char-upcase #\3) .......... [PASS] 259. (char-downcase #\A) .......... [PASS] 260. (char-downcase #\a) .......... [PASS] 261. (char-downcase #\3) .......... [PASS] 262. (char-foldcase #\A) .......... [PASS] 263. (char-foldcase #\a) .......... [PASS] 264. (char-foldcase #\3) .......... [PASS] 265. (digit-value #\space) .......... [PASS] 266. (digit-value #\0) .......... [PASS] 267. (digit-value #\3) .......... [PASS] 268. (digit-value #\7) .......... [PASS] 269. (digit-value #\9) .......... [PASS] 270. (digit-value #\A) .......... [PASS] 271. (symbol? (quote foo)) .......... [PASS] 272. (symbol? (car (quote (a b)))) .......... [PASS] 273. (symbol? "bar") .......... [PASS] 274. (symbol? (quote nil)) .......... [PASS] 275. (symbol? (quote ())) .......... [PASS] 276. (symbol=? (quote a) (quote a)) .......... [PASS] 277. (symbol=? (quote a) (quote b)) .......... [PASS] 278. (symbol=? (quote b) (quote b) (quote b) (quote b)) .......... [PASS] 279. (symbol=? (quote b) (quote b) (quote b) (quote b) (quote a)) .......... [PASS] 280. (symbol->string (quote flying-fish)) .......... [PASS] 281. (symbol->string (quote Martin)) .......... [PASS] 282. (symbol->string (string->symbol "Malvina")) .......... [PASS] 283. (string? "") .......... [PASS] 284. (string? " ") .......... [PASS] 285. (string? (quote a)) .......... [PASS] 286. (string? #\a) .......... [PASS] 287. (string-length (make-string 3)) .......... [PASS] 288. (make-string 3 #\-) .......... [PASS] 289. (string) .......... [PASS] 290. (string #\- #\- #\-) .......... [PASS] 291. (string #\k #\i #\t #\t #\e #\n) .......... [PASS] 292. (string-length "") .......... [PASS] 293. (string-length "a") .......... [PASS] 294. (string-length "abc") .......... [PASS] 295. (string-ref "abc" 0) .......... [PASS] 296. (string-ref "abc" 1) .......... [PASS] 297. (string-ref "abc" 2) .......... [PASS] 298. (let ((str (string #\a #\b #\c))) (string-set! str 1 #\-) str) .......... [PASS] 299. (string=? "" "") .......... [PASS] 300. (string=? "abc" "abc" "abc") .......... [PASS] 301. (string=? "" "abc") .......... [PASS] 302. (string=? "abc" "aBc") .......... [PASS] 303. (string? "" "") .......... [PASS] 309. (string>? "abc" "abc") .......... [PASS] 310. (string>? "abc" "abcd") .......... [PASS] 311. (string>? "acd" "abcd" "abc") .......... [PASS] 312. (string>? "abc" "bbc") .......... [PASS] 313. (string<=? "" "") .......... [PASS] 314. (string<=? "abc" "abc") .......... [PASS] 315. (string<=? "abc" "abcd" "abcd") .......... [PASS] 316. (string<=? "abcd" "abc") .......... [PASS] 317. (string<=? "abc" "bbc") .......... [PASS] 318. (string>=? "" "") .......... [PASS] 319. (string>=? "abc" "abc") .......... [PASS] 320. (string>=? "abc" "abcd") .......... [PASS] 321. (string>=? "abcd" "abcd" "abc") .......... [PASS] 322. (string>=? "abc" "bbc") .......... [PASS] 323. (string-ci=? "" "") .......... [PASS] 324. (string-ci=? "abc" "abc") .......... [PASS] 325. (string-ci=? "" "abc") .......... [PASS] 326. (string-ci=? "abc" "aBc") .......... [PASS] 327. (string-ci=? "abc" "aBcD") .......... [PASS] 328. (string-ci=? "abc" "aBc" "Abc") .......... [PASS] 329. (string-ci? "abc" "aBc") .......... [PASS] 334. (string-ci>? "abc" "aBcD") .......... [PASS] 335. (string-ci>? "ABCd" "aBc") .......... [PASS] 336. (string-ci>? "ABCE" "ABCd" "aBc") .......... [PASS] 337. (string-ci<=? "abc" "aBc") .......... [PASS] 338. (string-ci<=? "abc" "aBcD") .......... [PASS] 339. (string-ci<=? "ABCd" "aBc") .......... [PASS] 340. (string-ci<=? "abc" "aBc" "aBcD") .......... [PASS] 341. (string-ci>=? "abc" "aBc") .......... [PASS] 342. (string-ci>=? "abc" "aBcD") .......... [PASS] 343. (string-ci>=? "ABCd" "aBc") .......... [PASS] 344. (string-ci>=? "ABCd" "aBc" "AbC") .......... [PASS] 345. (string-upcase "abc") .......... [PASS] 346. (string-upcase "ABC") .......... [PASS] 347. (string-downcase "abc") .......... [PASS] 348. (string-downcase "ABC") .......... [PASS] 349. (string-foldcase "abc") .......... [PASS] 350. (string-foldcase "ABC") .......... [PASS] 351. (substring "" 0 0) .......... [PASS] 352. (substring "a" 0 0) .......... [PASS] 353. (substring "abc" 1 1) .......... [PASS] 354. (substring "abc" 0 2) .......... [PASS] 355. (substring "abc" 1 3) .......... [PASS] 356. (string-append "") .......... [PASS] 357. (string-append "" "") .......... [PASS] 358. (string-append "" "abc") .......... [PASS] 359. (string-append "abc" "") .......... [PASS] 360. (string-append "abc" "de") .......... [PASS] 361. (string-append "abc" "de" "f") .......... [PASS] 362. (string->list "") .......... [PASS] 363. (string->list "a") .......... [PASS] 364. (string->list "abc") .......... [PASS] 365. (string->list "abc" 0) .......... [PASS] 366. (string->list "abc" 1) .......... [PASS] 367. (string->list "abc" 1 3) .......... [PASS] 368. (list->string (quote ())) .......... [PASS] 369. (list->string (quote (#\a #\b #\c))) .......... [PASS] 370. (string-copy "") .......... [PASS] 371. (string-copy "" 0) .......... [PASS] 372. (string-copy "" 0 0) .......... [PASS] 373. (string-copy "abc") .......... [PASS] 374. (string-copy "abc" 0) .......... [PASS] 375. (string-copy "abc" 1) .......... [PASS] 376. (string-copy "abc" 1 2) .......... [PASS] 377. (string-copy "abc" 1 3) .......... [PASS] 378. (let ((str (make-string 5 #\x))) (string-fill! str #\-) str) .......... [PASS] 379. (let ((str (make-string 5 #\x))) (string-fill! str #\- 2) str) .......... [PASS] 380. (let ((str (make-string 5 #\x))) (string-fill! str #\- 2 3) str) .......... [PASS] 381. (let ((str (string-copy "abcde"))) (string-copy! str 1 "12345" 0 2) str) .......... [PASS] 382. (let ((str (make-string 5 #\x))) (string-copy! str 0 "-----") str) .......... [PASS] 383. (let ((str (make-string 5 #\x))) (string-copy! str 0 "-----" 2) str) .......... [PASS] 384. (let ((str (make-string 5 #\x))) (string-copy! str 2 "-----" 0 3) str) .......... [PASS] 385. (let ((str (make-string 5 #\x))) (string-copy! str 2 "-----" 2 3) str) .......... [PASS] 386. (let ((str (string-copy "abcde"))) (string-copy! str 1 str 0 2) str) .......... [PASS] 387. (let ((str (string-copy "abcde"))) (string-copy! str 3 str 0 2) str) .......... [PASS] 388. (string? "a") .......... [PASS] 389. (string? (quote a)) .......... [PASS] 390. (string-length "") .......... [PASS] 391. (string-length "abc") .......... [PASS] 392. (string-ref "abc" 0) .......... [PASS] 393. (string-ref "abc" 2) .......... [PASS] 394. (string=? "a" (string #\a)) .......... [PASS] 395. (string=? "a" (string #\b)) .......... [PASS] 396. (stringlist (quote #(dah dah didah))) .......... [PASS] 419. (vector->list (quote #(dah dah didah)) 1) .......... [PASS] 420. (vector->list (quote #(dah dah didah)) 1 2) .......... [PASS] 421. (list->vector (quote (dididit dah))) .......... [PASS] 422. (string->vector "") .......... [PASS] 423. (string->vector "ABC") .......... [PASS] 424. (string->vector "ABC" 1) .......... [PASS] 425. (string->vector "ABC" 1 2) .......... [PASS] 426. (vector->string #()) .......... [PASS] 427. (vector->string (quote #(#\1 #\2 #\3))) .......... [PASS] 428. (vector->string (quote #(#\1 #\2 #\3)) 1) .......... [PASS] 429. (vector->string (quote #(#\1 #\2 #\3)) 1 2) .......... [PASS] 430. (vector-copy (quote #())) .......... [PASS] 431. (vector-copy (quote #(a b c))) .......... [PASS] 432. (vector-copy (quote #(a b c)) 1) .......... [PASS] 433. (vector-copy (quote #(a b c)) 1 2) .......... [PASS] 434. (vector-append) .......... [PASS] 435. (vector-append (quote #())) .......... [PASS] 436. (vector-append (quote #()) (quote #())) .......... [PASS] 437. (vector-append (quote #()) (quote #(a b c))) .......... [PASS] 438. (vector-append (quote #(a b c)) (quote #())) .......... [PASS] 439. (vector-append (quote #(a b c)) (quote #(d e))) .......... [PASS] 440. (vector-append (quote #(a b c)) (quote #(d e)) (quote #(f))) .......... [PASS] 441. (let ((vec (vector 1 2 3 4 5))) (vector-fill! vec (quote smash) 2 4) vec) .......... [PASS] 442. (let ((vec (vector 1 2 3 4 5))) (vector-fill! vec (quote x)) vec) .......... [PASS] 443. (let ((vec (vector 1 2 3 4 5))) (vector-fill! vec (quote x) 2) vec) .......... [PASS] 444. (let ((vec (vector 1 2 3 4 5))) (vector-fill! vec (quote x) 2 3) vec) .......... [PASS] 445. (let ((vec (vector 1 2 3 4 5))) (vector-copy! vec 1 #(a b c d e) 0 2) vec) .......... [PASS] 446. (let ((vec (vector 1 2 3 4 5))) (vector-copy! vec 0 #(a b c d e)) vec) .......... [PASS] 447. (let ((vec (vector 1 2 3 4 5))) (vector-copy! vec 0 #(a b c d e) 2) vec) .......... [PASS] 448. (let ((vec (vector 1 2 3 4 5))) (vector-copy! vec 2 #(a b c d e) 0 3) vec) .......... [PASS] 449. (let ((vec (vector 1 2 3 4 5))) (vector-copy! vec 2 #(a b c d e) 2 3) vec) .......... [PASS] 450. (let ((vec (vector 1 2 3 4 5))) (vector-copy! vec 1 vec 0 2) vec) .......... [PASS] 451. (let ((vec (vector 1 2 3 4 5))) (vector-copy! vec 3 vec 0 2) vec) .......... [PASS] 452. (let ((vec (vector 0 (quote (2 2 2 2)) "Anna"))) (vector-set! vec 1 (quote ("Sue" "Sue"))) vec) .......... [PASS] 453. (vector->list (quote #(dah dah didah))) .......... [PASS] 454. (list->vector (quote (dididit dah))) .......... [PASS] 455. (procedure? car) .......... [PASS] 456. (procedure? (quote car)) .......... [PASS] 457. (procedure? (lambda (x) (* x x))) .......... [PASS] 458. (procedure? (quote (lambda (x) (* x x)))) .......... [PASS] 459. (call-with-current-continuation procedure?) .......... [PASS] 460. (call-with-current-continuation (lambda (k) (+ 2 5))) .......... [PASS] 461. (call-with-current-continuation (lambda (k) (+ 2 5 (k 3)))) .......... [PASS] 462. (apply + (list 3 4)) .......... [PASS] 463. (map cadr (quote ((a b) (d e) (g h)))) .......... [PASS] 464. (map (lambda (n) (expt n n)) (quote (1 2 3 4 5))) .......... [PASS] 465. (map + (quote (1 2 3)) (quote (4 5 6))) .......... [PASS] 466. (let ((v (make-vector 5))) (for-each (lambda (i) (vector-set! v i (* i i))) (quote (0 1 2 3 4))) v) .......... [PASS] 467. (force (delay (+ 1 2))) .......... [PASS] 468. (let ((p (delay (+ 1 2)))) (list (force p) (force p))) .......... [PASS] 469. (let ((else 1)) (cond (else (quote ok)) (#t (quote bad)))) .......... [PASS] 470. (let ((=> 1)) (cond (#t => (quote ok)))) .......... [PASS] 471. (let ((unquote 1)) (quasiquote ((unquote foo)))) .......... [PASS] 472. (let ((unquote-splicing 1)) (quasiquote ((unquote-splicing foo)))) .......... [PASS] 473. (quasiquote (list (unquote (+ 1 2)) 4)) .......... [PASS] 474. (quasiquote (list (unquote name) (quote (unquote name)))) .......... [PASS] 475. (quasiquote (a (unquote (+ 1 2)) (unquote-splicing (map abs (quote (4 -5 6)))) b)) .......... [PASS] 476. (quasiquote #(10 5 (unquote (square 2)) (unquote-splicing (map square (quote (4 3)))) 8)) .......... [PASS] 477. (quasiquote (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo (unquote (+ 1 3)) d)) e)) f)) .......... [PASS] 478. (quasiquote (a (quasiquote (b (unquote (unquote name1)) (unquote (quote (unquote name2))) d)) e)) .......... [PASS] 479. (quasiquote (list (unquote (+ 1 2)) 4)) .......... [PASS] 480. (quasiquote (list (unquote (+ 1 2)) 4)) .......... [PASS] 481. (when (> 3 2) (quote greater)) .......... [PASS] 482. (let ((x (quote ()))) (when (> 3 2) (set! x (cons (quote greater) x)) x)) .......... [PASS] 483. (unless (< 3 2) (quote less)) .......... [PASS] 484. (let ((x (quote ()))) (unless (< 3 2) (set! x (cons (quote less) x)) x)) .......... [PASS] 485. (plus) .......... [PASS] 486. (plus 1) .......... [PASS] 487. (plus 1 2) .......... [PASS] 488. (plus 1 2 3) .......... [PASS] 489. (plus 1 2 3 4) .......... [PASS] 490. (mult) .......... [PASS] 491. (mult 1) .......... [PASS] 492. (mult 1 2) .......... [PASS] 493. (mult 1 2 3) .......... [PASS] 494. (mult 1 2 3 4) .......... [PASS] 495. (let-syntax ((when (syntax-rules () ((when test stmt1 stmt2 ...) (if test (begin stmt1 stmt2 ...)))))) (let ((if #t)) (when if (set! if (quote now))) if)) .......... [PASS] 496. (let ((x (quote outer))) (let-syntax ((m (syntax-rules () ((m) x)))) (let ((x (quote inner))) (m)))) .......... [PASS] 497. (letrec-syntax ((my-or (syntax-rules () ((my-or) #f) ((my-or e) e) ((my-or e1 e2 ...) (let ((temp e1)) (if temp temp (my-or e2 ...))))))) (let ((x #f) (y 7) (temp 8) (let odd?) (if even?)) (my-or x (let temp) (if y) y))) .......... [PASS] 498. (sequence1 0 1 2 3) .......... [PASS] 499. (sequence2 1 2 3 4) .......... [PASS] 500. (sequence3 2 3 4 5) .......... [PASS] 501. (mad-hatter) .......... [PASS] 502. (let ((=> #f)) (cond (#t => (quote ok)))) .......... [PASS] 503. x .......... [PASS] 504. (ff 10) .......... [PASS] 505. (vector-lit) .......... [PASS] 506. (quux399) .......... [PASS] 507. (m k) .......... [PASS] 508. (let ((... 2)) (let-syntax ((s (syntax-rules () ((_ x ...) (quote bad)) ((_ . r) (quote ok))))) (s a b c))) .......... [PASS] 509. (let-syntax ((zlet (syntax-rules () ((_ (i ...) (v ...) . b) (let ((i v) ...) . b))))) (zlet (a b) (10 20) (list a b))) .......... [PASS] 510. (let-syntax ((gotmid (syntax-rules () ((_ a b ... c) (list b ...))))) (gotmid 1 2 3 4 5 6 7)) .......... [PASS] 511. (let-syntax ((greedy (syntax-rules () ((_ a b ... . c) (list b ... c))))) (greedy 1 2 3 4 5 6 7)) .......... [PASS] 512. (let-syntax ((greed.y (syntax-rules () ((_ a b ... . c) (list b ... c))))) (greed.y 1 2 3 4 5 6 . 7)) .......... [PASS] 513. (let-syntax ((foo (syntax-rules () ((_) (let-syntax ((bar (syntax-rules () ((_) (list (quote _)))))) (bar)))))) (foo)) .......... [PASS] 514. (let-syntax ((ttt (syntax-rules () ((x y) (quote (x y)))))) (ttt 123)) .......... [PASS] 515. (let-syntax ((ttt (syntax-rules () (((... x) y) (quote (x y)))))) (ttt 123)) .......... [PASS] 516. ((syntax-rules () ((_) (let-syntax ((ttt (syntax-rules () ((((... ...) x) y) (quote (x y)))))) (ttt 123))))) .......... [PASS] 517. (let ((l3 (bar))) (and (equal? (bar) ((cadr l3))) (equal? (bar) ((caddr l3))))) .......... [PASS] 518. (unbox-rebox 1 2 3 4 5) .......... [PASS] 519. (unbox-rebox #&1 #&2 #&3 #&4 #&5) .......... [PASS] 520. (underscored 1 2) .......... [PASS] 521. (list (wrap-by-type 42) (wrap-by-type "yes") (wrap-by-type #\c)) .......... [PASS] 522. (pi-e-example) .......... [PASS] 523. (+ pi e) .......... [PASS] 524. (let ((n 10) (steps 0) (break write)) (loop-until-break (when (= n 4) (break steps)) (set! n (- n 1)) (set! steps (+ steps 1)))) .......... [PASS] 525. (unstringed "Foo") .......... [PASS] 526. ((lambda () (let ((x 1)) (let ((y x)) (set! x 2) (list x y))))) .......... [PASS] 527. ((lambda () (let ((x 1)) (set! x 2) (let ((y x)) (list x y))))) .......... [PASS] 528. ((lambda () (let ((x 1)) (let ((y x)) (set! y 2) (list x y))))) .......... [PASS] 529. ((lambda () (let ((x 1)) (let ((y x)) (set! x 2) (set! y 3) (list x y))))) .......... [PASS] 530. (let* ((path (quote ())) (add (lambda (s) (set! path (cons s path))))) (dynamic-wind (lambda () (add (quote a))) (lambda () (add (quote b))) (lambda () (add (quote c)))) (reverse path)) .......... [PASS] 531. (let ((path (quote ())) (c #f)) (let ((add (lambda (s) (set! path (cons s path))))) (dynamic-wind (lambda () (add (quote connect))) (lambda () (add (call-with-current-continuation (lambda (c0) (set! c c0) (quote talk1))))) (lambda () (add (quote disconnect)))) (if (< (length path) 4) (c (quote talk2)) (reverse path)))) .......... [PASS] 532. (let-syntax ((foo (syntax-rules ::: () ((foo ... args :::) (args ::: ...))))) (foo 3 - 5)) .......... [PASS] 533. (let-syntax ((foo (syntax-rules () ((foo args ... penultimate ultimate) (list ultimate penultimate args ...))))) (foo 1 2 3 4 5)) .......... [PASS] 534. (M 1 2 3) .......... [PASS] 535. (N 1 2 3) .......... [PASS] 536. (asd 1 2) .......... [PASS] 537. (complex? 3) .......... [PASS] 538. (real? 3) .......... [PASS] 539. (real? 100000) .......... [PASS] 540. (real? +inf.0) .......... [PASS] 541. (rational? -inf.0) .......... [PASS] 542. (integer? 3.0) .......... [PASS] 543. (exact? 3.0) .......... [PASS] 544. (exact? 3) .......... [PASS] 545. (inexact? 3.0) .......... [PASS] 546. (exact-integer? 32) .......... [PASS] 547. (exact-integer? 32.0) .......... [PASS] 548. (finite? 3) .......... [PASS] 549. (finite? +inf.0) .......... [PASS] 550. (infinite? 3) .......... [PASS] 551. (infinite? +inf.0) .......... [PASS] 552. (infinite? +nan.0) .......... [PASS] 553. (nan? +nan.0) .......... [PASS] 554. (nan? 32) .......... [PASS] 555. (< 1 2 3) .......... [PASS] 556. (< 1 1 2) .......... [PASS] 557. (> 3.0 2.0 1.0) .......... [PASS] 558. (> -3.0 2.0 1.0) .......... [PASS] 559. (<= 1 1 2) .......... [PASS] 560. (<= 1 2 1) .......... [PASS] 561. (>= 2 1 1) .......... [PASS] 562. (>= 1 2 1) .......... [PASS] 563. (list (<= 1 1 2) (<= 2 1 3)) .......... [PASS] 564. (zero? 0) .......... [PASS] 565. (zero? 0.0) .......... [PASS] 566. (zero? 1) .......... [PASS] 567. (zero? -1) .......... [PASS] 568. (positive? 0) .......... [PASS] 569. (positive? 0.0) .......... [PASS] 570. (positive? 1) .......... [PASS] 571. (positive? 1.0) .......... [PASS] 572. (positive? -1) .......... [PASS] 573. (positive? -1.0) .......... [PASS] 574. (positive? +inf.0) .......... [PASS] 575. (positive? -inf.0) .......... [PASS] 576. (negative? 0) .......... [PASS] 577. (negative? 0.0) .......... [PASS] 578. (negative? 1) .......... [PASS] 579. (negative? 1.0) .......... [PASS] 580. (negative? -1) .......... [PASS] 581. (negative? -1.0) .......... [PASS] 582. (negative? +inf.0) .......... [PASS] 583. (negative? -inf.0) .......... [PASS] 584. (odd? 0) .......... [PASS] 585. (odd? 1) .......... [PASS] 586. (odd? -1) .......... [PASS] 587. (odd? 102) .......... [PASS] 588. (even? 0) .......... [PASS] 589. (even? 1) .......... [PASS] 590. (even? -2) .......... [PASS] 591. (even? 102) .......... [PASS] 592. (max 3) .......... [PASS] 593. (max 3 4) .......... [PASS] 594. (max 3.9 4) .......... [PASS] 595. (max 5 3.9 4) .......... [PASS] 596. (max 100 +inf.0) .......... [PASS] 597. (min 3) .......... [PASS] 598. (min 3 4) .......... [PASS] 599. (min 3 3.1) .......... [PASS] 600. (min -inf.0 -100) .......... [PASS] 601. (+ 3 4) .......... [PASS] 602. (+ 3) .......... [PASS] 603. (+) .......... [PASS] 604. (* 4) .......... [PASS] 605. (*) .......... [PASS] 606. (- 3 4) .......... [PASS] 607. (- 3 4 5) .......... [PASS] 608. (- 3) .......... [PASS] 609. (abs -7) .......... [PASS] 610. (abs 7) .......... [PASS] 611. (call-with-values (lambda () (floor/ 5 2)) list) .......... [PASS] 612. (call-with-values (lambda () (floor/ -5 2)) list) .......... [PASS] 613. (call-with-values (lambda () (floor/ 5 -2)) list) .......... [PASS] 614. (call-with-values (lambda () (floor/ -5 -2)) list) .......... [PASS] 615. (call-with-values (lambda () (truncate/ 5 2)) list) .......... [PASS] 616. (call-with-values (lambda () (truncate/ -5 2)) list) .......... [PASS] 617. (call-with-values (lambda () (truncate/ 5 -2)) list) .......... [PASS] 618. (call-with-values (lambda () (truncate/ -5 -2)) list) .......... [PASS] 619. (call-with-values (lambda () (truncate/ -5.0 -2)) list) .......... [PASS] 620. (call-with-values (lambda () (truncate/ 3333333 3)) list) .......... [PASS] 621. (call-with-values (lambda () (truncate/ 3333333 3.0)) list) .......... [PASS] 622. (call-with-values (lambda () (truncate/ 3333333 -3)) list) .......... [PASS] 623. (call-with-values (lambda () (truncate/ 3333333 -3.0)) list) .......... [PASS] 624. (call-with-values (lambda () (truncate/ -3333333 3)) list) .......... [PASS] 625. (call-with-values (lambda () (truncate/ -3333333 3.0)) list) .......... [PASS] 626. (call-with-values (lambda () (truncate/ -3333333 -3)) list) .......... [PASS] 627. (call-with-values (lambda () (truncate/ -3333333 -3.0)) list) .......... [PASS] 628. (modulo 13 4) .......... [PASS] 629. (remainder 13 4) .......... [PASS] 630. (modulo -13 4) .......... [PASS] 631. (remainder -13 4) .......... [PASS] 632. (modulo 13 -4) .......... [PASS] 633. (remainder 13 -4) .......... [PASS] 634. (modulo -13 -4) .......... [PASS] 635. (remainder -13 -4) .......... [PASS] 636. (remainder -13 -4.0) .......... [PASS] 637. (gcd 32 -36) .......... [PASS] 638. (gcd) .......... [PASS] 639. (lcm 32 -36) .......... [PASS] 640. (lcm 32.0 -36) .......... [PASS] 641. (lcm) .......... [PASS] 642. (floor -4.3) .......... [PASS] 643. (ceiling -4.3) .......... [PASS] 644. (truncate -4.3) .......... [PASS] 645. (round -4.3) .......... [PASS] 646. (floor 3.5) .......... [PASS] 647. (ceiling 3.5) .......... [PASS] 648. (truncate 3.5) .......... [PASS] 649. (round 3.5) .......... [PASS] 650. (inexact (exp 0)) .......... [PASS] 651. (same? 20.085536923187668 (exp 3)) .......... [PASS] 652. (inexact (log 1)) .......... [PASS] 653. (log (exp 1)) .......... [PASS] 654. (log (exp 42)) .......... [PASS] 655. (log 100 10) .......... [PASS] 656. (log 4096 2) .......... [PASS] 657. (inexact (sin 0)) .......... [PASS] 658. (sin 1.5707963267949) .......... [PASS] 659. (inexact (cos 0)) .......... [PASS] 660. (cos 3.14159265358979) .......... [PASS] 661. (inexact (tan 0)) .......... [PASS] 662. (same? 1.5574077246549023 (tan 1)) .......... [PASS] 663. (inexact (asin 0)) .......... [PASS] 664. (same? 1.5707963267948966 (asin 1)) .......... [PASS] 665. (inexact (acos 1)) .......... [PASS] 666. (same? 3.141592653589793 (acos -1)) .......... [PASS] 667. (atan 0.0 1.0) .......... [PASS] 668. (atan -0.0 1.0) .......... [PASS] 669. (same? 0.7853981633974483 (atan 1.0 1.0)) .......... [PASS] 670. (same? 1.5707963267948966 (atan 1.0 0.0)) .......... [PASS] 671. (same? 2.356194490192345 (atan 1.0 -1.0)) .......... [PASS] 672. (same? 3.141592653589793 (atan 0.0 -1.0)) .......... [PASS] 673. (same? -3.141592653589793 (atan -0.0 -1.0)) .......... [PASS] 674. (same? -2.356194490192345 (atan -1.0 -1.0)) .......... [PASS] 675. (same? -1.5707963267948966 (atan -1.0 0.0)) .......... [PASS] 676. (same? -0.7853981633974483 (atan -1.0 1.0)) .......... [PASS] 677. (square 42) .......... [PASS] 678. (square 2) .......... [PASS] 679. (inexact (sqrt 9)) .......... [PASS] 680. (same? 1.4142135623730951 (sqrt 2)) .......... [PASS] 681. (call-with-values (lambda () (exact-integer-sqrt 0)) list) .......... [PASS] 682. (call-with-values (lambda () (exact-integer-sqrt 1)) list) .......... [PASS] 683. (call-with-values (lambda () (exact-integer-sqrt 2)) list) .......... [PASS] 684. (call-with-values (lambda () (exact-integer-sqrt 3)) list) .......... [PASS] 685. (call-with-values (lambda () (exact-integer-sqrt 4)) list) .......... [PASS] 686. (call-with-values (lambda () (exact-integer-sqrt 5)) list) .......... [PASS] 687. (call-with-values (lambda () (exact-integer-sqrt 5)) list) .......... [PASS] 688. (call-with-values (lambda () (exact-integer-sqrt 42)) list) .......... [PASS] 689. (call-with-values (lambda () (exact-integer-sqrt 8388607)) list) .......... [PASS] 690. (expt 3 3) .......... [PASS] 691. (expt 0 0) .......... [PASS] 692. (expt 0 1) .......... [PASS] 693. (= (expt 0.0 0) 1.0) .......... [PASS] 694. (= (expt 0 1.0) 0.0) .......... [PASS] 695. (inexact 1) .......... [PASS] 696. (inexact? (inexact 1)) .......... [PASS] 697. (exact 1.0) .......... [PASS] 698. (exact? (exact 1.0)) .......... [PASS] 699. (string->number "100") .......... [PASS] 700. (string->number "100" 16) .......... [PASS] 701. (string->number "1e2") .......... [PASS] 702. (f 12) .......... [PASS] 703. (parameterize ((radix 2)) (f 12)) .......... [PASS] 704. (f 12) .......... [PASS] 705. (let ((a (quote a)) (b (quote b)) (x (quote x)) (y (quote y))) (let*-values (((a b) (values x y)) ((x y) (values a b))) (list a b x y))) .......... [PASS] 706. (let-values () (quote ok)) .......... [PASS] 707. (let ((x 1)) (let*-values () (define x 2) #f) x) .......... [PASS] 708. (let () (define-values () (values)) (quote ok)) .......... [PASS] 709. (let () (define-values (x) (values 1)) x) .......... [PASS] 710. (let () (define-values x (values 1 2)) (apply + x)) .......... [PASS] 711. (let () (define-values (x y) (values 1 2)) (+ x y)) .......... [PASS] 712. (let () (define-values (x y z) (values 1 2 3)) (+ x y z)) .......... [PASS] 713. (let () (define-values (x y . z) (values 1 2 3 4)) (+ x y (car z) (cadr z))) .......... [PASS] 714. (call-with-values (lambda () (values 4 5)) (lambda (a b) b)) .......... [PASS] 715. (call-with-values * -) .......... [PASS] 716. (with-exception-handler (lambda (con) 42) (lambda () (+ (raise-continuable "should be a number") 23))) .......... [PASS] 717. (error-object? (guard (exn (else exn)) (error "BOOM!" 1 2 3))) .......... [PASS] 718. (error-object-message (guard (exn (else exn)) (error "BOOM!" 1 2 3))) .......... [PASS] 719. (error-object-irritants (guard (exn (else exn)) (error "BOOM!" 1 2 3))) .......... [PASS] 720. (file-error? (guard (exn (else exn)) (error "BOOM!"))) .......... [PASS] 721. (file-error? (guard (exn (else exn)) (open-input-file " no such file "))) .......... [PASS] 722. (read-error? (guard (exn (else exn)) (error "BOOM!"))) .......... [PASS] 723. (read-error? (guard (exn (else exn)) (read (open-input-string ")")))) .......... [PASS] 724. (read-error? (guard (exn (else exn)) (read (open-input-string "\"")))) .......... [PASS] 725. (test-exception-handler-1 5) .......... [PASS] 726. something-went-wrong .......... [PASS] 727. (test-exception-handler-1 -1) .......... [PASS] 728. something-went-wrong .......... [PASS] 729. (test-exception-handler-2 5) .......... [PASS] 730. something-went-wrong .......... [PASS] 731. (test-exception-handler-2 -1) .......... [PASS] 732. something-went-wrong .......... [PASS] 733. (get-output-string out) .......... [PASS] 734. value .......... [PASS] 735. value .......... [PASS] 736. (get-output-string out) .......... [PASS] 737. (get-output-string out) .......... [PASS] 738. value .......... [PASS] 739. (get-output-string out) .......... [PASS] 740. value .......... [PASS] 741. (get-output-string out) .......... [PASS] 742. value .......... [PASS] 743. (guard (condition ((assq (quote a) condition) => cdr) ((assq (quote b) condition))) (raise (list (cons (quote a) 42)))) .......... [PASS] 744. (guard (condition ((assq (quote a) condition) => cdr) ((assq (quote b) condition))) (raise (list (cons (quote b) 23)))) .......... [PASS] 745. (guard (condition ((assq (quote c) condition) (quote caught-c)) ((assq (quote d) condition) (quote caught-d))) (list (sqrt 8) (guard (condition ((assq (quote a) condition) => cdr) ((assq (quote b) condition))) (raise (list (cons (quote d) 24)))))) .......... [PASS] 746. (bytevector? #u8()) .......... [PASS] 747. (bytevector? #u8(0 1 2)) .......... [PASS] 748. (bytevector? #()) .......... [PASS] 749. (bytevector? #(0 1 2)) .......... [PASS] 750. (bytevector? (quote ())) .......... [PASS] 751. (bytevector? (make-bytevector 0)) .......... [PASS] 752. (bytevector-length (make-bytevector 0)) .......... [PASS] 753. (bytevector-length (make-bytevector 1024)) .......... [PASS] 754. (bytevector-length (make-bytevector 1024 255)) .......... [PASS] 755. (bytevector-length (bytevector 0 1 2)) .......... [PASS] 756. (bytevector-u8-ref (bytevector 0 1 2) 0) .......... [PASS] 757. (bytevector-u8-ref (bytevector 0 1 2) 1) .......... [PASS] 758. (bytevector-u8-ref (bytevector 0 1 2) 2) .......... [PASS] 759. (let ((bv (bytevector 0 1 2))) (bytevector-u8-set! bv 1 255) bv) .......... [PASS] 760. (bytevector->list #u8()) .......... [PASS] 761. (bytevector->list #u8(0 1 2)) .......... [PASS] 762. (bytevector->list #u8(0 1 2) 0) .......... [PASS] 763. (bytevector->list #u8(0 1 2) 0 3) .......... [PASS] 764. (bytevector->list #u8(0 1 2) 1) .......... [PASS] 765. (bytevector->list #u8(0 1 2) 1 2) .......... [PASS] 766. (bytevector->list #u8(0 1 2) 2 2) .......... [PASS] 767. (list->bytevector (quote ())) .......... [PASS] 768. (list->bytevector (quote (24 42))) .......... [PASS] 769. (bytevector-copy #u8()) .......... [PASS] 770. (bytevector-copy #u8(0 1 2)) .......... [PASS] 771. (bytevector-copy #u8(0 1 2) 1) .......... [PASS] 772. (bytevector-copy #u8(0 1 2) 1 2) .......... [PASS] 773. (let ((bv (bytevector 1 2 3 4 5))) (bytevector-copy! bv 1 #u8(6 7 8 9 10) 0 2) bv) .......... [PASS] 774. (let ((bv (bytevector 1 2 3 4 5))) (bytevector-copy! bv 0 #u8(6 7 8 9 10)) bv) .......... [PASS] 775. (let ((bv (bytevector 1 2 3 4 5))) (bytevector-copy! bv 0 #u8(6 7 8 9 10) 2) bv) .......... [PASS] 776. (let ((bv (bytevector 1 2 3 4 5))) (bytevector-copy! bv 2 #u8(6 7 8 9 10) 0 3) bv) .......... [PASS] 777. (let ((bv (bytevector 1 2 3 4 5))) (bytevector-copy! bv 2 #u8(6 7 8 9 10) 2 3) bv) .......... [PASS] 778. (let ((bv (bytevector 1 2 3 4 5))) (bytevector-copy! bv 1 bv 0 2) bv) .......... [PASS] 779. (let ((bv (bytevector 1 2 3 4 5))) (bytevector-copy! bv 3 bv 0 2) bv) .......... [PASS] 780. (bytevector-append) .......... [PASS] 781. (bytevector-append #u8()) .......... [PASS] 782. (bytevector-append #u8() #u8()) .......... [PASS] 783. (bytevector-append #u8() #u8(0 1 2)) .......... [PASS] 784. (bytevector-append #u8(0 1 2) #u8()) .......... [PASS] 785. (bytevector-append #u8(0 1 2) #u8(3 4)) .......... [PASS] 786. (bytevector-append #u8(0 1 2) #u8(3 4) #u8(5)) .......... [PASS] 787. (utf8->string #u8()) .......... [PASS] 788. (utf8->string #u8(65 66 67)) .......... [PASS] 789. (utf8->string #u8(0 65 66 67) 1) .......... [PASS] 790. (utf8->string #u8(0 65 66 67 0) 1 4) .......... [PASS] 791. (string->utf8 "") .......... [PASS] 792. (string->utf8 "ABC") .......... [PASS] 793. (string->utf8 "ABC" 1) .......... [PASS] 794. (string->utf8 "ABC" 1 2) .......... [PASS] 795. (procedure? car) .......... [PASS] 796. (procedure? (quote car)) .......... [PASS] 797. (procedure? (lambda (x) (* x x))) .......... [PASS] 798. (procedure? (quote (lambda (x) (* x x)))) .......... [PASS] 799. (call-with-current-continuation procedure?) .......... [PASS] 800. (apply + (list 3 4)) .......... [PASS] 801. (apply + 3 4 (list)) .......... [PASS] 802. (call-with-values (lambda () ((compose exact-integer-sqrt *) 12 75)) list) .......... [PASS] 803. (map cadr (quote ((a b) (d e) (g h)))) .......... [PASS] 804. (map (lambda (n) (expt n n)) (quote (1 2 3 4 5))) .......... [PASS] 805. (map + (quote (1 2 3)) (quote (4 5 6 7))) .......... [PASS] 806. (let ((res (let ((count 0)) (map (lambda (ignored) (set! count (+ count 1)) count) (quote (a b)))))) (or (equal? res (quote (1 2))) (equal? res (quote (2 1))))) .......... [PASS] 807. (let ((ls1 (list 10 100 1000)) (ls2 (list 1 2 3 4 5 6))) (set-cdr! (cddr ls1) ls1) (map * ls1 ls2)) .......... [PASS] 808. (string-map char-foldcase "AbdEgH") .......... [PASS] 809. (string-map (lambda (c) (integer->char (+ 1 (char->integer c)))) "HAL") .......... [PASS] 810. (string-map (lambda (c k) (if (eqv? k #\u) (char-upcase c) (char-downcase c))) "studlycaps xxx" "ululululul") .......... [PASS] 811. (vector-map cadr (quote #((a b) (d e) (g h)))) .......... [PASS] 812. (vector-map (lambda (n) (expt n n)) (quote #(1 2 3 4 5))) .......... [PASS] 813. (vector-map + (quote #(1 2 3)) (quote #(4 5 6 7))) .......... [PASS] 814. (let ((res (let ((count 0)) (vector-map (lambda (ignored) (set! count (+ count 1)) count) (quote #(a b)))))) (or (equal? res #(1 2)) (equal? res #(2 1)))) .......... [PASS] 815. (let ((v (make-vector 5))) (for-each (lambda (i) (vector-set! v i (* i i))) (quote (0 1 2 3 4))) v) .......... [PASS] 816. (let ((ls1 (list 10 100 1000)) (ls2 (list 1 2 3 4 5 6)) (count 0)) (set-cdr! (cddr ls1) ls1) (for-each (lambda (x y) (set! count (+ count (* x y)))) ls2 ls1) count) .......... [PASS] 817. (let ((v (quote ()))) (string-for-each (lambda (c) (set! v (cons (char->integer c) v))) "abcde") v) .......... [PASS] 818. (let ((v (make-list 5))) (vector-for-each (lambda (i) (list-set! v i (* i i))) (quote #(0 1 2 3 4))) v) .......... [PASS] 819. (call-with-current-continuation (lambda (exit) (for-each (lambda (x) (if (negative? x) (exit x))) (quote (54 0 37 -3 245 19))) #t)) .......... [PASS] 820. (list-length (quote (1 2 3 4))) .......... [PASS] 821. (list-length (quote (a b . c))) .......... [PASS] 822. (call-with-values (lambda () (values 4 5)) (lambda (a b) b)) .......... [PASS] 823. (call-with-values * -) .......... [PASS] 824. (pare? (kons 1 2)) .......... [PASS] 825. (pare? (cons 1 2)) .......... [PASS] 826. (kar (kons 1 2)) .......... [PASS] 827. (kdr (kons 1 2)) .......... [PASS] 828. (let ((k (kons 1 2))) (set-kar! k 3) (kar k)) .......... [PASS] 829. (port? (current-input-port)) .......... [PASS] 830. (input-port? (current-input-port)) .......... [PASS] 831. (output-port? (current-output-port)) .......... [PASS] 832. (output-port? (current-error-port)) .......... [PASS] 833. (input-port? (open-input-string "abc")) .......... [PASS] 834. (output-port? (open-output-string)) .......... [PASS] 835. (textual-port? (open-input-string "abc")) .......... [PASS] 836. (textual-port? (open-output-string)) .......... [PASS] 837. (binary-port? (open-input-bytevector #u8(0 1 2))) .......... [PASS] 838. (binary-port? (open-output-bytevector)) .......... [PASS] 839. (input-port-open? (open-input-string "abc")) .......... [PASS] 840. (output-port-open? (open-output-string)) .......... [PASS] 841. (let ((in (open-input-string "abc"))) (close-input-port in) (input-port-open? in)) .......... [PASS] 842. (let ((out (open-output-string))) (close-output-port out) (output-port-open? out)) .......... [PASS] 843. (let ((out (open-output-string))) (close-port out) (output-port-open? out)) .......... [PASS] 844. (eof-object? (eof-object)) .......... [PASS] 845. (eof-object? (read (open-input-string ""))) .......... [PASS] 846. (char-ready? (open-input-string "42")) .......... [PASS] 847. (read (open-input-string " 42 ")) .......... [PASS] 848. (eof-object? (read-char (open-input-string ""))) .......... [PASS] 849. (read-char (open-input-string "abc")) .......... [PASS] 850. (eof-object? (read-line (open-input-string ""))) .......... [PASS] 851. (read-line (open-input-string "abc")) .......... [PASS] 852. (read-line (open-input-string "abc\ndef\n")) .......... [PASS] 853. (eof-object? (read-string 3 (open-input-string ""))) .......... [PASS] 854. (read-string 3 (open-input-string "abcd")) .......... [PASS] 855. (read-string 3 (open-input-string "abc\ndef\n")) .......... [PASS] 856. (let ((out (open-output-string))) (write (quote abc) out) (get-output-string out)) .......... [PASS] 857. (let ((out (open-output-string))) (display "abc def" out) (get-output-string out)) .......... [PASS] 858. (let ((out (open-output-string))) (display #\a out) (display "b" out) (display #\c out) (get-output-string out)) .......... [PASS] 859. (let* ((out (open-output-string)) (r (begin (newline out) (get-output-string out)))) (or (equal? r "\n") (equal? r "\r\n"))) .......... [PASS] 860. (let ((out (open-output-string))) (write-string "abc def" out) (get-output-string out)) .......... [PASS] 861. (let ((out (open-output-string))) (write-string "abc def" out 4) (get-output-string out)) .......... [PASS] 862. (let ((out (open-output-string))) (write-string "abc def" out 2 5) (get-output-string out)) .......... [PASS] 863. (let ((out (open-output-string))) (flush-output-port out) (get-output-string out)) .......... [PASS] 864. (eof-object? (read-u8 (open-input-bytevector #u8()))) .......... [PASS] 865. (read-u8 (open-input-bytevector #u8(1 2 3))) .......... [PASS] 866. (eof-object? (read-bytevector 3 (open-input-bytevector #u8()))) .......... [PASS] 867. (u8-ready? (open-input-bytevector #u8(1))) .......... [PASS] 868. (read-bytevector 3 (open-input-bytevector #u8(1))) .......... [PASS] 869. (read-bytevector 3 (open-input-bytevector #u8(1 2))) .......... [PASS] 870. (read-bytevector 3 (open-input-bytevector #u8(1 2 3))) .......... [PASS] 871. (read-bytevector 3 (open-input-bytevector #u8(1 2 3 4))) .......... [PASS] 872. (let ((bv (bytevector 1 2 3 4 5))) (eof-object? (read-bytevector! bv (open-input-bytevector #u8())))) .......... [PASS] 873. (let ((bv (bytevector 1 2 3 4 5))) (read-bytevector! bv (open-input-bytevector #u8(6 7 8 9 10)) 0 5) bv) .......... [PASS] 874. (let ((bv (bytevector 1 2 3 4 5))) (read-bytevector! bv (open-input-bytevector #u8(6 7 8 9 10)) 0 3) bv) .......... [PASS] 875. (let ((bv (bytevector 1 2 3 4 5))) (read-bytevector! bv (open-input-bytevector #u8(6 7 8 9 10)) 3 4) bv) .......... [PASS] 876. (let ((bv (bytevector 1 2 3 4 5))) (read-bytevector! bv (open-input-bytevector #u8(6 7)))) .......... [PASS] 877. (let ((bv (bytevector 1 2 3 4 5))) (eof-object? (read-bytevector! bv (open-input-bytevector #u8())))) .......... [PASS] 878. (let ((out (open-output-bytevector))) (write-u8 1 out) (write-u8 2 out) (write-u8 3 out) (get-output-bytevector out)) .......... [PASS] 879. (let ((out (open-output-bytevector))) (write-bytevector #u8(1 2 3 4 5) out) (get-output-bytevector out)) .......... [PASS] 880. (let ((out (open-output-bytevector))) (write-bytevector #u8(1 2 3 4 5) out 2) (get-output-bytevector out)) .......... [PASS] 881. (let ((out (open-output-bytevector))) (write-bytevector #u8(1 2 3 4 5) out 2 4) (get-output-bytevector out)) .......... [PASS] 882. (let ((out (open-output-bytevector))) (flush-output-port out) (get-output-bytevector out)) .......... [PASS] 883. (and (member (let ((out (open-output-string)) (x (list 1))) (set-cdr! x x) (write x out) (get-output-string out)) (quote ("#0=(1 . #0#)" "#1=(1 . #1#)"))) #t) .......... [PASS] 884. (let ((out (open-output-string)) (x (list 1 2 3))) (write (list x x) out) (get-output-string out)) .......... [PASS] 885. (let ((out (open-output-string)) (x (list 1 2 3))) (write-simple (list x x) out) (get-output-string out)) .......... [PASS] 886. (and (member (let ((out (open-output-string)) (x (list 1 2 3))) (write-shared (list x x) out) (get-output-string out)) (quote ("(#0=(1 2 3) #0#)" "(#1=(1 2 3) #1#)"))) #t) .......... [PASS] 887. (read (open-input-string "#t")) .......... [PASS] 888. (read (open-input-string "#true")) .......... [PASS] 889. (read (open-input-string "#f")) .......... [PASS] 890. (read (open-input-string "#false")) .......... [PASS] 891. (read2 (open-input-string "#t(5)")) .......... [PASS] 892. (read2 (open-input-string "#true 6 ")) .......... [PASS] 893. (read2 (open-input-string "#f 7")) .......... [PASS] 894. (read2 (open-input-string "#false\"8\"")) .......... [PASS] 895. (read (open-input-string "()")) .......... [PASS] 896. (read (open-input-string "(1 2)")) .......... [PASS] 897. (read (open-input-string "(1 . 2)")) .......... [PASS] 898. (read (open-input-string "(1 . (2))")) .......... [PASS] 899. (read (open-input-string "(1 . (2 3 4 . (5)))")) .......... [PASS] 900. (cadr (read (open-input-string "#0=(1 . #0#)"))) .......... [PASS] 901. (cadr (read (open-input-string "(#0=(1 2 3) #0#)"))) .......... [PASS] 902. (read (open-input-string "'(1 2)")) .......... [PASS] 903. (read (open-input-string "'(1 ,2)")) .......... [PASS] 904. (read (open-input-string "'(1 ,@2)")) .......... [PASS] 905. (read (open-input-string "`(1 ,2)")) .......... [PASS] 906. (read (open-input-string "#()")) .......... [PASS] 907. (read (open-input-string "#(a b)")) .......... [PASS] 908. (read (open-input-string "#u8()")) .......... [PASS] 909. (read (open-input-string "#u8(0 1)")) .......... [PASS] 910. (read (open-input-string "abc")) .......... [PASS] 911. (read (open-input-string "abc def")) .......... [PASS] 912. (read (open-input-string "ABC")) .......... [PASS] 913. (read (open-input-string "|H\\x65;llo|")) .......... [PASS] 914. (read (open-input-string "#; abc def")) .......... [PASS] 915. (read (open-input-string "; abc \ndef")) .......... [PASS] 916. (read (open-input-string "#| abc |# def")) .......... [PASS] 917. (read (open-input-string "#| abc #| def |# |# ghi")) .......... [PASS] 918. (read (open-input-string "#; ; abc\n def ghi")) .......... [PASS] 919. (read (open-input-string "(#;sqrt abs -16)")) .......... [PASS] 920. (read (open-input-string "(a #; #;b c d)")) .......... [PASS] 921. (read (open-input-string "(a #;(b #;c d) e)")) .......... [PASS] 922. (read (open-input-string "(a . #;b c)")) .......... [PASS] 923. (read (open-input-string "(a . b #;c)")) .......... [PASS] 924. (guard (exn (else #t)) (read (open-input-string str)) #f) .......... [PASS] 925. (guard (exn (else #t)) (read (open-input-string str)) #f) .......... [PASS] 926. (guard (exn (else #t)) (read (open-input-string str)) #f) .......... [PASS] 927. (guard (exn (else #t)) (read (open-input-string str)) #f) .......... [PASS] 928. (guard (exn (else #t)) (read (open-input-string str)) #f) .......... [PASS] 929. (guard (exn (else #t)) (read (open-input-string str)) #f) .......... [PASS] 930. (guard (exn (else #t)) (read (open-input-string str)) #f) .......... [PASS] 931. (guard (exn (else #t)) (read (open-input-string str)) #f) .......... [PASS] 932. (read (open-input-string "#\\a")) .......... [PASS] 933. (read (open-input-string "#\\space")) .......... [PASS] 934. (char->integer (read (open-input-string "#\\null"))) .......... [PASS] 935. (char->integer (read (open-input-string "#\\alarm"))) .......... [PASS] 936. (char->integer (read (open-input-string "#\\backspace"))) .......... [PASS] 937. (char->integer (read (open-input-string "#\\tab"))) .......... [PASS] 938. (char->integer (read (open-input-string "#\\newline"))) .......... [PASS] 939. (char->integer (read (open-input-string "#\\return"))) .......... [PASS] 940. (char->integer (read (open-input-string "#\\delete"))) .......... [PASS] 941. (char->integer (read (open-input-string "#\\escape"))) .......... [PASS] 942. (char->integer (read (open-input-string "#\\x1C"))) .......... [PASS] 943. (read (open-input-string "\"abc\"")) .......... [PASS] 944. (read (open-input-string "\"abc\" \"def\"")) .......... [PASS] 945. (read (open-input-string "\"ABC\"")) .......... [PASS] 946. (read (open-input-string "\"H\\x65;llo\"")) .......... [PASS] 947. (char->integer (string-ref (read (open-input-string "\"\\a\"")) 0)) .......... [PASS] 948. (char->integer (string-ref (read (open-input-string "\"\\b\"")) 0)) .......... [PASS] 949. (char->integer (string-ref (read (open-input-string "\"\\t\"")) 0)) .......... [PASS] 950. (char->integer (string-ref (read (open-input-string "\"\\n\"")) 0)) .......... [PASS] 951. (char->integer (string-ref (read (open-input-string "\"\\r\"")) 0)) .......... [PASS] 952. (char->integer (string-ref (read (open-input-string "\"\\\"\"")) 0)) .......... [PASS] 953. (char->integer (string-ref (read (open-input-string "\"\\|\"")) 0)) .......... [PASS] 954. (char->integer (string-ref (read (open-input-string "\"\\x1C;\"")) 0)) .......... [PASS] 955. (read (open-input-string "\"line 1\nline 2\n\"")) .......... [PASS] 956. (read (open-input-string "\"line 1\\\ncontinued\n\"")) .......... [PASS] 957. (read (open-input-string "\"line 1\\ \ncontinued\n\"")) .......... [PASS] 958. (read (open-input-string "\"line 1\\\n continued\n\"")) .......... [PASS] 959. (read (open-input-string "\"line 1\\ \t \n \t continued\n\"")) .......... [PASS] 960. (read (open-input-string "\"line 1\\ \t \n \t \n\nline 3\n\"")) .......... [PASS] 961. (same? 1 (values z)) .......... [PASS] 962. (and (member z-str (quote ("1"))) #t) .......... [PASS] 963. (same? 1 (values z)) .......... [PASS] 964. (and (member z-str (quote ("+1" "1"))) #t) .......... [PASS] 965. (same? -1 (values z)) .......... [PASS] 966. (and (member z-str (quote ("-1"))) #t) .......... [PASS] 967. (same? 1.0 (values z)) .......... [PASS] 968. (and (member z-str (quote ("#i1" "1.0" "1."))) #t) .......... [PASS] 969. (same? 1.0 (values z)) .......... [PASS] 970. (and (member z-str (quote ("#I1" "1.0" "1."))) #t) .......... [PASS] 971. (same? -1.0 (values z)) .......... [PASS] 972. (and (member z-str (quote ("#i-1" "-1.0" "-1."))) #t) .......... [PASS] 973. (same? 1.0 (values z)) .......... [PASS] 974. (and (member z-str (quote ("1.0" "1.0" "1."))) #t) .......... [PASS] 975. (same? 1.0 (values z)) .......... [PASS] 976. (and (member z-str (quote ("1." "1.0" "1."))) #t) .......... [PASS] 977. (same? 0.1 (values z)) .......... [PASS] 978. (and (member z-str (quote (".1" "0.1" "100.0e-3"))) #t) .......... [PASS] 979. (same? -0.1 (values z)) .......... [PASS] 980. (and (member z-str (quote ("-.1" "-0.1" "-100.0e-3"))) #t) .......... [PASS] 981. (same? -0.0 (values z)) .......... [PASS] 982. (and (member z-str (quote ("-.0" "-0." "-0.0" "0.0" "0." ".0"))) #t) .......... [PASS] 983. (same? -0.0 (values z)) .......... [PASS] 984. (and (member z-str (quote ("-0." "-.0" "-0.0" "0.0" "0." ".0"))) #t) .......... [PASS] 985. (same? 1.0 (values z)) .......... [PASS] 986. (and (member z-str (quote ("#i1.0" "1.0" "1."))) #t) .......... [PASS] 987. (same? 1 (values z)) .......... [PASS] 988. (and (member z-str (quote ("#e1.0" "1"))) #t) .......... [PASS] 989. (same? 0 (values z)) .......... [PASS] 990. (and (member z-str (quote ("#e-.0" "0"))) #t) .......... [PASS] 991. (same? 0 (values z)) .......... [PASS] 992. (and (member z-str (quote ("#e-0." "0"))) #t) .......... [PASS] 993. (same? 1 (values z)) .......... [PASS] 994. (and (member z-str (quote ("#E1.0" "1"))) #t) .......... [PASS] 995. (same? 0 (values z)) .......... [PASS] 996. (and (member z-str (quote ("#E-.0" "0"))) #t) .......... [PASS] 997. (same? 0 (values z)) .......... [PASS] 998. (and (member z-str (quote ("#E-0." "0"))) #t) .......... [PASS] 999. (same? 100.0 (values z)) .......... [PASS] 1000. (and (member z-str (quote ("1e2" "100.0" "100."))) #t) .......... [PASS] 1001. (same? 100.0 (values z)) .......... [PASS] 1002. (and (member z-str (quote ("1E2" "100.0" "100."))) #t) .......... [PASS] 1003. (same? +nan.0 (values z)) .......... [PASS] 1004. (and (member z-str (quote ("+nan.0" "+nan.0" "+NaN.0"))) #t) .......... [PASS] 1005. (same? +nan.0 (values z)) .......... [PASS] 1006. (and (member z-str (quote ("+NAN.0" "+nan.0" "+NaN.0"))) #t) .......... [PASS] 1007. (same? +inf.0 (values z)) .......... [PASS] 1008. (and (member z-str (quote ("+inf.0" "+inf.0" "+Inf.0"))) #t) .......... [PASS] 1009. (same? +inf.0 (values z)) .......... [PASS] 1010. (and (member z-str (quote ("+InF.0" "+inf.0" "+Inf.0"))) #t) .......... [PASS] 1011. (same? -inf.0 (values z)) .......... [PASS] 1012. (and (member z-str (quote ("-inf.0" "-inf.0" "-Inf.0"))) #t) .......... [PASS] 1013. (same? -inf.0 (values z)) .......... [PASS] 1014. (and (member z-str (quote ("-iNF.0" "-inf.0" "-Inf.0"))) #t) .......... [PASS] 1015. (same? +nan.0 (values z)) .......... [PASS] 1016. (and (member z-str (quote ("#i+nan.0" "+nan.0" "+NaN.0"))) #t) .......... [PASS] 1017. (same? +inf.0 (values z)) .......... [PASS] 1018. (and (member z-str (quote ("#i+inf.0" "+inf.0" "+Inf.0"))) #t) .......... [PASS] 1019. (same? -inf.0 (values z)) .......... [PASS] 1020. (and (member z-str (quote ("#i-inf.0" "-inf.0" "-Inf.0"))) #t) .......... [PASS] 1021. (same? 17 (values z)) .......... [PASS] 1022. (and (member z-str (quote ("#x11" "17"))) #t) .......... [PASS] 1023. (same? 17 (values z)) .......... [PASS] 1024. (and (member z-str (quote ("#X11" "17"))) #t) .......... [PASS] 1025. (same? 11 (values z)) .......... [PASS] 1026. (and (member z-str (quote ("#d11" "11"))) #t) .......... [PASS] 1027. (same? 11 (values z)) .......... [PASS] 1028. (and (member z-str (quote ("#D11" "11"))) #t) .......... [PASS] 1029. (same? 9 (values z)) .......... [PASS] 1030. (and (member z-str (quote ("#o11" "9"))) #t) .......... [PASS] 1031. (same? 9 (values z)) .......... [PASS] 1032. (and (member z-str (quote ("#O11" "9"))) #t) .......... [PASS] 1033. (same? 3 (values z)) .......... [PASS] 1034. (and (member z-str (quote ("#b11" "3"))) #t) .......... [PASS] 1035. (same? 3 (values z)) .......... [PASS] 1036. (and (member z-str (quote ("#B11" "3"))) #t) .......... [PASS] 1037. (same? 7 (values z)) .......... [PASS] 1038. (and (member z-str (quote ("#o7" "7"))) #t) .......... [PASS] 1039. (same? 10 (values z)) .......... [PASS] 1040. (and (member z-str (quote ("#xa" "10"))) #t) .......... [PASS] 1041. (same? 10 (values z)) .......... [PASS] 1042. (and (member z-str (quote ("#xA" "10"))) #t) .......... [PASS] 1043. (same? 15 (values z)) .......... [PASS] 1044. (and (member z-str (quote ("#xf" "15"))) #t) .......... [PASS] 1045. (same? -16 (values z)) .......... [PASS] 1046. (and (member z-str (quote ("#x-10" "-16"))) #t) .......... [PASS] 1047. (same? -10 (values z)) .......... [PASS] 1048. (and (member z-str (quote ("#d-10" "-10"))) #t) .......... [PASS] 1049. (same? -8 (values z)) .......... [PASS] 1050. (and (member z-str (quote ("#o-10" "-8"))) #t) .......... [PASS] 1051. (same? -2 (values z)) .......... [PASS] 1052. (and (member z-str (quote ("#b-10" "-2"))) #t) .......... [PASS] 1053. (same? 16 (values z)) .......... [PASS] 1054. (and (member z-str (quote ("#e#x10" "16"))) #t) .......... [PASS] 1055. (same? 16 (values z)) .......... [PASS] 1056. (and (member z-str (quote ("#E#X10" "16"))) #t) .......... [PASS] 1057. (same? 16 (values z)) .......... [PASS] 1058. (and (member z-str (quote ("#X#E10" "16"))) #t) .......... [PASS] 1059. (same? 16.0 (values z)) .......... [PASS] 1060. (and (member z-str (quote ("#i#x10" "16.0" "16."))) #t) .......... [PASS] 1061. (same? 1.0 (values z)) .......... [PASS] 1062. (and (member z-str (quote ("#d1." "1.0" "1."))) #t) .......... [PASS] 1063. (same? 0.1 (values z)) .......... [PASS] 1064. (and (member z-str (quote ("#d.1" "0.1" ".1" "100.0e-3"))) #t) .......... [PASS] 1065. (same? 482 (values z)) .......... [PASS] 1066. (and (member z-str (quote ("#x1e2" "482"))) #t) .......... [PASS] 1067. (same? 100.0 (values z)) .......... [PASS] 1068. (and (member z-str (quote ("#d1e2" "100.0" "100."))) #t) .......... [PASS] 1069. #t .......... [PASS] 1070. #t .......... [PASS] 1071. #t .......... [PASS] 1072. #t .......... [PASS] 1073. #t .......... [PASS] 1074. #t .......... [PASS] 1075. #t .......... [PASS] 1076. (quote (#t #t)) .......... [PASS] 1077. #t .......... [PASS] 1078. #t .......... [PASS] 1079. #t .......... [PASS] 1080. (quote (#t #t #f)) .......... [PASS] 1081. (get-output-string p) .......... [PASS] 1082. (get-output-string p) .......... [PASS] 1083. (get-output-string p) .......... [PASS] 1084. (get-output-string p) .......... [PASS] 1085. (get-output-string p) .......... [PASS] 1086. (get-output-string p) .......... [PASS] 1087. (get-output-string p) .......... [PASS] 1088. (get-output-string p) .......... [PASS] 1089. (get-output-string p) .......... [PASS] 1090. (get-output-string p) .......... [PASS] 1091. (get-output-string p) .......... [PASS] 1092. (get-output-string p) .......... [PASS] 1093. (get-output-string p) .......... [PASS] 1094. (get-output-string p) .......... [PASS] 1095. (get-output-string p) .......... [PASS] 1096. (get-output-string p) .......... [PASS] 1097. (get-output-string p) .......... [PASS] 1098. (get-output-string p) .......... [PASS] 1099. (list->string (map integer->char (quote (13 10 9 8 7 124 34 92)))) .......... [PASS] 1100. (list->string (map integer->char (quote (127 76 97 114 99 101 110 121 0 35 120 50 49 59)))) .......... [PASS] 1101. (quote (#\space #\tab #\newline #\return)) .......... [PASS] 1102. (map integer->char (quote (7 8 127 27 10))) .......... [PASS] 1103. (map integer->char (quote (0 13 32 9))) .......... [PASS] 1104. (map integer->char (quote (13 32 9))) .......... [PASS] 1105. (map integer->char (quote (0 0 1 32 95 124 127))) .......... [PASS] 1106. (quote (a ! $ % & * / : < = > ? ^ _ ~ @)) .......... [PASS] 1107. (map string->symbol (quote ("Z:" "!z" "$0" "%/" "&?" "*^" "/~" ":@" "<9" "=+" ">-" "?@" "^+-" "_-+" "~@-" "@@@@@"))) .......... [PASS] 1108. (string->symbol ";alskjdf;aqwjepojq-1945apgf ;bna]as") .......... [PASS] 1109. (string->symbol (string #\alarm #\backspace #\tab #\newline #\return #\| #\" #\\)) .......... [PASS] 1110. (map string->symbol (list (string #\\ #\| #\" #\space #\a) (string #\" #\| #\\ #\space #\b))) .......... [PASS] 1111. (string->symbol (string #\null #\ #\ #\tab #\return #\A #\newline #\tab #\~ #\delete)) .......... [PASS] 1112. (quote (+ -)) .......... [PASS] 1113. (map string->symbol (quote ("+:" "-@" "+-" "--" "+@" "-@" "+$$" "-@3" "+-4" "--5" "+@_" "-@."))) .......... [PASS] 1114. (map string->symbol (quote ("+.!" "-.+" "+.." "-.." "+.@" "-.@"))) .......... [PASS] 1115. (map string->symbol (quote ("+.<.+" "-.++." "+..:?" "-..-" "+.@&." "-.@24"))) .......... [PASS] 1116. (map string->symbol (quote ("._" ".+" ".-" ".@" ".." "._." ".+." ".-." ".@." "..."))) .......... [PASS] 1117. (quote (() #() #u8() (quote x) (quasiquote x) (unquote x) (unquote-splicing x) (a . b))) .......... [PASS] 1118. (quote (() #() #u8() (quote x) (quasiquote x) (unquote x) (unquote-splicing x) (a . b))) .......... [PASS] 1119. (quote (((1 2) (1 2)) ((1 2) (1 2)))) .......... [PASS] 1120. (quote (#t #t)) .......... [PASS] 1121. (let* ((x (list 1 2 3 4 5)) (v (vector x x x))) (set-car! (cddr x) v) (set-cdr! (cdr (cdr (cdr x))) x) (vector-set! v 1 (list v)) v) .......... [PASS] 1122. (let* ((x (list 1 2 3 4 5)) (v (vector x x x))) (set-car! (cddr x) v) (set-cdr! (cdr (cdr (cdr x))) x) (vector-set! v 1 (list v)) v) .......... [PASS] 1123. #t .......... [PASS] 1124. #t .......... [PASS] 1125. #t .......... [PASS] 1126. #t .......... [PASS] 1127. #t .......... [PASS] 1128. #t .......... [PASS] 1129. #t .......... [PASS] 1130. #t .......... [PASS] 1131. "The quick red fox jumped over the lazy dog." .......... [PASS] 1132. "\"The quick red fox jumped over the lazy dog.\"" .......... [PASS] 1133. "\"The quick red fox jumped over the lazy dog.\"" .......... [PASS] 1134. "\"The quick red fox jumped over the lazy dog.\"" .......... [PASS] 1135. (quote ("a" "Z" "0" "9" "`" "'" "\"" "~" "!" "=")) .......... [PASS] 1136. (quote ("#\\a" "#\\Z" "#\\0" "#\\9" "#\\`" "#\\'" "#\\\"" "#\\~" "#\\!" "#\\=")) .......... [PASS] 1137. (quote ("#\\a" "#\\Z" "#\\0" "#\\9" "#\\`" "#\\'" "#\\\"" "#\\~" "#\\!" "#\\=")) .......... [PASS] 1138. (quote ("#\\a" "#\\Z" "#\\0" "#\\9" "#\\`" "#\\'" "#\\\"" "#\\~" "#\\!" "#\\=")) .......... [PASS] 1139. (quote ("a" "!" "$" "%" "&" "*" "/" ":" "<" "=" ">" "?" "^" "_" "~" "@")) .......... [PASS] 1140. (quote ("a" "!" "$" "%" "&" "*" "/" ":" "<" "=" ">" "?" "^" "_" "~" "@")) .......... [PASS] 1141. (quote ("a" "!" "$" "%" "&" "*" "/" ":" "<" "=" ">" "?" "^" "_" "~" "@")) .......... [PASS] 1142. (quote ("a" "!" "$" "%" "&" "*" "/" ":" "<" "=" ">" "?" "^" "_" "~" "@")) .......... [PASS] 1143. (quote ("0" "0" "0" "0" "0" "0" "1" "2" "-3" "7" "97" "1001")) .......... [PASS] 1144. (quote ("0" "0" "0" "0" "0" "0" "1" "2" "-3" "7" "97" "1001")) .......... [PASS] 1145. (quote ("0" "0" "0" "0" "0" "0" "1" "2" "-3" "7" "97" "1001")) .......... [PASS] 1146. (quote ("0" "0" "0" "0" "0" "0" "1" "2" "-3" "7" "97" "1001")) .......... [PASS] 1147. (quote ("0" "0" "0" "0" "0" "0" "1" "2" "-3" "7" "97" "1001")) .......... [PASS] 1148. (quote ("0" "0" "0" "0" "0" "0" "1" "2" "-3" "7" "97" "1001")) .......... [PASS] 1149. (quote ("0" "0" "0" "0" "0" "0" "1" "2" "-3" "7" "97" "1001")) .......... [PASS] 1150. (quote ("0" "0" "0" "0" "0" "0" "1" "2" "-3" "7" "97" "1001")) .......... [PASS] 1151. (quote ("#u8()" "#u8(0 1 2 3 255)")) .......... [PASS] 1152. (quote ("#u8()" "#u8(0 1 2 3 255)")) .......... [PASS] 1153. (quote ("#u8()" "#u8(0 1 2 3 255)")) .......... [PASS] 1154. (quote ("#u8()" "#u8(0 1 2 3 255)")) .......... [PASS] 1155. (quote ("()" "(1 . 2)" "(3 4 5)")) .......... [PASS] 1156. (quote ("()" "(1 . 2)" "(3 4 5)")) .......... [PASS] 1157. (quote ("()" "(1 . 2)" "(3 4 5)")) .......... [PASS] 1158. (quote ("()" "(1 . 2)" "(3 4 5)")) .......... [PASS] 1159. (quote ("#()" "#(a)" "#(19 21 c)")) .......... [PASS] 1160. (quote ("#()" "#(a)" "#(19 21 c)")) .......... [PASS] 1161. (quote ("#()" "#(a)" "#(19 21 c)")) .......... [PASS] 1162. (quote ("#()" "#(a)" "#(19 21 c)")) .......... [PASS] 1163. (eq? (string-append s) s) .......... [PASS] 1164. (eq? (vector-append v) v) .......... [PASS] 1165. (expt 0 0) .......... [PASS] 1166. (= (expt 16 -1) 0.0625) .......... [PASS] 1167. (= (expt 2 -10) 0.0009765625) .......... [PASS] 1168. (expt -2 15) .......... [PASS] 1169. (expt -2 29) .......... [PASS] 1170. (= (expt 2 29) 536870912.0) .......... [PASS] 1171. (= (expt 2 129) 6.805647338418769e38) .......... [PASS] 1172. (fixnum? (fx- -536870912 1)) .......... [PASS] 1173. (fixnum? (fx* -536870912 -1)) .......... [PASS] 1174. (fixnum? (fx* 536870911 536870911)) .......... [PASS] 1175. (eqv? -inf.0 -inf.0) .......... [PASS] 1176. (eqv? -inf.0 +inf.0) .......... [PASS] 1177. (eqv? +inf.0 +inf.0) .......... [PASS] 1178. (eqv? -inf.0 +inf.0) .......... [PASS] 1179. (eqv? +nan.0 +nan.0) .......... [PASS] 1180. (eqv? -0.0 0.0) .......... [PASS] 1181. (equal? -inf.0 -inf.0) .......... [PASS] 1182. (equal? -inf.0 +inf.0) .......... [PASS] 1183. (equal? +inf.0 +inf.0) .......... [PASS] 1184. (equal? -inf.0 +inf.0) .......... [PASS] 1185. (equal? +nan.0 +nan.0) .......... [PASS] 1186. (equal? -0.0 0.0) .......... [PASS] 1187. (memv +nan.0 (quote (foo +nan.0 bar))) .......... [PASS] 1188. (assv +nan.0 (quote ((foo . foo) (+nan.0 . bar) (baz . baz)))) .......... [PASS] 1189. (member +nan.0 (quote (foo +nan.0 bar))) .......... [PASS] 1190. (assoc +nan.0 (quote ((foo . foo) (+nan.0 . bar) (baz . baz)))) .......... [PASS] 1191. (= +nan.0 +nan.0) .......... [PASS] 1192. (quote ((_ ...) #(1 2))) .......... [PASS] 1193. (read (open-input-string "(hello #!fold-case AbraCADabRa #!no-fold-case GOODBYE)")) .......... [PASS] 1194. (symbol->string (eval (quote (string->symbol "FooBar")) (scheme-report-environment 5))) .......... [PASS] 1195. (eq? (foo-1 0) (foo-1 0)) .......... [PASS] 1196. (eq? (cdr (foo-1 0)) (cdr (foo-1 0))) .......... [PASS] 1197. (eq? (car (foo-2 0)) (car (foo-2 0))) .......... [PASS] 1198. (eq? (cddr (foo-2 0)) (cddr (foo-2 0))) .......... [PASS] 1199. (eq? (cdddr (foo-2 0)) (cdddr (foo-2 0))) .......... [PASS] 1200. (eq? (car (foo-3 0)) (car (foo-3 0))) .......... [PASS] 1201. (eq? (cdddr (foo-3 0)) (cdddr (foo-3 0))) .......... [PASS] 1202. (eq? (car (foo-4 (quote (2 3)))) (car (foo-4 (quote (2 3))))) .......... [PASS] 1203. (eq? (foo-4 (quote (2 3))) (foo-4 (quote (2 3)))) .......... [PASS] 1204. (eq? (car (foo-5 0)) (car (foo-5 0))) .......... [PASS] 1205. (eq? (cddr (foo-5 0)) (cddr (foo-5 0))) .......... [PASS] 1206. (eq? (cadr (foo-5 0)) (cadr (foo-5 0))) .......... [PASS] 1207. (eq? (foo-6 1 2) (foo-6 1 2)) .......... [PASS] 1208. (eq? (cddr (foo-6 1 2)) (cddr (foo-6 1 2))) .......... [PASS] 1209. (eq? (car (cddr (foo-6 1 2))) (car (cddr (foo-6 1 2)))) .......... [PASS] 1210. (eq? (car (foo-7 0)) (car (foo-7 0))) .......... [PASS] 1211. (eq? (caddr (foo-7 0)) (caddr (foo-7 0))) .......... [PASS] 1212. (eq? (cadr (foo-7 0)) (cadr (foo-7 0))) .......... [PASS] 1213. (eq? (foo-8) (foo-8)) .......... [PASS] 1213 out of 1213 passed (100.0%) version is 0.8.5 prefix is set to /usr use-tower is set to 0 use-unicode is set to 0 use-enhanced-tty is set to 0 X86_64 architecture is detected ./skint test/test-libraries.scm --- format destinations --- 1. (format #f "~a and ~s" "plain" "written") .......... [PASS] 2. (format "[~a]" 42) .......... [PASS] 3. (to-string (lambda (p) (format p "~a!" (quote hi)))) .......... [PASS] 4. (to-string (lambda (p) (parameterize ((current-output-port p)) (format #t "x")))) .......... [PASS] 5. (f "") .......... [PASS] 6. (f "just text") .......... [PASS] --- fprintf --- 7. (to-string (lambda (p) (fprintf p "to port: ~a" 42))) .......... [PASS] --- printf --- 8. (to-string (lambda (p) (parameterize ((current-output-port p)) (printf "hello ~a~%" 42)))) .......... [PASS] 9. (to-string (lambda (p) (parameterize ((current-output-port p)) (printf "plain~%")))) .......... [PASS] 10. (to-string (lambda (p) (parameterize ((current-output-port p)) (printf "~a-~s" 1 "x")))) .......... [PASS] --- literal text and whitespace --- 11. (f "~~") .......... [PASS] 12. (f "a~%b") .......... [PASS] 13. (f "a~tb") .......... [PASS] 14. (f "a~_b") .......... [PASS] 15. (f "a~&b") .......... [PASS] --- objects --- 16. (f "~a" "hi") .......... [PASS] 17. (f "~s" "hi") .......... [PASS] 18. (f "~a" (quote (1 "x" #\y))) .......... [PASS] 19. (f "~s" (quote (1 "x" #\y))) .......... [PASS] 20. (f "~w" (quote (1 2))) .......... [PASS] 21. (f "~c" #\Z) .......... [PASS] 22. (f "~y" (quote (a "b"))) .......... [PASS] 23. (f "~A ~S" "x" "x") .......... [PASS] --- integers by radix --- 24. (f "~b" 10) .......... [PASS] 25. (f "~o" 64) .......... [PASS] 26. (f "~d" 255) .......... [PASS] 27. (f "~x" 255) .......... [PASS] 28. (f "~x" -255) .......... [PASS] --- flonums through radix directives --- 29. (f "~b" 0.5) .......... [PASS] 30. (f "~x" 0.5) .......... [PASS] 31. (f "~o" 64.0) .......... [PASS] 32. (f "~x" 3.14) .......... [PASS] 33. (string->number (f "~x" 3.14) 16) .......... [PASS] 34. (string->number (f "~b" 3.14) 2) .......... [PASS] 35. (f "~b" 1e30) .......... [PASS] 36. (f "~o" 1e30) .......... [PASS] 37. (f "~x" 1e30) .......... [PASS] 38. (string->number "1100011" 2) .......... [PASS] 39. (string->number "41" 8) .......... [PASS] 40. (list (f "~b" (/ 1.0 0.0)) (f "~o" (/ 1.0 0.0)) (f "~d" (/ 1.0 0.0)) (f "~x" (/ 1.0 0.0))) .......... [PASS] 41. (f "~x" (/ 0.0 0.0)) .......... [PASS] 42. (f "~o" -0.0) .......... [PASS] --- inexact numbers, width and precision --- 43. (f "~f" 3.14159) .......... [PASS] 44. (f "~,2f" 3.14159) .......... [PASS] 45. (f "~8,2f" 3.14159) .......... [PASS] 46. (f "~10,3e" 1234.5678) .......... [PASS] 47. (f "~10,3g" 1234.5678) .......... [PASS] 48. (f "~f" "notanum") .......... [PASS] 49. (f "~2f" 3.14159) .......... [PASS] 50. (f "~f" 42) .......... [PASS] 51. (f "~e" 42) .......... [PASS] 52. (f "~g" 42) .......... [PASS] 53. (f "~e" 1234.5678) .......... [PASS] 54. (list (f "~f" 1234.5678) (f "~e" 1234.5678) (f "~g" 1234.5678)) .......... [PASS] 55. (f "~12e" 1234.5678) .......... [PASS] 56. (list (f "~10,3f" 1234.5678) (f "~10,3e" 1234.5678) (f "~10,3g" 1234.5678)) .......... [PASS] --- control directives --- 57. (f "~?" "[~a-~a]" (quote (1 2))) .......... [PASS] 58. (f "~k" "[~a-~a]" (quote (1 2))) .......... [PASS] 59. (f "~a~*~a" 1 2 3) .......... [PASS] 60. (f "~a~2*~a" 1 2 3 4) .......... [PASS] 61. (f "~a~a~0@*~a" 1 2) .......... [PASS] 62. (f "~a~a~1@*~a" 1 2) .......... [PASS] 63. (f "~h") .......... [PASS] --- malformed format strings --- 64. (quote (f "~a")) .......... [PASS] 65. (quote (f "abc~")) .......... [PASS] 66. (quote (f "~q" 1)) .......... [PASS] 67. (quote (f (string #\a #\~ #\n #\b))) .......... [PASS] 68. (quote (f "~9*" 1)) .......... [PASS] --- parameters --- 69. (parameterize ((format-pretty-print display)) (f "~y" (quote (a "b")))) .......... [PASS] 70. (parameterize ((format-fresh-line (lambda (p) #f))) (f "x~&y")) .......... [PASS] 71. (parameterize ((format-fixed-print (lambda (arg wd dd p) (display "" p)))) (f "~f" 1.5)) .......... [PASS] 72. (parameterize ((format-exponential-print (lambda (arg wd dd p) (display "" p)))) (f "~e" 1.5)) .......... [PASS] 73. (parameterize ((format-general-print (lambda (arg wd dd p) (display "" p)))) (f "~g" 1.5)) .......... [PASS] 74. (parameterize ((format-help-string "my help")) (f "~h")) .......... [PASS] 75. (let ((seen #f)) (parameterize ((format-fixed-print (lambda (arg wd dd p) (set! seen (list wd dd))))) (f "~f" 1.5)) seen) .......... [PASS] 76. (let ((seen #f)) (parameterize ((format-fixed-print (lambda (arg wd dd p) (set! seen (list wd dd))))) (f "~8,2f" 1.5)) seen) .......... [PASS] 77. (begin (parameterize ((format-pretty-print display)) (f "~y" (quote (a "b")))) (f "~y" (quote (a "b")))) .......... [PASS] --- SRFI 48 conformance --- 78. (f "~8,2F" 32) .......... [PASS] 79. (f "~1,2F" 4321) .......... [PASS] 80. (f "~8,3F" 123.3456) .......... [PASS] 81. (f "~6,3F" 123.3456) .......... [PASS] 82. (f "~2,3F" 123.3456) .......... [PASS] 83. (f "~8,3F" "foo") .......... [PASS] 84. (f "~a ~s ~a ~s" (quote this) (quote is) "a" "test") .......... [PASS] 85. (f "~a ~? ~a" (quote a) "~s" (quote (new)) (quote test)) .......... [PASS] 86. (f "#d~d #x~x #o~o #b~b" 32 32 32 32) .......... [PASS] 87. (f "~6F" 32) .......... [PASS] 88. (f "~4F" 12) .......... [PASS] 89. (f "~&1~&~&2~&~&~&3~%") .......... [PASS] 90. (quote (f "~a ~a" 1)) .......... [PASS] 91. (f "~8f" 42) .......... [PASS] 92. (f "~8f" "foo") .......... [PASS] --- All tests complete. --- 92 out of 92 passed (100.00%) --- Argument syntax --- 1. (parse-opts (quote ("--verbose"))) .......... [PASS] 2. (parse-opts (quote ("--output=f.txt"))) .......... [PASS] 3. (parse-opts (quote ("--output" "f.txt"))) .......... [PASS] 4. (parse-opts (quote ("-v"))) .......... [PASS] 5. (parse-opts (quote ("-of.txt"))) .......... [PASS] 6. (parse-opts (quote ("-o" "f.txt"))) .......... [PASS] 7. (parse-opts (quote ("-v" "--output=f.txt" "--quiet"))) .......... [PASS] 8. (parse-opts (quote ("-v"))) .......... [PASS] --- Clustered short options --- 9. (parse-keys (quote ("-vq"))) .......... [PASS] 10. (parse-keys (quote ("-vvv"))) .......... [PASS] 11. (parse-opts (quote ("-vo" "f.txt"))) .......... [PASS] 12. (parse-opts (quote ("-vof.txt"))) .......... [PASS] 13. (parse-rest (quote ("-vq" "a.scm"))) .......... [PASS] --- Where parsing stops --- 14. (parse-opts (quote ())) .......... [PASS] 15. (parse-rest (quote ())) .......... [PASS] 16. (parse-opts (quote ("-v" "--" "-q"))) .......... [PASS] 17. (parse-rest (quote ("-v" "--" "-q"))) .......... [PASS] 18. (parse-rest (quote ("-v" "--" "-notanopt" "y"))) .......... [PASS] 19. (parse-opts (quote ("-v" "-" "y"))) .......... [PASS] 20. (parse-rest (quote ("-v" "-" "y"))) .......... [PASS] 21. (parse-opts (quote ("-v" "file.scm"))) .......... [PASS] 22. (parse-rest (quote ("-v" "file.scm"))) .......... [PASS] 23. (parse-rest (quote (""))) .......... [PASS] 24. (parse-rest (quote ("--"))) .......... [PASS] --- Options are not permuted (POSIX, not GNU) --- 25. (parse-opts (quote ("-v" "file.scm" "-q"))) .......... [PASS] 26. (parse-rest (quote ("-v" "file.scm" "-q"))) .......... [PASS] 27. (parse-rest (quote ("-v" "script.scm" "-o" "f.txt"))) .......... [PASS] --- Option arguments are taken verbatim --- 28. (parse-opts (quote ("-n" "-5"))) .......... [PASS] 29. (parse-opts (quote ("-n-5"))) .......... [PASS] 30. (parse-opts (quote ("--count=-5"))) .......... [PASS] 31. (parse-opts (quote ("-o" "--quiet"))) .......... [PASS] 32. (parse-opts (quote ("--output="))) .......... [PASS] --- One-sided option records --- 33. (parse-opts (quote ("--name=gwendolyn")) one-sided-opts) .......... [PASS] 34. (parse-opts (quote ("-n" "3")) one-sided-opts) .......... [PASS] 35. (quote (parse-opts (quote ("-N" "gwendolyn")) one-sided-opts)) .......... [PASS] 36. (quote (parse-opts (quote ("--count" "3")) one-sided-opts)) .......... [PASS] --- Errors --- 37. (quote (parse-opts (quote ("--nope")))) .......... [PASS] 38. (quote (parse-opts (quote ("-z")))) .......... [PASS] 39. (quote (parse-opts (quote ("-5")))) .......... [PASS] 40. (quote (parse-opts (quote ("--output")))) .......... [PASS] 41. (quote (parse-opts (quote ("-o")))) .......... [PASS] 42. (quote (parse-opts (quote ("--verbose=x")))) .......... [PASS] --- Help formatting --- 43. (help-string (quote ((verbose "-v" "--verbose" #f "Increase output verbosity")))) .......... [PASS] 44. (help-string (quote ((output "-o" "--output" "FILE" "Write output to FILE")))) .......... [PASS] 45. (help-string (quote ((name #f "--name" "NAME" "Set the name")))) .......... [PASS] 46. (help-string (quote ((count "-n" #f "N" "Repeat N times")))) .......... [PASS] 47. (help-string one-sided-opts) .......... [PASS] 48. (help-string (quote ())) .......... [PASS] 49. (print-command-line-options one-sided-opts (open-output-string)) .......... [PASS] 50. (let ((p (open-output-string))) (parameterize ((current-output-port p)) (print-command-line-options (quote ((verbose "-v" "--verbose" #f "Increase output verbosity"))))) (get-output-string p)) .......... [PASS] 51. (print-command-line-options (quote ((verbose "-v" #f #f "Increase output verbosity"))) (open-output-string)) .......... [PASS] 52. (print-command-line-options (quote ((output "-o" "--output" "FILE" "Write output to FILE"))) (open-output-string)) .......... [PASS] 53. (quote (print-command-line-options (quote ((bad #f #f #f "no forms"))) (open-output-string))) .......... [PASS] --- Round trip: the offset lines up with the rendered text --- 54. (substring line offset (string-length line)) .......... [PASS] --- All tests complete. --- 54 out of 54 passed (100.00%) --- Testing Construction and Basic Operations --- 1. (list->ivs (quote ())) .......... [PASS] 2. (list->ivs (quote (10))) .......... [PASS] 3. (list->ivs (quote (5 6 7 8))) .......... [PASS] 4. (list->ivs (quote (8 7 6 5 6 7))) .......... [PASS] 5. (list->ivs (quote (5 6 10 11))) .......... [PASS] 6. (list->ivs (quote (5 6 8 9))) .......... [PASS] 7. (ivs-size (list->ivs (quote ()))) .......... [PASS] 8. (ivs-size (list->ivs (quote (1 2 3 4 5)))) .......... [PASS] 9. (ivs-size (list->ivs (quote (1 2 10 11 12 20 21)))) .......... [PASS] 10. (ivs->list (list->ivs (quote ()))) .......... [PASS] 11. (ivs->list (list->ivs (quote (1 2 10 11 12 20 21)))) .......... [PASS] 12. (let ((acc (quote ()))) (ivs-for-each (lambda (x) (set! acc (cons x acc))) s) (reverse acc)) .......... [PASS] --- Testing ivs-contains? --- 13. (ivs-contains? s 10) .......... [PASS] 14. (ivs-contains? s 20) .......... [PASS] 15. (ivs-contains? s 15) .......... [PASS] 16. (ivs-contains? s 30) .......... [PASS] 17. (ivs-contains? s 35) .......... [PASS] 18. (ivs-contains? s 5) .......... [PASS] 19. (ivs-contains? s 50) .......... [PASS] 20. (ivs-contains? s 25) .......... [PASS] --- Testing Set Operations --- 21. (ivs-union s1 s2) .......... [PASS] 22. (ivs-union s1 s3) .......... [PASS] 23. (ivs-union (ranges->ivs (quote (10 . 17))) (ranges->ivs (quote (18 . 25)))) .......... [PASS] 24. (ivs-union s2 (ranges->ivs (quote (18 . 22)))) .......... [PASS] 25. (ivs-union s1 (list->ivs (quote ()))) .......... [PASS] 26. (ivs-intersection s1 s2) .......... [PASS] 27. (ivs-intersection s1 s3) .......... [PASS] 28. (ivs-intersection s1 s4) .......... [PASS] 29. (ivs-intersection s1 (list->ivs (quote ()))) .......... [PASS] 30. (ivs-difference s1 s2) .......... [PASS] 31. (ivs-difference s1 s3) .......... [PASS] 32. (ivs-difference s1 s4) .......... [PASS] 33. (ivs-difference s1 s5) .......... [PASS] 34. (ivs-difference s1 (ranges->ivs (quote (100 . 200)))) .......... [PASS] 35. (ivs-difference s1 (list->ivs (quote ()))) .......... [PASS] --- Testing Comparison Operations --- 36. (ivs=? s1 s2) .......... [PASS] 37. (ivs=? s1 s3) .......... [PASS] 38. (ivs=? empty (list->ivs (quote ()))) .......... [PASS] 39. (ivs<=? s4 s1) .......... [PASS] 40. (ivs<=? s1 s2) .......... [PASS] 41. (ivs<=? s1 s4) .......... [PASS] 42. (ivs<=? s1 s5) .......... [PASS] 43. (ivs<=? empty s1) .......... [PASS] 44. (ivs<=? s1 s1) .......... [PASS] 45. (ivs-union (vector 1 5) (vector 6 10)) .......... [PASS] 46. (ivs-union (vector 1 5) (vector 7 10)) .......... [PASS] 47. (ivs-intersection (vector 1 5) (vector 6 10)) .......... [PASS] 48. (ivs-difference (vector 1 5) (vector 6 10)) .......... [PASS] 49. (ivs-contains? (vector 1 5) 1) .......... [PASS] 50. (ivs-contains? (vector 1 5) 5) .......... [PASS] 51. (ivs-contains? (vector 1 5) 0) .......... [PASS] 52. (ivs-contains? (vector 1 5) 6) .......... [PASS] 53. (ivs-union (vector 1 7) (vector 5 10)) .......... [PASS] 54. (ivs-union (vector 1 10) (vector 8 15)) .......... [PASS] 55. (ivs-union (vector 1 10) (vector 3 7)) .......... [PASS] 56. (ivs-union (vector 3 7) (vector 1 10)) .......... [PASS] 57. (ivs-intersection (vector 1 7) (vector 5 10)) .......... [PASS] 58. (ivs-intersection (vector 1 10) (vector 8 15)) .......... [PASS] 59. (ivs-intersection (vector 1 10) (vector 3 7)) .......... [PASS] 60. (ivs-intersection (vector 3 7) (vector 1 10)) .......... [PASS] 61. (ivs-difference (vector 1 7) (vector 5 10)) .......... [PASS] 62. (ivs-difference (vector 1 10) (vector 8 15)) .......... [PASS] 63. (ivs-difference (vector 1 10) (vector 3 7)) .......... [PASS] 64. (ivs-difference (vector 3 7) (vector 1 10)) .......... [PASS] 65. (ivs-union (vector 1 3 10 12) (vector 5 7 15 17)) .......... [PASS] 66. (ivs-intersection (vector 1 3 10 12) (vector 5 7 15 17)) .......... [PASS] 67. (ivs-difference (vector 1 3 10 12) (vector 5 7 15 17)) .......... [PASS] 68. (ivs-union (vector 1 5) (vector 5 10)) .......... [PASS] 69. (ivs-intersection (vector 1 5) (vector 5 10)) .......... [PASS] 70. (ivs-difference (vector 1 5) (vector 5 10)) .......... [PASS] 71. (ivs<=? (vector) (vector)) .......... [PASS] 72. (ivs<=? (vector) (vector 1 10)) .......... [PASS] 73. (ivs<=? (vector 1 10) (vector)) .......... [PASS] 74. (ivs<=? (vector 3 7) (vector 1 10)) .......... [PASS] 75. (ivs<=? (vector 1 10) (vector 3 7)) .......... [PASS] 76. (ivs<=? (vector 3 5 7 9) (vector 1 10)) .......... [PASS] 77. (ivs<=? (vector 3 5 7 11) (vector 1 10)) .......... [PASS] 78. (ivs-disjoint? (vector) (vector)) .......... [PASS] 79. (ivs-disjoint? (vector 1 5) (vector)) .......... [PASS] 80. (ivs-disjoint? (vector) (vector 1 5)) .......... [PASS] 81. (ivs-disjoint? (vector 1 5) (vector 7 10)) .......... [PASS] 82. (ivs-disjoint? (vector 1 5) (vector 5 10)) .......... [PASS] 83. (ivs-disjoint? (vector 1 7) (vector 5 10)) .......... [PASS] 84. (ivs-disjoint? (vector 1 3 7 9) (vector 4 5 11 15)) .......... [PASS] 85. (ivs-disjoint? (vector 1 3 7 9) (vector 3 5 11 15)) .......... [PASS] 86. (ivs-union (vector 1 5 10 15) (vector 3 7 12 20)) .......... [PASS] 87. (ivs-intersection (vector 1 5 10 15) (vector 3 7 12 20)) .......... [PASS] 88. (ivs-difference (vector 1 5 10 15) (vector 3 7 12 20)) .......... [PASS] 89. (ivs-contains? (vector 0 max-val) 0) .......... [PASS] 90. (ivs-contains? (vector 0 max-val) max-val) .......... [PASS] 91. (ivs-contains? (vector 0 max-val) (quotient max-val 2)) .......... [PASS] 92. (ivs-size (vector 0 max-val)) .......... [PASS] 93. (ivs-union (vector 0 100) (vector 100 max-val)) .......... [PASS] 94. (ivs-difference (vector 1 10) (vector 5 5)) .......... [PASS] 95. (ivs-difference (vector 1 10) (vector 3 3 6 6)) .......... [PASS] 96. (ivs-difference (vector 1 10) (vector 1 1 10 10)) .......... [PASS] 97. (ivs-union (vector 1 3 5 7 9 10) (vector 4 4 8 8)) .......... [PASS] 98. (ivs-union (vector 1 5 10 15) (vector 5 10)) .......... [PASS] 99. (ivs-intersection (vector 1 10) (vector 2 4 6 8)) .......... [PASS] 100. (ivs-intersection (vector 5 5 10 10 15 15) (vector 1 20)) .......... [PASS] 101. (ivs-difference (vector 1 10) (vector 2 2 4 4 6 6 8 8 10 10)) .......... [PASS] 102. (sd (vector 1 7) (vector 5 10)) .......... [PASS] 103. (sd (vector 1 10) (vector 1 10)) .......... [PASS] 104. (sd (vector 1 10) (vector)) .......... [PASS] 105. (check-normalized (ivs-union (vector 1 5) (vector 10 15))) .......... [PASS] 106. (check-normalized (ivs-union (vector 1 3 7 9) (vector 5 5))) .......... [PASS] 107. (check-normalized (ivs-difference (vector 1 20) (vector 5 10))) .......... [PASS] 108. (check-sorted (ivs-union (vector 10 15) (vector 1 5))) .......... [PASS] 109. (check-sorted (ivs-intersection (vector 5 10 20 25) (vector 1 8 22 30))) .......... [PASS] 110. (ivs-size (vector 1 5 10 14 20 24)) .......... [PASS] 111. (ivs-size (vector 0 49 100 149)) .......... [PASS] 112. (ivs-size (vector 1000000 1000000)) .......... [PASS] 113. (ivs-contains? iv 10) .......... [PASS] 114. (ivs-contains? iv 15) .......... [PASS] 115. (ivs-contains? iv 13) .......... [PASS] 116. (ivs-contains? iv 20) .......... [PASS] 117. (ivs-contains? iv 25) .......... [PASS] 118. (ivs-contains? iv 22) .......... [PASS] 119. (ivs-contains? iv 30) .......... [PASS] 120. (ivs-contains? iv 35) .......... [PASS] 121. (ivs-contains? iv 33) .......... [PASS] 122. (ivs-contains? iv 9) .......... [PASS] 123. (ivs-contains? iv 16) .......... [PASS] 124. (ivs-contains? iv 19) .......... [PASS] 125. (ivs-contains? iv 26) .......... [PASS] 126. (ivs-contains? iv 29) .......... [PASS] 127. (ivs-contains? iv 36) .......... [PASS] 128. (ivs-contains? iv 100) .......... [PASS] 129. (ivs-contains? empty 0) .......... [PASS] 130. (ivs-contains? empty 10) .......... [PASS] 131. (ivs-size empty) .......... [PASS] 132. (ivs->list empty) .......... [PASS] 133. (ivs-contains? single 42) .......... [PASS] 134. (ivs-contains? single 41) .......... [PASS] 135. (ivs-contains? single 43) .......... [PASS] 136. (ivs-size single) .......... [PASS] 137. (ivs->list single) .......... [PASS] 138. (ivs-contains? range 10) .......... [PASS] 139. (ivs-contains? range 15) .......... [PASS] 140. (ivs-contains? range 20) .......... [PASS] 141. (ivs-contains? range 9) .......... [PASS] 142. (ivs-contains? range 21) .......... [PASS] 143. (ivs-size range) .......... [PASS] 144. (ivs-size (vector)) .......... [PASS] 145. (ivs-size (vector 5 5)) .......... [PASS] 146. (ivs-size (vector 10 20)) .......... [PASS] 147. (ivs-size (vector 10 15 20 25 30 35)) .......... [PASS] 148. (ivs-size (vector 0 99)) .......... [PASS] 149. (ivs->list (vector)) .......... [PASS] 150. (ivs->list (vector 5 5)) .......... [PASS] 151. (ivs->list (vector 10 12)) .......... [PASS] 152. (ivs->list (vector 1 3 10 12 20 21)) .......... [PASS] 153. (list->ivs (quote ())) .......... [PASS] 154. (list->ivs (quote (5))) .......... [PASS] 155. (list->ivs (quote (1 2 3))) .......... [PASS] 156. (list->ivs (quote (1 2 3 10 11 12 20 21))) .......... [PASS] 157. (list->ivs (quote (12 2 1 11 10 3))) .......... [PASS] 158. (list->ivs (quote (1 2 2 3 3 4 5))) .......... [PASS] 159. (list->ivs (ivs->list iv)) .......... [PASS] 160. (ivs=? (vector) (vector)) .......... [PASS] 161. (ivs=? (vector 10 20) (vector 10 20)) .......... [PASS] 162. (ivs=? (vector 1 5 10 15) (vector 1 5 10 15)) .......... [PASS] 163. (ivs=? (vector 10 20) (vector 10 21)) .......... [PASS] 164. (ivs=? (vector 10 20) (vector 11 20)) .......... [PASS] 165. (ivs=? (vector 1 5 10 15) (vector 1 5 10 16)) .......... [PASS] 166. (ivs=? (vector 10 20) (vector)) .......... [PASS] 167. (ivs<=? (vector) (vector)) .......... [PASS] 168. (ivs<=? (vector) (vector 1 10)) .......... [PASS] 169. (ivs<=? (vector 5 7) (vector 1 10)) .......... [PASS] 170. (ivs<=? (vector 5 7) (vector 5 7)) .......... [PASS] 171. (ivs<=? (vector 2 3 7 8) (vector 1 10)) .......... [PASS] 172. (ivs<=? (vector 1 10) (vector)) .......... [PASS] 173. (ivs<=? (vector 5 12) (vector 1 10)) .......... [PASS] 174. (ivs<=? (vector 0 5) (vector 1 10)) .......... [PASS] 175. collected .......... [PASS] 176. count .......... [PASS] 177. (ivs-union (vector) (vector)) .......... [PASS] 178. (ivs-union (vector 1 10) (vector)) .......... [PASS] 179. (ivs-union (vector) (vector 1 10)) .......... [PASS] 180. (ivs-union (vector 1 5) (vector 6 10)) .......... [PASS] 181. (ivs-union (vector 1 5) (vector 7 10)) .......... [PASS] 182. (ivs-union (vector 1 10) (vector 5 15)) .......... [PASS] 183. (ivs-union (vector 1 10) (vector 1 20)) .......... [PASS] 184. (ivs-intersection (vector) (vector)) .......... [PASS] 185. (ivs-intersection (vector 1 10) (vector)) .......... [PASS] 186. (ivs-intersection (vector) (vector 1 10)) .......... [PASS] 187. (ivs-intersection (vector 1 5) (vector 6 10)) .......... [PASS] 188. (ivs-intersection (vector 1 10) (vector 5 15)) .......... [PASS] 189. (ivs-intersection (vector 1 10) (vector 1 20)) .......... [PASS] 190. (ivs-intersection (vector 1 10 12 20) (vector 5 7 12 14)) .......... [PASS] 191. (ivs-difference (vector) (vector)) .......... [PASS] 192. (ivs-difference (vector) (vector 1 10)) .......... [PASS] 193. (ivs-difference (vector 1 10) (vector)) .......... [PASS] 194. (ivs-difference (vector 1 5) (vector 6 10)) .......... [PASS] 195. (ivs-difference (vector 1 10) (vector 5 15)) .......... [PASS] 196. (ivs-difference (vector 1 10) (vector 1 20)) .......... [PASS] 197. (ivs-difference (vector 1 10 15 20) (vector 5 7 12 14)) .......... [PASS] 198. (ivs-contains? ascii-letters 65) .......... [PASS] 199. (ivs-contains? ascii-letters 97) .......... [PASS] 200. (ivs-contains? ascii-letters 48) .......... [PASS] 201. (ivs-contains? hex-digits 48) .......... [PASS] 202. (ivs-contains? hex-digits 65) .......... [PASS] 203. (ivs-size ascii-letters) .......... [PASS] 204. (ivs-size hex-digits) .......... [PASS] 205. (ivs-size (ivs-intersection ascii-letters hex-digits)) .......... [PASS] 206. (ivs-size (ivs-union ascii-letters hex-digits)) .......... [PASS] 207. (ivs-size (ivs-difference hex-digits ascii-letters)) .......... [PASS] 208. (ivs-contains? max-range 0) .......... [PASS] 209. (ivs-contains? max-range 16777215) .......... [PASS] 210. (ivs-contains? max-range 8388607) .......... [PASS] 211. (ivs-size max-range) .......... [PASS] --- Testing Corner Cases for Construction --- 212. (list->ivs (quote (5 5 5 5 5))) .......... [PASS] 213. (list->ivs (quote (1 2 3 4 5 6 7 8 9 10))) .......... [PASS] 214. (list->ivs (quote (1000000 1000001))) .......... [PASS] 215. (list->ivs (quote (0 1 2))) .......... [PASS] --- Testing Corner Cases for Union --- 216. (ivs-union s1 s2) .......... [PASS] 217. (ivs-union s1 s2) .......... [PASS] 218. (ivs-union s1 s2) .......... [PASS] 219. (ivs-union s1 s2) .......... [PASS] 220. (ivs-union s1 s2) .......... [PASS] 221. (ivs-union (ranges->ivs (quote (10 . 20))) (ivs-union (ranges->ivs (quote (15 . 30))) (ranges->ivs (quote (25 . 40))))) .......... [PASS] 222. (ivs-union (ranges->ivs (quote (0 . 100))) (ranges->ivs (quote (10 . 20)) (quote (80 . 90)))) .......... [PASS] --- Testing Corner Cases for Intersection --- 223. (ivs-intersection s1 s2) .......... [PASS] 224. (ivs-intersection s1 s2) .......... [PASS] 225. (ivs-intersection s1 s2) .......... [PASS] 226. (ivs-intersection s1 s2) .......... [PASS] 227. (ivs-intersection s1 s2) .......... [PASS] 228. (ivs-intersection (ranges->ivs) (ranges->ivs (quote (1 . 100)))) .......... [PASS] 229. (ivs-intersection (ranges->ivs) (ranges->ivs)) .......... [PASS] --- Testing Corner Cases for Difference --- 230. (ivs-difference s1 s2) .......... [PASS] 231. (ivs-difference s1 s2) .......... [PASS] 232. (ivs-difference s1 s2) .......... [PASS] 233. (ivs-difference s1 s2) .......... [PASS] 234. (ivs-difference s1 s2) .......... [PASS] 235. (ivs-difference s1 s2) .......... [PASS] 236. (ivs-difference s1 s2) .......... [PASS] 237. (ivs-difference s1 s2) .......... [PASS] 238. (ivs-difference s1 s2) .......... [PASS] 239. (ivs-difference s1 s2) .......... [PASS] 240. (ivs-difference s1 s2) .......... [PASS] 241. (ivs-difference s1 s2) .......... [PASS] --- Testing Corner Cases for Subset (ivs<=?) --- 242. (ivs<=? s2 s1) .......... [PASS] 243. (ivs<=? s2 s1) .......... [PASS] 244. (ivs<=? s2 s1) .......... [PASS] 245. (ivs<=? s2 s1) .......... [PASS] 246. (ivs<=? (ranges->ivs (quote (1 . 1))) (ranges->ivs)) .......... [PASS] 247. (ivs<=? (ranges->ivs) (ranges->ivs)) .......... [PASS] --- Testing Mixed Operations --- 248. (ivs-intersection (ivs-union s_a s_b) s_c) .......... [PASS] 249. (ivs-union (ivs-difference s_a s_b) (ivs-difference s_a s_c)) .......... [PASS] 250. (ivs-difference s_a (ivs-intersection s_b s_c)) .......... [PASS] 251. (ivs-union (ranges->ivs (quote (100 . 200)) (quote (500 . 600))) (ranges->ivs (quote (150 . 250)) (quote (700 . 800)))) .......... [PASS] --- Automated tests --- Running fuzzy tests... 252. (ivs-difference universe (ivs-union s1 s2)) .......... [PASS] 253. (ivs-difference universe (ivs-intersection s1 s2)) .......... [PASS] 254. (ivs-union s2 s1) .......... [PASS] 255. (ivs-intersection s2 s1) .......... [PASS] 256. (ivs-union s1 (ivs-union s2 s3)) .......... [PASS] 257. (ivs-intersection s1 (ivs-intersection s2 s3)) .......... [PASS] 258. (ivs-intersection (ivs-union s1 s2) (ivs-union s1 s3)) .......... [PASS] 259. (ivs-union (ivs-intersection s1 s2) (ivs-intersection s1 s3)) .......... [PASS] 260. (ivs-union s1 (vector)) .......... [PASS] 261. (ivs-union (vector) s1) .......... [PASS] 262. (ivs-intersection s1 (vector)) .......... [PASS] 263. (ivs-intersection (vector) s1) .......... [PASS] 264. (ivs-union s1 s1) .......... [PASS] 265. (ivs-intersection s1 s1) .......... [PASS] 266. (ivs-union s1 (ivs-difference universe s1)) .......... [PASS] 267. (ivs-intersection s1 (ivs-difference universe s1)) .......... [PASS] 268. (ivs-union s1 (ivs-intersection s1 s2)) .......... [PASS] 269. (ivs-intersection s1 (ivs-union s1 s2)) .......... [PASS] 270. (ivs-difference s1 s1) .......... [PASS] 271. (ivs-difference s1 (vector)) .......... [PASS] 272. (ivs-difference (ivs-intersection s1 s2) s3) .......... [PASS] 273. (ivs<=? (vector) s1) .......... [PASS] 274. (ivs<=? s1 s1) .......... [PASS] 275. (ivs<=? (ivs-intersection s1 s2) s1) .......... [PASS] 276. (ivs<=? (ivs-intersection s1 s2) s2) .......... [PASS] 277. (ivs<=? s1 (ivs-union s1 s2)) .......... [PASS] 278. (ivs<=? s2 (ivs-union s1 s2)) .......... [PASS] 279. (ivs=? (ivs-intersection s1 s2) (vector)) .......... [PASS] 280. (not (ivs<=? s1 s2)) .......... [PASS] 281. (<= (ivs-size (ivs-intersection s1 s2)) (min (ivs-size s1) (ivs-size s2))) .......... [PASS] 282. (>= (ivs-size (ivs-union s1 s2)) (max (ivs-size s1) (ivs-size s2))) .......... [PASS] 283. (+ (ivs-size (ivs-union s1 s2)) (ivs-size (ivs-intersection s1 s2))) .......... [PASS] 284. (ivs=? s1 s1) .......... [PASS] 285. (ivs=? s2 s1) .......... [PASS] 286. (list->ivs (ivs->list s1)) .......... [PASS] 287. (not (not (member test-element (ivs->list s1)))) .......... [PASS] 288. (ivs-difference universe (ivs-union s1 s2)) .......... [PASS] 289. (ivs-difference universe (ivs-intersection s1 s2)) .......... [PASS] 290. (ivs-union s2 s1) .......... [PASS] 291. (ivs-intersection s2 s1) .......... [PASS] 292. (ivs-union s1 (ivs-union s2 s3)) .......... [PASS] 293. (ivs-intersection s1 (ivs-intersection s2 s3)) .......... [PASS] 294. (ivs-intersection (ivs-union s1 s2) (ivs-union s1 s3)) .......... [PASS] 295. (ivs-union (ivs-intersection s1 s2) (ivs-intersection s1 s3)) .......... [PASS] 296. (ivs-union s1 (vector)) .......... [PASS] 297. (ivs-union (vector) s1) .......... [PASS] 298. (ivs-intersection s1 (vector)) .......... [PASS] 299. (ivs-intersection (vector) s1) .......... [PASS] 300. (ivs-union s1 s1) .......... [PASS] 301. (ivs-intersection s1 s1) .......... [PASS] 302. (ivs-union s1 (ivs-difference universe s1)) .......... [PASS] 303. (ivs-intersection s1 (ivs-difference universe s1)) .......... [PASS] 304. (ivs-union s1 (ivs-intersection s1 s2)) .......... [PASS] 305. (ivs-intersection s1 (ivs-union s1 s2)) .......... [PASS] 306. (ivs-difference s1 s1) .......... [PASS] 307. (ivs-difference s1 (vector)) .......... [PASS] 308. (ivs-difference (ivs-intersection s1 s2) s3) .......... [PASS] 309. (ivs<=? (vector) s1) .......... [PASS] 310. (ivs<=? s1 s1) .......... [PASS] 311. (ivs<=? (ivs-intersection s1 s2) s1) .......... [PASS] 312. (ivs<=? (ivs-intersection s1 s2) s2) .......... [PASS] 313. (ivs<=? s1 (ivs-union s1 s2)) .......... [PASS] 314. (ivs<=? s2 (ivs-union s1 s2)) .......... [PASS] 315. (ivs=? (ivs-intersection s1 s2) (vector)) .......... [PASS] 316. (not (ivs<=? s1 s2)) .......... [PASS] 317. (<= (ivs-size (ivs-intersection s1 s2)) (min (ivs-size s1) (ivs-size s2))) .......... [PASS] 318. (>= (ivs-size (ivs-union s1 s2)) (max (ivs-size s1) (ivs-size s2))) .......... [PASS] 319. (+ (ivs-size (ivs-union s1 s2)) (ivs-size (ivs-intersection s1 s2))) .......... [PASS] 320. (ivs=? s1 s1) .......... [PASS] 321. (ivs=? s2 s1) .......... [PASS] 322. (list->ivs (ivs->list s1)) .......... [PASS] 323. (not (not (member test-element (ivs->list s1)))) .......... [PASS] 324. (or (ivs-contains? s1 test-element) (ivs-contains? s2 test-element)) .......... [PASS] 325. (ivs-difference universe (ivs-union s1 s2)) .......... [PASS] 326. (ivs-difference universe (ivs-intersection s1 s2)) .......... [PASS] 327. (ivs-union s2 s1) .......... [PASS] 328. (ivs-intersection s2 s1) .......... [PASS] 329. (ivs-union s1 (ivs-union s2 s3)) .......... [PASS] 330. (ivs-intersection s1 (ivs-intersection s2 s3)) .......... [PASS] 331. (ivs-intersection (ivs-union s1 s2) (ivs-union s1 s3)) .......... [PASS] 332. (ivs-union (ivs-intersection s1 s2) (ivs-intersection s1 s3)) .......... [PASS] 333. (ivs-union s1 (vector)) .......... [PASS] 334. (ivs-union (vector) s1) .......... [PASS] 335. (ivs-intersection s1 (vector)) .......... [PASS] 336. (ivs-intersection (vector) s1) .......... [PASS] 337. (ivs-union s1 s1) .......... [PASS] 338. (ivs-intersection s1 s1) .......... [PASS] 339. (ivs-union s1 (ivs-difference universe s1)) .......... [PASS] 340. (ivs-intersection s1 (ivs-difference universe s1)) .......... [PASS] 341. (ivs-union s1 (ivs-intersection s1 s2)) .......... [PASS] 342. (ivs-intersection s1 (ivs-union s1 s2)) .......... [PASS] 343. (ivs-difference s1 s1) .......... [PASS] 344. (ivs-difference s1 (vector)) .......... [PASS] 345. (ivs-difference (ivs-intersection s1 s2) s3) .......... [PASS] 346. (ivs<=? (vector) s1) .......... [PASS] 347. (ivs<=? s1 s1) .......... [PASS] 348. (ivs<=? (ivs-intersection s1 s2) s1) .......... [PASS] 349. (ivs<=? (ivs-intersection s1 s2) s2) .......... [PASS] 350. (ivs<=? s1 (ivs-union s1 s2)) .......... [PASS] 351. (ivs<=? s2 (ivs-union s1 s2)) .......... [PASS] 352. (ivs=? (ivs-intersection s1 s2) (vector)) .......... [PASS] 353. (not (ivs<=? s1 s2)) .......... [PASS] 354. (<= (ivs-size (ivs-intersection s1 s2)) (min (ivs-size s1) (ivs-size s2))) .......... [PASS] 355. (>= (ivs-size (ivs-union s1 s2)) (max (ivs-size s1) (ivs-size s2))) .......... [PASS] 356. (+ (ivs-size (ivs-union s1 s2)) (ivs-size (ivs-intersection s1 s2))) .......... [PASS] 357. (ivs=? s1 s1) .......... [PASS] 358. (ivs=? s2 s1) .......... [PASS] 359. (list->ivs (ivs->list s1)) .......... [PASS] 360. (not (not (member test-element (ivs->list s1)))) .......... [PASS] 361. (ivs-difference universe (ivs-union s1 s2)) .......... [PASS] 362. (ivs-difference universe (ivs-intersection s1 s2)) .......... [PASS] 363. (ivs-union s2 s1) .......... [PASS] 364. (ivs-intersection s2 s1) .......... [PASS] 365. (ivs-union s1 (ivs-union s2 s3)) .......... [PASS] 366. (ivs-intersection s1 (ivs-intersection s2 s3)) .......... [PASS] 367. (ivs-intersection (ivs-union s1 s2) (ivs-union s1 s3)) .......... [PASS] 368. (ivs-union (ivs-intersection s1 s2) (ivs-intersection s1 s3)) .......... [PASS] 369. (ivs-union s1 (vector)) .......... [PASS] 370. (ivs-union (vector) s1) .......... [PASS] 371. (ivs-intersection s1 (vector)) .......... [PASS] 372. (ivs-intersection (vector) s1) .......... [PASS] 373. (ivs-union s1 s1) .......... [PASS] 374. (ivs-intersection s1 s1) .......... [PASS] 375. (ivs-union s1 (ivs-difference universe s1)) .......... [PASS] 376. (ivs-intersection s1 (ivs-difference universe s1)) .......... [PASS] 377. (ivs-union s1 (ivs-intersection s1 s2)) .......... [PASS] 378. (ivs-intersection s1 (ivs-union s1 s2)) .......... [PASS] 379. (ivs-difference s1 s1) .......... [PASS] 380. (ivs-difference s1 (vector)) .......... [PASS] 381. (ivs-difference (ivs-intersection s1 s2) s3) .......... [PASS] 382. (ivs<=? (vector) s1) .......... [PASS] 383. (ivs<=? s1 s1) .......... [PASS] 384. (ivs<=? (ivs-intersection s1 s2) s1) .......... [PASS] 385. (ivs<=? (ivs-intersection s1 s2) s2) .......... [PASS] 386. (ivs<=? s1 (ivs-union s1 s2)) .......... [PASS] 387. (ivs<=? s2 (ivs-union s1 s2)) .......... [PASS] 388. (ivs=? (ivs-intersection s1 s2) (vector)) .......... [PASS] 389. (not (ivs<=? s1 s2)) .......... [PASS] 390. (<= (ivs-size (ivs-intersection s1 s2)) (min (ivs-size s1) (ivs-size s2))) .......... [PASS] 391. (>= (ivs-size (ivs-union s1 s2)) (max (ivs-size s1) (ivs-size s2))) .......... [PASS] 392. (+ (ivs-size (ivs-union s1 s2)) (ivs-size (ivs-intersection s1 s2))) .......... [PASS] 393. (ivs=? s1 s1) .......... [PASS] 394. (ivs=? s2 s1) .......... [PASS] 395. (list->ivs (ivs->list s1)) .......... [PASS] 396. (not (not (member test-element (ivs->list s1)))) .......... [PASS] 397. (ivs-contains? s1 test-element) .......... [PASS] 398. (ivs-contains? s2 test-element) .......... [PASS] 399. (or (ivs-contains? s1 test-element) (ivs-contains? s2 test-element)) .......... [PASS] 400. (ivs-difference universe (ivs-union s1 s2)) .......... [PASS] 401. (ivs-difference universe (ivs-intersection s1 s2)) .......... [PASS] 402. (ivs-union s2 s1) .......... [PASS] 403. (ivs-intersection s2 s1) .......... [PASS] 404. (ivs-union s1 (ivs-union s2 s3)) .......... [PASS] 405. (ivs-intersection s1 (ivs-intersection s2 s3)) .......... [PASS] 406. (ivs-intersection (ivs-union s1 s2) (ivs-union s1 s3)) .......... [PASS] 407. (ivs-union (ivs-intersection s1 s2) (ivs-intersection s1 s3)) .......... [PASS] 408. (ivs-union s1 (vector)) .......... [PASS] 409. (ivs-union (vector) s1) .......... [PASS] 410. (ivs-intersection s1 (vector)) .......... [PASS] 411. (ivs-intersection (vector) s1) .......... [PASS] 412. (ivs-union s1 s1) .......... [PASS] 413. (ivs-intersection s1 s1) .......... [PASS] 414. (ivs-union s1 (ivs-difference universe s1)) .......... [PASS] 415. (ivs-intersection s1 (ivs-difference universe s1)) .......... [PASS] 416. (ivs-union s1 (ivs-intersection s1 s2)) .......... [PASS] 417. (ivs-intersection s1 (ivs-union s1 s2)) .......... [PASS] 418. (ivs-difference s1 s1) .......... [PASS] 419. (ivs-difference s1 (vector)) .......... [PASS] 420. (ivs-difference (ivs-intersection s1 s2) s3) .......... [PASS] 421. (ivs<=? (vector) s1) .......... [PASS] 422. (ivs<=? s1 s1) .......... [PASS] 423. (ivs<=? (ivs-intersection s1 s2) s1) .......... [PASS] 424. (ivs<=? (ivs-intersection s1 s2) s2) .......... [PASS] 425. (ivs<=? s1 (ivs-union s1 s2)) .......... [PASS] 426. (ivs<=? s2 (ivs-union s1 s2)) .......... [PASS] 427. (ivs=? (ivs-intersection s1 s2) (vector)) .......... [PASS] 428. (not (ivs<=? s1 s2)) .......... [PASS] 429. (<= (ivs-size (ivs-intersection s1 s2)) (min (ivs-size s1) (ivs-size s2))) .......... [PASS] 430. (>= (ivs-size (ivs-union s1 s2)) (max (ivs-size s1) (ivs-size s2))) .......... [PASS] 431. (+ (ivs-size (ivs-union s1 s2)) (ivs-size (ivs-intersection s1 s2))) .......... [PASS] 432. (ivs=? s1 s1) .......... [PASS] 433. (ivs=? s2 s1) .......... [PASS] 434. (list->ivs (ivs->list s1)) .......... [PASS] 435. (not (not (member test-element (ivs->list s1)))) .......... [PASS] 436. (or (ivs-contains? s1 test-element) (ivs-contains? s2 test-element)) .......... [PASS] 437. (ivs-difference universe (ivs-union s1 s2)) .......... [PASS] 438. (ivs-difference universe (ivs-intersection s1 s2)) .......... [PASS] 439. (ivs-union s2 s1) .......... [PASS] 440. (ivs-intersection s2 s1) .......... [PASS] 441. (ivs-union s1 (ivs-union s2 s3)) .......... [PASS] 442. (ivs-intersection s1 (ivs-intersection s2 s3)) .......... [PASS] 443. (ivs-intersection (ivs-union s1 s2) (ivs-union s1 s3)) .......... [PASS] 444. (ivs-union (ivs-intersection s1 s2) (ivs-intersection s1 s3)) .......... [PASS] 445. (ivs-union s1 (vector)) .......... [PASS] 446. (ivs-union (vector) s1) .......... [PASS] 447. (ivs-intersection s1 (vector)) .......... [PASS] 448. (ivs-intersection (vector) s1) .......... [PASS] 449. (ivs-union s1 s1) .......... [PASS] 450. (ivs-intersection s1 s1) .......... [PASS] 451. (ivs-union s1 (ivs-difference universe s1)) .......... [PASS] 452. (ivs-intersection s1 (ivs-difference universe s1)) .......... [PASS] 453. (ivs-union s1 (ivs-intersection s1 s2)) .......... [PASS] 454. (ivs-intersection s1 (ivs-union s1 s2)) .......... [PASS] 455. (ivs-difference s1 s1) .......... [PASS] 456. (ivs-difference s1 (vector)) .......... [PASS] 457. (ivs-difference (ivs-intersection s1 s2) s3) .......... [PASS] 458. (ivs<=? (vector) s1) .......... [PASS] 459. (ivs<=? s1 s1) .......... [PASS] 460. (ivs<=? (ivs-intersection s1 s2) s1) .......... [PASS] 461. (ivs<=? (ivs-intersection s1 s2) s2) .......... [PASS] 462. (ivs<=? s1 (ivs-union s1 s2)) .......... [PASS] 463. (ivs<=? s2 (ivs-union s1 s2)) .......... [PASS] 464. (ivs=? (ivs-intersection s1 s2) (vector)) .......... [PASS] 465. (not (ivs<=? s1 s2)) .......... [PASS] 466. (<= (ivs-size (ivs-intersection s1 s2)) (min (ivs-size s1) (ivs-size s2))) .......... [PASS] 467. (>= (ivs-size (ivs-union s1 s2)) (max (ivs-size s1) (ivs-size s2))) .......... [PASS] 468. (+ (ivs-size (ivs-union s1 s2)) (ivs-size (ivs-intersection s1 s2))) .......... [PASS] 469. (ivs=? s1 s1) .......... [PASS] 470. (ivs=? s2 s1) .......... [PASS] 471. (list->ivs (ivs->list s1)) .......... [PASS] 472. (not (not (member test-element (ivs->list s1)))) .......... [PASS] 473. (or (ivs-contains? s1 test-element) (ivs-contains? s2 test-element)) .......... [PASS] 474. (ivs-difference universe (ivs-union s1 s2)) .......... [PASS] 475. (ivs-difference universe (ivs-intersection s1 s2)) .......... [PASS] 476. (ivs-union s2 s1) .......... [PASS] 477. (ivs-intersection s2 s1) .......... [PASS] 478. (ivs-union s1 (ivs-union s2 s3)) .......... [PASS] 479. (ivs-intersection s1 (ivs-intersection s2 s3)) .......... [PASS] 480. (ivs-intersection (ivs-union s1 s2) (ivs-union s1 s3)) .......... [PASS] 481. (ivs-union (ivs-intersection s1 s2) (ivs-intersection s1 s3)) .......... [PASS] 482. (ivs-union s1 (vector)) .......... [PASS] 483. (ivs-union (vector) s1) .......... [PASS] 484. (ivs-intersection s1 (vector)) .......... [PASS] 485. (ivs-intersection (vector) s1) .......... [PASS] 486. (ivs-union s1 s1) .......... [PASS] 487. (ivs-intersection s1 s1) .......... [PASS] 488. (ivs-union s1 (ivs-difference universe s1)) .......... [PASS] 489. (ivs-intersection s1 (ivs-difference universe s1)) .......... [PASS] 490. (ivs-union s1 (ivs-intersection s1 s2)) .......... [PASS] 491. (ivs-intersection s1 (ivs-union s1 s2)) .......... [PASS] 492. (ivs-difference s1 s1) .......... [PASS] 493. (ivs-difference s1 (vector)) .......... [PASS] 494. (ivs-difference (ivs-intersection s1 s2) s3) .......... [PASS] 495. (ivs<=? (vector) s1) .......... [PASS] 496. (ivs<=? s1 s1) .......... [PASS] 497. (ivs<=? (ivs-intersection s1 s2) s1) .......... [PASS] 498. (ivs<=? (ivs-intersection s1 s2) s2) .......... [PASS] 499. (ivs<=? s1 (ivs-union s1 s2)) .......... [PASS] 500. (ivs<=? s2 (ivs-union s1 s2)) .......... [PASS] 501. (ivs=? (ivs-intersection s1 s2) (vector)) .......... [PASS] 502. (not (ivs<=? s1 s2)) .......... [PASS] 503. (<= (ivs-size (ivs-intersection s1 s2)) (min (ivs-size s1) (ivs-size s2))) .......... [PASS] 504. (>= (ivs-size (ivs-union s1 s2)) (max (ivs-size s1) (ivs-size s2))) .......... [PASS] 505. (+ (ivs-size (ivs-union s1 s2)) (ivs-size (ivs-intersection s1 s2))) .......... [PASS] 506. (ivs=? s1 s1) .......... [PASS] 507. (ivs=? s2 s1) .......... [PASS] 508. (list->ivs (ivs->list s1)) .......... [PASS] 509. (not (not (member test-element (ivs->list s1)))) .......... [PASS] 510. (ivs-difference universe (ivs-union s1 s2)) .......... [PASS] 511. (ivs-difference universe (ivs-intersection s1 s2)) .......... [PASS] 512. (ivs-union s2 s1) .......... [PASS] 513. (ivs-intersection s2 s1) .......... [PASS] 514. (ivs-union s1 (ivs-union s2 s3)) .......... [PASS] 515. (ivs-intersection s1 (ivs-intersection s2 s3)) .......... [PASS] 516. (ivs-intersection (ivs-union s1 s2) (ivs-union s1 s3)) .......... [PASS] 517. (ivs-union (ivs-intersection s1 s2) (ivs-intersection s1 s3)) .......... [PASS] 518. (ivs-union s1 (vector)) .......... [PASS] 519. (ivs-union (vector) s1) .......... [PASS] 520. (ivs-intersection s1 (vector)) .......... [PASS] 521. (ivs-intersection (vector) s1) .......... [PASS] 522. (ivs-union s1 s1) .......... [PASS] 523. (ivs-intersection s1 s1) .......... [PASS] 524. (ivs-union s1 (ivs-difference universe s1)) .......... [PASS] 525. (ivs-intersection s1 (ivs-difference universe s1)) .......... [PASS] 526. (ivs-union s1 (ivs-intersection s1 s2)) .......... [PASS] 527. (ivs-intersection s1 (ivs-union s1 s2)) .......... [PASS] 528. (ivs-difference s1 s1) .......... [PASS] 529. (ivs-difference s1 (vector)) .......... [PASS] 530. (ivs-difference (ivs-intersection s1 s2) s3) .......... [PASS] 531. (ivs<=? (vector) s1) .......... [PASS] 532. (ivs<=? s1 s1) .......... [PASS] 533. (ivs<=? (ivs-intersection s1 s2) s1) .......... [PASS] 534. (ivs<=? (ivs-intersection s1 s2) s2) .......... [PASS] 535. (ivs<=? s1 (ivs-union s1 s2)) .......... [PASS] 536. (ivs<=? s2 (ivs-union s1 s2)) .......... [PASS] 537. (ivs=? (ivs-intersection s1 s2) (vector)) .......... [PASS] 538. (not (ivs<=? s1 s2)) .......... [PASS] 539. (<= (ivs-size (ivs-intersection s1 s2)) (min (ivs-size s1) (ivs-size s2))) .......... [PASS] 540. (>= (ivs-size (ivs-union s1 s2)) (max (ivs-size s1) (ivs-size s2))) .......... [PASS] 541. (+ (ivs-size (ivs-union s1 s2)) (ivs-size (ivs-intersection s1 s2))) .......... [PASS] 542. (ivs=? s1 s1) .......... [PASS] 543. (ivs=? s2 s1) .......... [PASS] 544. (list->ivs (ivs->list s1)) .......... [PASS] 545. (not (not (member test-element (ivs->list s1)))) .......... [PASS] 546. (or (ivs-contains? s1 test-element) (ivs-contains? s2 test-element)) .......... [PASS] 547. (ivs-difference universe (ivs-union s1 s2)) .......... [PASS] 548. (ivs-difference universe (ivs-intersection s1 s2)) .......... [PASS] 549. (ivs-union s2 s1) .......... [PASS] 550. (ivs-intersection s2 s1) .......... [PASS] 551. (ivs-union s1 (ivs-union s2 s3)) .......... [PASS] 552. (ivs-intersection s1 (ivs-intersection s2 s3)) .......... [PASS] 553. (ivs-intersection (ivs-union s1 s2) (ivs-union s1 s3)) .......... [PASS] 554. (ivs-union (ivs-intersection s1 s2) (ivs-intersection s1 s3)) .......... [PASS] 555. (ivs-union s1 (vector)) .......... [PASS] 556. (ivs-union (vector) s1) .......... [PASS] 557. (ivs-intersection s1 (vector)) .......... [PASS] 558. (ivs-intersection (vector) s1) .......... [PASS] 559. (ivs-union s1 s1) .......... [PASS] 560. (ivs-intersection s1 s1) .......... [PASS] 561. (ivs-union s1 (ivs-difference universe s1)) .......... [PASS] 562. (ivs-intersection s1 (ivs-difference universe s1)) .......... [PASS] 563. (ivs-union s1 (ivs-intersection s1 s2)) .......... [PASS] 564. (ivs-intersection s1 (ivs-union s1 s2)) .......... [PASS] 565. (ivs-difference s1 s1) .......... [PASS] 566. (ivs-difference s1 (vector)) .......... [PASS] 567. (ivs-difference (ivs-intersection s1 s2) s3) .......... [PASS] 568. (ivs<=? (vector) s1) .......... [PASS] 569. (ivs<=? s1 s1) .......... [PASS] 570. (ivs<=? (ivs-intersection s1 s2) s1) .......... [PASS] 571. (ivs<=? (ivs-intersection s1 s2) s2) .......... [PASS] 572. (ivs<=? s1 (ivs-union s1 s2)) .......... [PASS] 573. (ivs<=? s2 (ivs-union s1 s2)) .......... [PASS] 574. (ivs=? (ivs-intersection s1 s2) (vector)) .......... [PASS] 575. (not (ivs<=? s1 s2)) .......... [PASS] 576. (<= (ivs-size (ivs-intersection s1 s2)) (min (ivs-size s1) (ivs-size s2))) .......... [PASS] 577. (>= (ivs-size (ivs-union s1 s2)) (max (ivs-size s1) (ivs-size s2))) .......... [PASS] 578. (+ (ivs-size (ivs-union s1 s2)) (ivs-size (ivs-intersection s1 s2))) .......... [PASS] 579. (ivs=? s1 s1) .......... [PASS] 580. (ivs=? s2 s1) .......... [PASS] 581. (list->ivs (ivs->list s1)) .......... [PASS] 582. (not (not (member test-element (ivs->list s1)))) .......... [PASS] 583. (ivs-difference universe (ivs-union s1 s2)) .......... [PASS] 584. (ivs-difference universe (ivs-intersection s1 s2)) .......... [PASS] 585. (ivs-union s2 s1) .......... [PASS] 586. (ivs-intersection s2 s1) .......... [PASS] 587. (ivs-union s1 (ivs-union s2 s3)) .......... [PASS] 588. (ivs-intersection s1 (ivs-intersection s2 s3)) .......... [PASS] 589. (ivs-intersection (ivs-union s1 s2) (ivs-union s1 s3)) .......... [PASS] 590. (ivs-union (ivs-intersection s1 s2) (ivs-intersection s1 s3)) .......... [PASS] 591. (ivs-union s1 (vector)) .......... [PASS] 592. (ivs-union (vector) s1) .......... [PASS] 593. (ivs-intersection s1 (vector)) .......... [PASS] 594. (ivs-intersection (vector) s1) .......... [PASS] 595. (ivs-union s1 s1) .......... [PASS] 596. (ivs-intersection s1 s1) .......... [PASS] 597. (ivs-union s1 (ivs-difference universe s1)) .......... [PASS] 598. (ivs-intersection s1 (ivs-difference universe s1)) .......... [PASS] 599. (ivs-union s1 (ivs-intersection s1 s2)) .......... [PASS] 600. (ivs-intersection s1 (ivs-union s1 s2)) .......... [PASS] 601. (ivs-difference s1 s1) .......... [PASS] 602. (ivs-difference s1 (vector)) .......... [PASS] 603. (ivs-difference (ivs-intersection s1 s2) s3) .......... [PASS] 604. (ivs<=? (vector) s1) .......... [PASS] 605. (ivs<=? s1 s1) .......... [PASS] 606. (ivs<=? (ivs-intersection s1 s2) s1) .......... [PASS] 607. (ivs<=? (ivs-intersection s1 s2) s2) .......... [PASS] 608. (ivs<=? s1 (ivs-union s1 s2)) .......... [PASS] 609. (ivs<=? s2 (ivs-union s1 s2)) .......... [PASS] 610. (ivs=? (ivs-intersection s1 s2) (vector)) .......... [PASS] 611. (not (ivs<=? s1 s2)) .......... [PASS] 612. (<= (ivs-size (ivs-intersection s1 s2)) (min (ivs-size s1) (ivs-size s2))) .......... [PASS] 613. (>= (ivs-size (ivs-union s1 s2)) (max (ivs-size s1) (ivs-size s2))) .......... [PASS] 614. (+ (ivs-size (ivs-union s1 s2)) (ivs-size (ivs-intersection s1 s2))) .......... [PASS] 615. (ivs=? s1 s1) .......... [PASS] 616. (ivs=? s2 s1) .......... [PASS] 617. (list->ivs (ivs->list s1)) .......... [PASS] 618. (not (not (member test-element (ivs->list s1)))) .......... [PASS] Fuzzy tests completed. --- All tests complete. --- 618 out of 618 passed (100.00%) --- time type constants --- 1. time-utc .......... [PASS] 2. time-tai .......... [PASS] 3. time-monotonic .......... [PASS] 4. time-duration .......... [PASS] 5. time-process .......... [PASS] 6. time-thread .......... [PASS] 7. (length (list time-utc time-tai time-monotonic time-duration time-process time-thread)) .......... [PASS] --- time objects and accessors --- 8. (time? (make-time time-utc 0 0)) .......... [PASS] 9. (time? 42) .......... [PASS] 10. (time? (quote (time-utc 0 0))) .......... [PASS] 11. (parts (make-time time-utc 123 456)) .......... [PASS] 12. (parts (make-time time-duration 9 7)) .......... [PASS] --- mutators --- 13. (let ((t (make-time time-utc 5 10))) (set-time-type! t time-duration) (time-type t)) .......... [PASS] 14. (let ((t (make-time time-utc 5 10))) (set-time-nanosecond! t 999) (time-nanosecond t)) .......... [PASS] 15. (let ((t (make-time time-utc 5 10))) (set-time-second! t 20) (time-second t)) .......... [PASS] 16. (let ((t (make-time time-utc 5 10))) (set-time-nanosecond! t 42) (parts t)) .......... [PASS] --- comparisons --- 17. (time=? (make-time time-utc 0 1) (make-time time-utc 0 1)) .......... [PASS] 18. (time=? (make-time time-utc 0 1) (make-time time-utc 0 2)) .......... [PASS] 19. (time? (make-time time-utc 0 2) (make-time time-utc 0 1)) .......... [PASS] 22. (time<=? (make-time time-utc 0 2) (make-time time-utc 0 2)) .......... [PASS] 23. (time<=? (make-time time-utc 0 1) (make-time time-utc 0 2)) .......... [PASS] 24. (time>=? (make-time time-utc 0 2) (make-time time-utc 0 2)) .......... [PASS] 25. (time>=? (make-time time-utc 0 2) (make-time time-utc 0 1)) .......... [PASS] 26. (let ((a (make-time time-utc 1000 1)) (b (make-time time-utc 2000 1))) (list (time? b a) (time=? a b))) .......... [PASS] 27. (time=? (make-time time-utc 1001 1) (make-time time-utc 1001 1)) .......... [PASS] 28. (list (time-compare (make-time time-utc 0 1) (make-time time-utc 0 2)) (time-compare (make-time time-utc 0 2) (make-time time-utc 0 2)) (time-compare (make-time time-utc 0 3) (make-time time-utc 0 2))) .......... [PASS] 29. (list (time-compare (make-time time-utc 1 5) (make-time time-utc 2 5)) (time-compare (make-time time-utc 2 5) (make-time time-utc 1 5))) .......... [PASS] 30. (quote (time=? (make-time time-utc 0 1) (make-time time-duration 0 1))) .......... [PASS] 31. (quote (time=? (make-time time-monotonic 0 1) (make-time time-tai 0 1))) .......... [PASS] --- arithmetic --- 32. (time-type (time-difference (make-time time-utc 0 3000) (make-time time-utc 0 1000))) .......... [PASS] 33. (time=? (make-time time-duration 0 2000) (time-difference (make-time time-utc 0 3000) (make-time time-utc 0 1000))) .......... [PASS] 34. (time=? (make-time time-duration 0 -2000) (time-difference (make-time time-utc 0 1000) (make-time time-utc 0 3000))) .......... [PASS] 35. (let ((r (time-difference (make-time time-utc 0 1) (make-time time-utc 500000000 0)))) (list (inexact->exact (secs r)) (inexact->exact (nsecs r)))) .......... [PASS] 36. (time-type (add-duration (make-time time-utc 0 1000) (make-time time-duration 0 500))) .......... [PASS] 37. (time=? (make-time time-utc 0 1500) (add-duration (make-time time-utc 0 1000) (make-time time-duration 0 500))) .......... [PASS] 38. (let ((r (add-duration (make-time time-utc 600000000.0 1) (make-time time-duration 600000000.0 0)))) (list (inexact->exact (secs r)) (inexact->exact (nsecs r)))) .......... [PASS] 39. (time=? (make-time time-utc 0 500) (subtract-duration (make-time time-utc 0 1000) (make-time time-duration 0 500))) .......... [PASS] 40. (let ((a (make-time time-utc 0 1000))) (add-duration a (make-time time-duration 0 5)) (secs a)) .......... [PASS] 41. (let ((a (make-time time-utc 0 1000))) (subtract-duration a (make-time time-duration 0 5)) (secs a)) .......... [PASS] 42. (let ((a (make-time time-utc 12345 1000)) (d (make-time time-duration 54321 77))) (time=? a (subtract-duration (add-duration a d) d))) .......... [PASS] --- TAI and UTC conversions --- 43. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 44. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 45. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 46. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 47. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 48. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 49. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 50. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 51. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 52. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 53. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 54. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 55. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 56. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 57. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 58. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 59. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 60. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 61. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 62. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 63. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 64. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 65. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 66. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 67. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 68. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 69. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 70. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 71. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 72. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 73. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 74. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 75. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 76. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 77. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 78. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 79. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 80. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 81. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 82. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 83. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 84. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 85. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 86. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 87. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 88. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 89. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 90. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 91. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 92. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 93. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 94. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 95. (let ((t (make-time time-utc 12345 1045789645.0))) (time=? t (time-tai->time-utc (time-utc->time-tai t)))) .......... [PASS] 96. (time-nanosecond (time-utc->time-tai (make-time time-utc 12345 1045789645.0))) .......... [PASS] --- monotonic time shares the TAI scale --- 97. (let ((u (make-time time-utc 0 915148800.0))) (= (time-second (time-utc->time-monotonic u)) (time-second (time-utc->time-tai u)))) .......... [PASS] 98. (= (time-second (time-monotonic->time-utc (make-time time-monotonic 0 915148832.0))) (time-second (time-tai->time-utc (make-time time-tai 0 915148832.0)))) .......... [PASS] 99. (time-type (time-utc->time-monotonic (make-time time-utc 0 915148800.0))) .......... [PASS] 100. (time-type (time-monotonic->time-tai (make-time time-monotonic 0 915148832.0))) .......... [PASS] 101. (time-type (time-tai->time-monotonic (make-time time-tai 0 915148832.0))) .......... [PASS] 102. (let ((m (make-time time-monotonic 42 915148832.0))) (time=? m (time-tai->time-monotonic (time-monotonic->time-tai m)))) .......... [PASS] --- the clock --- 103. (time-type (current-time)) .......... [PASS] 104. (map (lambda (ty) (time-type (current-time ty))) (list time-utc time-tai time-monotonic time-process time-thread)) .......... [PASS] 105. (time? (current-time)) .......... [PASS] 106. (let ((r (time-resolution))) (and (integer? r) (positive? r))) .......... [PASS] 107. (let loop ((tys (list time-utc time-tai time-monotonic time-process time-thread))) (cond ((null? tys) #t) ((positive? (time-resolution (car tys))) (loop (cdr tys))) (else #f))) .......... [PASS] 108. (let* ((a (current-time time-utc)) (b (current-time time-utc))) (time<=? a b)) .......... [PASS] 109. (let* ((a (current-time time-monotonic)) (b (current-time time-monotonic))) (time<=? a b)) .......... [PASS] --- direct clock readings --- 110. (number? (current-second)) .......... [PASS] 111. (number? (current-microsecond)) .......... [PASS] 112. (number? (process-microsecond)) .......... [PASS] 113. (positive? (current-second)) .......... [PASS] 114. (positive? (current-microsecond)) .......... [PASS] 115. (not (negative? (process-microsecond))) .......... [PASS] 116. (< (abs (- (/ (current-microsecond) 1000000.0) (current-second))) 2.0) .......... [PASS] 117. (integer? (current-timezone-offset)) .......... [PASS] 118. (< (abs (current-timezone-offset)) 86401) .......... [PASS] --- numeric representation --- 119. (integer? (time-second (time-utc->time-tai (make-time time-utc 0 915148800.0)))) .......... [PASS] 120. (time=? (make-time time-utc 0 456) (make-time time-utc 0 456.0)) .......... [PASS] 121. (= 0 (- (time-second (time-utc->time-tai (make-time time-utc 0 915148800.0))) (floor (time-second (time-utc->time-tai (make-time time-utc 0 915148800.0)))))) .......... [PASS] --- All tests complete. --- 121 out of 121 passed (100.00%) ---------------------------------------------------------------------------- RUNNING TESTS FOR LIBRARY format: ./skint test/skint/format.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR LIBRARY getopt: ./skint test/skint/getopt.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR LIBRARY ivset: ./skint test/skint/ivset.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR LIBRARY time: ./skint test/skint/time.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR LIBRARY date: ./skint test/skint/date.scm -------- --- date objects and accessors --- 1. (date? (utc-midnight 2000 1 1)) .......... [PASS] 2. (date? 42) .......... [PASS] 3. (date? (make-time time-utc 0 0)) .......... [PASS] 4. (parts (make-date 123 45 30 12 25 12 2023 3600)) .......... [PASS] 5. (parts (utc-midnight 1970 1 1)) .......... [PASS] 6. (date-zone-offset (make-date 0 0 0 12 4 7 1999 -18000)) .......... [PASS] 7. (date-second (make-date 0 60 59 23 31 12 1998 0)) .......... [PASS] --- day of the week --- 8. (date-week-day (utc-midnight 1970 1 1)) .......... [PASS] 9. (date-week-day (utc-midnight 2000 1 1)) .......... [PASS] 10. (date-week-day (utc-midnight 1999 1 1)) .......... [PASS] 11. (date-week-day (utc-midnight 1998 12 31)) .......... [PASS] 12. (date-week-day (utc-midnight 2023 12 25)) .......... [PASS] 13. (date-week-day (utc-midnight 2024 2 29)) .......... [PASS] 14. (let loop ((d 1) (acc (quote ()))) (if (> d 7) (reverse acc) (loop (+ d 1) (cons (date-week-day (utc-midnight 2024 9 d)) acc)))) .......... [PASS] --- day of the year --- 15. (date-year-day (utc-midnight 2000 1 1)) .......... [PASS] 16. (date-year-day (utc-midnight 2000 12 31)) .......... [PASS] 17. (date-year-day (utc-midnight 1999 12 31)) .......... [PASS] 18. (date-year-day (utc-midnight 2024 2 29)) .......... [PASS] 19. (date-year-day (utc-midnight 2000 3 1)) .......... [PASS] 20. (date-year-day (utc-midnight 1900 3 1)) .......... [PASS] 21. (date-year-day (utc-midnight 2000 3 1)) .......... [PASS] --- week of the year --- 22. (map (lambda (d) (date-week-number (utc-midnight 2000 1 d) 0)) (quote (1 2 3))) .......... [PASS] 23. (map (lambda (d) (date-week-number (utc-midnight 2000 1 d) 1)) (quote (1 2 3))) .......... [PASS] 24. (let ((d (utc-midnight 2000 1 2))) (not (= (date-week-number d 0) (date-week-number d 1)))) .......... [PASS] --- date to time --- 25. (time=? (make-time time-utc 0 0) (date->time-utc (utc-midnight 1970 1 1))) .......... [PASS] 26. (time-type (date->time-utc (utc-midnight 2000 1 1))) .......... [PASS] 27. (time-type (date->time-tai (utc-midnight 2000 1 1))) .......... [PASS] 28. (time-type (date->time-monotonic (utc-midnight 2000 1 1))) .......... [PASS] 29. (= 946684800.0 (time-second (date->time-utc (utc-midnight 2000 1 1)))) .......... [PASS] 30. (= (- (time-second (date->time-utc (make-date 0 0 0 12 15 6 2020 0))) (time-second (date->time-utc (make-date 0 0 0 12 15 6 2020 3600)))) 3600) .......... [PASS] 31. (time-nanosecond (date->time-utc (make-date 6320000 19 14 15 22 2 2003 -18000))) .......... [PASS] --- time to date --- 32. (same-date? (utc-midnight 1970 1 1) (time-utc->date (make-time time-utc 0 0) 0)) .......... [PASS] 33. (let ((d (make-date 0 30 45 12 25 12 2023 0))) (same-date? d (time-utc->date (date->time-utc d) 0))) .......... [PASS] 34. (date-zone-offset (time-utc->date (date->time-utc (make-date 0 0 0 12 4 7 1999 -18000)) -18000)) .......... [PASS] 35. (let ((d (make-date 0 30 45 12 25 12 2023 0))) (same-date? d (time-tai->date (date->time-tai d) 0))) .......... [PASS] 36. (let ((d (make-date 0 30 45 12 25 12 2023 0))) (same-date? d (time-monotonic->date (date->time-monotonic d) 0))) .......... [PASS] 37. (date? (current-date)) .......... [PASS] 38. (date-zone-offset (current-date 0)) .......... [PASS] --- the leap second at the end of 1998 --- 39. (same-date? (make-date 0 59 59 23 31 12 1998 0) (time-tai->date (make-time time-tai 0 (+ 915148800.0 30)) 0)) .......... [PASS] 40. (same-date? (make-date 0 60 59 23 31 12 1998 0) (time-tai->date (make-time time-tai 0 (+ 915148800.0 31)) 0)) .......... [PASS] 41. (same-date? (make-date 0 0 0 0 1 1 1999 0) (time-tai->date (make-time time-tai 0 (+ 915148800.0 32)) 0)) .......... [PASS] 42. (time=? (date->time-utc (make-date 0 60 59 23 31 12 1998 0)) (date->time-utc (make-date 0 0 0 0 1 1 1999 0))) .......... [PASS] 43. (time=? (make-time time-utc 0 (- 915148800.0 1)) (date->time-utc (make-date 0 59 59 23 31 12 1998 0))) .......... [PASS] --- zone offsets --- 44. (time=? (make-time time-utc 6320000 1045944859.0) (date->time-utc (make-date 6320000 19 14 15 22 2 2003 -18000))) .......... [PASS] 45. (time=? (make-time time-tai 6320000 1045944891.0) (date->time-tai (make-date 6320000 19 14 15 22 2 2003 -18000))) .......... [PASS] 46. (= (- (time-second (date->time-utc (make-date 0 0 0 12 15 6 2020 -18000))) (time-second (date->time-utc (make-date 0 0 0 12 15 6 2020 19800)))) 37800) .......... [PASS] --- date to ISO 8601 string --- 47. (date->iso-8601 (utc-midnight 1970 1 1)) .......... [PASS] 48. (date->iso-8601 (utc-midnight 2000 1 1)) .......... [PASS] 49. (date->iso-8601 (make-date 0 6 5 4 3 2 2001 0)) .......... [PASS] 50. (date->iso-8601 (utc-midnight 1 1 1)) .......... [PASS] 51. (date->iso-8601 (make-date 123456789 30 45 12 25 12 2023 0)) .......... [PASS] 52. (date->iso-8601 (make-date 0 30 45 12 25 12 2023 0)) .......... [PASS] 53. (date->iso-8601 (make-date 1 30 45 12 25 12 2023 0)) .......... [PASS] 54. (date->iso-8601 (make-date 0 0 30 10 15 6 2020 19800)) .......... [PASS] 55. (date->iso-8601 (make-date 0 0 0 12 4 7 1999 -18000)) .......... [PASS] 56. (date->iso-8601 (make-date 0 60 59 23 31 12 1998 0)) .......... [PASS] 57. (date->iso-8601 (utc-midnight -1 1 1)) .......... [PASS] 58. (date->iso-8601 (utc-midnight 12345 1 1)) .......... [PASS] 59. (quote (date->iso-8601 42)) .......... [PASS] 60. (quote (date->iso-8601 (make-time time-utc 0 0))) .......... [PASS] --- ISO 8601 string to date --- 61. (parts (iso-8601->date "1970-01-01T00:00:00Z")) .......... [PASS] 62. (parts (iso-8601->date "2001-02-03T04:05:06Z")) .......... [PASS] 63. (date-zone-offset (iso-8601->date "1970-01-01T00:00:00z")) .......... [PASS] 64. (date-hour (iso-8601->date "2020-06-15t10:30:00Z")) .......... [PASS] 65. (date-hour (iso-8601->date "2020-06-15 10:30:00Z")) .......... [PASS] 66. (date-zone-offset (iso-8601->date "2020-06-15T10:30:00")) .......... [PASS] 67. (date-zone-offset (iso-8601->date "2020-06-15T10:30:00+05:30")) .......... [PASS] 68. (date-zone-offset (iso-8601->date "1999-07-04T12:00:00-05:00")) .......... [PASS] 69. (date-nanosecond (iso-8601->date "2023-12-25T12:45:30.123456789Z")) .......... [PASS] 70. (date-nanosecond (iso-8601->date "2023-12-25T12:45:30.5Z")) .......... [PASS] 71. (date-nanosecond (iso-8601->date "2023-12-25T12:45:30.123Z")) .......... [PASS] 72. (date-second (iso-8601->date "1998-12-31T23:59:60Z")) .......... [PASS] 73. (date-year (iso-8601->date "-0001-01-01T00:00:00Z")) .......... [PASS] 74. (date-year (iso-8601->date "+2020-06-15T10:30:00Z")) .......... [PASS] 75. (date-year (iso-8601->date "+12345-01-01T00:00:00Z")) .......... [PASS] --- ISO 8601 round trips --- 76. (date->iso-8601 (iso-8601->date s)) .......... [PASS] 77. (date->iso-8601 (iso-8601->date s)) .......... [PASS] 78. (date->iso-8601 (iso-8601->date s)) .......... [PASS] 79. (date->iso-8601 (iso-8601->date s)) .......... [PASS] 80. (date->iso-8601 (iso-8601->date s)) .......... [PASS] 81. (date->iso-8601 (iso-8601->date s)) .......... [PASS] 82. (date->iso-8601 (iso-8601->date s)) .......... [PASS] 83. (date->iso-8601 (iso-8601->date s)) .......... [PASS] 84. (date->iso-8601 (iso-8601->date s)) .......... [PASS] 85. (let ((d (make-date 123456789 30 45 12 25 12 2023 19800))) (same-date? d (iso-8601->date (date->iso-8601 d)))) .......... [PASS] --- malformed ISO 8601 input --- 86. (quote (iso-8601->date "")) .......... [PASS] 87. (quote (iso-8601->date 42)) .......... [PASS] 88. (quote (iso-8601->date "20200615T103000Z")) .......... [PASS] 89. (quote (iso-8601->date "2020-06-15T10")) .......... [PASS] 90. (quote (iso-8601->date "2020-13-15T10:30:00Z")) .......... [PASS] 91. (quote (iso-8601->date "2020-06-32T10:30:00Z")) .......... [PASS] 92. (quote (iso-8601->date "2020-06-15X10:30:00Z")) .......... [PASS] 93. (quote (iso-8601->date "2020-06-15T10:30:00Q")) .......... [PASS] 94. (quote (iso-8601->date "2020-06-15T10:30:00+0530")) .......... [PASS] 95. (quote (iso-8601->date "2020-06-15T10:30:00+05")) .......... [PASS] --- All tests complete. --- 95 out of 95 passed (100.00%) --- predicates --- 1. (fixnum? 32767) .......... [PASS] 2. (fixnum? 1.1) .......... [PASS] 3. (fixnum? 0) .......... [PASS] 4. (fixnum? "0") .......... [PASS] 5. (fixnum? fx-greatest) .......... [PASS] 6. (fixnum? fx-least) .......... [PASS] 7. (fx=? 1 1 1) .......... [PASS] 8. (fx=? 1 2 2) .......... [PASS] 9. (fx=? 1 1 2) .......... [PASS] 10. (fx=? 1 2 3) .......... [PASS] 11. (fx? 3 2 1) .......... [PASS] 14. (fx>? 2 1 1) .......... [PASS] 15. (fx<=? 1 1 2) .......... [PASS] 16. (fx<=? 1 2 1) .......... [PASS] 17. (fx>=? 2 1 1) .......... [PASS] 18. (fx>=? 1 2 1) .......... [PASS] 19. (list (fx<=? 1 1 2) (fx<=? 2 1 3)) .......... [PASS] 20. (fx!=? 1 2) .......... [PASS] 21. (fx!=? 2 2) .......... [PASS] 22. (fxzero? 0) .......... [PASS] 23. (fxzero? 1) .......... [PASS] 24. (fxpositive? 0) .......... [PASS] 25. (fxpositive? 1) .......... [PASS] 26. (fxpositive? -1) .......... [PASS] 27. (fxnegative? 0) .......... [PASS] 28. (fxnegative? 1) .......... [PASS] 29. (fxnegative? -1) .......... [PASS] 30. (fxodd? 0) .......... [PASS] 31. (fxodd? 1) .......... [PASS] 32. (fxodd? -1) .......... [PASS] 33. (fxodd? 102) .......... [PASS] 34. (fxeven? 0) .......... [PASS] 35. (fxeven? 1) .......... [PASS] 36. (fxeven? -2) .......... [PASS] 37. (fxeven? 102) .......... [PASS] --- basic arithmetic --- 38. (fx+ 3 4) .......... [PASS] 39. (fx* 4 3) .......... [PASS] 40. (fx- 3 4) .......... [PASS] 41. (fxneg 3) .......... [PASS] 42. (fxabs -7) .......... [PASS] 43. (fxabs 7) .......... [PASS] 44. (fx+ 1 2 3 4) .......... [PASS] 45. (fx+) .......... [PASS] 46. (fx+ 1) .......... [PASS] 47. (fx*) .......... [PASS] 48. (fx* 2 3 4) .......... [PASS] 49. (fx- 10) .......... [PASS] 50. (fx- 10 1 2) .......... [PASS] 51. (fx/ 12 3) .......... [PASS] 52. (fx/ 12 3 2) .......... [PASS] 53. (fx/ 12 -3) .......... [PASS] 54. (fxmax 3 4) .......... [PASS] 55. (fxmax 3 5 4) .......... [PASS] 56. (fxmin 3 4) .......... [PASS] 57. (fxmin 3 5 4) .......... [PASS] 58. (fxmin 3) .......... [PASS] 59. (fxmax 1 9 4) .......... [PASS] 60. (fxgcd) .......... [PASS] 61. (fxgcd 12 18) .......... [PASS] 62. (fxgcd 12 18 8) .......... [PASS] 63. (fxgcd -12 18) .......... [PASS] 64. (fxgcd 12) .......... [PASS] 65. (fxexpt 2 10) .......... [PASS] 66. (fxexpt 2 0) .......... [PASS] 67. (fxexpt -2 3) .......... [PASS] 68. (fxexpt 1 1000) .......... [PASS] 69. (fxexpt -1 1001) .......... [PASS] 70. (fxexpt 2 (fx- fx-width 2)) .......... [PASS] 71. (fxexpt 2 (fx- fx-width 1)) .......... [PASS] 72. (fxexpt -2 (fx- fx-width 1)) .......... [PASS] 73. (fxexpt -2 fx-width) .......... [PASS] 74. (fxexpt 3 100) .......... [PASS] 75. (fxexpt 0 3) .......... [PASS] 76. (list (and (fxzero? (fxexpt 3 100)) (not (fxzero? 3))) (and (fxzero? (fxexpt 0 3)) (not (fxzero? 0)))) .......... [PASS] --- overflow wraps modulo 2^fx-width --- 77. (fx+ fx-greatest 1) .......... [PASS] 78. (fx- fx-least 1) .......... [PASS] 79. (fx+ fx-greatest fx-greatest) .......... [PASS] 80. (fx+ fx-least fx-least) .......... [PASS] 81. (fx- fx-greatest fx-least) .......... [PASS] 82. (fx* fx-greatest fx-greatest) .......... [PASS] 83. (fx* fx-least fx-least) .......... [PASS] 84. (fx* fx-least -1) .......... [PASS] 85. (fxneg fx-least) .......... [PASS] 86. (fxabs fx-least) .......... [PASS] 87. (fxquotient fx-least -1) .......... [PASS] 88. (fx/ fx-least -1) .......... [PASS] 89. (fx- 0 fx-least) .......... [PASS] 90. (fxsll 1 (fx- fx-width 1)) .......... [PASS] 91. (fxsll fx-greatest 1) .......... [PASS] 92. (fx* fx-half 4) .......... [PASS] 93. (fx+ (fx* 2 fx-half) (fx* 2 fx-half)) .......... [PASS] 94. (fx+ (fx* fx-half 4) 7) .......... [PASS] 95. (fx* fx-half 5) .......... [PASS] 96. (fx=? (fx* (fx+ fx-greatest 3) 5) (fx+ (fx* fx-greatest 5) 15)) .......... [PASS] --- the three division operators --- 97. (fxquotient 5 2) .......... [PASS] 98. (fxquotient -5 2) .......... [PASS] 99. (fxquotient 5 -2) .......... [PASS] 100. (fxquotient -5 -2) .......... [PASS] 101. (fxremainder 13 4) .......... [PASS] 102. (fxremainder -13 4) .......... [PASS] 103. (fxremainder 13 -4) .......... [PASS] 104. (fxremainder -13 -4) .......... [PASS] 105. (fxmodquo -13 4) .......... [PASS] 106. (fxmodulo -13 4) .......... [PASS] 107. (fxmodquo 13 -4) .......... [PASS] 108. (fxmodulo 13 -4) .......... [PASS] 109. (fxmodquo 13 4) .......... [PASS] 110. (fxmodulo 13 4) .......... [PASS] 111. (fxeucquo -13 4) .......... [PASS] 112. (fxeucrem -13 4) .......... [PASS] 113. (fxeucquo 13 -4) .......... [PASS] 114. (fxeucrem 13 -4) .......... [PASS] 115. (fxeucquo 13 4) .......... [PASS] 116. (fxeucrem 13 4) .......... [PASS] 117. (list (fxquotient 13 4) (fxremainder 13 4) (fxmodquo 13 4) (fxmodulo 13 4) (fxeucquo 13 4) (fxeucrem 13 4)) .......... [PASS] --- %fxsqrt --- 118. (%fxsqrt 32) .......... [PASS] 119. (%fxsqrt 0) .......... [PASS] 120. (%fxsqrt 1) .......... [PASS] 121. (%fxsqrt 36) .......... [PASS] 122. (%fxsqrt 48) .......... [PASS] 123. (let* ((rem 0) (root (%fxsqrt 32 (set& rem)))) (list root rem)) .......... [PASS] 124. (let* ((rem -1) (root (%fxsqrt 36 (set& rem)))) (list root rem)) .......... [PASS] 125. (let* ((rem 0) (root (%fxsqrt 32 (set& rem)))) (fx+ (fx* root root) rem)) .......... [PASS] --- bitwise operations --- 126. (fxnot 0) .......... [PASS] 127. (fxnot -1) .......... [PASS] 128. (fxnot 10) .......... [PASS] 129. (fxnot -37) .......... [PASS] 130. (fxand 0 1) .......... [PASS] 131. (fxand 14 6) .......... [PASS] 132. (fxand 11 26) .......... [PASS] 133. (fxand 37 12) .......... [PASS] 134. (fxand -2 7) .......... [PASS] 135. (fxand) .......... [PASS] 136. (fxior 10 12) .......... [PASS] 137. (fxior 3 10) .......... [PASS] 138. (fxior) .......... [PASS] 139. (fxxor 10 12) .......... [PASS] 140. (fxxor 3 10) .......... [PASS] 141. (fxxor) .......... [PASS] 142. (fxeqv 10 12) .......... [PASS] 143. (fxeqv) .......... [PASS] 144. (fxeqv 10) .......... [PASS] 145. (fxeqv 5 5) .......... [PASS] 146. (fxsll 1 4) .......... [PASS] 147. (fxsll -1 4) .......... [PASS] 148. (fxsll 1 0) .......... [PASS] 149. (fxsra 256 4) .......... [PASS] 150. (fxsra -256 4) .......... [PASS] 151. (fxsra -1 1) .......... [PASS] 152. (fxsrl 256 4) .......... [PASS] 153. (fxsrl -1 1) .......... [PASS] 154. (fxlength 0) .......... [PASS] 155. (fxlength 1) .......... [PASS] 156. (fxlength -1) .......... [PASS] 157. (fxlength 7) .......... [PASS] 158. (fxlength -7) .......... [PASS] 159. (fxlength 8) .......... [PASS] 160. (fxlength -8) .......... [PASS] 161. (fxlength 128) .......... [PASS] 162. (fxlength 255) .......... [PASS] 163. (fxlength 256) .......... [PASS] 164. (fxlength fx-least) .......... [PASS] 165. (fxlength fx-greatest) .......... [PASS] 166. (fxbit-count 12) .......... [PASS] 167. (fxbit-count 0) .......... [PASS] 168. (fxbit-count 1) .......... [PASS] 169. (fxbit-count 2) .......... [PASS] 170. (fxbit-count 3) .......... [PASS] 171. (fxbit-count 255) .......... [PASS] 172. (fxbit-count -1) .......... [PASS] 173. (fxbit-count -2) .......... [PASS] 174. (fxbit-count -3) .......... [PASS] 175. (fxbit-count -4) .......... [PASS] 176. (fxbit-count -8) .......... [PASS] 177. (fxbit-count -16) .......... [PASS] --- carry operations --- 178. (let* ((c 0) (q (fxaddc fx-greatest fx-greatest (set& c)))) (list q c)) .......... [PASS] 179. (let* ((c 5) (q (fxaddc 1 2 (set& c)))) (list q c)) .......... [PASS] 180. (let* ((c 0) (q (fxaddc 0 0 (set& c)))) (list q c)) .......... [PASS] 181. (let* ((c 0) (q (fxsubc 1 2 (set& c)))) (list q c)) .......... [PASS] 182. (let* ((c 1) (q (fxsubc fx-least fx-greatest (set& c)))) (list q c)) .......... [PASS] 183. (let* ((c 0) (q (fxmulc fx-greatest fx-greatest (set& c)))) (list q c)) .......... [PASS] 184. (let* ((c 0) (q (fxmulc 2 3 (set& c)))) (list q c)) .......... [PASS] 185. (let* ((c 4) (q (fxmulc 2 3 (set& c)))) (list q c)) .......... [PASS] 186. (let* ((c 0) (q (fxmulc (fx- fx-half 1) 4 (set& c)))) (list q c)) .......... [PASS] --- fxfmar --- 187. (fxfmar 536870911 536870911 0 1000) .......... [PASS] 188. (fxfmar 7 6 5 10) .......... [PASS] 189. (fxfmar 5 4 0 10) .......... [PASS] 190. (fxfmar 0 0 7 10) .......... [PASS] 191. (fxfmar 3 4 0 10) .......... [PASS] 192. (fxfmar -7 6 5 10) .......... [PASS] 193. (fxfmar 7 6 5 -10) .......... [PASS] 194. (fxfmar -7 6 5 -10) .......... [PASS] 195. (fx=? (fxfmar 3 4 5 7) (fxremainder (fx+ (fx* 3 4) 5) 7)) .......... [PASS] --- conversion --- 196. (fixnum->flonum 42) .......... [PASS] 197. (fixnum->flonum 0) .......... [PASS] 198. (fixnum->flonum -1) .......... [PASS] 199. (flonum? (fixnum->flonum 3)) .......... [PASS] --- All tests complete. --- 199 out of 199 passed (100.00%) --- predicates --- 1. (flonum? 1.0) .......... [PASS] 2. (flonum? 1) .......... [PASS] 3. (flonum? "1.0") .......... [PASS] 4. (flonum? posinf) .......... [PASS] 5. (flonum? nan) .......... [PASS] 6. (fl=? 1.0 1.0 1.0) .......... [PASS] 7. (fl=? 1.0 2.0 2.0) .......... [PASS] 8. (fl? 3.0 2.0 1.0) .......... [PASS] 11. (fl>? 2.0 1.0 1.0) .......... [PASS] 12. (fl<=? 1.0 1.0 2.0) .......... [PASS] 13. (fl<=? 1.0 2.0 1.0) .......... [PASS] 14. (fl>=? 2.0 1.0 1.0) .......... [PASS] 15. (fl>=? 1.0 2.0 1.0) .......... [PASS] 16. (fl!=? 1.0 2.0) .......... [PASS] 17. (fl!=? 2.0 2.0) .......... [PASS] 18. (flzero? 0.0) .......... [PASS] 19. (flzero? negzero) .......... [PASS] 20. (flzero? 1.0) .......... [PASS] 21. (flpositive? 1.0) .......... [PASS] 22. (flpositive? 0.0) .......... [PASS] 23. (flpositive? -1.0) .......... [PASS] 24. (flnegative? -1.0) .......... [PASS] 25. (flnegative? 0.0) .......... [PASS] 26. (flnegative? negzero) .......... [PASS] 27. (flinteger? 3.0) .......... [PASS] 28. (flinteger? 3.5) .......... [PASS] 29. (flinteger? posinf) .......... [PASS] 30. (flinteger? nan) .......... [PASS] 31. (flodd? 3.0) .......... [PASS] 32. (flodd? 4.0) .......... [PASS] 33. (fleven? 4.0) .......... [PASS] 34. (fleven? 3.0) .......... [PASS] 35. (flnan? nan) .......... [PASS] 36. (flnan? 1.0) .......... [PASS] 37. (flfinite? 1.0) .......... [PASS] 38. (flfinite? posinf) .......... [PASS] 39. (flfinite? nan) .......... [PASS] 40. (flinfinite? posinf) .......... [PASS] 41. (flinfinite? neginf) .......... [PASS] 42. (flinfinite? 1.0) .......... [PASS] 43. (flinfinite? nan) .......... [PASS] --- basic arithmetic --- 44. (fl+ 1.0 2.0 3.0) .......... [PASS] 45. (fl+) .......... [PASS] 46. (fl+ 1.0) .......... [PASS] 47. (fl*) .......... [PASS] 48. (fl* 2.0 3.0 4.0) .......... [PASS] 49. (fl- 3.0) .......... [PASS] 50. (fl- 10.0 1.0 2.0) .......... [PASS] 51. (fl/ 2.0) .......... [PASS] 52. (fl/ 12.0 3.0 2.0) .......... [PASS] 53. (flneg 3.0) .......... [PASS] 54. (flabs -7.0) .......... [PASS] 55. (flabs 7.0) .......... [PASS] 56. (flinfinite? (flmin)) .......... [PASS] 57. (flpositive? (flmin)) .......... [PASS] 58. (flinfinite? (flmax)) .......... [PASS] 59. (flnegative? (flmax)) .......... [PASS] 60. (flmin 3.0 1.0 2.0) .......... [PASS] 61. (flmax 3.0 1.0 2.0) .......... [PASS] 62. (flmin 3.0) .......... [PASS] 63. (flgcd) .......... [PASS] 64. (flgcd 12.0 18.0) .......... [PASS] 65. (flgcd 12.0 18.0 8.0) .......... [PASS] 66. (flexpt 2.0 10.0) .......... [PASS] 67. (flsqrt 2.0) .......... [PASS] 68. (flsqrt 16.0) .......... [PASS] --- rounding --- 69. (flfloor 2.3) .......... [PASS] 70. (flfloor -1.2) .......... [PASS] 71. (flceiling -1.2) .......... [PASS] 72. (flceiling 2.3) .......... [PASS] 73. (fltruncate -1.7) .......... [PASS] 74. (fltruncate 1.7) .......... [PASS] 75. (flround 0.5) .......... [PASS] 76. (flround 1.5) .......... [PASS] 77. (flround 2.5) .......... [PASS] 78. (flround 3.5) .......... [PASS] 79. (flround 2.4) .......... [PASS] --- integer division --- 80. (flquotient -13.0 4.0) .......... [PASS] 81. (flremainder -13.0 4.0) .......... [PASS] 82. (flquotient 13.0 4.0) .......... [PASS] 83. (flremainder 13.0 4.0) .......... [PASS] 84. (flmodquo -13.0 4.0) .......... [PASS] 85. (flmodulo -13.0 4.0) .......... [PASS] 86. (flmodquo 13.0 -4.0) .......... [PASS] 87. (flmodulo 13.0 -4.0) .......... [PASS] --- exponents, logarithms and trigonometry --- 88. (flexp 0.0) .......... [PASS] 89. (flexp 1.0) .......... [PASS] 90. (fllog 100.0) .......... [PASS] 91. (fllog 1.0) .......... [PASS] 92. (fllog 100.0 10.0) .......... [PASS] 93. (fllog 8.0 2.0) .......... [PASS] 94. (fllog10 100.0) .......... [PASS] 95. (flsin 0.0) .......... [PASS] 96. (flcos 0.0) .......... [PASS] 97. (fltan 0.0) .......... [PASS] 98. (flasin 0.0) .......... [PASS] 99. (flacos 0.0) .......... [PASS] 100. (flatan 1.0) .......... [PASS] 101. (fl=? (flatan 1.0 1.0) (flatan 1.0)) .......... [PASS] 102. (flatan 1.0 -1.0) .......... [PASS] 103. (flsinh 0.0) .......... [PASS] 104. (flcosh 0.0) .......... [PASS] 105. (fltanh 0.0) .......... [PASS] --- decomposition --- 106. (flldexp 1.5 3) .......... [PASS] 107. (flldexp 1.5 0) .......... [PASS] 108. (flldexp 1.5 -1) .......... [PASS] 109. (let* ((ip 0.0) (fr (flmodf 3.75 (set& ip)))) (list fr ip)) .......... [PASS] 110. (let* ((ip 0.0) (fr (flmodf -3.75 (set& ip)))) (list fr ip)) .......... [PASS] 111. (let* ((e 0) (fr (flfrexp 12.0 (set& e)))) (list fr e)) .......... [PASS] 112. (let* ((e 0) (fr (flfrexp 12.0 (set& e)))) (and (fl<=? 0.5 fr) (flfixnum 3.7) .......... [PASS] 115. (flonum->fixnum -3.7) .......... [PASS] 116. (flonum->fixnum 0.0) .......... [PASS] 117. (fixnum? (flonum->fixnum 3.0)) .......... [PASS] --- c99-math: sign and adjacency --- 118. (flcopysign 3.0 -1.0) .......... [PASS] 119. (flcopysign 3.0 1.0) .......... [PASS] 120. (flcopysign -3.0 1.0) .......... [PASS] 121. (fl? (fladjacent 1.0 2.0) 1.0) .......... [PASS] 129. (fl= i (- (string-length s) 4)) found) ((and (char=? (string-ref s i) #\[) (char=? (string-ref s (+ i 1)) #\1) (char=? (string-ref s (+ i 2)) #\0) (char=? (string-ref s (+ i 3)) #\])) #t) (else (loop (+ i 1) found)))))) .......... [PASS] 11. (out (lambda () (define t (trace-lambda t (n) (if (= n 0) (quote done) (t (- n 1))))) (t 2))) .......... [PASS] --- values --- 12. (out (lambda () ((trace-lambda two (x) (values x (* x 2))) 4))) .......... [PASS] 13. (call-with-values (lambda () (val (lambda () ((trace-lambda two (x) (values x (* x 2))) 4)))) list) .......... [PASS] 14. (out (lambda () ((trace-lambda none () (values))))) .......... [PASS] --- trace-let --- 15. (val (lambda () (trace-let fact ((n 5)) (if (= n 0) 1 (* n (fact (- n 1))))))) .......... [PASS] 16. (out (lambda () (trace-let fact ((n 2)) (if (= n 0) 1 (* n (fact (- n 1))))))) .......... [PASS] 17. (out (lambda () (trace-let here () 42))) .......... [PASS] 18. (val (lambda () (trace-let g ((n 2)) (define m (* n 10)) m))) .......... [PASS] 19. (val (lambda () (trace-let g ((a 1) (b 2) (c 3)) (+ a b c)))) .......... [PASS] --- trace-do --- 20. (out (lambda () (trace-do ((old (quote (a b c)) (cdr old)) (new (quote ()) (cons (car old) new))) ((null? old) new)))) .......... [PASS] 21. (val (lambda () (trace-do ((old (quote (a b c)) (cdr old)) (new (quote ()) (cons (car old) new))) ((null? old) new)))) .......... [PASS] 22. (out (lambda () (trace-do ((i 0 (+ i 1)) (fixed 9)) ((= i 2) fixed)))) .......... [PASS] 23. (val (lambda () (let ((n 0)) (trace-do ((i 0 (+ i 1))) ((= i 3) n) (set! n (+ n 1)))))) .......... [PASS] 24. (val (lambda () (trace-do ((i 0 (+ i 1))) ((= i 3) (define r (* i 2)) r)))) .......... [PASS] 25. (let ((s (out (lambda () (trace-do ((i 0 (+ i 1))) ((= i 1))))))) (substring s 0 16)) .......... [PASS] 26. (out (lambda () (trace-do ((i 0 (+ i 1))) ((= i 4) (quote done))))) .......... [PASS] --- trace-define --- 27. (out (lambda () (plus 3 4))) .......... [PASS] 28. (val (lambda () (plus 3 4))) .......... [PASS] 29. (out (lambda () (variadic 1 2 3))) .......... [PASS] 30. (out (lambda () (timesthree 5))) .......... [PASS] 31. (val (lambda () (let () (trace-define inner (lambda (x y) (+ x y))) (list (inner 3 4) (+ 5 6))))) .......... [PASS] --- trace-case-lambda --- 32. (out (lambda () (pick 7))) .......... [PASS] 33. (out (lambda () (pick 7 8))) .......... [PASS] 34. (out (lambda () (pick 7 8 9))) .......... [PASS] 35. (val (lambda () ((trace-case-lambda cl ((x) (define d (* x 2)) (list (quote one) d))) 7))) .......... [PASS] --- trace and untrace --- 36. (trace sq) .......... [PASS] 37. (out (lambda () (sq 3))) .......... [PASS] 38. (trace) .......... [PASS] 39. (trace cube) .......... [PASS] 40. (trace) .......... [PASS] 41. (untrace sq) .......... [PASS] 42. (out (lambda () (sq 3))) .......... [PASS] 43. (val (lambda () (sq 3))) .......... [PASS] 44. (untrace sq) .......... [PASS] 45. (untrace) .......... [PASS] 46. (trace) .......... [PASS] 47. (begin (trace sq) (set! sq (lambda (x) 0)) (trace)) .......... [PASS] 48. (list (untrace sq) (sq 5)) .......... [PASS] 49. (begin (set! cube (lambda (x) (* x x x))) (trace cube) (trace cube) (out (lambda () (cube 2)))) .......... [PASS] 50. (untrace) .......... [PASS] --- trace-output-port and trace-print --- 51. (port? (trace-output-port)) .......... [PASS] 52. (eq? (trace-print) write) .......... [PASS] 53. (out (lambda () (parameterize ((trace-print (lambda (x port) (display "<" port) (display x port) (display ">" port)))) (double 3)))) .......... [PASS] 54. (out (lambda () ((trace-lambda id (s) s) "hi"))) .......... [PASS] 55. (let ((p (open-output-string))) (parameterize ((trace-output-port p)) (double 1)) (let ((q (open-output-string))) (parameterize ((trace-output-port q)) #f) (get-output-string q))) .......... [PASS] --- All tests complete. --- 55 out of 55 passed (100.00%) --- print follows write --- 1. (pr 40 "1") .......... [PASS] 2. (pr 40 "(a b c)") .......... [PASS] 3. (pr 40 "\"a string\"") .......... [PASS] 4. (pr 20 "(aaaa bbbb cccc dddd eeee ffff)") .......... [PASS] 5. (pr 20 "(let ((x 1) (y 2)) (display x))") .......... [PASS] 6. (printed obj) .......... [PASS] 7. (printed obj) .......... [PASS] 8. (printed obj) .......... [PASS] 9. (printed obj) .......... [PASS] 10. (printed obj) .......... [PASS] 11. (printed obj) .......... [PASS] 12. (printed obj) .......... [PASS] 13. (printed obj) .......... [PASS] 14. (printed obj) .......... [PASS] 15. (printed obj) .......... [PASS] 16. (printed obj) .......... [PASS] 17. (printed obj) .......... [PASS] 18. (printed obj) .......... [PASS] 19. (printed obj) .......... [PASS] 20. (printed obj) .......... [PASS] 21. (printed obj) .......... [PASS] 22. (printed obj) .......... [PASS] 23. (printed obj) .......... [PASS] 24. (printed obj) .......... [PASS] 25. (printed obj) .......... [PASS] 26. (printed obj) .......... [PASS] 27. (printed obj) .......... [PASS] 28. (printed obj) .......... [PASS] 29. (printed obj) .......... [PASS] 30. (printed obj) .......... [PASS] 31. (printed obj) .......... [PASS] 32. (printed obj) .......... [PASS] 33. (printed (list (quote quote) (quote x))) .......... [PASS] 34. (printed (datum "'(a b)")) .......... [PASS] 35. (printed (datum "`(,a ,@b)")) .......... [PASS] 36. (printed (datum "#0='#0#")) .......... [PASS] 37. (printed (list (quote quote) (quote x)) print-indent 0 print-width 5) .......... [PASS] 38. (pp 40 "'x") .......... [PASS] --- print-graph and print-circle: the three marking modes --- 39. (printed obj print-graph #t) .......... [PASS] 40. (printed obj print-graph #t) .......... [PASS] 41. (printed obj print-graph #t) .......... [PASS] 42. (printed obj print-graph #t) .......... [PASS] 43. (printed obj print-graph #t) .......... [PASS] 44. (printed obj print-graph #t) .......... [PASS] 45. (printed obj print-graph #t) .......... [PASS] 46. (printed obj print-graph #t) .......... [PASS] 47. (printed obj print-graph #t) .......... [PASS] 48. (printed obj print-graph #t) .......... [PASS] 49. (printed obj print-graph #t) .......... [PASS] 50. (printed obj print-graph #t) .......... [PASS] 51. (printed obj print-graph #t) .......... [PASS] 52. (printed obj print-graph #t) .......... [PASS] 53. (printed obj print-graph #t) .......... [PASS] 54. (printed obj print-graph #t) .......... [PASS] 55. (printed obj print-graph #t) .......... [PASS] 56. (printed obj print-graph #t) .......... [PASS] 57. (printed obj print-graph #t) .......... [PASS] 58. (printed obj print-graph #t) .......... [PASS] 59. (printed obj print-graph #t) .......... [PASS] 60. (printed obj print-graph #t) .......... [PASS] 61. (printed obj print-graph #t) .......... [PASS] 62. (printed obj print-graph #t) .......... [PASS] 63. (printed obj print-graph #t) .......... [PASS] 64. (printed obj print-graph #t) .......... [PASS] 65. (printed obj print-graph #t) .......... [PASS] 66. (printed obj print-circle #f) .......... [PASS] 67. (printed obj print-circle #f) .......... [PASS] 68. (printed obj print-circle #f) .......... [PASS] 69. (printed obj print-circle #f) .......... [PASS] 70. (printed obj print-circle #f) .......... [PASS] 71. (printed obj print-circle #f) .......... [PASS] 72. (printed obj print-circle #f) .......... [PASS] 73. (printed obj print-circle #f) .......... [PASS] 74. (printed obj print-circle #f) .......... [PASS] 75. (printed obj print-circle #f) .......... [PASS] 76. (printed obj print-circle #f) .......... [PASS] 77. (printed obj print-circle #f) .......... [PASS] 78. (printed obj print-circle #f) .......... [PASS] 79. (printed obj print-circle #f) .......... [PASS] 80. (printed obj print-circle #f) .......... [PASS] 81. (printed obj print-circle #f) .......... [PASS] 82. (printed obj print-circle #f) .......... [PASS] 83. (printed obj print-circle #f) .......... [PASS] 84. (printed obj print-circle #f) .......... [PASS] 85. (printed obj print-circle #f) .......... [PASS] 86. (printed obj print-circle #f) .......... [PASS] 87. (printed obj print-circle #f) .......... [PASS] 88. (pr 100 "#0=(1 2 . #0#)") .......... [PASS] 89. (pr 100 "(#0=(a b) #0#)") .......... [PASS] 90. (pr 100 "#0=(1 2 . #0#)" print-graph #t print-circle #f) .......... [PASS] 91. (pr 100 "(#0=(a b) #0#)" print-graph #t print-circle #f) .......... [PASS] --- print-indent: inline, or laid out over lines --- 92. (printed (quote (a b c))) .......... [PASS] 93. (printed (quote (a b c)) print-indent 0) .......... [PASS] 94. (printed (quote (a b c)) print-indent 4) .......... [PASS] 95. (printed (quote (aaaa bbbb cccc dddd)) print-width 12) .......... [PASS] 96. (printed (quote (aaaa bbbb cccc dddd)) print-width 12 print-indent 0) .......... [PASS] 97. (printed (quote (aaaa bbbb cccc dddd)) print-width 20 print-indent 10) .......... [PASS] 98. (pr 24 "(define (f x) (if (> x 0) (g x) (h x)))" print-indent 0) .......... [PASS] 99. (pp 24 "(define (f x) (if (> x 0) (g x) (h x)))") .......... [PASS] --- pretty-print: breaking lines to the width --- 100. (pp 40 "1") .......... [PASS] 101. (pp 40 "'(a b)") .......... [PASS] 102. (pp 40 "'(a . b)") .......... [PASS] 103. (pp 40 "`(,a ,@b)") .......... [PASS] 104. (pp 80 "(let ((x 1) (y 2) (zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz 3)) (display x) (display y))") .......... [PASS] 105. (pp 20 "(aaaa bbbb cccc dddd eeee ffff)") .......... [PASS] 106. (pp 20 "(let ((x 1) (y 2)) (display x))") .......... [PASS] --- datum labels: cycles are always marked --- 107. (pp 40 "#0=(a . #0#)") .......... [PASS] 108. (pp 40 "(1 . #0=(2 . #0#))") .......... [PASS] 109. (pp 40 "#0=(1 #0# 3)") .......... [PASS] 110. (pp 40 "(#0=(1 #0# 3) #0#)") .......... [PASS] 111. (pp 40 "(#0=(1 . #0#) #1=(1 . #1#))") .......... [PASS] 112. (pp 40 "(#0=(a b . #0#) '#1=(a b a b . #1#))") .......... [PASS] 113. (pp 40 "#0=((1 . 2) (1 . 2) (3 . 4) . #0#)") .......... [PASS] 114. (pp 40 "#0=#(#0#)") .......... [PASS] 115. (pp 40 "#0=#(1 #0#)") .......... [PASS] 116. (pp 40 "#0=#(1 #0# 3)") .......... [PASS] 117. (pp 40 "(#0=#(1 #0# 3))") .......... [PASS] 118. (pp 40 "#0=#(#0# 2 #0#)") .......... [PASS] 119. (pp 100 "#0=(a . #0#)") .......... [PASS] 120. (pp 100 "(#0=(a . #0#) #0#)") .......... [PASS] 121. (pp 100 "#0=#(#0#)") .......... [PASS] 122. (pp 100 "#0=(a . (#1=(b) . #0#))") .......... [PASS] 123. (pp 100 "(#0=(a . #0#) #1=#(#1#))") .......... [PASS] 124. (pp 100 "(1 2 3)") .......... [PASS] 125. (pp 100 "#0=(a . #0#)") .......... [PASS] 126. (pp 100 "#0=#(#0#)") .......... [PASS] 127. (pp 100 "(#0=(1 . #0#) #1=(2 . #1#))") .......... [PASS] 128. (pp 100 "(#0=(a . #0#) #0#)") .......... [PASS] --- shared structure is expanded by default --- 129. (pr 100 "(#0=(1 . 2) #1=(1 . 2) #2=(3 . 4) #0# #1# #2#)") .......... [PASS] 130. (pr 100 "(#0=(a b) #0#)") .......... [PASS] 131. (pr 100 "(#0=(a) #0#)") .......... [PASS] 132. (pr 100 "#(#0=#(1) #0#)") .......... [PASS] 133. (pr 100 "#((#0=(a) #1=(b) #0#) #1#)") .......... [PASS] 134. (pr 100 "(#0=(a b) #0#)" print-graph #t) .......... [PASS] 135. (pr 100 "(#0=(a) #0#)" print-graph #t) .......... [PASS] 136. (pr 100 "#(#0=#(1) #0#)" print-graph #t) .......... [PASS] --- print-graph #t on shared and cyclic structure --- 137. (pp 40 "#0=(a . #0#)") .......... [PASS] 138. (pp 40 "(1 . #0=(2 . #0#))") .......... [PASS] 139. (pp 40 "#0=(1 #0# 3)") .......... [PASS] 140. (pp 40 "(#0=(1 #0# 3) #0#)") .......... [PASS] 141. (pp 40 "(#0=(1 . #0#) #1=(1 . #1#))") .......... [PASS] 142. (pp 40 "(#0=(a b . #0#) '#1=(a b a b . #1#))") .......... [PASS] 143. (pp 40 "(#0=(1 . 2) #1=(1 . 2) #2=(3 . 4) #0# #1# #2#)") .......... [PASS] 144. (pp 40 "#0=((1 . 2) (1 . 2) (3 . 4) . #0#)") .......... [PASS] 145. (pp 40 "#0=#(#0#)") .......... [PASS] 146. (pp 40 "#0=#(1 #0#)") .......... [PASS] 147. (pp 40 "#0=#(1 #0# 3)") .......... [PASS] 148. (pp 40 "(#0=#(1 #0# 3))") .......... [PASS] 149. (pp 40 "#0=#(#0# 2 #0#)") .......... [PASS] 150. (pp 100 "#0=(a . #0#)") .......... [PASS] 151. (pp 100 "(#0=(a . #0#) #0#)") .......... [PASS] 152. (pp 100 "#0=#(#0#)") .......... [PASS] 153. (pp 100 "(#0=(a b) #0#)") .......... [PASS] 154. (pp 100 "#0=(#1=(a) #1# . #0#)") .......... [PASS] 155. (pp 100 "(#0=(a . #0#) #1=(b c) #1#)") .......... [PASS] 156. (pp 100 "#0=(a . (#1=(b) . #0#))") .......... [PASS] 157. (pp 100 "#0=(#(#1=(a b) #1#) . #0#)") .......... [PASS] 158. (pp 100 "(#0=(a . #0#) #1=#(#1#))") .......... [PASS] 159. (pp 100 "#0=(#1=(a . #0#) #1#)") .......... [PASS] 160. (pp 100 "(1 2 3)") .......... [PASS] 161. (pp 100 "(#0=(a) #0#)") .......... [PASS] 162. (pp 100 "#0=(a . #0#)") .......... [PASS] 163. (pp 100 "(#0=(a) #1=(b . #1#) #0#)") .......... [PASS] 164. (pp 100 "#(#0=#(1) #0#)") .......... [PASS] 165. (pp 100 "#0=#(#0#)") .......... [PASS] 166. (pp 100 "(#0=(1 . #0#) #1=(2 . #1#))") .......... [PASS] 167. (pp 100 "#0=(#1=(a . #0#) . #1#)") .......... [PASS] 168. (pp 100 "(#0=(a . #0#) #0#)") .......... [PASS] 169. (pp 100 "#((#0=(a) #1=(b) #0#) #1#)") .......... [PASS] --- print-level and print-length --- 170. (cut 0 10 "a") .......... [PASS] 171. (cut 0 10 "(a b c)") .......... [PASS] 172. (cut 0 10 "#(a b c)") .......... [PASS] 173. (cut 1 10 "(a b c)") .......... [PASS] 174. (cut 1 10 "((a b) c)") .......... [PASS] 175. (cut 1 10 "#((a b) c)") .......... [PASS] 176. (cut 1 2 "(a b c d)") .......... [PASS] 177. (cut 1 2 "#(a b c d)") .......... [PASS] 178. (cut 1 2 "(a b . c)") .......... [PASS] 179. (cut 2 10 "((a b) (c d))") .......... [PASS] 180. (cut 2 10 "(((a)) b)") .......... [PASS] 181. (cut 2 10 "#(#(a b) #(c #(d)))") .......... [PASS] 182. (cut 2 2 "((a b c) (d e f) (g h i))") .......... [PASS] 183. (cut 2 2 "#((a b c) (d e f) (g h i))") .......... [PASS] 184. (cut 2 3 "(a (b c d e) f g)") .......... [PASS] 185. (cut 3 10 "(a b c d . e)") .......... [PASS] 186. (cut 3 10 "#(a (b . c) #(d e (f g)))") .......... [PASS] 187. (cut 2 10 "#(a (b . c) #(d e (f g)))") .......... [PASS] 188. (cut 1 10 "(a . b)") .......... [PASS] 189. (cut 1 1 "(a . b)") .......... [PASS] 190. (cut 2 10 "((a . b) . c)") .......... [PASS] 191. (cut 2 1 "((a . b) . c)") .......... [PASS] 192. (cut 3 2 "(a b c . d)") .......... [PASS] 193. (cut 0 #f "(a b c)") .......... [PASS] 194. (cut 1 #f "(a (b c) d)") .......... [PASS] 195. (cut 2 #f "(a (b (c)) d)") .......... [PASS] 196. (cut 0 #f "#(1 2 3)") .......... [PASS] 197. (cut 1 #f "#(1 #(2) 3)") .......... [PASS] 198. (cut 1 #f "(a b . #(c))") .......... [PASS] 199. (cut #f 0 "(a b c)") .......... [PASS] 200. (cut #f 1 "(a b c)") .......... [PASS] 201. (cut #f 3 "(a b c)") .......... [PASS] 202. (cut #f 0 "#(1 2 3)") .......... [PASS] 203. (cut #f 2 "#(1 2 3 4)") .......... [PASS] 204. (cut #f 1 "(a b . c)") .......... [PASS] 205. (cut #f 2 "(a b . c)") .......... [PASS] 206. (cut #f 2 "(a b c . d)") .......... [PASS] 207. (cut #f 1 "((a b) (c d))") .......... [PASS] 208. (cut 1 1 "((a b) (c d))") .......... [PASS] 209. (cut 2 1 "(((a) b) c)") .......... [PASS] 210. (cut 0 0 "(a b c)") .......... [PASS] 211. (cut 1 2 "((a b c) (d e f) (g h i))") .......... [PASS] 212. (cut 1 2 "#(#(a b c) #(d e f) #(g h i))") .......... [PASS] 213. (cut 1 #f "(a b . #(c d))") .......... [PASS] 214. (cut 1 #f "((a . b) . c)") .......... [PASS] 215. (cut 0 #f "#0=(a . #0#)") .......... [PASS] 216. (cut 1 #f "#0=(a . #0#)") .......... [PASS] 217. (cut 1 1 "#0=(a b c . #0#)") .......... [PASS] 218. (cut 2 2 "(#0=(a b) #0# #0#)") .......... [PASS] 219. (cut 1 2 "(#0=(a b) #0# #0#)") .......... [PASS] 220. (cut 2 #f "#0=(#(a #0#) b)") .......... [PASS] 221. (cut 1 #f "#0=(#(a #0#) b)") .......... [PASS] 222. (cut 2 1 "#0=(#(a #0#) b)") .......... [PASS] 223. (cut 2 #f "(#0=(a . b) #0# . #0#)") .......... [PASS] 224. (cut 1 #f "(#0=(a . b) #0# . #0#)") .......... [PASS] 225. (cut 3 2 "#0=((a . b) (#0# . c) d)") .......... [PASS] 226. (cut 1 1 "#0=((a . b) (#0# . c) d)") .......... [PASS] 227. (cut 2 #f "#0=(#(#0#) . #0#)") .......... [PASS] 228. (cut 1 #f "#0=(#(#0#) . #0#)") .......... [PASS] 229. (cut 2 2 "#0=(#1=(a b) #1# . #0#)") .......... [PASS] 230. (cut 1 2 "#0=(#1=(a b) #1# . #0#)") .......... [PASS] 231. (cut 2 #f "#0=(a . (#1=#(b #0#) . #1#))") .......... [PASS] 232. (cut 1 #f "#0=(a . (#1=#(b #0#) . #1#))") .......... [PASS] 233. (cut 2 1 "#0=(a . (#1=#(b #0#) . #1#))") .......... [PASS] 234. (cut 3 3 "(#0=(a . #0#) #1=#(#1#) #2=(b c) #2#)") .......... [PASS] 235. (cut 0 #f "#0=(a . #0#)") .......... [PASS] 236. (cut 1 #f "#0=(a . #0#)") .......... [PASS] 237. (cut 1 #f "(#0=(a b) #0#)") .......... [PASS] 238. (cut #f 1 "(#0=(a b c) #0#)") .......... [PASS] 239. (cut 0 #f "#0=#(#0#)") .......... [PASS] 240. (cut 1 #f "#0=#(#0#)") .......... [PASS] 241. (cut 1 #f "(#0=(a) #1=(#0#) #1#)") .......... [PASS] 242. (cut #f 1 "(a #0=(b) #0#)") .......... [PASS] 243. (cut #f 2 "(a #0=(b) c #0#)") .......... [PASS] 244. (cut 2 #f "#0=(a #1=(b . #0#) . #1#)") .......... [PASS] 245. (cut 1 #f "(#0=(a . b) #0#)") .......... [PASS] 246. (cut #f 1 "#0=(a b . #0#)") .......... [PASS] 247. (cut #f 2 "#0=(a b . #0#)") .......... [PASS] 248. (cut 0 #f "(#0=() #0#)") .......... [PASS] 249. (cut 1 #f "(#0=() #0#)") .......... [PASS] 250. (cut 1 1 "#(#0=#(a b c) #0#)") .......... [PASS] 251. (cut #f 1 "#(#0=#(a b c) #0#)") .......... [PASS] 252. (cut 1 2 "(#0=(a) b c . #0#)") .......... [PASS] 253. (cut 1 1 "((#0=(a) #0#) (#1=(b) #1#))") .......... [PASS] 254. (cut 1 #f "#0=#(#1=(a . #0#) #1#)") .......... [PASS] 255. (cut 0 0 "#0=(a #1=(b . #2=#(#1# c)) (#2# . d) #0# . #3=(e . #3#))") .......... [PASS] 256. (cut 0 1 "#0=(a #1=(b . #2=#(#1# c)) (#2# . d) #0# . #3=(e . #3#))") .......... [PASS] 257. (cut 0 2 "#0=(a #1=(b . #2=#(#1# c)) (#2# . d) #0# . #3=(e . #3#))") .......... [PASS] 258. (cut 0 3 "#0=(a #1=(b . #2=#(#1# c)) (#2# . d) #0# . #3=(e . #3#))") .......... [PASS] 259. (cut 1 0 "#0=(a #1=(b . #2=#(#1# c)) (#2# . d) #0# . #3=(e . #3#))") .......... [PASS] 260. (cut 1 1 "#0=(a #1=(b . #2=#(#1# c)) (#2# . d) #0# . #3=(e . #3#))") .......... [PASS] 261. (cut 1 2 "#0=(a #1=(b . #2=#(#1# c)) (#2# . d) #0# . #3=(e . #3#))") .......... [PASS] 262. (cut 1 3 "#0=(a #1=(b . #2=#(#1# c)) (#2# . d) #0# . #3=(e . #3#))") .......... [PASS] 263. (cut 2 0 "#0=(a #1=(b . #2=#(#1# c)) (#2# . d) #0# . #3=(e . #3#))") .......... [PASS] 264. (cut 2 1 "#0=(a #1=(b . #2=#(#1# c)) (#2# . d) #0# . #3=(e . #3#))") .......... [PASS] 265. (cut 2 2 "#0=(a #1=(b . #2=#(#1# c)) (#2# . d) #0# . #3=(e . #3#))") .......... [PASS] 266. (cut 2 3 "#0=(a #1=(b . #2=#(#1# c)) (#2# . d) #0# . #3=(e . #3#))") .......... [PASS] 267. (cut 3 0 "#0=(a #1=(b . #2=#(#1# c)) (#2# . d) #0# . #3=(e . #3#))") .......... [PASS] 268. (cut 3 1 "#0=(a #1=(b . #2=#(#1# c)) (#2# . d) #0# . #3=(e . #3#))") .......... [PASS] 269. (cut 3 2 "#0=(a #1=(b . #2=#(#1# c)) (#2# . d) #0# . #3=(e . #3#))") .......... [PASS] 270. (cut 3 3 "#0=(a #1=(b . #2=#(#1# c)) (#2# . d) #0# . #3=(e . #3#))") .......... [PASS] 271. (cut 0 0 "#0=(#1=(a (b)) #2=#(c d #1#) (e . #0#) f)") .......... [PASS] 272. (cut 0 1 "#0=(#1=(a (b)) #2=#(c d #1#) (e . #0#) f)") .......... [PASS] 273. (cut 0 2 "#0=(#1=(a (b)) #2=#(c d #1#) (e . #0#) f)") .......... [PASS] 274. (cut 0 3 "#0=(#1=(a (b)) #2=#(c d #1#) (e . #0#) f)") .......... [PASS] 275. (cut 1 0 "#0=(#1=(a (b)) #2=#(c d #1#) (e . #0#) f)") .......... [PASS] 276. (cut 1 1 "#0=(#1=(a (b)) #2=#(c d #1#) (e . #0#) f)") .......... [PASS] 277. (cut 1 2 "#0=(#1=(a (b)) #2=#(c d #1#) (e . #0#) f)") .......... [PASS] 278. (cut 1 3 "#0=(#1=(a (b)) #2=#(c d #1#) (e . #0#) f)") .......... [PASS] 279. (cut 2 0 "#0=(#1=(a (b)) #2=#(c d #1#) (e . #0#) f)") .......... [PASS] 280. (cut 2 1 "#0=(#1=(a (b)) #2=#(c d #1#) (e . #0#) f)") .......... [PASS] 281. (cut 2 2 "#0=(#1=(a (b)) #2=#(c d #1#) (e . #0#) f)") .......... [PASS] 282. (cut 2 3 "#0=(#1=(a (b)) #2=#(c d #1#) (e . #0#) f)") .......... [PASS] 283. (cut 3 0 "#0=(#1=(a (b)) #2=#(c d #1#) (e . #0#) f)") .......... [PASS] 284. (cut 3 1 "#0=(#1=(a (b)) #2=#(c d #1#) (e . #0#) f)") .......... [PASS] 285. (cut 3 2 "#0=(#1=(a (b)) #2=#(c d #1#) (e . #0#) f)") .......... [PASS] 286. (cut 3 3 "#0=(#1=(a (b)) #2=#(c d #1#) (e . #0#) f)") .......... [PASS] 287. (cut 3 4 "'`,,@(3 . #(a b c d e f g))))") .......... [PASS] 288. (cut 0 0 "#0='#0#") .......... [PASS] 289. (cut 0 1 "#0='#0#") .......... [PASS] 290. (cut 1 0 "#0='#0#") .......... [PASS] 291. (cut 1 1 "#0='#0#") .......... [PASS] 292. (cut 3 4 "#&#&#&#&(3 . #(a b c d e f g))))") .......... [PASS] 293. (cut 0 0 "#0=#�#") .......... [PASS] 294. (cut 0 1 "#0=#�#") .......... [PASS] 295. (cut 1 0 "#0=#�#") .......... [PASS] 296. (cut 1 1 "#0=#�#") .......... [PASS] --- print-level and print-length together --- 297. (cut 0 1 cut-form) .......... [PASS] 298. (cut 1 1 cut-form) .......... [PASS] 299. (cut 1 2 cut-form) .......... [PASS] 300. (cut 1 3 cut-form) .......... [PASS] 301. (cut 1 4 cut-form) .......... [PASS] 302. (cut 2 1 cut-form) .......... [PASS] 303. (cut 2 2 cut-form) .......... [PASS] 304. (cut 2 3 cut-form) .......... [PASS] 305. (cut 3 2 cut-form) .......... [PASS] 306. (cut 3 3 cut-form) .......... [PASS] 307. (cut 3 4 cut-form) .......... [PASS] 308. (cut 3 5 cut-form) .......... [PASS] --- print-radix --- 309. (pp 20 bv) .......... [PASS] 310. (pp 20 bv print-radix 10) .......... [PASS] 311. (pp 20 bv print-radix 8) .......... [PASS] 312. (pp 20 bv print-radix 16) .......... [PASS] 313. (pr 40 "10" print-radix 2) .......... [PASS] 314. (pr 40 "10" print-radix 8) .......... [PASS] 315. (pr 40 "10" print-radix 10) .......... [PASS] 316. (pr 40 "10" print-radix 16) .......... [PASS] --- print-brackets --- 317. (pr 40 "(let ((x 1) (y 2)) (display x))" print-brackets #t) .......... [PASS] 318. (pr 40 "(let ((x 1) (y 2)) (display x))" print-brackets #f) .......... [PASS] 319. (pp 20 "(let ((x 1) (y 2)) (display x))") .......... [PASS] 320. (pp 20 "(let ((x 1) (y 2)) (display x))" print-brackets #f) .......... [PASS] --- pretty-style --- 321. (pretty-style (quote lambda)) .......... [PASS] 322. (pretty-style (quote let*)) .......... [PASS] 323. (pretty-style (quote no-such-form-at-all)) .......... [PASS] 324. (pretty-style (quote my-binding-form)) .......... [PASS] 325. (pp 20 "(my-binding-form ((x 1) (y 2)) (display x))") .......... [PASS] --- pretty-print's own settings are defaults --- 326. (pp 20 "(let ((x 1) (y 2)) (display x))") .......... [PASS] 327. (pp 20 "(let ((x 1) (y 2)) (display x))" print-brackets #f) .......... [PASS] 328. (pp 20 "(let ((x 1) (y 2)) (display x))" print-indent #f) .......... [PASS] 329. (pp 100 "(#0=(a b) #0#)") .......... [PASS] 330. (pp 100 "(#0=(a b) #0#)" print-graph #t) .......... [PASS] --- parameter validation --- 331. (quote (parameterize ((print-width 0)) (quote unreachable))) .......... [PASS] 332. (quote (parameterize ((print-width -1)) (quote unreachable))) .......... [PASS] 333. (quote (parameterize ((print-width 1.5)) (quote unreachable))) .......... [PASS] 334. (quote (parameterize ((print-radix 3)) (quote unreachable))) .......... [PASS] 335. (quote (parameterize ((print-level -1)) (quote unreachable))) .......... [PASS] 336. (quote (parameterize ((print-length -1)) (quote unreachable))) .......... [PASS] 337. (quote (parameterize ((print-indent -1)) (quote unreachable))) .......... [PASS] 338. (quote (parameterize ((print-indent 1.5)) (quote unreachable))) .......... [PASS] 339. (quote (print 1 (open-output-string) print-width 0)) .......... [PASS] 340. (quote (print 1 (open-output-string) print-width)) .......... [PASS] 341. (pr 40 "1" print-width 0) .......... [PASS] 342. (print-width) .......... [PASS] 343. (print-circle) .......... [PASS] 344. (print-graph) .......... [PASS] 345. (print-radix) .......... [PASS] 346. (print-length) .......... [PASS] 347. (print-level) .......... [PASS] 348. (print-indent) .......... [PASS] 349. (print-brackets) .......... [PASS] --- printing to the current output port --- 350. (get-output-string p) .......... [PASS] 351. (get-output-string p) .......... [PASS] --- larger inputs: the printed form reads back unchanged --- 352. (round-trips? sexp1) .......... [PASS] 353. (round-trips? sexp1 print-width 40) .......... [PASS] 354. (round-trips? sexp1 print-width 200) .......... [PASS] 355. (round-trips? sexp2) .......... [PASS] 356. (round-trips? sexp2 print-width 90) .......... [PASS] 357. (round-trips? sexp2 print-width 40) .......... [PASS] 358. (> (line-count sexp1) 50) .......... [PASS] 359. (> (line-count sexp2 print-width 90) 50) .......... [PASS] 360. (> (line-count sexp1 print-width 40) (line-count sexp1 print-width 200)) .......... [PASS] 361. (> (line-count sexp2 print-width 40) (line-count sexp2 print-width 200)) .......... [PASS] 362. (> (line-count sexp1) 1) .......... [PASS] 363. (> (length (lines (printed sexp1 print-indent 0))) 1) .......... [PASS] 364. (length (lines (printed sexp1))) .......... [PASS] --- print-cursor: a left column marking where one pair starts --- 365. (print-cursor) .......... [PASS] 366. (prc l (cadr l)) .......... [PASS] 367. (prc l (cadr l) print-brackets #t) .......... [PASS] 368. (prc l l print-brackets #t) .......... [PASS] 369. (prc l (list (quote b) (quote c)) print-brackets #t) .......... [PASS] 370. (prc l (list 1) print-brackets #t) .......... [PASS] 371. (printed (datum "(let ((x 1)) x)") print-brackets #t) .......... [PASS] 372. (ppc 80 lt (cadddr lt) print-indent #f) .......... [PASS] 373. (prc (list (quote list) l l) l print-indent 0 print-width 12 print-brackets #t) .......... [PASS] 374. (prc (list (quote f) anc) anc print-brackets #t) .......... [PASS] 375. (ppc 20 fact-code (caddr (cadddr (caddr fact-code)))) .......... [PASS] 376. (ppc 20 fact-code (caddr (cadddr (caddr fact-code))) print-brackets #f) .......... [PASS] 377. (ppc 80 fact-code (cadddr (caddr fact-code))) .......... [PASS] 378. (ppc 80 fact-code (list (quote fact))) .......... [PASS] 379. (pp 80 "(let ((x 1) (y 2)) (display x) (+ x y))") .......... [PASS] 380. (ppc 80 lt (cadddr lt)) .......... [PASS] 381. (ppc 80 lt (cadr (cadr lt))) .......... [PASS] 382. (ppc 22 top g) .......... [PASS] 383. (ppc 22 top g print-graph #t) .......... [PASS] 384. (prc top g print-indent 4 print-width 24) .......... [PASS] 385. (length marked) .......... [PASS] 386. (and (pair? marked) (contains? (car marked) "[wrap")) .......... [PASS] 387. (ppc 80 deep (cadr (cadr deep)) print-level 2) .......... [PASS] 388. (ppc 80 deep (cadr (cadr (cadr deep))) print-level 2) .......... [PASS] 389. (ppc 30 guard-code (cadr guard-code)) .......... [PASS] 390. (ppc 20 cnd (caddr cnd)) .......... [PASS] 391. (ppc 80 qd (cadr (cadr qd))) .......... [PASS] 392. (ppc 80 qt (cadr qt)) .......... [PASS] 393. (quote (parameterize ((print-cursor (quote sym))) (quote unreachable))) .......... [PASS] 394. (quote (parameterize ((print-cursor 42)) (quote unreachable))) .......... [PASS] 395. (quote (parameterize ((print-cursor (vector 1))) (quote unreachable))) .......... [PASS] 396. (quote (prc (quote (a)) #t)) .......... [PASS] 397. (cursor-faults fact-code 80 1) .......... [PASS] 398. (cursor-faults fact-code 20 1) .......... [PASS] 399. (cursor-faults guard-code 80 1) .......... [PASS] 400. (cursor-faults guard-code 18 1) .......... [PASS] 401. (cursor-faults sexp1 30 7) .......... [PASS] --- print hooks --- 402. (printed (list (make-pt 1 2) 1) print-hooks pt-atom) .......... [PASS] 403. (parameterize ((print-hooks pt-atom)) (printed (list (make-pt 1 2) 1))) .......... [PASS] 404. (printed (make-pt 1 (quote (a b))) print-hooks pt-list) .......... [PASS] 405. (printed (make-pt 255 2) print-hooks pt-list print-radix 16) .......... [PASS] 406. (printed (make-pt 1 2) print-hooks pt-list print-length 1) .......... [PASS] 407. (let ((l (list (quote a)))) (printed (make-pt l l) print-hooks pt-list print-graph #t)) .......... [PASS] 408. (printed (make-pt (quote (1 2)) #f) print-hooks pt-rmac) .......... [PASS] 409. (printed (make-pt 1 2) print-hooks pt-bvec print-radix 2) .......... [PASS] 410. (printed (list (make-pt 1 2) (make-pt #f 2)) print-hooks pt-by-pred) .......... [PASS] 411. (printed (make-pt 1 2) print-hooks pt-both) .......... [PASS] 412. (printed (make-pt 1 2) print-hooks (add-print-hook pt-both pt? (pt-named "#"))) .......... [PASS] 413. (printed (make-pt 1 2) print-hooks (add-print-hook pt-atom pt? (pt-named "#"))) .......... [PASS] 414. (printed (make-pt 1 2) print-hooks pt-atom) .......... [PASS] 415. (not (not (string=? (printed (make-pt 1 2)) "#"))) .......... [PASS] 416. (printed (nv 0 3)) .......... [PASS] 417. (printed (nv 1 3)) .......... [PASS] 418. (printed (nv 2 3)) .......... [PASS] 419. (printed (nv 3 3)) .......... [PASS] 420. (printed (nv 10 2)) .......... [PASS] 421. (printed (nv 11 2)) .......... [PASS] 422. (not (reads-back? (nv 3 3))) .......... [PASS] 423. (not (reads-back? (nv 10 3))) .......... [PASS] 424. (printed (nv 2 6) print-indent 0 print-width 12) .......... [PASS] 425. (quote (print 1 (open-output-string) print-hooks 5)) .......... [PASS] --- All tests complete. --- 425 out of 425 passed (100.00%) -------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR LIBRARY fx: ./skint test/skint/fx.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR LIBRARY fl: ./skint test/skint/fl.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR LIBRARY trace: ./skint test/skint/trace.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR LIBRARY print: ./skint test/skint/print.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS --- what apropos-list returns --- 1. (ids-of (apropos-list (quote exact-integer-sq))) .......... [PASS] 2. (not (pair? (rows-of (apropos-list (quote exact-integer-sq))))) .......... [PASS] 3. (not (row-of (quote (scheme base)) (apropos-list (quote exact-integer-sq)))) .......... [PASS] 4. (apropos-list (quote no-such-identifier-anywhere)) .......... [PASS] 5. (shown (quote no-such-identifier-anywhere)) .......... [PASS] 6. (apropos-list "exact-integer-sq") .......... [PASS] 7. (apropos-list "demo-") .......... [PASS] 8. (not (memq (quote exact-integer?) (ids-of (apropos-list (quote act-int))))) .......... [PASS] 9. (not (memq (quote exact-integer?) (ids-of (apropos-list "integer?")))) .......... [PASS] 10. (apropos-list (quote EXACT-INTEGER-SQ)) .......... [PASS] 11. (not (row-of (quote (scheme base)) (apropos-list ""))) .......... [PASS] 12. (not (row-of (quote (skint)) (apropos-list ""))) .......... [PASS] 13. (not (row-of (quote (skint print)) (apropos-list ""))) .......... [PASS] 14. (not (row-of (quote (demo apropos)) (apropos-list ""))) .......... [PASS] --- the environment part --- 15. (apropos-list (quote exact-integer-sq) (interaction-environment)) .......... [PASS] 16. (not (memq (quote car) (ids-of (apropos-list (quote car))))) .......... [PASS] 17. (not (memq (quote define-values) (ids-of (apropos-list (quote define-values))))) .......... [PASS] 18. (ids-of (apropos-list (quote set-car!) (scheme-report-environment 5))) .......... [PASS] 19. (ids-of (apropos-list (quote set-car!) (null-environment 5))) .......... [PASS] 20. (rows-of (apropos-list (quote set-car!) (null-environment 5))) .......... [PASS] 21. (not (ascending? sym (length (shown (quote vector))) 8)) .......... [PASS] 50. (not (<= (longest-line (shown (quote vector))) 78)) .......... [PASS] 51. (not (indented? (shown (quote vector)))) .......... [PASS] 52. (not (member "(skint print):" (shown (quote print-width)))) .......... [PASS] --- errors --- 53. (quote (apropos-list 42)) .......... [PASS] 54. (quote (apropos-list #t)) .......... [PASS] 55. (quote (apropos 42)) .......... [PASS] 56. (quote (apropos-list (quote car) 42)) .......... [PASS] 57. (quote (apropos (quote car) "not an environment")) .......... [PASS] 57 out of 57 passed (100.00%) --- closure? --- 1. (closure? (lambda (x) x)) .......... [PASS] 2. (closure? car) .......... [PASS] 3. (closure? (vector-ref (deserialize-code "") 0)) .......... [PASS] 4. (closure? (vector 1 2)) .......... [PASS] 5. (closure? (quote car)) .......... [PASS] 6. (closure? (cons 1 2)) .......... [PASS] 7. (closure? 42) .......... [PASS] 8. (map car (global-values (lambda (v) (if (procedure? v) (not (closure? v)) (closure? v))))) .......... [PASS] 9. (filter-if procedure? *instruction-words*) .......... [PASS] 10. (filter-if closure? *instruction-words*) .......... [PASS] 11. (let ((p (open-output-string))) (display (vector-ref (deserialize-code "") 0) p) (let ((s (get-output-string p))) (and (>= (string-length s) 14) (string=? (substring s 0 14) "# (length *procedures*) 500)) .......... [PASS] 14. (count-if (lambda (n+p) (code-round-trips? (cdr n+p))) *procedures*) .......... [PASS] 15. (count-if (lambda (n+p) (string? (da-code (cdr n+p)))) *procedures*) .......... [PASS] --- the derived forms da-core has to put back --- 16. (count-if source-round-trips? derived-forms) .......... [PASS] 17. (car (expand (quote (fxfmar a b c d)))) .......... [PASS] 18. (car (expand (quote (inexact->string x 10 #f 3)))) .......... [PASS] 19. (car (expand (quote (%port-location p a b c d)))) .......... [PASS] 20. (not (bytecode-round-trips? (quote (lambda (a b c d) (fxfmar a b c (+ d 1)))))) .......... [PASS] 21. (not (bytecode-round-trips? (quote (lambda (x) (inexact->string x 10 #f 3))))) .......... [PASS] 22. (not (bytecode-round-trips? (quote (lambda (p) (%port-location p (box #f) (box #f) #f #f))))) .......... [PASS] 23. (not (memq (quote let) (list (car (form-of (quote (let ((x 1)) x))))))) .......... [PASS] 24. (not (memq (quote do) (list (car (form-of (quote (do ((i 0 (+ i 1))) ((= i 3) i)))))))) .......... [PASS] 25. (not (memq (quote cond) (list (car (form-of (quote (cond ((a) 1) ((b) 2) (else 3)))))))) .......... [PASS] 26. (not (memq (quote case) (list (car (form-of (quote (case x ((1) (quote a)) (else (quote b))))))))) .......... [PASS] 27. (form-of (quote (and a b c))) .......... [PASS] 28. (form-of (quote (or a b c))) .......... [PASS] --- the whole chain, over the procedures that carry no display --- 29. (not (> (length *display-free*) 20)) .......... [PASS] 30. (count-if (lambda (n+p) (or (not (da-bytecode (cdr n+p))) (chain-round-trips? (cdr n+p)))) *display-free*) .......... [PASS] --- every entry point takes what the ones above it take --- 31. (not (string? lc-bytes)) .......... [PASS] 32. (da-code list-copy) .......... [PASS] 33. (da-code (quote list-copy)) .......... [PASS] 34. (da-bytecode lc-code) .......... [PASS] 35. (da-bytecode list-copy) .......... [PASS] 36. (da-bytecode (quote list-copy)) .......... [PASS] 37. (da-core lc-code) .......... [PASS] 38. (da-core list-copy) .......... [PASS] 39. (da-core (quote list-copy)) .......... [PASS] 40. (da-procedure (quote list-copy)) .......... [PASS] 41. (da-global (quote list-copy)) .......... [PASS] 42. (da-core (quote (call (ref f) (quote 1)))) .......... [PASS] 43. (da (quote (call (ref f) (quote 1)))) .......... [PASS] 44. (da-code lc-bytes) .......... [PASS] 45. (da-code 42) .......... [PASS] 46. (da-code "not a global name") .......... [PASS] 47. (da-bytecode 42) .......... [PASS] 48. (da-bytecode (quote (begin))) .......... [PASS] 49. (da-core 42) .......... [PASS] 50. (da-procedure lc-code) .......... [PASS] 51. (da-procedure 42) .......... [PASS] 52. (da 42) .......... [PASS] 53. (da (quote ())) .......... [PASS] 54. (da #t) .......... [PASS] 55. (da-code (quote no-such-global-at-all)) .......... [PASS] 56. (da-procedure (quote no-such-global-at-all)) .......... [PASS] 57. (da (quote no-such-global-at-all)) .......... [PASS] 58. (da (quote repl://?not-a-procedure)) .......... [PASS] 59. (da-global (quote repl://?not-a-procedure)) .......... [PASS] 60. (da-global 42) .......... [PASS] --- code with no Core preimage answers with its name --- 61. (not (string? (da-code car))) .......... [PASS] 62. (da-bytecode car) .......... [PASS] 63. (da-procedure car) .......... [PASS] 64. (da-procedure (quote car)) .......... [PASS] 65. (da car) .......... [PASS] 66. (da (quote car)) .......... [PASS] 67. (da-name car) .......... [PASS] 68. (not (eq? promise? box?)) .......... [PASS] 69. (da-name box?) .......... [PASS] 70. (da-name (lambda (x) x)) .......... [PASS] 71. (da-procedure values) .......... [PASS] 72. (da (quote values)) .......... [PASS] --- da-prune-globals --- 73. (da (quote repl://?disasm-test-target)) .......... [PASS] 74. (parameterize ((da-prune-globals #f)) (da (quote repl://?disasm-test-target))) .......... [PASS] 75. (da (quote repl://?disasm-test-car)) .......... [PASS] 76. (parameterize ((da-prune-globals #f)) (da (quote repl://?disasm-test-car))) .......... [PASS] 77. (car form) .......... [PASS] 78. (length (cadr form)) .......... [PASS] 79. (caddr form) .......... [PASS] 80. (da-prune-globals) .......... [PASS] --- an empty begin reads back as (void) --- 81. (da-core (quote (begin))) .......... [PASS] 82. (da (quote (begin))) .......... [PASS] 83. (da-core (quote (call (ref f) (begin)))) .......... [PASS] 84. (da-core (quote (lambda (x) (begin)))) .......... [PASS] 85. (da-core (quote (begin (ref a) (begin)))) .......... [PASS] 86. (da-core (expand (quote (void)))) .......... [PASS] 87. (da-core (quote (begin))) .......... [PASS] 88. (da-core (quote (lambda (x) (begin)))) .......... [PASS] 89. (da-void-for-empty-begin) .......... [PASS] --- da, and the display it may not have --- 90. (da (make-adder 7)) .......... [PASS] 91. (da (make-counter 10)) .......... [PASS] 92. (da (procedure-code (make-adder 7))) .......... [PASS] 93. (da (da-code (make-adder 7))) .......... [PASS] 94. (da (procedure-code list-copy)) .......... [PASS] 95. (not (eq? (quote lambda) (car (da (procedure-code list-copy))))) .......... [PASS] 96. (da (compile-to-string (expand (quote (lambda (x) x))))) .......... [PASS] --- case-lambda --- 97. (da cl-plain) .......... [PASS] 98. (da (case-lambda ((x) x) ((x . rest) (cons x rest)))) .......... [PASS] 99. (da (case-lambda (args args))) .......... [PASS] 100. (da (let ((k 5)) (case-lambda ((x) (+ x k)) ((x y) (cons x y))))) .......... [PASS] 101. (da (let ((n 0)) (case-lambda (() n) ((x) (set! n x) n)))) .......... [PASS] 102. (not (eq? (quote case-lambda) (car (da (quote string-copy))))) .......... [PASS] 103. (not (eq? (quote case-lambda) (car (da (quote vector-fill!))))) .......... [PASS] 104. (da (procedure-code cl-plain)) .......... [PASS] 105. (da-bytecode cl-plain) .......... [PASS] --- an integrable index stands for a global name --- 106. (not (exact-integer? car-index)) .......... [PASS] 107. (da car-index) .......... [PASS] 108. (da-procedure car-index) .......... [PASS] 109. (da-global car-index) .......... [PASS] 110. (da-code car-index) .......... [PASS] 111. (da-bytecode car-index) .......... [PASS] 112. (da-core car-index) .......... [PASS] 113. (not (exact-integer? void-index)) .......... [PASS] 114. (da void-index) .......... [PASS] 115. (da 0) .......... [PASS] 116. (da -1) .......... [PASS] 117. (da 999999) .......... [PASS] 118. (da 1.5) .......... [PASS] 119. (da-code 999999) .......... [PASS] 120. (da-global 999999) .......... [PASS] 121. (da-global 1.5) .......... [PASS] 122. (not (string? (da-code cl-plain))) .......... [PASS] --- internal definitions of a large body --- 123. (not (eq? (quote define) (car (caddr (da-core (expand (quote (lambda (p) (define a #f) (define b 1) (cons a b))))))))) .......... [PASS] 124. (da-core (da-bytecode (compile-to-string (expand (quote (lambda (p) (define a #f) (define b 1) (cons a b))))))) .......... [PASS] 125. (not (let ((form (da-core (da-bytecode (compile-to-string (expand (quote (lambda (p . r) (define-values (a b) (values 1 2)) (define c #f) (define d 3) (list a b c d))))))))) (and (eq? (quote lambda) (car form)) (eq? (quote define-values) (car (caddr form))) (eq? (quote define) (car (cadddr form)))))) .......... [PASS] 126. (da-core (da-bytecode (compile-to-string (expand (quote (lambda (p) (define (f a b) (+ a b)) (define (g a . r) r) (define (h . all) all) (define k 3) (list (f p k) (g p) (h)))))))) .......... [PASS] 127. (not (eq? (quote lambda) (car (da (quote lib://skint/print?pp))))) .......... [PASS] 128. (not (eq? (quote define-values) (car (caddr (da (quote lib://skint/print?pp)))))) .......... [PASS] --- cursors --- 129. (not (every? (lambda (p) (pair? (return-points p))) *cursor-procs*)) .......... [PASS] 130. (return-points cur-rev) .......... [PASS] 131. (map frame-view (filter-if (lambda (fr) (eq? (car fr) cur-probe-sum)) *frames*)) .......... [PASS] 132. (car (tracked da p c)) .......... [PASS] 133. (car (tracked da-procedure p c)) .......... [PASS] 134. (car (tracked da-code p c)) .......... [PASS] 135. (car (tracked da-bytecode p c)) .......... [PASS] 136. (car (tracked da-core p c)) .......... [PASS] 137. (car (tracked da p c)) .......... [PASS] 138. (car (tracked da-procedure p c)) .......... [PASS] 139. (car (tracked da-code p c)) .......... [PASS] 140. (car (tracked da-bytecode p c)) .......... [PASS] 141. (car (tracked da-core p c)) .......... [PASS] 142. (car (tracked da p c)) .......... [PASS] 143. (car (tracked da-procedure p c)) .......... [PASS] 144. (car (tracked da-code p c)) .......... [PASS] 145. (car (tracked da-bytecode p c)) .......... [PASS] 146. (car (tracked da-core p c)) .......... [PASS] 147. (car (tracked da p c)) .......... [PASS] 148. (car (tracked da-procedure p c)) .......... [PASS] 149. (car (tracked da-code p c)) .......... [PASS] 150. (car (tracked da-bytecode p c)) .......... [PASS] 151. (car (tracked da-core p c)) .......... [PASS] 152. (car (tracked da p c)) .......... [PASS] 153. (car (tracked da-procedure p c)) .......... [PASS] 154. (car (tracked da-code p c)) .......... [PASS] 155. (car (tracked da-bytecode p c)) .......... [PASS] 156. (car (tracked da-core p c)) .......... [PASS] 157. (car (tracked da p c)) .......... [PASS] 158. (car (tracked da-procedure p c)) .......... [PASS] 159. (car (tracked da-code p c)) .......... [PASS] 160. (car (tracked da-bytecode p c)) .......... [PASS] 161. (car (tracked da-core p c)) .......... [PASS] 162. (car (tracked da cur-cl 0)) .......... [PASS] 163. (not (every? (lambda (p) (every? (lambda (c) (tracked-path da p c)) (return-points p))) *cursor-procs*)) .......... [PASS] 164. (count-if (lambda (n+p) (let* ((p (cdr n+p)) (rps (return-points p)) (r (and (pair? rps) (tracked da p (car rps))))) (or (not r) (not (pair? (car r))) (path-to (car r) (cdr r))))) *display-free*) .......... [PASS] 165. (not (every? (lambda (p) (let ((len (vector-length (procedure-code p)))) (let loop ((i 0)) (or (> i len) (and (let ((r (tracked da p i))) (or (not (cdr r)) (path-to (car r) (cdr r)))) (loop (+ i 1))))))) *cursor-procs*)) .......... [PASS] 166. (not (every? (lambda (p) (every? (lambda (c) (let* ((i (let find ((i 0)) (if (and (eq? (vector-ref (procedure-code p) i) save-word) (eqv? (+ i 2 (vector-ref (procedure-code p) (+ i 1))) c)) i (find (+ i 1)))))) (and (not (cdr (tracked da p (+ i 1)))) (not (cdr (tracked da-code p (+ i 1)))) (not (cdr (tracked da-bytecode p (+ i 1)))) (not (cdr (tracked da p (+ i 2)))) (not (cdr (tracked da-bytecode p (+ i 2))))))) (return-points p))) (list cur-sum cur-seq cur-nest))) .......... [PASS] 167. (cdr (tracked da cur-sum -1)) .......... [PASS] 168. (cdr (tracked da cur-sum (+ 1 (vector-length (procedure-code cur-sum))))) .......... [PASS] 169. (not (every? (lambda (c) (stages-agree? p c)) (return-points p))) .......... [PASS] 170. (not (every? (lambda (c) (stages-agree? p c)) (return-points p))) .......... [PASS] 171. (not (every? (lambda (c) (stages-agree? p c)) (return-points p))) .......... [PASS] 172. (not (every? (lambda (c) (stages-agree? p c)) (return-points p))) .......... [PASS] 173. (not (every? (lambda (c) (stages-agree? p c)) (return-points p))) .......... [PASS] 174. (not (every? (lambda (c) (char=? #\} (string-ref bytes (- (cdr (tracked da-code p c)) 1)))) (return-points p))) .......... [PASS] 175. (not (let loop ((o 0)) (or (> o (string-length bytes)) (let ((m (assv o offs))) (and (if m (equal? (tracked-path da bytes o) (tracked-path da p (cdr m))) (not (cdr (tracked da bytes o)))) (loop (+ o 1))))))) .......... [PASS] 176. (not (every? (lambda (c) (char=? #\} (string-ref bytes (- (cdr (tracked da-code p c)) 1)))) (return-points p))) .......... [PASS] 177. (not (let loop ((o 0)) (or (> o (string-length bytes)) (let ((m (assv o offs))) (and (if m (equal? (tracked-path da bytes o) (tracked-path da p (cdr m))) (not (cdr (tracked da bytes o)))) (loop (+ o 1))))))) .......... [PASS] 178. (not (every? (lambda (c) (char=? #\} (string-ref bytes (- (cdr (tracked da-code p c)) 1)))) (return-points p))) .......... [PASS] 179. (not (let loop ((o 0)) (or (> o (string-length bytes)) (let ((m (assv o offs))) (and (if m (equal? (tracked-path da bytes o) (tracked-path da p (cdr m))) (not (cdr (tracked da bytes o)))) (loop (+ o 1))))))) .......... [PASS] 180. (cursor-views cur-seq) .......... [PASS] 181. (cursor-views cur-defs) .......... [PASS] 182. (cursor-views cur-or) .......... [PASS] 183. (cursor-views cur-let*) .......... [PASS] 184. (cursor-views cur-dv) .......... [PASS] 185. (frame-view (failing-frame (lambda () (cur-f1 5)))) .......... [PASS] 186. (frame-view (failing-frame (lambda () (cur-f2 (vector 1) 3)))) .......... [PASS] 187. (frame-view (failing-frame (lambda () (cur-f3 5)))) .......... [PASS] 188. (frame-view (failing-frame (lambda () (cur-f4 5)))) .......... [PASS] 189. (frame-view (failing-frame (lambda () (cur-f5 5)))) .......... [PASS] 190. (frame-view (failing-frame (lambda () (cur-f6 5 #f)))) .......... [PASS] 191. (frame-view (failing-frame (lambda () (cur-f7 (quote a))))) .......... [PASS] 192. (frame-view (failing-frame (lambda () (eval (quote (< 1 2 3 (quote a) 5 6)) (scheme-report-environment 5))))) .......... [PASS] 193. (not (every? (lambda (thunk) (let ((fr (failing-frame thunk))) (stages-agree? (car fr) (cdr fr)))) (list (lambda () (cur-f1 5)) (lambda () (cur-f2 (vector 1) 3)) (lambda () (cur-f4 5))))) .......... [PASS] 194. (frame-view (failing-frame (lambda () (eval (quote (+ 1 (car 5) 2)) (scheme-report-environment 5))))) .......... [PASS] 195. (let ((fr (failing-frame (lambda () (map car (quote (5))))))) (tracked da (car fr) (cdr fr))) .......... [PASS] 196. (not (every? (lambda (c) (equal? (tracked-path da p c) (tracked-path da (procedure-code p) c))) (return-points p))) .......... [PASS] 197. (cdr (tracked da cur-cl 0)) .......... [PASS] 198. (car call) .......... [PASS] 199. (cdr (tracked da-core core call)) .......... [PASS] 200. (cdr (tracked da core call)) .......... [PASS] 201. (cdr (tracked da-core core (list-copy call))) .......... [PASS] 202. (cdr (tracked da-core core 3)) .......... [PASS] 203. (tracked da-name cur-sum #f) .......... [PASS] 204. (tracked da-global (quote no-such-global-anywhere) 0) .......... [PASS] 205. (tracked da #t 0) .......... [PASS] 206. (cdr (tracked da cur-sum #f)) .......... [PASS] --- da-print-hook --- 207. (not (prefix? "#list #u8()) .......... [PASS] 16. (u8vector->list #u8(0 1 2)) .......... [PASS] 17. (u8vector->list #u8(0 1 2) 0) .......... [PASS] 18. (u8vector->list #u8(0 1 2) 0 3) .......... [PASS] 19. (u8vector->list #u8(0 1 2) 1) .......... [PASS] 20. (u8vector->list #u8(0 1 2) 1 2) .......... [PASS] 21. (u8vector->list #u8(0 1 2) 2 2) .......... [PASS] 22. (list->u8vector (quote ())) .......... [PASS] 23. (list->u8vector (quote (24 42))) .......... [PASS] 24. (s8vector? #s8()) .......... [PASS] 25. (s8vector? #s8(0 1 2)) .......... [PASS] 26. (s8vector? #()) .......... [PASS] 27. (s8vector? #(0 1 2)) .......... [PASS] 28. (s8vector? (quote ())) .......... [PASS] 29. (s8vector? (make-s8vector 0)) .......... [PASS] 30. (s8vector-length (make-s8vector 0)) .......... [PASS] 31. (s8vector-length (make-s8vector 1024)) .......... [PASS] 32. (s8vector-length (make-s8vector 1024 127)) .......... [PASS] 33. (s8vector-length (s8vector 0 1 2)) .......... [PASS] 34. (s8vector-ref (s8vector 0 1 2) 0) .......... [PASS] 35. (s8vector-ref (s8vector 0 1 2) 1) .......... [PASS] 36. (s8vector-ref (s8vector 0 1 2) 2) .......... [PASS] 37. (let ((bv (s8vector 0 1 2))) (s8vector-set! bv 1 -128) bv) .......... [PASS] 38. (s8vector->list #s8()) .......... [PASS] 39. (s8vector->list #s8(0 1 2)) .......... [PASS] 40. (s8vector->list #s8(0 1 2) 0) .......... [PASS] 41. (s8vector->list #s8(0 1 2) 0 3) .......... [PASS] 42. (s8vector->list #s8(0 1 2) 1) .......... [PASS] 43. (s8vector->list #s8(0 1 2) 1 2) .......... [PASS] 44. (s8vector->list #s8(0 1 2) 2 2) .......... [PASS] 45. (list->s8vector (quote ())) .......... [PASS] 46. (list->s8vector (quote (24 42))) .......... [PASS] 47. (u16vector? #u16()) .......... [PASS] 48. (u16vector? #u16(0 1 2)) .......... [PASS] 49. (u16vector? #()) .......... [PASS] 50. (u16vector? #(0 1 2)) .......... [PASS] 51. (u16vector? (quote ())) .......... [PASS] 52. (u16vector? (make-u16vector 0)) .......... [PASS] 53. (u16vector-length (make-u16vector 0)) .......... [PASS] 54. (u16vector-length (make-u16vector 1024)) .......... [PASS] 55. (u16vector-length (make-u16vector 1024 65535)) .......... [PASS] 56. (u16vector-length (u16vector 0 1 2)) .......... [PASS] 57. (u16vector-ref (u16vector 0 1 2) 0) .......... [PASS] 58. (u16vector-ref (u16vector 0 1 2) 1) .......... [PASS] 59. (u16vector-ref (u16vector 0 1 2) 2) .......... [PASS] 60. (let ((bv (u16vector 0 1 2))) (u16vector-set! bv 1 65535) bv) .......... [PASS] 61. (u16vector->list #u16()) .......... [PASS] 62. (u16vector->list #u16(0 1 2)) .......... [PASS] 63. (u16vector->list #u16(0 1 2) 0) .......... [PASS] 64. (u16vector->list #u16(0 1 2) 0 3) .......... [PASS] 65. (u16vector->list #u16(0 1 2) 1) .......... [PASS] 66. (u16vector->list #u16(0 1 2) 1 2) .......... [PASS] 67. (u16vector->list #u16(0 1 2) 2 2) .......... [PASS] 68. (list->u16vector (quote ())) .......... [PASS] 69. (list->u16vector (quote (24 42))) .......... [PASS] 70. (s16vector? #s16()) .......... [PASS] 71. (s16vector? #s16(0 1 2)) .......... [PASS] 72. (s16vector? #()) .......... [PASS] 73. (s16vector? #(0 1 2)) .......... [PASS] 74. (s16vector? (quote ())) .......... [PASS] 75. (s16vector? (make-s16vector 0)) .......... [PASS] 76. (s16vector-length (make-s16vector 0)) .......... [PASS] 77. (s16vector-length (make-s16vector 1024)) .......... [PASS] 78. (s16vector-length (make-s16vector 1024 -32768)) .......... [PASS] 79. (s16vector-length (s16vector 0 1 2)) .......... [PASS] 80. (s16vector-ref (s16vector 0 1 2) 0) .......... [PASS] 81. (s16vector-ref (s16vector 0 1 2) 1) .......... [PASS] 82. (s16vector-ref (s16vector 0 1 2) 2) .......... [PASS] 83. (let ((bv (s16vector 0 1 2))) (s16vector-set! bv 1 -32768) bv) .......... [PASS] 84. (s16vector->list #s16()) .......... [PASS] 85. (s16vector->list #s16(0 1 2)) .......... [PASS] 86. (s16vector->list #s16(0 1 2) 0) .......... [PASS] 87. (s16vector->list #s16(0 1 2) 0 3) .......... [PASS] 88. (s16vector->list #s16(0 1 2) 1) .......... [PASS] 89. (s16vector->list #s16(0 1 2) 1 2) .......... [PASS] 90. (s16vector->list #s16(0 1 2) 2 2) .......... [PASS] 91. (list->s16vector (quote ())) .......... [PASS] 92. (list->s16vector (quote (24 42))) .......... [PASS] 93. (f32vector? #f32()) .......... [PASS] 94. (f32vector? #f32(0 1 2)) .......... [PASS] 95. (f32vector? #()) .......... [PASS] 96. (f32vector? #(-inf.0 +inf.0 +nan.0)) .......... [PASS] 97. (f32vector? (quote ())) .......... [PASS] 98. (f32vector? (make-f32vector 0)) .......... [PASS] 99. (f32vector-length (make-f32vector 0)) .......... [PASS] 100. (f32vector-length (make-f32vector 1024)) .......... [PASS] 101. (f32vector-length (make-f32vector 1024 +inf.0)) .......... [PASS] 102. (f32vector-length (f32vector 0.0 1.0 2.0)) .......... [PASS] 103. (f32vector-ref (f32vector 0.0 1.0 2.0) 0) .......... [PASS] 104. (f32vector-ref (f32vector 0.0 1.0 2.0) 1) .......... [PASS] 105. (f32vector-ref (f32vector 0.0 1.0 2.0) 2) .......... [PASS] 106. (let ((bv (f32vector -0.0 1.0 -2.0))) (f32vector-set! bv 1 +inf.0) bv) .......... [PASS] 107. (f32vector->list #f32()) .......... [PASS] 108. (f32vector->list #f32(0 1 2)) .......... [PASS] 109. (f32vector->list #f32(0 1 2) 0) .......... [PASS] 110. (f32vector->list #f32(0 1 2) 0 3) .......... [PASS] 111. (f32vector->list #f32(0 1 2) 1) .......... [PASS] 112. (f32vector->list #f32(0 1 2) 1 2) .......... [PASS] 113. (f32vector->list #f32(0 1 2) 2 2) .......... [PASS] 114. (list->f32vector (quote ())) .......... [PASS] 115. (list->f32vector (quote (24.0 42.0))) .......... [PASS] 116. (f32vector-ref (f32vector -inf.0 +inf.0 +nan.0) 0) .......... [PASS] 117. (f32vector-ref (f32vector -inf.0 +inf.0 +nan.0) 1) .......... [PASS] 118. (f32vector-ref (f32vector -inf.0 +inf.0 +nan.0) 2) .......... [PASS] 119. (f32vector-ref #f32(2) 0) .......... [PASS] 120. (f32vector-ref #f32(+inf.0) 0) .......... [PASS] 121. (f32vector-ref #f32(-0) 0) .......... [PASS] 122. (f64vector? #f64()) .......... [PASS] 123. (f64vector? #f64(0.0 1.0 2.0)) .......... [PASS] 124. (f64vector? #()) .......... [PASS] 125. (f64vector? #(-inf.0 +inf.0 +nan.0)) .......... [PASS] 126. (f64vector? (quote ())) .......... [PASS] 127. (f64vector? (make-f64vector 0)) .......... [PASS] 128. (f64vector-length (make-f64vector 0)) .......... [PASS] 129. (f64vector-length (make-f64vector 1024)) .......... [PASS] 130. (f64vector-length (make-f64vector 1024 +inf.0)) .......... [PASS] 131. (f64vector-length (f64vector 0.0 1.0 2.0)) .......... [PASS] 132. (f64vector-ref (f64vector 0.0 1.0 2.0) 0) .......... [PASS] 133. (f64vector-ref (f64vector 0.0 1.0 2.0) 1) .......... [PASS] 134. (f64vector-ref (f64vector 0.0 1.0 2.0) 2) .......... [PASS] 135. (let ((bv (f64vector -0.0 1.0 -2.0))) (f64vector-set! bv 1 +inf.0) bv) .......... [PASS] 136. (f64vector->list #f64()) .......... [PASS] 137. (f64vector->list #f64(0.0 1.0 2.0)) .......... [PASS] 138. (f64vector->list #f64(0.0 1.0 2.0) 0) .......... [PASS] 139. (f64vector->list #f64(0.0 1.0 2.0) 0 3) .......... [PASS] 140. (f64vector->list #f64(0.0 1.0 2.0) 1) .......... [PASS] 141. (f64vector->list #f64(0.0 1.0 2.0) 1 2) .......... [PASS] 142. (f64vector->list #f64(0.0 1.0 2.0) 2 2) .......... [PASS] 143. (list->f64vector (quote ())) .......... [PASS] 144. (list->f64vector (quote (24.0 42.0))) .......... [PASS] 145. (f64vector-ref (f64vector -inf.0 +inf.0 +nan.0) 0) .......... [PASS] 146. (f64vector-ref (f64vector -inf.0 +inf.0 +nan.0) 1) .......... [PASS] 147. (f64vector-ref (f64vector -inf.0 +inf.0 +nan.0) 2) .......... [PASS] 148. (f64vector-ref #f64(2.0000000009) 0) .......... [PASS] 149. (f64vector-ref #f64(1.79769313486231e308) 0) .......... [PASS] 150. (f64vector-ref #f64(-2.225074e-308) 0) .......... [PASS] 150 out of 150 passed (100.00%) 1. (let (fibonacci (n 10) (i 0) (f0 0) (f1 1)) (if (= i n) f0 (fibonacci n (+ i 1) f1 (+ f0 f1)))) .......... [PASS] 2. (let (blast (port (open-output-string)) x (+ 1 2) 4 5) (if (null? x) (get-output-string port) (begin (write (car x) port) (apply blast port (cdr x))))) .......... [PASS] 2 out of 2 passed (100.00%) ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 1: ./skint test/srfi/1.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 2: ./skint test/srfi/2.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 4: ./skint test/srfi/4.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 5: ./skint test/srfi/5.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 6: ./skint test/srfi/6.scm --------------------------------------------------------------------0 out of 0 passed (%) 0 out of 0 passed (%) 0 out of 0 passed (%) 1. (let-values (((a b . c) (values 1 2 3 4))) (list a b c)) .......... [PASS] 2. (let ((a (quote a)) (b (quote b)) (x (quote x)) (y (quote y))) (let-values (((a b) (values x y)) ((x y) (values a b))) (list a b x y))) .......... [PASS] 3. (let ((a (quote a)) (b (quote b)) (x (quote x)) (y (quote y))) (let*-values (((a b) (values x y)) ((x y) (values a b))) (list a b x y))) .......... [PASS] 3 out of 3 passed (100.00%) 1. (equal? #f (string-null? "abc")) .......... [PASS] 2. (equal? #t (string-null? "")) .......... [PASS] 3. (equal? #t (string-every #\a "")) .......... [PASS] 4. (equal? #t (string-every #\a "aaaa")) .......... [PASS] 5. (equal? #f (string-every #\a "aaba")) .......... [PASS] 6. (equal? #t (string-every char-set:lower-case "aaba")) .......... [PASS] 7. (equal? #f (string-every char-set:lower-case "aAba")) .......... [PASS] 8. (equal? #t (string-every char-set:lower-case "")) .......... [PASS] 9. (equal? #t (string-every (lambda (x) (char-ci=? x #\a)) "aAaA")) .......... [PASS] 10. (equal? #f (string-every (lambda (x) (char-ci=? x #\a)) "aAbA")) .......... [PASS] 11. (equal? (char->integer #\A) (string-every (lambda (x) (char->integer x)) "aAbA")) .......... [PASS] 12. (equal? #t (string-every (lambda (x) (error "hoge")) "")) .......... [PASS] 13. (equal? #t (string-any #\a "aaaa")) .......... [PASS] 14. (equal? #f (string-any #\a "Abcd")) .......... [PASS] 15. (equal? #f (string-any #\a "")) .......... [PASS] 16. (equal? #t (string-any char-set:lower-case "ABcD")) .......... [PASS] 17. (equal? #f (string-any char-set:lower-case "ABCD")) .......... [PASS] 18. (equal? #f (string-any char-set:lower-case "")) .......... [PASS] 19. (equal? #t (string-any (lambda (x) (char-ci=? x #\a)) "CAaA")) .......... [PASS] 20. (equal? #f (string-any (lambda (x) (char-ci=? x #\a)) "ZBRC")) .......... [PASS] 21. (equal? #f (string-any (lambda (x) (char-ci=? x #\a)) "")) .......... [PASS] 22. (equal? (char->integer #\a) (string-any (lambda (x) (char->integer x)) "aAbA")) .......... [PASS] 23. (equal? "0123456789" (string-tabulate (lambda (code) (integer->char (+ code (char->integer #\0)))) 10)) .......... [PASS] 24. (equal? "" (string-tabulate (lambda (code) (integer->char (+ code (char->integer #\0)))) 0)) .......... [PASS] 25. (equal? "cBa" (reverse-list->string (quote (#\a #\B #\c)))) .......... [PASS] 26. (equal? "" (reverse-list->string (quote ()))) .......... [PASS] 27. (equal? "cde" (substring/shared "abcde" 2)) .......... [PASS] 28. (equal? "cd" (substring/shared "abcde" 2 4)) .......... [PASS] 29. (equal? "abCDEfg" (let ((x (string-copy "abcdefg"))) (string-copy! x 2 "CDE") x)) .......... [PASS] 30. (equal? "abCDEfg" (let ((x (string-copy "abcdefg"))) (string-copy! x 2 "ZABCDE" 3) x)) .......... [PASS] 31. (equal? "abCDEfg" (let ((x (string-copy "abcdefg"))) (string-copy! x 2 "ZABCDEFG" 3 6) x)) .......... [PASS] 32. (equal? "aabce" (let ((str (string-copy "abcde"))) (string-copy! str 1 str 0 3) str)) .......... [PASS] 33. (equal? "bcdde" (let ((str (string-copy "abcde"))) (string-copy! str 0 str 1 4) str)) .......... [PASS] 34. (equal? "Pete S" (string-take "Pete Szilagyi" 6)) .......... [PASS] 35. (equal? "" (string-take "Pete Szilagyi" 0)) .......... [PASS] 36. (equal? "Pete Szilagyi" (string-take "Pete Szilagyi" 13)) .......... [PASS] 37. (equal? "zilagyi" (string-drop "Pete Szilagyi" 6)) .......... [PASS] 38. (equal? "Pete Szilagyi" (string-drop "Pete Szilagyi" 0)) .......... [PASS] 39. (equal? "" (string-drop "Pete Szilagyi" 13)) .......... [PASS] 40. (equal? "rules" (string-take-right "Beta rules" 5)) .......... [PASS] 41. (equal? "" (string-take-right "Beta rules" 0)) .......... [PASS] 42. (equal? "Beta rules" (string-take-right "Beta rules" 10)) .......... [PASS] 43. (equal? "Beta " (string-drop-right "Beta rules" 5)) .......... [PASS] 44. (equal? "Beta rules" (string-drop-right "Beta rules" 0)) .......... [PASS] 45. (equal? "" (string-drop-right "Beta rules" 10)) .......... [PASS] 46. (equal? " 325" (string-pad "325" 5)) .......... [PASS] 47. (equal? "71325" (string-pad "71325" 5)) .......... [PASS] 48. (equal? "71325" (string-pad "8871325" 5)) .......... [PASS] 49. (equal? "~~325" (string-pad "325" 5 #\~)) .......... [PASS] 50. (equal? "~~~25" (string-pad "325" 5 #\~ 1)) .......... [PASS] 51. (equal? "~~~~2" (string-pad "325" 5 #\~ 1 2)) .......... [PASS] 52. (equal? "325 " (string-pad-right "325" 5)) .......... [PASS] 53. (equal? "71325" (string-pad-right "71325" 5)) .......... [PASS] 54. (equal? "88713" (string-pad-right "8871325" 5)) .......... [PASS] 55. (equal? "325~~" (string-pad-right "325" 5 #\~)) .......... [PASS] 56. (equal? "25~~~" (string-pad-right "325" 5 #\~ 1)) .......... [PASS] 57. (equal? "2~~~~" (string-pad-right "325" 5 #\~ 1 2)) .......... [PASS] 58. (equal? "a b c d \n" (string-trim " \t a b c d \n")) .......... [PASS] 59. (equal? "\t a b c d \n" (string-trim " \t a b c d \n" #\space)) .......... [PASS] 60. (equal? "a b c d \n" (string-trim "4358948a b c d \n" char-set:digit)) .......... [PASS] 61. (equal? " \t a b c d" (string-trim-right " \t a b c d \n")) .......... [PASS] 62. (equal? " \t a b c d " (string-trim-right " \t a b c d \n" (char-set #\newline))) .......... [PASS] 63. (equal? "349853a b c d" (string-trim-right "349853a b c d03490" char-set:digit)) .......... [PASS] 64. (equal? "a b c d" (string-trim-both " \t a b c d \n")) .......... [PASS] 65. (equal? " \t a b c d " (string-trim-both " \t a b c d \n" (char-set #\newline))) .......... [PASS] 66. (equal? "a b c d" (string-trim-both "349853a b c d03490" char-set:digit)) .......... [PASS] 67. (equal? 5 (string-compare "The cat in the hat" "abcdefgh" values values values 4 6 2 4)) .......... [PASS] 68. (equal? 5 (string-compare-ci "The cat in the hat" "ABCDEFGH" values values values 4 6 2 4)) .......... [PASS] 69. (equal? 5 (string-prefix-length "cancaNCAM" "cancancan")) .......... [PASS] 70. (equal? 8 (string-prefix-length-ci "cancaNCAM" "cancancan")) .......... [PASS] 71. (equal? 2 (string-suffix-length "CanCan" "cankancan")) .......... [PASS] 72. (equal? 5 (string-suffix-length-ci "CanCan" "cankancan")) .......... [PASS] 73. (equal? #t (string-prefix? "abcd" "abcdefg")) .......... [PASS] 74. (equal? #f (string-prefix? "abcf" "abcdefg")) .......... [PASS] 75. (equal? #t (string-prefix-ci? "abcd" "aBCDEfg")) .......... [PASS] 76. (equal? #f (string-prefix-ci? "abcf" "aBCDEfg")) .......... [PASS] 77. (equal? #t (string-suffix? "defg" "abcdefg")) .......... [PASS] 78. (equal? #f (string-suffix? "aefg" "abcdefg")) .......... [PASS] 79. (equal? #t (string-suffix-ci? "defg" "aBCDEfg")) .......... [PASS] 80. (equal? #f (string-suffix-ci? "aefg" "aBCDEfg")) .......... [PASS] 81. (equal? 4 (string-index "abcd:efgh:ijkl" #\:)) .......... [PASS] 82. (equal? 4 (string-index "abcd:efgh;ijkl" (char-set-complement char-set:letter))) .......... [PASS] 83. (equal? #f (string-index "abcd:efgh;ijkl" char-set:digit)) .......... [PASS] 84. (equal? 9 (string-index "abcd:efgh:ijkl" #\: 5)) .......... [PASS] 85. (equal? 4 (string-index-right "abcd:efgh;ijkl" #\:)) .......... [PASS] 86. (equal? 9 (string-index-right "abcd:efgh;ijkl" (char-set-complement char-set:letter))) .......... [PASS] 87. (equal? #f (string-index-right "abcd:efgh;ijkl" char-set:digit)) .......... [PASS] 88. (equal? 4 (string-index-right "abcd:efgh;ijkl" (char-set-complement char-set:letter) 2 5)) .......... [PASS] 89. (equal? 2 (string-count "abc def\tghi jkl" #\space)) .......... [PASS] 90. (equal? 3 (string-count "abc def\tghi jkl" char-set:whitespace)) .......... [PASS] 91. (equal? 2 (string-count "abc def\tghi jkl" char-set:whitespace 4)) .......... [PASS] 92. (equal? 1 (string-count "abc def\tghi jkl" char-set:whitespace 4 9)) .......... [PASS] 93. (equal? 3 (string-contains "Ma mere l'oye" "mer")) .......... [PASS] 94. (equal? #f (string-contains "Ma mere l'oye" "Mer")) .......... [PASS] 95. (equal? 3 (string-contains-ci "Ma mere l'oye" "Mer")) .......... [PASS] 96. (equal? #f (string-contains-ci "Ma mere l'oye" "Meer")) .......... [PASS] 97. (equal? "--Capitalize This Sentence." (string-titlecase "--capitalize tHIS sentence.")) .......... [PASS] 98. (equal? "3Com Makes Routers." (string-titlecase "3com makes routers.")) .......... [PASS] 99. (equal? "alSo Whatever" (let ((s (string-copy "also whatever"))) (string-titlecase! s 2 9) s)) .......... [PASS] 100. (equal? "sPEAK loudly" (let ((s (string-copy "speak loudly"))) (string-upcase! s 1 5) s)) .......... [PASS] 101. (equal? "Speak SOFTLY" (let ((s (string-copy "SPEAK SOFTLY"))) (string-downcase! s 1 5) s)) .......... [PASS] 102. (equal? "nomel on nolem on" (string-reverse "no melon no lemon")) .......... [PASS] 103. (equal? "nomel on" (string-reverse "no melon no lemon" 9)) .......... [PASS] 104. (equal? "on" (string-reverse "no melon no lemon" 9 11)) .......... [PASS] 105. (equal? "nomel on nolem on" (let ((s (string-copy "no melon no lemon"))) (string-reverse! s) s)) .......... [PASS] 106. (equal? "no melon nomel on" (let ((s (string-copy "no melon no lemon"))) (string-reverse! s 9) s)) .......... [PASS] 107. (equal? "no melon on lemon" (let ((s (string-copy "no melon no lemon"))) (string-reverse! s 9 11) s)) .......... [PASS] 108. (equal? #f (let ((s "test")) (eq? s (string-append s)))) .......... [PASS] 109. (equal? #f (let ((s "test")) (eq? s (string-concatenate (list s))))) .......... [PASS] 110. (equal? "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" (string-concatenate (quote ("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z" "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z")))) .......... [PASS] 111. (equal? "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" (string-concatenate/shared (quote ("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z" "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z")))) .......... [PASS] 112. (equal? "zyxwvutsrqponmlkjihgfedcbaZYXWVUTSRQPONMLKJIHGFEDCBA" (string-concatenate-reverse (quote ("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z" "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z")))) .......... [PASS] 113. (equal? #f (let ((s "test")) (eq? s (string-concatenate-reverse (list s))))) .......... [PASS] 114. (equal? "zyxwvutsrqponmlkjihgfedcbaZYXWVUTSRQPONMLKJIHGFEDCBA" (string-concatenate-reverse/shared (quote ("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z" "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z")))) .......... [PASS] 115. (equal? "svool" (string-map (lambda (c) (integer->char (- 219 (char->integer c)))) "hello")) .......... [PASS] 116. (equal? "vool" (string-map (lambda (c) (integer->char (- 219 (char->integer c)))) "hello" 1)) .......... [PASS] 117. (equal? "vo" (string-map (lambda (c) (integer->char (- 219 (char->integer c)))) "hello" 1 3)) .......... [PASS] 118. (equal? "svool" (let ((s (string-copy "hello"))) (string-map! (lambda (c) (integer->char (- 219 (char->integer c)))) s) s)) .......... [PASS] 119. (equal? "hvool" (let ((s (string-copy "hello"))) (string-map! (lambda (c) (integer->char (- 219 (char->integer c)))) s 1) s)) .......... [PASS] 120. (equal? "hvolo" (let ((s (string-copy "hello"))) (string-map! (lambda (c) (integer->char (- 219 (char->integer c)))) s 1 3) s)) .......... [PASS] 121. (equal? (quote (#\o #\l #\l #\e #\h . #t)) (string-fold cons #t "hello")) .......... [PASS] 122. (equal? (quote (#\l #\e . #t)) (string-fold cons #t "hello" 1 3)) .......... [PASS] 123. (equal? (quote (#\h #\e #\l #\l #\o . #t)) (string-fold-right cons #t "hello")) .......... [PASS] 124. (equal? (quote (#\e #\l . #t)) (string-fold-right cons #t "hello" 1 3)) .......... [PASS] 125. (equal? "hello" (string-unfold null? car cdr (quote (#\h #\e #\l #\l #\o)))) .......... [PASS] 126. (equal? "hi hello" (string-unfold null? car cdr (quote (#\h #\e #\l #\l #\o)) "hi ")) .......... [PASS] 127. (equal? "hi hello ho" (string-unfold null? car cdr (quote (#\h #\e #\l #\l #\o)) "hi " (lambda (x) " ho"))) .......... [PASS] 128. (equal? "olleh" (string-unfold-right null? car cdr (quote (#\h #\e #\l #\l #\o)))) .......... [PASS] 129. (equal? "olleh hi" (string-unfold-right null? car cdr (quote (#\h #\e #\l #\l #\o)) " hi")) .......... [PASS] 130. (equal? "ho olleh hi" (string-unfold-right null? car cdr (quote (#\h #\e #\l #\l #\o)) " hi" (lambda (x) "ho "))) .......... [PASS] 131. (equal? "CLtL" (let ((out (open-output-string)) (prev #f)) (string-for-each (lambda (c) (if (or (not prev) (char-whitespace? prev)) (write-char c out)) (set! prev c)) "Common Lisp, the Language") (get-output-string out))) .......... [PASS] 132. (equal? "oLtL" (let ((out (open-output-string)) (prev #f)) (string-for-each (lambda (c) (if (or (not prev) (char-whitespace? prev)) (write-char c out)) (set! prev c)) "Common Lisp, the Language" 1) (get-output-string out))) .......... [PASS] 133. (equal? "oL" (let ((out (open-output-string)) (prev #f)) (string-for-each (lambda (c) (if (or (not prev) (char-whitespace? prev)) (write-char c out)) (set! prev c)) "Common Lisp, the Language" 1 10) (get-output-string out))) .......... [PASS] 134. (equal? (quote (4 3 2 1 0)) (let ((r (quote ()))) (string-for-each-index (lambda (i) (set! r (cons i r))) "hello") r)) .......... [PASS] 135. (equal? (quote (4 3 2 1)) (let ((r (quote ()))) (string-for-each-index (lambda (i) (set! r (cons i r))) "hello" 1) r)) .......... [PASS] 136. (equal? (quote (2 1)) (let ((r (quote ()))) (string-for-each-index (lambda (i) (set! r (cons i r))) "hello" 1 3) r)) .......... [PASS] 137. (equal? "cdefab" (xsubstring "abcdef" 2)) .......... [PASS] 138. (equal? "efabcd" (xsubstring "abcdef" -2)) .......... [PASS] 139. (equal? "abcabca" (xsubstring "abc" 0 7)) .......... [PASS] 140. (equal? "defdefd" (xsubstring "abcdefg" 0 7 3 6)) .......... [PASS] 141. (equal? "" (xsubstring "abcdefg" 9 9 3 6)) .......... [PASS] 142. (equal? "ZZcdefabZZ" (let ((s (make-string 10 #\Z))) (string-xcopy! s 2 "abcdef" 2) s)) .......... [PASS] 143. (equal? "ZZdefdefZZ" (let ((s (make-string 10 #\Z))) (string-xcopy! s 2 "abcdef" 0 6 3) s)) .......... [PASS] 144. (equal? "abcdXYZghi" (string-replace "abcdefghi" "XYZ" 4 6)) .......... [PASS] 145. (equal? "abcdZghi" (string-replace "abcdefghi" "XYZ" 4 6 2)) .......... [PASS] 146. (equal? "abcdZefghi" (string-replace "abcdefghi" "XYZ" 4 4 2)) .......... [PASS] 147. (equal? "abcdefghi" (string-replace "abcdefghi" "XYZ" 4 4 1 1)) .......... [PASS] 148. (equal? "abcdhi" (string-replace "abcdefghi" "" 4 7)) .......... [PASS] 149. (equal? (quote ("Help" "make" "programs" "run," "run," "RUN!")) (string-tokenize "Help make programs run, run, RUN!")) .......... [PASS] 150. (equal? (quote ("Help" "make" "programs" "run" "run" "RUN")) (string-tokenize "Help make programs run, run, RUN!" char-set:letter)) .......... [PASS] 151. (equal? (quote ("programs" "run" "run" "RUN")) (string-tokenize "Help make programs run, run, RUN!" char-set:letter 10)) .......... [PASS] 152. (equal? (quote ("elp" "make" "programs" "run" "run")) (string-tokenize "Help make programs run, run, RUN!" char-set:lower-case)) .......... [PASS] 153. (equal? "rrrr" (string-filter #\r "Help make programs run, run, RUN!")) .......... [PASS] 154. (equal? "HelpmakeprogramsrunrunRUN" (string-filter char-set:letter "Help make programs run, run, RUN!")) .......... [PASS] 155. (equal? "programsrunrun" (string-filter (lambda (c) (char-lower-case? c)) "Help make programs run, run, RUN!" 10)) .......... [PASS] 156. (equal? "" (string-filter (lambda (c) (char-lower-case? c)) "")) .......... [PASS] 157. (equal? "Help make pogams un, un, RUN!" (string-delete #\r "Help make programs run, run, RUN!")) .......... [PASS] 158. (equal? " , , !" (string-delete char-set:letter "Help make programs run, run, RUN!")) .......... [PASS] 159. (equal? " , , RUN!" (string-delete (lambda (c) (char-lower-case? c)) "Help make programs run, run, RUN!" 10)) .......... [PASS] 160. (equal? "" (string-delete (lambda (c) (char-lower-case? c)) "")) .......... [PASS] 161. (equal? #t (<= 0 (string-hash "abracadabra" 20) 19)) .......... [PASS] 162. (equal? #t (= (string-hash "abracadabra" 20) (string-hash "abracadabra" 20))) .......... [PASS] 163. (equal? #t (= (string-hash "abracadabra" 20 2 7) (string-hash (substring "abracadabra" 2 7) 20))) .......... [PASS] 164. (equal? #t (= (string-hash-ci "aBrAcAdAbRa" 20) (string-hash-ci "AbRaCaDaBrA" 20))) .......... [PASS] 165. (equal? #t (= (string-hash-ci "aBrAcAdAbRa" 20 2 7) (string-hash-ci (substring "AbRaCaDaBrA" 2 7) 20))) .......... [PASS] 166. (not (string= "foo" "foo")) .......... [PASS] 167. (not (string= "foobar" "foo" 0 3)) .......... [PASS] 168. (not (string= "foobar" "barfoo" 0 3 3)) .......... [PASS] 169. (not (not (string= "foobar" "barfoo" 0 3 2 5))) .......... [PASS] 170. (not (string<> "flo" "foo")) .......... [PASS] 171. (not (string<> "flobar" "foo" 0 3)) .......... [PASS] 172. (not (string<> "flobar" "barfoo" 0 3 3)) .......... [PASS] 173. (not (not (string<> "foobar" "foobar" 0 3 0 3))) .......... [PASS] 174. (not (string<= "fol" "foo")) .......... [PASS] 175. (not (string<= "folbar" "foo" 0 3)) .......... [PASS] 176. (not (string<= "foobar" "barfoo" 0 3 3)) .......... [PASS] 177. (not (not (string<= "foobar" "barfoo" 0 3 1 4))) .......... [PASS] 178. (not (string< "fol" "foo")) .......... [PASS] 179. (not (string< "folbar" "foo" 0 3)) .......... [PASS] 180. (not (string< "folbar" "barfoo" 0 3 3)) .......... [PASS] 181. (not (not (string< "foobar" "barfoo" 0 3 1 4))) .......... [PASS] 182. (not (string>= "foo" "fol")) .......... [PASS] 183. (not (string>= "foo" "folbar" 0 3 0 3)) .......... [PASS] 184. (not (string>= "barfoo" "foo" 3 6 0)) .......... [PASS] 185. (not (not (string>= "barfoo" "foobar" 1 4 0 3))) .......... [PASS] 186. (not (string> "foo" "fol")) .......... [PASS] 187. (not (string> "foo" "folbar" 0 3 0 3)) .......... [PASS] 188. (not (string> "barfoo" "fol" 3 6 0)) .......... [PASS] 189. (not (not (string> "barfoo" "foobar" 1 4 0 3))) .......... [PASS] 190. (not (string-ci= "Foo" "foO")) .......... [PASS] 191. (not (string-ci= "Foobar" "fOo" 0 3)) .......... [PASS] 192. (not (string-ci= "Foobar" "bArfOo" 0 3 3)) .......... [PASS] 193. (not (not (string-ci= "foobar" "BARFOO" 0 3 2 5))) .......... [PASS] 194. (not (string-ci<> "flo" "FOO")) .......... [PASS] 195. (not (string-ci<> "FLOBAR" "foo" 0 3)) .......... [PASS] 196. (not (string-ci<> "flobar" "BARFOO" 0 3 3)) .......... [PASS] 197. (not (not (string-ci<> "foobar" "FOOBAR" 0 3 0 3))) .......... [PASS] 198. (not (string-ci<= "FOL" "foo")) .......... [PASS] 199. (not (string-ci<= "folBAR" "fOO" 0 3)) .......... [PASS] 200. (not (string-ci<= "fOOBAR" "BARFOO" 0 3 3)) .......... [PASS] 201. (not (not (string-ci<= "foobar" "BARFOO" 0 3 1 4))) .......... [PASS] 202. (not (string-ci< "fol" "FOO")) .......... [PASS] 203. (not (string-ci< "folbar" "FOO" 0 3)) .......... [PASS] 204. (not (string-ci< "folbar" "BARFOO" 0 3 3)) .......... [PASS] 205. (not (not (string-ci< "foobar" "BARFOO" 0 3 1 4))) .......... [PASS] 206. (not (string-ci>= "FOO" "fol")) .......... [PASS] 207. (not (string-ci>= "foo" "FOLBAR" 0 3 0 3)) .......... [PASS] 208. (not (string-ci>= "BARFOO" "foo" 3 6 0)) .......... [PASS] 209. (not (not (string-ci>= "barfoo" "FOOBAR" 1 4 0 3))) .......... [PASS] 210. (not (string-ci> "FOO" "fol")) .......... [PASS] 211. (not (string-ci> "foo" "FOLBAR" 0 3 0 3)) .......... [PASS] 212. (not (string-ci> "barfoo" "FOL" 3 6 0)) .......... [PASS] 213. (not (not (string-ci> "barfoo" "FOOBAR" 1 4 0 3))) .......... [PASS] 214. (equal? #t (string=? "abcd" (string-append/shared "a" "b" "c" "d"))) .......... [PASS] 215. (equal? #t (let-values (((rest start end) (string-parse-start+end #t "foo" (quote (1 3 fnord))))) (and (= start 1) (= end 3) (equal? rest (quote (fnord)))))) .......... [PASS] 216. (quote (string-parse-start+end #t "foo" (quote (1 4)))) .......... [PASS] 217. (equal? #t (let-values (((start end) (string-parse-final-start+end #t "foo" (quote (1 3))))) (and (= start 1) (= end 3)))) .......... [PASS] 218. (equal? #t (let-string-start+end (start end rest) #t "foo" (quote (1 3 fnord)) (and (= start 1) (= end 3) (equal? rest (quote (fnord)))))) .......... [PASS] 219. (not (check-substring-spec #t "foo" 1 3)) .......... [PASS] 220. (quote (check-substring-spec #t "foo" 1 4)) .......... [PASS] 221. (not (substring-spec-ok? "foo" 1 3)) .......... [PASS] 222. (not (not (substring-spec-ok? "foo" 1 4))) .......... [PASS] 223. (equal? (quote #()) (make-kmp-restart-vector "")) .......... [PASS] 224. (equal? (quote #(-1)) (make-kmp-restart-vector "a")) .......... [PASS] 225. (equal? (quote #(-1 0)) (make-kmp-restart-vector "ab")) .......... [PASS] 226. (equal? (quote #(-1 0 0 -1 1 2)) (make-kmp-restart-vector "abdabx")) .......... [PASS] 227. (equal? expected-i i) .......... [PASS] 228. (equal? expected-i i) .......... [PASS] 229. (not (eq? (= i n) match?)) .......... [PASS] 230. (not (null? steps)) .......... [PASS] 231. (equal? expected-i i) .......... [PASS] 232. (equal? expected-i i) .......... [PASS] 233. (equal? expected-i i) .......... [PASS] 234. (not (eq? (= i n) match?)) .......... [PASS] 235. (not (null? steps)) .......... [PASS] 236. (equal? expected-i i) .......... [PASS] 237. (equal? expected-i i) .......... [PASS] 238. (equal? expected-i i) .......... [PASS] 239. (not (eq? (= i n) match?)) .......... [PASS] 240. (not (null? steps)) .......... [PASS] 241. (equal? expected-i i) .......... [PASS] 242. (equal? expected-i i) .......... [PASS] 243. (equal? expected-i i) .......... [PASS] 244. (not (eq? (= i n) match?)) .......... [PASS] 245. (not (null? steps)) .......... [PASS] 246. (equal? expected-i i) .......... [PASS] 247. (equal? expected-i i) .......... [PASS] 248. (equal? expected-i i) .......... [PASS] 249. (equal? expected-i i) .......... [PASS] 250. (not (eq? (= i n) match?)) .......... [PASS] 251. (not (null? steps)) .......... [PASS] 252. (equal? expected-i i) .......... [PASS] 253. (equal? expected-i i) .......... [PASS] 254. (not (eq? (= i n) match?)) .......... [PASS] 255. (not (null? steps)) .......... [PASS] 256. (equal? expected-i i) .......... [PASS] 257. (equal? expected-i i) .......... [PASS] 258. (equal? expected-i i) .......... [PASS] 259. (not (eq? (= i n) match?)) .......... [PASS] 260. (not (null? steps)) .......... [PASS] 261. (equal? expected-i i) .......... [PASS] 262. (equal? expected-i i) .......... [PASS] 263. (equal? expected-i i) .......... [PASS] 264. (equal? expected-i i) .......... [PASS] 265. (equal? expected-i i) .......... [PASS] 266. (equal? expected-i i) .......... [PASS] 267. (equal? expected-i i) .......... [PASS] 268. (equal? expected-i i) .......... [PASS] 269. (equal? expected-i i) .......... [PASS] 270. (not (eq? (= i n) match?)) .......... [PASS] 271. (not (null? steps)) .......... [PASS] 272. (equal? expected-i i) .......... [PASS] 273. (equal? expected-i i) .......... [PASS] 274. (equal? expected-i i) .......... [PASS] 275. (equal? expected-i i) .......... [PASS] 276. (equal? expected-i i) .......... [PASS] 277. (equal? expected-i i) .......... [PASS] 278. (not (eq? (= i n) match?)) .......... [PASS] 279. (not (null? steps)) .......... [PASS] 280. (equal? expected-i i) .......... [PASS] 281. (equal? expected-i i) .......... [PASS] 282. (equal? expected-i i) .......... [PASS] 283. (equal? expected-i i) .......... [PASS] 284. (equal? expected-i i) .......... [PASS] 285. (equal? expected-i i) .......... [PASS] 286. (equal? expected-i i) .......... [PASS] 287. (equal? expected-i i) .......... [PASS] 288. (not (eq? (= i n) match?)) .......... [PASS] 289. (not (null? steps)) .......... [PASS] 290. (equal? 1 (string-contains "aabc" "ab")) .......... [PASS] 291. (equal? 5 (string-contains "ababdabdabxxas" "abdabx")) .......... [PASS] 292. (equal? 1 (string-contains-ci "aabc" "ab")) .......... [PASS] 293. (equal? 0 (string-contains "ab" "ab")) .......... [PASS] 294. (not (call-with-false-on-error (lambda () (string=? "ADR" (string-filter char-set:upper-case "abrAcaDabRa"))))) .......... [PASS] 295. (not (call-with-false-on-error (lambda () (string=? "abrcaaba" (string-delete char-set:upper-case "abrAcaDabRa"))))) .......... [PASS] 296. (equal? #f (string-index-right "abbb" #\a 1)) .......... [PASS] 297. (equal? #f (string-skip-right "abbb" #\b 1)) .......... [PASS] 298. (equal? "" (string-trim-right "" char-whitespace? 0 0)) .......... [PASS] 299. (equal? "" (string-trim-right "a" char-whitespace? 0 0)) .......... [PASS] 300. (equal? "" (string-trim-right "a " char-whitespace? 0 0)) .......... [PASS] 301. (equal? "bc" (string-trim-right "abc " char-whitespace? 1)) .......... [PASS] 302. (equal? "" (string-trim-right "abc " char-whitespace? 4 4)) .......... [PASS] 302 out of 302 passed (100.00%) -------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 8: ./skint test/srfi/8.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 9: ./skint test/srfi/9.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 11: ./skint test/srfi/11.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 13: ./skint test/srfi/13.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 14: ./skint test/srfi/14.scm ----------------------------------------------------1. (char-set? 5) .......... [PASS] 2. (not (char-set? (char-set #\a #\e #\i #\o #\u))) .......... [PASS] 3. (not (char-set=)) .......... [PASS] 4. (not (char-set= (char-set))) .......... [PASS] 5. (char-set= (char-set #\a #\e #\i #\o #\u) (string->char-set "ioeauaiii")) .......... [PASS] 6. (char-set= (char-set #\e #\i #\o #\u) (string->char-set "ioeauaiii")) .......... [PASS] 7. (not (char-set<=)) .......... [PASS] 8. (not (char-set<= (char-set))) .......... [PASS] 9. (not (char-set<= (char-set #\a #\e #\i #\o #\u) (string->char-set "ioeauaiii"))) .......... [PASS] 10. (not (char-set<= (char-set #\e #\i #\o #\u) (string->char-set "ioeauaiii"))) .......... [PASS] 11. (not (<= 0 (char-set-hash char-set:graphic 100) 99)) .......... [PASS] 12. (char-set-fold (lambda (c i) (+ i 1)) 0 (char-set #\e #\i #\o #\u #\e #\e)) .......... [PASS] 13. (char-set= (string->char-set "eiaou2468013579999") (char-set-unfold null? car cdr (quote (#\a #\e #\i #\o #\u #\u #\u)) (char-set-intersection char-set:ascii char-set:digit))) .......... [PASS] 14. (char-set= (string->char-set "eiaou246801357999") (char-set-unfold! null? car cdr (quote (#\a #\e #\i #\o #\u)) (string->char-set "0123456789"))) .......... [PASS] 15. (char-set= (string->char-set "eiaou246801357") (char-set-unfold! null? car cdr (quote (#\a #\e #\i #\o #\u)) (string->char-set "0123456789"))) .......... [PASS] 16. (char-set= cs (string->char-set "97531")) .......... [PASS] 17. (let ((cs (string->char-set "0123456789"))) (char-set-for-each (lambda (c) (set! cs (char-set-delete cs c))) (string->char-set "02468")) (char-set= cs (string->char-set "7531"))) .......... [PASS] 18. (char-set= (string->char-set "IOUAEEEE") (char-set-map char-upcase (string->char-set "aeiou"))) .......... [PASS] 19. (char-set= (char-set-map char-upcase (string->char-set "aeiou")) (string->char-set "OUAEEEE")) .......... [PASS] 20. (char-set= (string->char-set "aeiou") (char-set-copy (string->char-set "aeiou"))) .......... [PASS] 21. (char-set= (string->char-set "xy") (char-set #\x #\y)) .......... [PASS] 22. (char-set= (char-set #\x #\y #\z) (string->char-set "xy")) .......... [PASS] 23. (char-set= (string->char-set "xy") (list->char-set (quote (#\x #\y)))) .......... [PASS] 24. (char-set= (string->char-set "axy") (list->char-set (quote (#\x #\y)))) .......... [PASS] 25. (char-set= (string->char-set "xy12345") (list->char-set (quote (#\x #\y)) (string->char-set "12345"))) .......... [PASS] 26. (char-set= (string->char-set "y12345") (list->char-set (quote (#\x #\y)) (string->char-set "12345"))) .......... [PASS] 27. (char-set= (string->char-set "xy12345") (list->char-set! (quote (#\x #\y)) (string->char-set "12345"))) .......... [PASS] 28. (char-set= (string->char-set "y12345") (list->char-set! (quote (#\x #\y)) (string->char-set "12345"))) .......... [PASS] 29. (char-set= (string->char-set "aeiou12345") (char-set-filter vowel? char-set:ascii (string->char-set "12345"))) .......... [PASS] 30. (char-set= (string->char-set "aeou12345") (char-set-filter vowel? char-set:ascii (string->char-set "12345"))) .......... [PASS] 31. (char-set= (string->char-set "aeiou12345") (char-set-filter! vowel? char-set:ascii (string->char-set "12345"))) .......... [PASS] 32. (char-set= (string->char-set "aeou12345") (char-set-filter! vowel? char-set:ascii (string->char-set "12345"))) .......... [PASS] 33. (char-set= (string->char-set "abcdef12345") (ucs-range->char-set 97 103 #t (string->char-set "12345"))) .......... [PASS] 34. (char-set= (string->char-set "abcef12345") (ucs-range->char-set 97 103 #t (string->char-set "12345"))) .......... [PASS] 35. (char-set= (string->char-set "abcdef12345") (ucs-range->char-set! 97 103 #t (string->char-set "12345"))) .......... [PASS] 36. (char-set= (string->char-set "abcef12345") (ucs-range->char-set! 97 103 #t (string->char-set "12345"))) .......... [PASS] 37. (not (char-set= (->char-set #\x) (->char-set "x") (->char-set (char-set #\x)))) .......... [PASS] 38. (char-set= (->char-set #\x) (->char-set "y") (->char-set (char-set #\x))) .......... [PASS] 39. (char-set-size (char-set-intersection char-set:ascii char-set:digit)) .......... [PASS] 40. (char-set-count vowel? char-set:ascii) .......... [PASS] 41. (char-set->list (char-set #\x)) .......... [PASS] 42. (equal? (quote (#\X)) (char-set->list (char-set #\x))) .......... [PASS] 43. (char-set->string (char-set #\x)) .......... [PASS] 44. (equal? "X" (char-set->string (char-set #\x))) .......... [PASS] 45. (not (char-set-contains? (->char-set "xyz") #\x)) .......... [PASS] 46. (char-set-contains? (->char-set "xyz") #\a) .......... [PASS] 47. (not (char-set-every char-lower-case? (->char-set "abcd"))) .......... [PASS] 48. (char-set-every char-lower-case? (->char-set "abcD")) .......... [PASS] 49. (not (char-set-any char-lower-case? (->char-set "abcd"))) .......... [PASS] 50. (char-set-any char-lower-case? (->char-set "ABCD")) .......... [PASS] 51. (char-set= (->char-set "ABCD") (let ((cs (->char-set "abcd"))) (let lp ((cur (char-set-cursor cs)) (ans (quote ()))) (if (end-of-char-set? cur) (list->char-set ans) (lp (char-set-cursor-next cs cur) (cons (char-upcase (char-set-ref cs cur)) ans)))))) .......... [PASS] 52. (char-set= (->char-set "123xa") (char-set-adjoin (->char-set "123") #\x #\a)) .......... [PASS] 53. (char-set= (char-set-adjoin (->char-set "123") #\x #\a) (->char-set "123x")) .......... [PASS] 54. (char-set= (->char-set "123xa") (char-set-adjoin! (->char-set "123") #\x #\a)) .......... [PASS] 55. (char-set= (char-set-adjoin! (->char-set "123") #\x #\a) (->char-set "123x")) .......... [PASS] 56. (char-set= (->char-set "13") (char-set-delete (->char-set "123") #\2 #\a #\2)) .......... [PASS] 57. (char-set= (char-set-delete (->char-set "123") #\2 #\a #\2) (->char-set "13a")) .......... [PASS] 58. (char-set= (->char-set "13") (char-set-delete! (->char-set "123") #\2 #\a #\2)) .......... [PASS] 59. (char-set= (char-set-delete! (->char-set "123") #\2 #\a #\2) (->char-set "13a")) .......... [PASS] 60. (char-set= (->char-set "abcdefABCDEF") (char-set-intersection char-set:hex-digit (char-set-complement char-set:digit))) .......... [PASS] 61. (char-set= (->char-set "abcdefABCDEF") (char-set-intersection! (char-set-complement! (->char-set "0123456789")) char-set:hex-digit)) .......... [PASS] 62. (char-set= (->char-set "abcdefABCDEFghijkl0123456789") (char-set-union char-set:hex-digit (->char-set "abcdefghijkl"))) .......... [PASS] 63. (char-set= (->char-set "abcdefABCDEFghijkl0123456789") (char-set-union! (->char-set "abcdefghijkl") char-set:hex-digit)) .......... [PASS] 64. (char-set= (->char-set "ghijklmn") (char-set-difference (->char-set "abcdefghijklmn") char-set:hex-digit)) .......... [PASS] 65. (char-set= (->char-set "ghijklmn") (char-set-difference! (->char-set "abcdefghijklmn") char-set:hex-digit)) .......... [PASS] 66. (char-set= (->char-set "abcdefABCDEF") (char-set-xor (->char-set "0123456789") char-set:hex-digit)) .......... [PASS] 67. (char-set= (->char-set "abcdefABCDEF") (char-set-xor! (->char-set "0123456789") char-set:hex-digit)) .......... [PASS] 68. (char-set= d (->char-set "0123456789")) .......... [PASS] 69. (char-set= i (->char-set "abcdefABCDEF")) .......... [PASS] 70. (char-set= d (->char-set "0123456789")) .......... [PASS] 71. (char-set= i (->char-set "abcdefABCDEF")) .......... [PASS] 72. (char-set? char-set:empty) .......... [PASS] 73. (char-set? (char-set #\a #\b)) .......... [PASS] 74. (char-set? (quote not-a-char-set)) .......... [PASS] 75. (char-set? #\c) .......... [PASS] 76. (char-set=) .......... [PASS] 77. (char-set= char-set:empty) .......... [PASS] 78. (char-set= (char-set #\a #\b) (char-set #\b #\a)) .......... [PASS] 79. (char-set= (char-set #\a #\b) (char-set #\a)) .......... [PASS] 80. (char-set= (char-set #\x #\y) (char-set #\y #\x) (char-set #\x #\y)) .......... [PASS] 81. (char-set<=) .......... [PASS] 82. (char-set<= char-set:empty) .......... [PASS] 83. (char-set<= (char-set #\a) (char-set #\a #\b) (char-set #\a #\b #\c)) .......... [PASS] 84. (char-set<= (char-set #\a #\b) (char-set #\a)) .......... [PASS] 85. (char-set<= (char-set #\x) (char-set #\x)) .......... [PASS] 86. (integer? (char-set-hash (char-set #\a #\b))) .......... [PASS] 87. (exact-integer? (char-set-hash (char-set #\a #\b) 100)) .......... [PASS] 88. (let ((h (char-set-hash (char-set #\a #\b) 100))) (and (>= h 0) (< h 100))) .......... [PASS] 89. (end-of-char-set? (char-set-cursor char-set:empty)) .......... [PASS] 90. (end-of-char-set? (char-set-cursor (char-set #\a))) .......... [PASS] 91. (char-set-ref (char-set #\a) (char-set-cursor (char-set #\a))) .......... [PASS] 92. (end-of-char-set? (char-set-cursor-next (char-set #\a) (char-set-cursor (char-set #\a)))) .......... [PASS] 93. (char-set-fold (lambda (c acc) (+ acc 1)) 0 (char-set #\a #\b #\c)) .......... [PASS] 94. (char-set= (char-set #\a #\b #\c) (list->char-set (char-set-fold cons (quote ()) (char-set #\a #\b #\c)))) .......... [PASS] 95. (char-set= (char-set #\a #\b #\c) (char-set-unfold (lambda (x) (= x 3)) (lambda (x) (vector-ref (quote #(#\a #\b #\c)) x)) (lambda (x) (+ x 1)) 0)) .......... [PASS] 96. (char-set= (char-set #\a #\b #\c #\d) (char-set-unfold! (lambda (x) (= x 3)) (lambda (x) (vector-ref (quote #(#\a #\b #\c)) x)) (lambda (x) (+ x 1)) 0 (char-set #\d))) .......... [PASS] 97. (let ((lst (quote ()))) (char-set-for-each (lambda (c) (set! lst (cons c lst))) (char-set #\a #\b)) (if (charchar (+ 1 (char->integer c)))) (char-set #\a #\b #\c))) .......... [PASS] 99. (char-set= (char-set #\a) (char-set-copy (char-set #\a))) .......... [PASS] 100. (char-set= (char-set #\a #\b) (list->char-set (quote (#\a #\b)))) .......... [PASS] 101. (char-set= (char-set #\a #\b #\c) (list->char-set! (quote (#\a #\b)) (char-set #\c))) .......... [PASS] 102. (char-set= (char-set #\a #\b) (string->char-set "ab")) .......... [PASS] 103. (char-set= (char-set #\a #\b #\c) (string->char-set! "ab" (char-set #\c))) .......... [PASS] 104. (char-set= (char-set #\a #\c) (char-set-filter (lambda (c) (not (char=? c #\b))) (char-set #\a #\b #\c))) .......... [PASS] 105. (char-set= (char-set #\a #\c #\d) (char-set-filter! (lambda (c) (not (char=? c #\b))) (char-set #\a #\b #\c) (char-set #\d))) .......... [PASS] 106. (char-set= (char-set #\a #\b #\c) (ucs-range->char-set 97 100)) .......... [PASS] 107. (char-set= (char-set #\a #\b #\c #\d) (ucs-range->char-set! 97 100 #f (char-set #\d))) .......... [PASS] 108. (char-set= (char-set #\a) (->char-set (char-set #\a))) .......... [PASS] 109. (char-set= (char-set #\a) (->char-set #\a)) .......... [PASS] 110. (char-set= (char-set #\a #\b) (->char-set "ab")) .......... [PASS] 111. (char-set-size char-set:empty) .......... [PASS] 112. (char-set-size (char-set #\a #\b #\c)) .......... [PASS] 113. (char-set-count (lambda (c) (char=? c #\a)) (char-set #\a #\b #\a)) .......... [PASS] 114. (char-set-contains? (char-set #\a #\b) #\a) .......... [PASS] 115. (char-set-contains? (char-set #\a #\b) #\c) .......... [PASS] 116. (char-set-every char-lower-case? (char-set #\a #\b #\c)) .......... [PASS] 117. (char-set-every char-lower-case? (char-set #\a #\B #\c)) .......... [PASS] 118. (char-set-any char-upper-case? (char-set #\a #\B #\c)) .......... [PASS] 119. (char-set-any char-upper-case? (char-set #\a #\b #\c)) .......... [PASS] 120. (char-set= (char-set #\x #\y) (list->char-set (char-set->list (char-set #\x #\y)))) .......... [PASS] 121. (char-set= (char-set #\x #\y) (string->char-set (char-set->string (char-set #\x #\y)))) .......... [PASS] 122. (char-set= (char-set #\a #\b #\c) (char-set-adjoin (char-set #\a #\b) #\c)) .......... [PASS] 123. (char-set= (char-set #\a #\b #\c) (char-set-adjoin! (char-set #\a #\b) #\c)) .......... [PASS] 124. (char-set= (char-set #\a #\b) (char-set-delete (char-set #\a #\b #\c) #\c)) .......... [PASS] 125. (char-set= (char-set #\a #\b) (char-set-delete! (char-set #\a #\b #\c) #\c)) .......... [PASS] 126. (char-set= char-set:empty (char-set-complement char-set:full)) .......... [PASS] 127. (char-set= char-set:empty (char-set-complement! char-set:full)) .......... [PASS] 128. (char-set= (char-set #\a #\b #\c) (char-set-union (char-set #\a) (char-set #\b) (char-set #\c))) .......... [PASS] 129. (char-set= (char-set #\a #\b #\c) (char-set-union! (char-set #\a) (char-set #\b) (char-set #\c))) .......... [PASS] 130. (char-set= (char-set #\b) (char-set-intersection (char-set #\a #\b) (char-set #\b #\c))) .......... [PASS] 131. (char-set= (char-set #\b) (char-set-intersection! (char-set #\a #\b) (char-set #\b #\c))) .......... [PASS] 132. (char-set= (char-set #\a) (char-set-difference (char-set #\a #\b) (char-set #\b #\c))) .......... [PASS] 133. (char-set= (char-set #\a) (char-set-difference! (char-set #\a #\b) (char-set #\b #\c))) .......... [PASS] 134. (char-set= (char-set #\a #\c) (char-set-xor (char-set #\a #\b) (char-set #\b #\c))) .......... [PASS] 135. (char-set= (char-set #\a #\c) (char-set-xor! (char-set #\a #\b) (char-set #\b #\c))) .......... [PASS] 136. (call-with-values (lambda () (char-set-diff+intersection (char-set #\a #\b) (char-set #\b #\c))) (lambda (diff inter) (and (char-set= diff (char-set #\a)) (char-set= inter (char-set #\b))))) .......... [PASS] 137. (call-with-values (lambda () (char-set-diff+intersection! (char-set #\a #\b) (char-set #\b #\c))) (lambda (diff inter) (and (char-set= diff (char-set #\a)) (char-set= inter (char-set #\b))))) .......... [PASS] 138. (char-set-contains? char-set:lower-case #\a) .......... [PASS] 139. (char-set-contains? char-set:lower-case #\A) .......... [PASS] 140. (char-set-contains? char-set:upper-case #\A) .......... [PASS] 141. (char-set-contains? char-set:upper-case #\a) .......... [PASS] 142. (char-set-contains? char-set:digit #\3) .......... [PASS] 143. (char-set-contains? char-set:digit #\a) .......... [PASS] 144. (char-set-contains? char-set:hex-digit #\f) .......... [PASS] 145. (char-set-contains? char-set:hex-digit #\F) .......... [PASS] 146. (char-set-contains? char-set:hex-digit #\g) .......... [PASS] 147. (char-set-contains? char-set:whitespace #\space) .......... [PASS] 148. (char-set-contains? char-set:whitespace #\tab) .......... [PASS] 149. (char-set-contains? char-set:blank #\space) .......... [PASS] 150. (char-set-contains? char-set:blank #\newline) .......... [PASS] 151. (char-set-contains? char-set:iso-control (integer->char 0)) .......... [PASS] 152. (char-set-contains? char-set:iso-control (integer->char 127)) .......... [PASS] 153. (char-set-contains? char-set:punctuation #\.) .......... [PASS] 154. (char-set-contains? char-set:symbol #\+) .......... [PASS] 155. (char-set-contains? char-set:ascii (integer->char 127)) .......... [PASS] 156. (char-set-contains? char-set:ascii (integer->char 128)) .......... [PASS] Running character set fuzzy tests... 157. (char-set-difference universe (char-set-union s1 s2)) .......... [PASS] 158. (char-set-difference universe (char-set-intersection s1 s2)) .......... [PASS] 159. (char-set-union s2 s1) .......... [PASS] 160. (char-set-intersection s2 s1) .......... [PASS] 161. (char-set-union s1 (char-set-union s2 s3)) .......... [PASS] 162. (char-set-intersection s1 (char-set-intersection s2 s3)) .......... [PASS] 163. (char-set-intersection (char-set-union s1 s2) (char-set-union s1 s3)) .......... [PASS] 164. (char-set-union (char-set-intersection s1 s2) (char-set-intersection s1 s3)) .......... [PASS] 165. (char-set-union s1 char-set:empty) .......... [PASS] 166. (char-set-union char-set:empty s1) .......... [PASS] 167. (char-set-intersection s1 char-set:empty) .......... [PASS] 168. (char-set-intersection char-set:empty s1) .......... [PASS] 169. (char-set-union s1 s1) .......... [PASS] 170. (char-set-intersection s1 s1) .......... [PASS] 171. (char-set-union s1 (char-set-difference universe s1)) .......... [PASS] 172. (char-set-intersection s1 (char-set-difference universe s1)) .......... [PASS] 173. (char-set-union s1 (char-set-intersection s1 s2)) .......... [PASS] 174. (char-set-intersection s1 (char-set-union s1 s2)) .......... [PASS] 175. (char-set-difference s1 s1) .......... [PASS] 176. (char-set-difference s1 char-set:empty) .......... [PASS] 177. (char-set-difference (char-set-intersection s1 s2) s3) .......... [PASS] 178. (char-set<= char-set:empty s1) .......... [PASS] 179. (char-set<= s1 s1) .......... [PASS] 180. (char-set<= (char-set-intersection s1 s2) s1) .......... [PASS] 181. (char-set<= (char-set-intersection s1 s2) s2) .......... [PASS] 182. (char-set<= s1 (char-set-union s1 s2)) .......... [PASS] 183. (char-set<= s2 (char-set-union s1 s2)) .......... [PASS] 184. (char-set= (char-set-intersection s1 s2) char-set:empty) .......... [PASS] 185. (not (char-set<= s1 s2)) .......... [PASS] 186. (<= (char-set-size (char-set-intersection s1 s2)) (min (char-set-size s1) (char-set-size s2))) .......... [PASS] 187. (>= (char-set-size (char-set-union s1 s2)) (max (char-set-size s1) (char-set-size s2))) .......... [PASS] 188. (+ (char-set-size (char-set-union s1 s2)) (char-set-size (char-set-intersection s1 s2))) .......... [PASS] 189. (char-set= s1 s1) .......... [PASS] 190. (char-set= s2 s1) .......... [PASS] 191. (list->char-set (char-set->list s1)) .......... [PASS] 192. (not (not (member test-char (char-set->list s1)))) .......... [PASS] 193. (char-set-contains? s1 test-char) .......... [PASS] 194. (char-set-contains? s2 test-char) .......... [PASS] 195. (or (char-set-contains? s1 test-char) (char-set-contains? s2 test-char)) .......... [PASS] 196. (char-set-difference universe (char-set-union s1 s2)) .......... [PASS] 197. (char-set-difference universe (char-set-intersection s1 s2)) .......... [PASS] 198. (char-set-union s2 s1) .......... [PASS] 199. (char-set-intersection s2 s1) .......... [PASS] 200. (char-set-union s1 (char-set-union s2 s3)) .......... [PASS] 201. (char-set-intersection s1 (char-set-intersection s2 s3)) .......... [PASS] 202. (char-set-intersection (char-set-union s1 s2) (char-set-union s1 s3)) .......... [PASS] 203. (char-set-union (char-set-intersection s1 s2) (char-set-intersection s1 s3)) .......... [PASS] 204. (char-set-union s1 char-set:empty) .......... [PASS] 205. (char-set-union char-set:empty s1) .......... [PASS] 206. (char-set-intersection s1 char-set:empty) .......... [PASS] 207. (char-set-intersection char-set:empty s1) .......... [PASS] 208. (char-set-union s1 s1) .......... [PASS] 209. (char-set-intersection s1 s1) .......... [PASS] 210. (char-set-union s1 (char-set-difference universe s1)) .......... [PASS] 211. (char-set-intersection s1 (char-set-difference universe s1)) .......... [PASS] 212. (char-set-union s1 (char-set-intersection s1 s2)) .......... [PASS] 213. (char-set-intersection s1 (char-set-union s1 s2)) .......... [PASS] 214. (char-set-difference s1 s1) .......... [PASS] 215. (char-set-difference s1 char-set:empty) .......... [PASS] 216. (char-set-difference (char-set-intersection s1 s2) s3) .......... [PASS] 217. (char-set<= char-set:empty s1) .......... [PASS] 218. (char-set<= s1 s1) .......... [PASS] 219. (char-set<= (char-set-intersection s1 s2) s1) .......... [PASS] 220. (char-set<= (char-set-intersection s1 s2) s2) .......... [PASS] 221. (char-set<= s1 (char-set-union s1 s2)) .......... [PASS] 222. (char-set<= s2 (char-set-union s1 s2)) .......... [PASS] 223. (char-set-union s1 s2) .......... [PASS] 224. (char-set-intersection s1 s2) .......... [PASS] 225. (char-set= (char-set-intersection s1 s2) char-set:empty) .......... [PASS] 226. (not (char-set<= s1 s2)) .......... [PASS] 227. (<= (char-set-size (char-set-intersection s1 s2)) (min (char-set-size s1) (char-set-size s2))) .......... [PASS] 228. (>= (char-set-size (char-set-union s1 s2)) (max (char-set-size s1) (char-set-size s2))) .......... [PASS] 229. (+ (char-set-size (char-set-union s1 s2)) (char-set-size (char-set-intersection s1 s2))) .......... [PASS] 230. (char-set= s1 s1) .......... [PASS] 231. (char-set= s2 s1) .......... [PASS] 232. (list->char-set (char-set->list s1)) .......... [PASS] 233. (not (not (member test-char (char-set->list s1)))) .......... [PASS] 234. (or (char-set-contains? s1 test-char) (char-set-contains? s2 test-char)) .......... [PASS] 235. (char-set-difference universe (char-set-union s1 s2)) .......... [PASS] 236. (char-set-difference universe (char-set-intersection s1 s2)) .......... [PASS] 237. (char-set-union s2 s1) .......... [PASS] 238. (char-set-intersection s2 s1) .......... [PASS] 239. (char-set-union s1 (char-set-union s2 s3)) .......... [PASS] 240. (char-set-intersection s1 (char-set-intersection s2 s3)) .......... [PASS] 241. (char-set-intersection (char-set-union s1 s2) (char-set-union s1 s3)) .......... [PASS] 242. (char-set-union (char-set-intersection s1 s2) (char-set-intersection s1 s3)) .......... [PASS] 243. (char-set-union s1 char-set:empty) .......... [PASS] 244. (char-set-union char-set:empty s1) .......... [PASS] 245. (char-set-intersection s1 char-set:empty) .......... [PASS] 246. (char-set-intersection char-set:empty s1) .......... [PASS] 247. (char-set-union s1 s1) .......... [PASS] 248. (char-set-intersection s1 s1) .......... [PASS] 249. (char-set-union s1 (char-set-difference universe s1)) .......... [PASS] 250. (char-set-intersection s1 (char-set-difference universe s1)) .......... [PASS] 251. (char-set-union s1 (char-set-intersection s1 s2)) .......... [PASS] 252. (char-set-intersection s1 (char-set-union s1 s2)) .......... [PASS] 253. (char-set-difference s1 s1) .......... [PASS] 254. (char-set-difference s1 char-set:empty) .......... [PASS] 255. (char-set-difference (char-set-intersection s1 s2) s3) .......... [PASS] 256. (char-set<= char-set:empty s1) .......... [PASS] 257. (char-set<= s1 s1) .......... [PASS] 258. (char-set<= (char-set-intersection s1 s2) s1) .......... [PASS] 259. (char-set<= (char-set-intersection s1 s2) s2) .......... [PASS] 260. (char-set<= s1 (char-set-union s1 s2)) .......... [PASS] 261. (char-set<= s2 (char-set-union s1 s2)) .......... [PASS] 262. (char-set= (char-set-intersection s1 s2) char-set:empty) .......... [PASS] 263. (not (char-set<= s1 s2)) .......... [PASS] 264. (<= (char-set-size (char-set-intersection s1 s2)) (min (char-set-size s1) (char-set-size s2))) .......... [PASS] 265. (>= (char-set-size (char-set-union s1 s2)) (max (char-set-size s1) (char-set-size s2))) .......... [PASS] 266. (+ (char-set-size (char-set-union s1 s2)) (char-set-size (char-set-intersection s1 s2))) .......... [PASS] 267. (char-set= s1 s1) .......... [PASS] 268. (char-set= s2 s1) .......... [PASS] 269. (list->char-set (char-set->list s1)) .......... [PASS] 270. (not (not (member test-char (char-set->list s1)))) .......... [PASS] 271. (char-set-contains? s1 test-char) .......... [PASS] 272. (char-set-contains? s2 test-char) .......... [PASS] 273. (or (char-set-contains? s1 test-char) (char-set-contains? s2 test-char)) .......... [PASS] 274. (char-set-difference universe (char-set-union s1 s2)) .......... [PASS] 275. (char-set-difference universe (char-set-intersection s1 s2)) .......... [PASS] 276. (char-set-union s2 s1) .......... [PASS] 277. (char-set-intersection s2 s1) .......... [PASS] 278. (char-set-union s1 (char-set-union s2 s3)) .......... [PASS] 279. (char-set-intersection s1 (char-set-intersection s2 s3)) .......... [PASS] 280. (char-set-intersection (char-set-union s1 s2) (char-set-union s1 s3)) .......... [PASS] 281. (char-set-union (char-set-intersection s1 s2) (char-set-intersection s1 s3)) .......... [PASS] 282. (char-set-union s1 char-set:empty) .......... [PASS] 283. (char-set-union char-set:empty s1) .......... [PASS] 284. (char-set-intersection s1 char-set:empty) .......... [PASS] 285. (char-set-intersection char-set:empty s1) .......... [PASS] 286. (char-set-union s1 s1) .......... [PASS] 287. (char-set-intersection s1 s1) .......... [PASS] 288. (char-set-union s1 (char-set-difference universe s1)) .......... [PASS] 289. (char-set-intersection s1 (char-set-difference universe s1)) .......... [PASS] 290. (char-set-union s1 (char-set-intersection s1 s2)) .......... [PASS] 291. (char-set-intersection s1 (char-set-union s1 s2)) .......... [PASS] 292. (char-set-difference s1 s1) .......... [PASS] 293. (char-set-difference s1 char-set:empty) .......... [PASS] 294. (char-set-difference (char-set-intersection s1 s2) s3) .......... [PASS] 295. (char-set<= char-set:empty s1) .......... [PASS] 296. (char-set<= s1 s1) .......... [PASS] 297. (char-set<= (char-set-intersection s1 s2) s1) .......... [PASS] 298. (char-set<= (char-set-intersection s1 s2) s2) .......... [PASS] 299. (char-set<= s1 (char-set-union s1 s2)) .......... [PASS] 300. (char-set<= s2 (char-set-union s1 s2)) .......... [PASS] 301. (char-set= (char-set-intersection s1 s2) char-set:empty) .......... [PASS] 302. (not (char-set<= s1 s2)) .......... [PASS] 303. (<= (char-set-size (char-set-intersection s1 s2)) (min (char-set-size s1) (char-set-size s2))) .......... [PASS] 304. (>= (char-set-size (char-set-union s1 s2)) (max (char-set-size s1) (char-set-size s2))) .......... [PASS] 305. (+ (char-set-size (char-set-union s1 s2)) (char-set-size (char-set-intersection s1 s2))) .......... [PASS] 306. (char-set= s1 s1) .......... [PASS] 307. (char-set= s2 s1) .......... [PASS] 308. (list->char-set (char-set->list s1)) .......... [PASS] 309. (not (not (member test-char (char-set->list s1)))) .......... [PASS] 310. (char-set-difference universe (char-set-union s1 s2)) .......... [PASS] 311. (char-set-difference universe (char-set-intersection s1 s2)) .......... [PASS] 312. (char-set-union s2 s1) .......... [PASS] 313. (char-set-intersection s2 s1) .......... [PASS] 314. (char-set-union s1 (char-set-union s2 s3)) .......... [PASS] 315. (char-set-intersection s1 (char-set-intersection s2 s3)) .......... [PASS] 316. (char-set-intersection (char-set-union s1 s2) (char-set-union s1 s3)) .......... [PASS] 317. (char-set-union (char-set-intersection s1 s2) (char-set-intersection s1 s3)) .......... [PASS] 318. (char-set-union s1 char-set:empty) .......... [PASS] 319. (char-set-union char-set:empty s1) .......... [PASS] 320. (char-set-intersection s1 char-set:empty) .......... [PASS] 321. (char-set-intersection char-set:empty s1) .......... [PASS] 322. (char-set-union s1 s1) .......... [PASS] 323. (char-set-intersection s1 s1) .......... [PASS] 324. (char-set-union s1 (char-set-difference universe s1)) .......... [PASS] 325. (char-set-intersection s1 (char-set-difference universe s1)) .......... [PASS] 326. (char-set-union s1 (char-set-intersection s1 s2)) .......... [PASS] 327. (char-set-intersection s1 (char-set-union s1 s2)) .......... [PASS] 328. (char-set-difference s1 s1) .......... [PASS] 329. (char-set-difference s1 char-set:empty) .......... [PASS] 330. (char-set-difference (char-set-intersection s1 s2) s3) .......... [PASS] 331. (char-set<= char-set:empty s1) .......... [PASS] 332. (char-set<= s1 s1) .......... [PASS] 333. (char-set<= (char-set-intersection s1 s2) s1) .......... [PASS] 334. (char-set<= (char-set-intersection s1 s2) s2) .......... [PASS] 335. (char-set<= s1 (char-set-union s1 s2)) .......... [PASS] 336. (char-set<= s2 (char-set-union s1 s2)) .......... [PASS] 337. (char-set= (char-set-intersection s1 s2) char-set:empty) .......... [PASS] 338. (not (char-set<= s1 s2)) .......... [PASS] 339. (<= (char-set-size (char-set-intersection s1 s2)) (min (char-set-size s1) (char-set-size s2))) .......... [PASS] 340. (>= (char-set-size (char-set-union s1 s2)) (max (char-set-size s1) (char-set-size s2))) .......... [PASS] 341. (+ (char-set-size (char-set-union s1 s2)) (char-set-size (char-set-intersection s1 s2))) .......... [PASS] 342. (char-set= s1 s1) .......... [PASS] 343. (char-set= s2 s1) .......... [PASS] 344. (list->char-set (char-set->list s1)) .......... [PASS] 345. (not (not (member test-char (char-set->list s1)))) .......... [PASS] 346. (or (char-set-contains? s1 test-char) (char-set-contains? s2 test-char)) .......... [PASS] 347. (char-set-contains? s1 test-char) .......... [PASS] 348. (char-set-contains? s2 test-char) .......... [PASS] 349. (char-set-difference universe (char-set-union s1 s2)) .......... [PASS] 350. (char-set-difference universe (char-set-intersection s1 s2)) .......... [PASS] 351. (char-set-union s2 s1) .......... [PASS] 352. (char-set-intersection s2 s1) .......... [PASS] 353. (char-set-union s1 (char-set-union s2 s3)) .......... [PASS] 354. (char-set-intersection s1 (char-set-intersection s2 s3)) .......... [PASS] 355. (char-set-intersection (char-set-union s1 s2) (char-set-union s1 s3)) .......... [PASS] 356. (char-set-union (char-set-intersection s1 s2) (char-set-intersection s1 s3)) .......... [PASS] 357. (char-set-union s1 char-set:empty) .......... [PASS] 358. (char-set-union char-set:empty s1) .......... [PASS] 359. (char-set-intersection s1 char-set:empty) .......... [PASS] 360. (char-set-intersection char-set:empty s1) .......... [PASS] 361. (char-set-union s1 s1) .......... [PASS] 362. (char-set-intersection s1 s1) .......... [PASS] 363. (char-set-union s1 (char-set-difference universe s1)) .......... [PASS] 364. (char-set-intersection s1 (char-set-difference universe s1)) .......... [PASS] 365. (char-set-union s1 (char-set-intersection s1 s2)) .......... [PASS] 366. (char-set-intersection s1 (char-set-union s1 s2)) .......... [PASS] 367. (char-set-difference s1 s1) .......... [PASS] 368. (char-set-difference s1 char-set:empty) .......... [PASS] 369. (char-set-difference (char-set-intersection s1 s2) s3) .......... [PASS] 370. (char-set<= char-set:empty s1) .......... [PASS] 371. (char-set<= s1 s1) .......... [PASS] 372. (char-set<= (char-set-intersection s1 s2) s1) .......... [PASS] 373. (char-set<= (char-set-intersection s1 s2) s2) .......... [PASS] 374. (char-set<= s1 (char-set-union s1 s2)) .......... [PASS] 375. (char-set<= s2 (char-set-union s1 s2)) .......... [PASS] 376. (char-set= (char-set-intersection s1 s2) char-set:empty) .......... [PASS] 377. (not (char-set<= s1 s2)) .......... [PASS] 378. (<= (char-set-size (char-set-intersection s1 s2)) (min (char-set-size s1) (char-set-size s2))) .......... [PASS] 379. (>= (char-set-size (char-set-union s1 s2)) (max (char-set-size s1) (char-set-size s2))) .......... [PASS] 380. (+ (char-set-size (char-set-union s1 s2)) (char-set-size (char-set-intersection s1 s2))) .......... [PASS] 381. (char-set= s1 s1) .......... [PASS] 382. (char-set= s2 s1) .......... [PASS] 383. (list->char-set (char-set->list s1)) .......... [PASS] 384. (not (not (member test-char (char-set->list s1)))) .......... [PASS] 385. (char-set-difference universe (char-set-union s1 s2)) .......... [PASS] 386. (char-set-difference universe (char-set-intersection s1 s2)) .......... [PASS] 387. (char-set-union s2 s1) .......... [PASS] 388. (char-set-intersection s2 s1) .......... [PASS] 389. (char-set-union s1 (char-set-union s2 s3)) .......... [PASS] 390. (char-set-intersection s1 (char-set-intersection s2 s3)) .......... [PASS] 391. (char-set-intersection (char-set-union s1 s2) (char-set-union s1 s3)) .......... [PASS] 392. (char-set-union (char-set-intersection s1 s2) (char-set-intersection s1 s3)) .......... [PASS] 393. (char-set-union s1 char-set:empty) .......... [PASS] 394. (char-set-union char-set:empty s1) .......... [PASS] 395. (char-set-intersection s1 char-set:empty) .......... [PASS] 396. (char-set-intersection char-set:empty s1) .......... [PASS] 397. (char-set-union s1 s1) .......... [PASS] 398. (char-set-intersection s1 s1) .......... [PASS] 399. (char-set-union s1 (char-set-difference universe s1)) .......... [PASS] 400. (char-set-intersection s1 (char-set-difference universe s1)) .......... [PASS] 401. (char-set-union s1 (char-set-intersection s1 s2)) .......... [PASS] 402. (char-set-intersection s1 (char-set-union s1 s2)) .......... [PASS] 403. (char-set-difference s1 s1) .......... [PASS] 404. (char-set-difference s1 char-set:empty) .......... [PASS] 405. (char-set-difference (char-set-intersection s1 s2) s3) .......... [PASS] 406. (char-set<= char-set:empty s1) .......... [PASS] 407. (char-set<= s1 s1) .......... [PASS] 408. (char-set<= (char-set-intersection s1 s2) s1) .......... [PASS] 409. (char-set<= (char-set-intersection s1 s2) s2) .......... [PASS] 410. (char-set<= s1 (char-set-union s1 s2)) .......... [PASS] 411. (char-set<= s2 (char-set-union s1 s2)) .......... [PASS] 412. (char-set= (char-set-intersection s1 s2) char-set:empty) .......... [PASS] 413. (not (char-set<= s1 s2)) .......... [PASS] 414. (<= (char-set-size (char-set-intersection s1 s2)) (min (char-set-size s1) (char-set-size s2))) .......... [PASS] 415. (>= (char-set-size (char-set-union s1 s2)) (max (char-set-size s1) (char-set-size s2))) .......... [PASS] 416. (+ (char-set-size (char-set-union s1 s2)) (char-set-size (char-set-intersection s1 s2))) .......... [PASS] 417. (char-set= s1 s1) .......... [PASS] 418. (char-set= s2 s1) .......... [PASS] 419. (list->char-set (char-set->list s1)) .......... [PASS] 420. (not (not (member test-char (char-set->list s1)))) .......... [PASS] 421. (char-set-difference universe (char-set-union s1 s2)) .......... [PASS] 422. (char-set-difference universe (char-set-intersection s1 s2)) .......... [PASS] 423. (char-set-union s2 s1) .......... [PASS] 424. (char-set-intersection s2 s1) .......... [PASS] 425. (char-set-union s1 (char-set-union s2 s3)) .......... [PASS] 426. (char-set-intersection s1 (char-set-intersection s2 s3)) .......... [PASS] 427. (char-set-intersection (char-set-union s1 s2) (char-set-union s1 s3)) .......... [PASS] 428. (char-set-union (char-set-intersection s1 s2) (char-set-intersection s1 s3)) .......... [PASS] 429. (char-set-union s1 char-set:empty) .......... [PASS] 430. (char-set-union char-set:empty s1) .......... [PASS] 431. (char-set-intersection s1 char-set:empty) .......... [PASS] 432. (char-set-intersection char-set:empty s1) .......... [PASS] 433. (char-set-union s1 s1) .......... [PASS] 434. (char-set-intersection s1 s1) .......... [PASS] 435. (char-set-union s1 (char-set-difference universe s1)) .......... [PASS] 436. (char-set-intersection s1 (char-set-difference universe s1)) .......... [PASS] 437. (char-set-union s1 (char-set-intersection s1 s2)) .......... [PASS] 438. (char-set-intersection s1 (char-set-union s1 s2)) .......... [PASS] 439. (char-set-difference s1 s1) .......... [PASS] 440. (char-set-difference s1 char-set:empty) .......... [PASS] 441. (char-set-difference (char-set-intersection s1 s2) s3) .......... [PASS] 442. (char-set<= char-set:empty s1) .......... [PASS] 443. (char-set<= s1 s1) .......... [PASS] 444. (char-set<= (char-set-intersection s1 s2) s1) .......... [PASS] 445. (char-set<= (char-set-intersection s1 s2) s2) .......... [PASS] 446. (char-set<= s1 (char-set-union s1 s2)) .......... [PASS] 447. (char-set<= s2 (char-set-union s1 s2)) .......... [PASS] 448. (char-set= (char-set-intersection s1 s2) char-set:empty) .......... [PASS] 449. (not (char-set<= s1 s2)) .......... [PASS] 450. (<= (char-set-size (char-set-intersection s1 s2)) (min (char-set-size s1) (char-set-size s2))) .......... [PASS] 451. (>= (char-set-size (char-set-union s1 s2)) (max (char-set-size s1) (char-set-size s2))) .......... [PASS] 452. (+ (char-set-size (char-set-union s1 s2)) (char-set-size (char-set-intersection s1 s2))) .......... [PASS] 453. (char-set= s1 s1) .......... [PASS] 454. (char-set= s2 s1) .......... [PASS] 455. (list->char-set (char-set->list s1)) .......... [PASS] 456. (not (not (member test-char (char-set->list s1)))) .......... [PASS] 457. (char-set-contains? s1 test-char) .......... [PASS] 458. (char-set-contains? s2 test-char) .......... [PASS] 459. (or (char-set-contains? s1 test-char) (char-set-contains? s2 test-char)) .......... [PASS] 460. (char-set-difference universe (char-set-union s1 s2)) .......... [PASS] 461. (char-set-difference universe (char-set-intersection s1 s2)) .......... [PASS] 462. (char-set-union s2 s1) .......... [PASS] 463. (char-set-intersection s2 s1) .......... [PASS] 464. (char-set-union s1 (char-set-union s2 s3)) .......... [PASS] 465. (char-set-intersection s1 (char-set-intersection s2 s3)) .......... [PASS] 466. (char-set-intersection (char-set-union s1 s2) (char-set-union s1 s3)) .......... [PASS] 467. (char-set-union (char-set-intersection s1 s2) (char-set-intersection s1 s3)) .......... [PASS] 468. (char-set-union s1 char-set:empty) .......... [PASS] 469. (char-set-union char-set:empty s1) .......... [PASS] 470. (char-set-intersection s1 char-set:empty) .......... [PASS] 471. (char-set-intersection char-set:empty s1) .......... [PASS] 472. (char-set-union s1 s1) .......... [PASS] 473. (char-set-intersection s1 s1) .......... [PASS] 474. (char-set-union s1 (char-set-difference universe s1)) .......... [PASS] 475. (char-set-intersection s1 (char-set-difference universe s1)) .......... [PASS] 476. (char-set-union s1 (char-set-intersection s1 s2)) .......... [PASS] 477. (char-set-intersection s1 (char-set-union s1 s2)) .......... [PASS] 478. (char-set-difference s1 s1) .......... [PASS] 479. (char-set-difference s1 char-set:empty) .......... [PASS] 480. (char-set-difference (char-set-intersection s1 s2) s3) .......... [PASS] 481. (char-set<= char-set:empty s1) .......... [PASS] 482. (char-set<= s1 s1) .......... [PASS] 483. (char-set<= (char-set-intersection s1 s2) s1) .......... [PASS] 484. (char-set<= (char-set-intersection s1 s2) s2) .......... [PASS] 485. (char-set<= s1 (char-set-union s1 s2)) .......... [PASS] 486. (char-set<= s2 (char-set-union s1 s2)) .......... [PASS] 487. (char-set= (char-set-intersection s1 s2) char-set:empty) .......... [PASS] 488. (not (char-set<= s1 s2)) .......... [PASS] 489. (<= (char-set-size (char-set-intersection s1 s2)) (min (char-set-size s1) (char-set-size s2))) .......... [PASS] 490. (>= (char-set-size (char-set-union s1 s2)) (max (char-set-size s1) (char-set-size s2))) .......... [PASS] 491. (+ (char-set-size (char-set-union s1 s2)) (char-set-size (char-set-intersection s1 s2))) .......... [PASS] 492. (char-set= s1 s1) .......... [PASS] 493. (char-set= s2 s1) .......... [PASS] 494. (list->char-set (char-set->list s1)) .......... [PASS] 495. (not (not (member test-char (char-set->list s1)))) .......... [PASS] 496. (or (char-set-contains? s1 test-char) (char-set-contains? s2 test-char)) .......... [PASS] 497. (char-set-contains? s1 test-char) .......... [PASS] 498. (char-set-contains? s2 test-char) .......... [PASS] 499. (char-set-difference universe (char-set-union s1 s2)) .......... [PASS] 500. (char-set-difference universe (char-set-intersection s1 s2)) .......... [PASS] 501. (char-set-union s2 s1) .......... [PASS] 502. (char-set-intersection s2 s1) .......... [PASS] 503. (char-set-union s1 (char-set-union s2 s3)) .......... [PASS] 504. (char-set-intersection s1 (char-set-intersection s2 s3)) .......... [PASS] 505. (char-set-intersection (char-set-union s1 s2) (char-set-union s1 s3)) .......... [PASS] 506. (char-set-union (char-set-intersection s1 s2) (char-set-intersection s1 s3)) .......... [PASS] 507. (char-set-union s1 char-set:empty) .......... [PASS] 508. (char-set-union char-set:empty s1) .......... [PASS] 509. (char-set-intersection s1 char-set:empty) .......... [PASS] 510. (char-set-intersection char-set:empty s1) .......... [PASS] 511. (char-set-union s1 s1) .......... [PASS] 512. (char-set-intersection s1 s1) .......... [PASS] 513. (char-set-union s1 (char-set-difference universe s1)) .......... [PASS] 514. (char-set-intersection s1 (char-set-difference universe s1)) .......... [PASS] 515. (char-set-union s1 (char-set-intersection s1 s2)) .......... [PASS] 516. (char-set-intersection s1 (char-set-union s1 s2)) .......... [PASS] 517. (char-set-difference s1 s1) .......... [PASS] 518. (char-set-difference s1 char-set:empty) .......... [PASS] 519. (char-set-difference (char-set-intersection s1 s2) s3) .......... [PASS] 520. (char-set<= char-set:empty s1) .......... [PASS] 521. (char-set<= s1 s1) .......... [PASS] 522. (char-set<= (char-set-intersection s1 s2) s1) .......... [PASS] 523. (char-set<= (char-set-intersection s1 s2) s2) .......... [PASS] 524. (char-set<= s1 (char-set-union s1 s2)) .......... [PASS] 525. (char-set<= s2 (char-set-union s1 s2)) .......... [PASS] 526. (char-set= (char-set-intersection s1 s2) char-set:empty) .......... [PASS] 527. (not (char-set<= s1 s2)) .......... [PASS] 528. (<= (char-set-size (char-set-intersection s1 s2)) (min (char-set-size s1) (char-set-size s2))) .......... [PASS] 529. (>= (char-set-size (char-set-union s1 s2)) (max (char-set-size s1) (char-set-size s2))) .......... [PASS] 530. (+ (char-set-size (char-set-union s1 s2)) (char-set-size (char-set-intersection s1 s2))) .......... [PASS] 531. (char-set= s1 s1) .......... [PASS] 532. (char-set= s2 s1) .......... [PASS] 533. (list->char-set (char-set->list s1)) .......... [PASS] 534. (not (not (member test-char (char-set->list s1)))) .......... [PASS] 535. (char-set-difference universe (char-set-union s1 s2)) .......... [PASS] 536. (char-set-difference universe (char-set-intersection s1 s2)) .......... [PASS] 537. (char-set-union s2 s1) .......... [PASS] 538. (char-set-intersection s2 s1) .......... [PASS] 539. (char-set-union s1 (char-set-union s2 s3)) .......... [PASS] 540. (char-set-intersection s1 (char-set-intersection s2 s3)) .......... [PASS] 541. (char-set-intersection (char-set-union s1 s2) (char-set-union s1 s3)) .......... [PASS] 542. (char-set-union (char-set-intersection s1 s2) (char-set-intersection s1 s3)) .......... [PASS] 543. (char-set-union s1 char-set:empty) .......... [PASS] 544. (char-set-union char-set:empty s1) .......... [PASS] 545. (char-set-intersection s1 char-set:empty) .......... [PASS] 546. (char-set-intersection char-set:empty s1) .......... [PASS] 547. (char-set-union s1 s1) .......... [PASS] 548. (char-set-intersection s1 s1) .......... [PASS] 549. (char-set-union s1 (char-set-difference universe s1)) .......... [PASS] 550. (char-set-intersection s1 (char-set-difference universe s1)) .......... [PASS] 551. (char-set-union s1 (char-set-intersection s1 s2)) .......... [PASS] 552. (char-set-intersection s1 (char-set-union s1 s2)) .......... [PASS] 553. (char-set-difference s1 s1) .......... [PASS] 554. (char-set-difference s1 char-set:empty) .......... [PASS] 555. (char-set-difference (char-set-intersection s1 s2) s3) .......... [PASS] 556. (char-set<= char-set:empty s1) .......... [PASS] 557. (char-set<= s1 s1) .......... [PASS] 558. (char-set<= (char-set-intersection s1 s2) s1) .......... [PASS] 559. (char-set<= (char-set-intersection s1 s2) s2) .......... [PASS] 560. (char-set<= s1 (char-set-union s1 s2)) .......... [PASS] 561. (char-set<= s2 (char-set-union s1 s2)) .......... [PASS] 562. (char-set= (char-set-intersection s1 s2) char-set:empty) .......... [PASS] 563. (not (char-set<= s1 s2)) .......... [PASS] 564. (<= (char-set-size (char-set-intersection s1 s2)) (min (char-set-size s1) (char-set-size s2))) .......... [PASS] 565. (>= (char-set-size (char-set-union s1 s2)) (max (char-set-size s1) (char-set-size s2))) .......... [PASS] 566. (+ (char-set-size (char-set-union s1 s2)) (char-set-size (char-set-intersection s1 s2))) .......... [PASS] 567. (char-set= s1 s1) .......... [PASS] 568. (char-set= s2 s1) .......... [PASS] 569. (list->char-set (char-set->list s1)) .......... [PASS] 570. (not (not (member test-char (char-set->list s1)))) .......... [PASS] 571. (char-set-difference universe (char-set-union s1 s2)) .......... [PASS] 572. (char-set-difference universe (char-set-intersection s1 s2)) .......... [PASS] 573. (char-set-union s2 s1) .......... [PASS] 574. (char-set-intersection s2 s1) .......... [PASS] 575. (char-set-union s1 (char-set-union s2 s3)) .......... [PASS] 576. (char-set-intersection s1 (char-set-intersection s2 s3)) .......... [PASS] 577. (char-set-intersection (char-set-union s1 s2) (char-set-union s1 s3)) .......... [PASS] 578. (char-set-union (char-set-intersection s1 s2) (char-set-intersection s1 s3)) .......... [PASS] 579. (char-set-union s1 char-set:empty) .......... [PASS] 580. (char-set-union char-set:empty s1) .......... [PASS] 581. (char-set-intersection s1 char-set:empty) .......... [PASS] 582. (char-set-intersection char-set:empty s1) .......... [PASS] 583. (char-set-union s1 s1) .......... [PASS] 584. (char-set-intersection s1 s1) .......... [PASS] 585. (char-set-union s1 (char-set-difference universe s1)) .......... [PASS] 586. (char-set-intersection s1 (char-set-difference universe s1)) .......... [PASS] 587. (char-set-union s1 (char-set-intersection s1 s2)) .......... [PASS] 588. (char-set-intersection s1 (char-set-union s1 s2)) .......... [PASS] 589. (char-set-difference s1 s1) .......... [PASS] 590. (char-set-difference s1 char-set:empty) .......... [PASS] 591. (char-set-difference (char-set-intersection s1 s2) s3) .......... [PASS] 592. (char-set<= char-set:empty s1) .......... [PASS] 593. (char-set<= s1 s1) .......... [PASS] 594. (char-set<= (char-set-intersection s1 s2) s1) .......... [PASS] 595. (char-set<= (char-set-intersection s1 s2) s2) .......... [PASS] 596. (char-set<= s1 (char-set-union s1 s2)) .......... [PASS] 597. (char-set<= s2 (char-set-union s1 s2)) .......... [PASS] 598. (char-set= (char-set-intersection s1 s2) char-set:empty) .......... [PASS] 599. (not (char-set<= s1 s2)) .......... [PASS] 600. (<= (char-set-size (char-set-intersection s1 s2)) (min (char-set-size s1) (char-set-size s2))) .......... [PASS] 601. (>= (char-set-size (char-set-union s1 s2)) (max (char-set-size s1) (char-set-size s2))) .......... [PASS] 602. (+ (char-set-size (char-set-union s1 s2)) (char-set-size (char-set-intersection s1 s2))) .......... [PASS] 603. (char-set= s1 s1) .......... [PASS] 604. (char-set= s2 s1) .......... [PASS] 605. (list->char-set (char-set->list s1)) .......... [PASS] 606. (not (not (member test-char (char-set->list s1)))) .......... [PASS] 607. (char-set-difference universe (char-set-union s1 s2)) .......... [PASS] 608. (char-set-difference universe (char-set-intersection s1 s2)) .......... [PASS] 609. (char-set-union s2 s1) .......... [PASS] 610. (char-set-intersection s2 s1) .......... [PASS] 611. (char-set-union s1 (char-set-union s2 s3)) .......... [PASS] 612. (char-set-intersection s1 (char-set-intersection s2 s3)) .......... [PASS] 613. (char-set-intersection (char-set-union s1 s2) (char-set-union s1 s3)) .......... [PASS] 614. (char-set-union (char-set-intersection s1 s2) (char-set-intersection s1 s3)) .......... [PASS] 615. (char-set-union s1 char-set:empty) .......... [PASS] 616. (char-set-union char-set:empty s1) .......... [PASS] 617. (char-set-intersection s1 char-set:empty) .......... [PASS] 618. (char-set-intersection char-set:empty s1) .......... [PASS] 619. (char-set-union s1 s1) .......... [PASS] 620. (char-set-intersection s1 s1) .......... [PASS] 621. (char-set-union s1 (char-set-difference universe s1)) .......... [PASS] 622. (char-set-intersection s1 (char-set-difference universe s1)) .......... [PASS] 623. (char-set-union s1 (char-set-intersection s1 s2)) .......... [PASS] 624. (char-set-intersection s1 (char-set-union s1 s2)) .......... [PASS] 625. (char-set-difference s1 s1) .......... [PASS] 626. (char-set-difference s1 char-set:empty) .......... [PASS] 627. (char-set-difference (char-set-intersection s1 s2) s3) .......... [PASS] 628. (char-set<= char-set:empty s1) .......... [PASS] 629. (char-set<= s1 s1) .......... [PASS] 630. (char-set<= (char-set-intersection s1 s2) s1) .......... [PASS] 631. (char-set<= (char-set-intersection s1 s2) s2) .......... [PASS] 632. (char-set<= s1 (char-set-union s1 s2)) .......... [PASS] 633. (char-set<= s2 (char-set-union s1 s2)) .......... [PASS] 634. (char-set= (char-set-intersection s1 s2) char-set:empty) .......... [PASS] 635. (not (char-set<= s1 s2)) .......... [PASS] 636. (<= (char-set-size (char-set-intersection s1 s2)) (min (char-set-size s1) (char-set-size s2))) .......... [PASS] 637. (>= (char-set-size (char-set-union s1 s2)) (max (char-set-size s1) (char-set-size s2))) .......... [PASS] 638. (+ (char-set-size (char-set-union s1 s2)) (char-set-size (char-set-intersection s1 s2))) .......... [PASS] 639. (char-set= s1 s1) .......... [PASS] 640. (char-set= s2 s1) .......... [PASS] 641. (list->char-set (char-set->list s1)) .......... [PASS] 642. (not (not (member test-char (char-set->list s1)))) .......... [PASS] 643. (or (char-set-contains? s1 test-char) (char-set-contains? s2 test-char)) .......... [PASS] 644. (char-set-contains? s1 test-char) .......... [PASS] 645. (char-set-contains? s2 test-char) .......... [PASS] 646. (char-set-difference universe (char-set-union s1 s2)) .......... [PASS] 647. (char-set-difference universe (char-set-intersection s1 s2)) .......... [PASS] 648. (char-set-union s2 s1) .......... [PASS] 649. (char-set-intersection s2 s1) .......... [PASS] 650. (char-set-union s1 (char-set-union s2 s3)) .......... [PASS] 651. (char-set-intersection s1 (char-set-intersection s2 s3)) .......... [PASS] 652. (char-set-intersection (char-set-union s1 s2) (char-set-union s1 s3)) .......... [PASS] 653. (char-set-union (char-set-intersection s1 s2) (char-set-intersection s1 s3)) .......... [PASS] 654. (char-set-union s1 char-set:empty) .......... [PASS] 655. (char-set-union char-set:empty s1) .......... [PASS] 656. (char-set-intersection s1 char-set:empty) .......... [PASS] 657. (char-set-intersection char-set:empty s1) .......... [PASS] 658. (char-set-union s1 s1) .......... [PASS] 659. (char-set-intersection s1 s1) .......... [PASS] 660. (char-set-union s1 (char-set-difference universe s1)) .......... [PASS] 661. (char-set-intersection s1 (char-set-difference universe s1)) .......... [PASS] 662. (char-set-union s1 (char-set-intersection s1 s2)) .......... [PASS] 663. (char-set-intersection s1 (char-set-union s1 s2)) .......... [PASS] 664. (char-set-difference s1 s1) .......... [PASS] 665. (char-set-difference s1 char-set:empty) .......... [PASS] 666. (char-set-difference (char-set-intersection s1 s2) s3) .......... [PASS] 667. (char-set<= char-set:empty s1) .......... [PASS] 668. (char-set<= s1 s1) .......... [PASS] 669. (char-set<= (char-set-intersection s1 s2) s1) .......... [PASS] 670. (char-set<= (char-set-intersection s1 s2) s2) .......... [PASS] 671. (char-set<= s1 (char-set-union s1 s2)) .......... [PASS] 672. (char-set<= s2 (char-set-union s1 s2)) .......... [PASS] 673. (char-set= (char-set-intersection s1 s2) char-set:empty) .......... [PASS] 674. (not (char-set<= s1 s2)) .......... [PASS] 675. (<= (char-set-size (char-set-intersection s1 s2)) (min (char-set-size s1) (char-set-size s2))) .......... [PASS] 676. (>= (char-set-size (char-set-union s1 s2)) (max (char-set-size s1) (char-set-size s2))) .......... [PASS] 677. (+ (char-set-size (char-set-union s1 s2)) (char-set-size (char-set-intersection s1 s2))) .......... [PASS] 678. (char-set= s1 s1) .......... [PASS] 679. (char-set= s2 s1) .......... [PASS] 680. (list->char-set (char-set->list s1)) .......... [PASS] 681. (not (not (member test-char (char-set->list s1)))) .......... [PASS] 682. (char-set-difference universe (char-set-union s1 s2)) .......... [PASS] 683. (char-set-difference universe (char-set-intersection s1 s2)) .......... [PASS] 684. (char-set-union s2 s1) .......... [PASS] 685. (char-set-intersection s2 s1) .......... [PASS] 686. (char-set-union s1 (char-set-union s2 s3)) .......... [PASS] 687. (char-set-intersection s1 (char-set-intersection s2 s3)) .......... [PASS] 688. (char-set-intersection (char-set-union s1 s2) (char-set-union s1 s3)) .......... [PASS] 689. (char-set-union (char-set-intersection s1 s2) (char-set-intersection s1 s3)) .......... [PASS] 690. (char-set-union s1 char-set:empty) .......... [PASS] 691. (char-set-union char-set:empty s1) .......... [PASS] 692. (char-set-intersection s1 char-set:empty) .......... [PASS] 693. (char-set-intersection char-set:empty s1) .......... [PASS] 694. (char-set-union s1 s1) .......... [PASS] 695. (char-set-intersection s1 s1) .......... [PASS] 696. (char-set-union s1 (char-set-difference universe s1)) .......... [PASS] 697. (char-set-intersection s1 (char-set-difference universe s1)) .......... [PASS] 698. (char-set-union s1 (char-set-intersection s1 s2)) .......... [PASS] 699. (char-set-intersection s1 (char-set-union s1 s2)) .......... [PASS] 700. (char-set-difference s1 s1) .......... [PASS] 701. (char-set-difference s1 char-set:empty) .......... [PASS] 702. (char-set-difference (char-set-intersection s1 s2) s3) .......... [PASS] 703. (char-set<= char-set:empty s1) .......... [PASS] 704. (char-set<= s1 s1) .......... [PASS] 705. (char-set<= (char-set-intersection s1 s2) s1) .......... [PASS] 706. (char-set<= (char-set-intersection s1 s2) s2) .......... [PASS] 707. (char-set<= s1 (char-set-union s1 s2)) .......... [PASS] 708. (char-set<= s2 (char-set-union s1 s2)) .......... [PASS] 709. (char-set= (char-set-intersection s1 s2) char-set:empty) .......... [PASS] 710. (not (char-set<= s1 s2)) .......... [PASS] 711. (<= (char-set-size (char-set-intersection s1 s2)) (min (char-set-size s1) (char-set-size s2))) .......... [PASS] 712. (>= (char-set-size (char-set-union s1 s2)) (max (char-set-size s1) (char-set-size s2))) .......... [PASS] 713. (+ (char-set-size (char-set-union s1 s2)) (char-set-size (char-set-intersection s1 s2))) .......... [PASS] 714. (char-set= s1 s1) .......... [PASS] 715. (char-set= s2 s1) .......... [PASS] 716. (list->char-set (char-set->list s1)) .......... [PASS] 717. (not (not (member test-char (char-set->list s1)))) .......... [PASS] 718. (or (char-set-contains? s1 test-char) (char-set-contains? s2 test-char)) .......... [PASS] 719. (char-set-difference universe (char-set-union s1 s2)) .......... [PASS] 720. (char-set-difference universe (char-set-intersection s1 s2)) .......... [PASS] 721. (char-set-union s2 s1) .......... [PASS] 722. (char-set-intersection s2 s1) .......... [PASS] 723. (char-set-union s1 (char-set-union s2 s3)) .......... [PASS] 724. (char-set-intersection s1 (char-set-intersection s2 s3)) .......... [PASS] 725. (char-set-intersection (char-set-union s1 s2) (char-set-union s1 s3)) .......... [PASS] 726. (char-set-union (char-set-intersection s1 s2) (char-set-intersection s1 s3)) .......... [PASS] 727. (char-set-union s1 char-set:empty) .......... [PASS] 728. (char-set-union char-set:empty s1) .......... [PASS] 729. (char-set-intersection s1 char-set:empty) .......... [PASS] 730. (char-set-intersection char-set:empty s1) .......... [PASS] 731. (char-set-union s1 s1) .......... [PASS] 732. (char-set-intersection s1 s1) .......... [PASS] 733. (char-set-union s1 (char-set-difference universe s1)) .......... [PASS] 734. (char-set-intersection s1 (char-set-difference universe s1)) .......... [PASS] 735. (char-set-union s1 (char-set-intersection s1 s2)) .......... [PASS] 736. (char-set-intersection s1 (char-set-union s1 s2)) .......... [PASS] 737. (char-set-difference s1 s1) .......... [PASS] 738. (char-set-difference s1 char-set:empty) .......... [PASS] 739. (char-set-difference (char-set-intersection s1 s2) s3) .......... [PASS] 740. (char-set<= char-set:empty s1) .......... [PASS] 741. (char-set<= s1 s1) .......... [PASS] 742. (char-set<= (char-set-intersection s1 s2) s1) .......... [PASS] 743. (char-set<= (char-set-intersection s1 s2) s2) .......... [PASS] 744. (char-set<= s1 (char-set-union s1 s2)) .......... [PASS] 745. (char-set<= s2 (char-set-union s1 s2)) .......... [PASS] 746. (char-set= (char-set-intersection s1 s2) char-set:empty) .......... [PASS] 747. (not (char-set<= s1 s2)) .......... [PASS] 748. (<= (char-set-size (char-set-intersection s1 s2)) (min (char-set-size s1) (char-set-size s2))) .......... [PASS] 749. (>= (char-set-size (char-set-union s1 s2)) (max (char-set-size s1) (char-set-size s2))) .......... [PASS] 750. (+ (char-set-size (char-set-union s1 s2)) (char-set-size (char-set-intersection s1 s2))) .......... [PASS] 751. (char-set= s1 s1) .......... [PASS] 752. (char-set= s2 s1) .......... [PASS] 753. (list->char-set (char-set->list s1)) .......... [PASS] 754. (not (not (member test-char (char-set->list s1)))) .......... [PASS] 755. (char-set-difference universe (char-set-union s1 s2)) .......... [PASS] 756. (char-set-difference universe (char-set-intersection s1 s2)) .......... [PASS] 757. (char-set-union s2 s1) .......... [PASS] 758. (char-set-intersection s2 s1) .......... [PASS] 759. (char-set-union s1 (char-set-union s2 s3)) .......... [PASS] 760. (char-set-intersection s1 (char-set-intersection s2 s3)) .......... [PASS] 761. (char-set-intersection (char-set-union s1 s2) (char-set-union s1 s3)) .......... [PASS] 762. (char-set-union (char-set-intersection s1 s2) (char-set-intersection s1 s3)) .......... [PASS] 763. (char-set-union s1 char-set:empty) .......... [PASS] 764. (char-set-union char-set:empty s1) .......... [PASS] 765. (char-set-intersection s1 char-set:empty) .......... [PASS] 766. (char-set-intersection char-set:empty s1) .......... [PASS] 767. (char-set-union s1 s1) .......... [PASS] 768. (char-set-intersection s1 s1) .......... [PASS] 769. (char-set-union s1 (char-set-difference universe s1)) .......... [PASS] 770. (char-set-intersection s1 (char-set-difference universe s1)) .......... [PASS] 771. (char-set-union s1 (char-set-intersection s1 s2)) .......... [PASS] 772. (char-set-intersection s1 (char-set-union s1 s2)) .......... [PASS] 773. (char-set-difference s1 s1) .......... [PASS] 774. (char-set-difference s1 char-set:empty) .......... [PASS] 775. (char-set-difference (char-set-intersection s1 s2) s3) .......... [PASS] 776. (char-set<= char-set:empty s1) .......... [PASS] 777. (char-set<= s1 s1) .......... [PASS] 778. (char-set<= (char-set-intersection s1 s2) s1) .......... [PASS] 779. (char-set<= (char-set-intersection s1 s2) s2) .......... [PASS] 780. (char-set<= s1 (char-set-union s1 s2)) .......... [PASS] 781. (char-set<= s2 (char-set-union s1 s2)) .......... [PASS] 782. (char-set= (char-set-intersection s1 s2) char-set:empty) .......... [PASS] 783. (not (char-set<= s1 s2)) .......... [PASS] 784. (<= (char-set-size (char-set-intersection s1 s2)) (min (char-set-size s1) (char-set-size s2))) .......... [PASS] 785. (>= (char-set-size (char-set-union s1 s2)) (max (char-set-size s1) (char-set-size s2))) .......... [PASS] 786. (+ (char-set-size (char-set-union s1 s2)) (char-set-size (char-set-intersection s1 s2))) .......... [PASS] 787. (char-set= s1 s1) .......... [PASS] 788. (char-set= s2 s1) .......... [PASS] 789. (list->char-set (char-set->list s1)) .......... [PASS] 790. (not (not (member test-char (char-set->list s1)))) .......... [PASS] 791. (or (char-set-contains? s1 test-char) (char-set-contains? s2 test-char)) .......... [PASS] 792. (char-set-contains? s1 test-char) .......... [PASS] 793. (char-set-contains? s2 test-char) .......... [PASS] 794. (char-set-difference universe (char-set-union s1 s2)) .......... [PASS] 795. (char-set-difference universe (char-set-intersection s1 s2)) .......... [PASS] 796. (char-set-union s2 s1) .......... [PASS] 797. (char-set-intersection s2 s1) .......... [PASS] 798. (char-set-union s1 (char-set-union s2 s3)) .......... [PASS] 799. (char-set-intersection s1 (char-set-intersection s2 s3)) .......... [PASS] 800. (char-set-intersection (char-set-union s1 s2) (char-set-union s1 s3)) .......... [PASS] 801. (char-set-union (char-set-intersection s1 s2) (char-set-intersection s1 s3)) .......... [PASS] 802. (char-set-union s1 char-set:empty) .......... [PASS] 803. (char-set-union char-set:empty s1) .......... [PASS] 804. (char-set-intersection s1 char-set:empty) .......... [PASS] 805. (char-set-intersection char-set:empty s1) .......... [PASS] 806. (char-set-union s1 s1) .......... [PASS] 807. (char-set-intersection s1 s1) .......... [PASS] 808. (char-set-union s1 (char-set-difference universe s1)) .......... [PASS] 809. (char-set-intersection s1 (char-set-difference universe s1)) .......... [PASS] 810. (char-set-union s1 (char-set-intersection s1 s2)) .......... [PASS] 811. (char-set-intersection s1 (char-set-union s1 s2)) .......... [PASS] 812. (char-set-difference s1 s1) .......... [PASS] 813. (char-set-difference s1 char-set:empty) .......... [PASS] 814. (char-set-difference (char-set-intersection s1 s2) s3) .......... [PASS] 815. (char-set<= char-set:empty s1) .......... [PASS] 816. (char-set<= s1 s1) .......... [PASS] 817. (char-set<= (char-set-intersection s1 s2) s1) .......... [PASS] 818. (char-set<= (char-set-intersection s1 s2) s2) .......... [PASS] 819. (char-set<= s1 (char-set-union s1 s2)) .......... [PASS] 820. (char-set<= s2 (char-set-union s1 s2)) .......... [PASS] 821. (char-set= (char-set-intersection s1 s2) char-set:empty) .......... [PASS] 822. (not (char-set<= s1 s2)) .......... [PASS] 823. (<= (char-set-size (char-set-intersection s1 s2)) (min (char-set-size s1) (char-set-size s2))) .......... [PASS] 824. (>= (char-set-size (char-set-union s1 s2)) (max (char-set-size s1) (char-set-size s2))) .......... [PASS] 825. (+ (char-set-size (char-set-union s1 s2)) (char-set-size (char-set-intersection s1 s2))) .......... [PASS] 826. (char-set= s1 s1) .......... [PASS] 827. (char-set= s2 s1) .......... [PASS] 828. (list->char-set (char-set->list s1)) .......... [PASS] 829. (not (not (member test-char (char-set->list s1)))) .......... [PASS] 830. (char-set-difference universe (char-set-union s1 s2)) .......... [PASS] 831. (char-set-difference universe (char-set-intersection s1 s2)) .......... [PASS] 832. (char-set-union s2 s1) .......... [PASS] 833. (char-set-intersection s2 s1) .......... [PASS] 834. (char-set-union s1 (char-set-union s2 s3)) .......... [PASS] 835. (char-set-intersection s1 (char-set-intersection s2 s3)) .......... [PASS] 836. (char-set-intersection (char-set-union s1 s2) (char-set-union s1 s3)) .......... [PASS] 837. (char-set-union (char-set-intersection s1 s2) (char-set-intersection s1 s3)) .......... [PASS] 838. (char-set-union s1 char-set:empty) .......... [PASS] 839. (char-set-union char-set:empty s1) .......... [PASS] 840. (char-set-intersection s1 char-set:empty) .......... [PASS] 841. (char-set-intersection char-set:empty s1) .......... [PASS] 842. (char-set-union s1 s1) .......... [PASS] 843. (char-set-intersection s1 s1) .......... [PASS] 844. (char-set-union s1 (char-set-difference universe s1)) .......... [PASS] 845. (char-set-intersection s1 (char-set-difference universe s1)) .......... [PASS] 846. (char-set-union s1 (char-set-intersection s1 s2)) .......... [PASS] 847. (char-set-intersection s1 (char-set-union s1 s2)) .......... [PASS] 848. (char-set-difference s1 s1) .......... [PASS] 849. (char-set-difference s1 char-set:empty) .......... [PASS] 850. (char-set-difference (char-set-intersection s1 s2) s3) .......... [PASS] 851. (char-set<= char-set:empty s1) .......... [PASS] 852. (char-set<= s1 s1) .......... [PASS] 853. (char-set<= (char-set-intersection s1 s2) s1) .......... [PASS] 854. (char-set<= (char-set-intersection s1 s2) s2) .......... [PASS] 855. (char-set<= s1 (char-set-union s1 s2)) .......... [PASS] 856. (char-set<= s2 (char-set-union s1 s2)) .......... [PASS] 857. (char-set= (char-set-intersection s1 s2) char-set:empty) .......... [PASS] 858. (not (char-set<= s1 s2)) .......... [PASS] 859. (<= (char-set-size (char-set-intersection s1 s2)) (min (char-set-size s1) (char-set-size s2))) .......... [PASS] 860. (>= (char-set-size (char-set-union s1 s2)) (max (char-set-size s1) (char-set-size s2))) .......... [PASS] 861. (+ (char-set-size (char-set-union s1 s2)) (char-set-size (char-set-intersection s1 s2))) .......... [PASS] 862. (char-set= s1 s1) .......... [PASS] 863. (char-set= s2 s1) .......... [PASS] 864. (list->char-set (char-set->list s1)) .......... [PASS] 865. (not (not (member test-char (char-set->list s1)))) .......... [PASS] 866. (or (char-set-contains? s1 test-char) (char-set-contains? s2 test-char)) .......... [PASS] 867. (char-set-contains? s1 test-char) .......... [PASS] 868. (char-set-contains? s2 test-char) .......... [PASS] 869. (char-set-difference universe (char-set-union s1 s2)) .......... [PASS] 870. (char-set-difference universe (char-set-intersection s1 s2)) .......... [PASS] 871. (char-set-union s2 s1) .......... [PASS] 872. (char-set-intersection s2 s1) .......... [PASS] 873. (char-set-union s1 (char-set-union s2 s3)) .......... [PASS] 874. (char-set-intersection s1 (char-set-intersection s2 s3)) .......... [PASS] 875. (char-set-intersection (char-set-union s1 s2) (char-set-union s1 s3)) .......... [PASS] 876. (char-set-union (char-set-intersection s1 s2) (char-set-intersection s1 s3)) .......... [PASS] 877. (char-set-union s1 char-set:empty) .......... [PASS] 878. (char-set-union char-set:empty s1) .......... [PASS] 879. (char-set-intersection s1 char-set:empty) .......... [PASS] 880. (char-set-intersection char-set:empty s1) .......... [PASS] 881. (char-set-union s1 s1) .......... [PASS] 882. (char-set-intersection s1 s1) .......... [PASS] 883. (char-set-union s1 (char-set-difference universe s1)) .......... [PASS] 884. (char-set-intersection s1 (char-set-difference universe s1)) .......... [PASS] 885. (char-set-union s1 (char-set-intersection s1 s2)) .......... [PASS] 886. (char-set-intersection s1 (char-set-union s1 s2)) .......... [PASS] 887. (char-set-difference s1 s1) .......... [PASS] 888. (char-set-difference s1 char-set:empty) .......... [PASS] 889. (char-set-difference (char-set-intersection s1 s2) s3) .......... [PASS] 890. (char-set<= char-set:empty s1) .......... [PASS] 891. (char-set<= s1 s1) .......... [PASS] 892. (char-set<= (char-set-intersection s1 s2) s1) .......... [PASS] 893. (char-set<= (char-set-intersection s1 s2) s2) .......... [PASS] 894. (char-set<= s1 (char-set-union s1 s2)) .......... [PASS] 895. (char-set<= s2 (char-set-union s1 s2)) .......... [PASS] 896. (char-set= (char-set-intersection s1 s2) char-set:empty) .......... [PASS] 897. (not (char-set<= s1 s2)) .......... [PASS] 898. (<= (char-set-size (char-set-intersection s1 s2)) (min (char-set-size s1) (char-set-size s2))) .......... [PASS] 899. (>= (char-set-size (char-set-union s1 s2)) (max (char-set-size s1) (char-set-size s2))) .......... [PASS] 900. (+ (char-set-size (char-set-union s1 s2)) (char-set-size (char-set-intersection s1 s2))) .......... [PASS] 901. (char-set= s1 s1) .......... [PASS] 902. (char-set= s2 s1) .......... [PASS] 903. (list->char-set (char-set->list s1)) .......... [PASS] 904. (not (not (member test-char (char-set->list s1)))) .......... [PASS] 905. (or (char-set-contains? s1 test-char) (char-set-contains? s2 test-char)) .......... [PASS] 906. (char-set-contains? s1 test-char) .......... [PASS] 907. (char-set-contains? s2 test-char) .......... [PASS] Character set fuzzy tests completed. 907 out of 907 passed (100.00%) 0 out of 0 passed (%) 1. (let ((v (cons 1 2))) (set! (car v) 37) v) .......... [PASS] 2. (let ((v (cons 1 2))) (set! (cdr v) 37) v) .......... [PASS] 3. (let ((v (list (list 1 2) 3))) (set! (caar v) 37) v) .......... [PASS] 4. (let ((v (list 1 2 3))) (set! (cadr v) 37) v) .......... [PASS] 5. (let ((v (list (list 1 2) 3))) (set! (cdar v) 37) v) .......... [PASS] 6. (let ((v (list 1 2 3))) (set! (cddr v) 37) v) .......... [PASS] 7. (let ((v (vector 1 2 3))) (set! (vector-ref v 2) 37) v) .......... [PASS] 8. (let ((v "abc")) (set! (string-ref v 2) #\%) v) .......... [PASS] 9. (let ((v (make-glarg 0))) (set! (glarg-ref v) 37) (glarg-ref v)) .......... [PASS] 10. (let ((v (make-blarg 0))) (set! (blarg-ref v) 37) (blarg-ref v)) .......... [PASS] 10 out of 10 passed (100.00%) --- time type constants --- 1. time-utc .......... [PASS] 2. time-tai .......... [PASS] 3. time-monotonic .......... [PASS] 4. time-duration .......... [PASS] 5. time-process .......... [PASS] 6. time-thread .......... [PASS] --- time objects --- 7. (time? (make-time time-utc 0 0)) .......... [PASS] 8. (time? 42) .......... [PASS] 9. (parts (make-time time-utc 123 456)) .......... [PASS] 10. (let ((t (make-time time-utc 5 10))) (set-time-type! t time-duration) (time-type t)) .......... [PASS] 11. (let ((t (make-time time-utc 5 10))) (set-time-nanosecond! t 999) (time-nanosecond t)) .......... [PASS] 12. (let ((t (make-time time-utc 5 10))) (set-time-second! t 20) (time-second t)) .......... [PASS] --- comparisons --- 13. (time=? (make-time time-utc 0 1) (make-time time-utc 0 1)) .......... [PASS] 14. (time=? (make-time time-utc 0 1) (make-time time-utc 0 2)) .......... [PASS] 15. (time? (make-time time-utc 0 2) (make-time time-utc 0 1)) .......... [PASS] 17. (time<=? (make-time time-utc 0 2) (make-time time-utc 0 2)) .......... [PASS] 18. (time>=? (make-time time-utc 0 2) (make-time time-utc 0 2)) .......... [PASS] 19. (let ((a (make-time time-utc 1001 1)) (b (make-time time-utc 2001 1))) (list (time? b a) (time=? a b))) .......... [PASS] --- arithmetic --- 20. (time-type (time-difference (make-time time-utc 0 3000) (make-time time-utc 0 1000))) .......... [PASS] 21. (time=? (make-time time-duration 0 2000) (time-difference (make-time time-utc 0 3000) (make-time time-utc 0 1000))) .......... [PASS] 22. (time=? (make-time time-duration 0 -2000) (time-difference (make-time time-utc 0 1000) (make-time time-utc 0 3000))) .......... [PASS] 23. (time=? (make-time time-utc 0 1500) (add-duration (make-time time-utc 0 1000) (make-time time-duration 0 500))) .......... [PASS] 24. (time=? (make-time time-utc 0 500) (subtract-duration (make-time time-utc 0 1000) (make-time time-duration 0 500))) .......... [PASS] 25. (let ((a (make-time time-utc 12345 1000)) (d (make-time time-duration 54321 77))) (time=? a (subtract-duration (add-duration a d) d))) .......... [PASS] --- TAI and UTC conversions --- 26. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 27. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 28. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 29. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 30. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 31. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 32. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 33. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 34. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 35. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 36. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 37. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 38. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 39. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 40. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 41. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 42. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 43. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 44. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 45. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 46. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 47. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 48. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 49. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 50. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 51. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 52. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 53. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 54. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 55. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 56. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 57. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 58. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 59. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 60. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 61. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 62. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 63. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 64. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 65. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 66. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 67. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 68. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 69. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 70. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 71. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 72. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 73. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 74. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 75. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 76. (=list (tai-probes utc tai-diff prev-diff) (utc->tai-seconds utc)) .......... [PASS] 77. (=list (utc-probes utc) (tai->utc-seconds utc tai-diff prev-diff)) .......... [PASS] 78. (let ((t (make-time time-utc 12345 1045789645.0))) (time=? t (time-tai->time-utc (time-utc->time-tai t)))) .......... [PASS] 79. (let ((u (make-time time-utc 0 915148800.0))) (= (time-second (time-utc->time-monotonic u)) (time-second (time-utc->time-tai u)))) .......... [PASS] 80. (let ((m (make-time time-monotonic 42 915148832.0))) (time=? m (time-tai->time-monotonic (time-monotonic->time-tai m)))) .......... [PASS] --- dates --- 81. (date? (make-date 0 0 0 0 1 1 2000 0)) .......... [PASS] 82. (date? 42) .......... [PASS] 83. (date-parts ref-date) .......... [PASS] 84. (date-week-day (make-date 0 0 0 0 1 1 1970 0)) .......... [PASS] 85. (date-week-day ref-date) .......... [PASS] 86. (date-year-day ref-date) .......... [PASS] 87. (date-year-day (make-date 0 0 0 0 31 12 2000 0)) .......... [PASS] 88. (let ((d (make-date 0 0 0 0 1 1 2000 0))) (list (date-week-number d 0) (date-week-number d 1))) .......... [PASS] --- dates and times --- 89. (time=? (make-time time-utc 0 0) (date->time-utc (make-date 0 0 0 0 1 1 1970 0))) .......... [PASS] 90. (let ((d (make-date 0 30 45 12 25 12 2023 0))) (same-date? d (time-utc->date (date->time-utc d) 0))) .......... [PASS] 91. (same-date? (make-date 0 60 59 23 31 12 1998 0) (time-tai->date (make-time time-tai 0 (+ 915148800.0 31)) 0)) .......... [PASS] 92. (same-date? (make-date 0 0 0 0 1 1 1999 0) (time-tai->date (make-time time-tai 0 (+ 915148800.0 32)) 0)) .......... [PASS] 93. (time=? (make-time time-utc 6320000 1045944859.0) (date->time-utc (make-date 6320000 19 14 15 22 2 2003 -18000))) .......... [PASS] 94. (time=? (make-time time-tai 6320000 1045944891.0) (date->time-tai (make-date 6320000 19 14 15 22 2 2003 -18000))) .......... [PASS] --- Julian Day --- 95. (time-utc->julian-day (make-time time-utc 0 0)) .......... [PASS] 96. (date->julian-day (make-date 0 0 0 0 1 1 1970 0)) .......... [PASS] 97. (date->julian-day (make-date 0 0 0 12 1 1 2000 0)) .......... [PASS] 98. (date->julian-day (make-date 0 0 0 0 1 1 2000 0)) .......... [PASS] 99. (date->julian-day (make-date 0 0 0 0 1 1 1 0)) .......... [PASS] 100. (= (date->julian-day (make-date 0 60 59 23 31 12 2016 0)) (date->julian-day (make-date 0 0 0 0 1 1 2017 0))) .......... [PASS] 101. (number? (current-julian-day)) .......... [PASS] 102. (let ((t (make-time time-utc 0 1700000000.0))) (time=? t (julian-day->time-utc (time-utc->julian-day t)))) .......... [PASS] 103. (let ((t (make-time time-tai 0 1700000037.0))) (time=? t (julian-day->time-tai (time-tai->julian-day t)))) .......... [PASS] 104. (let ((t (make-time time-monotonic 0 1700000037.0))) (time=? t (julian-day->time-monotonic (time-monotonic->julian-day t)))) .......... [PASS] 105. (let ((d (make-date 0 0 0 0 1 1 2000 0))) (same-date? d (julian-day->date (date->julian-day d) 0))) .......... [PASS] 106. (quote (julian-day->time-utc (/ 1.0 0.0))) .......... [PASS] 107. (quote (julian-day->time-utc (/ 0.0 0.0))) .......... [PASS] --- Modified Julian Day --- 108. (date->modified-julian-day (make-date 0 0 0 0 17 11 1858 0)) .......... [PASS] 109. (date->modified-julian-day (make-date 0 0 0 0 1 1 1970 0)) .......... [PASS] 110. (let ((d (make-date 0 0 0 12 1 1 2024 0))) (< (abs (- (- (date->julian-day d) 2400000.5) (date->modified-julian-day d))) 1e-9)) .......... [PASS] 111. (number? (current-modified-julian-day)) .......... [PASS] 112. (let ((t (make-time time-utc 0 1700000000.0))) (time=? t (modified-julian-day->time-utc (time-utc->modified-julian-day t)))) .......... [PASS] 113. (let ((t (make-time time-tai 0 1700000037.0))) (time=? t (modified-julian-day->time-tai (time-tai->modified-julian-day t)))) .......... [PASS] 114. (let ((t (make-time time-monotonic 0 1700000037.0))) (time=? t (modified-julian-day->time-monotonic (time-monotonic->modified-julian-day t)))) .......... [PASS] 115. (let ((d (make-date 0 0 0 0 1 1 2000 0))) (same-date? d (modified-julian-day->date (date->modified-julian-day d) 0))) .......... [PASS] --- day-number round-trip sweep --- 116. (let loop ((s 0) (bad-jd 0) (bad-mjd 0)) (if (= s 2000) (list bad-jd bad-mjd) (let* ((t (make-time time-utc 0 (+ 1700000000.0 (* s 9973)))) (r1 (julian-day->time-utc (time-utc->julian-day t))) (r2 (modified-julian-day->time-utc (time-utc->modified-julian-day t)))) (loop (+ s 1) (if (time=? t r1) bad-jd (+ bad-jd 1)) (if (time=? t r2) bad-mjd (+ bad-mjd 1)))))) .......... [PASS] 117. (let ((t (make-time time-utc 123456789 1700000000.0))) (<= (time-nanosecond (time-difference (julian-day->time-utc (time-utc->julian-day t)) t)) 100000)) .......... [PASS] 118. (let ((t (date->time-utc (make-date 0 0 0 0 1 1 6771 0)))) (time=? t (julian-day->time-utc (time-utc->julian-day t)))) .......... [PASS] 119. (let ((t (date->time-utc (make-date 0 0 0 0 1 1 3290 0)))) (time=? t (modified-julian-day->time-utc (time-utc->modified-julian-day t)))) .......... [PASS] --- date->string --- 120. (date->string ref-date "~Y-~m-~d ~H:~M:~S") .......... [PASS] 121. (date->string ref-date "~a ~A ~b ~B") .......... [PASS] 122. (date->string ref-date "~h") .......... [PASS] 123. (date->string ref-date "~d|~e|~k|~l|~I|~p") .......... [PASS] 124. (date->string ref-date "~j ~N ~y ~z") .......... [PASS] 125. (date->string ref-date "~w") .......... [PASS] 126. (date->string (make-date 0 0 0 0 1 1 2024 0) "~s") .......... [PASS] 127. (date->string (make-date 0 60 59 23 31 12 2016 0) "~s") .......... [PASS] 128. (date->string (make-date 0 0 0 0 1 1 1970 0) "~U|~W|~V") .......... [PASS] 129. (date->string (make-date 0 0 0 0 1 1 2021 0) "~V") .......... [PASS] 130. (date->string (make-date 0 0 0 0 30 12 2019 0) "~V") .......... [PASS] 131. (map (lambda (f) (date->string ref-date f)) (quote ("~D" "~X" "~r" "~c"))) .......... [PASS] 132. (map (lambda (f) (date->string ref-date f)) (quote ("~1" "~2" "~3" "~4" "~5"))) .......... [PASS] 133. (date->string ref-date "100~~%~t~n") .......... [PASS] 134. (date->string (make-date 123456789.0 5.0 4.0 15.0 9.0 7.0 2024.0 -14400.0) "~Y-~m-~d ~H:~M:~S.~N ~a ~w ~z") .......... [PASS] --- string->date --- 135. (let ((x (string->date "Fri Jul 14 20:28:42-0400 2000" "~a ~b ~d ~H:~M:~S~z ~Y"))) (list (date-day x) (date-month x) (date-hour x) (date-zone-offset x) (date-year x))) .......... [PASS] 136. (let ((x (string->date "2000-07-14T20:28:42+05:30" "~Y-~m-~dT~H:~M:~S~z"))) (list (date-year x) (date-month x) (date-day x) (date-hour x) (date-minute x) (date-second x) (date-zone-offset x))) .......... [PASS] 137. (map (lambda (s) (date-hour (string->date s "~I:~M:~S ~p"))) (quote ("07:00:00 PM" "12:00:00 AM" "12:00:00 PM" "01:30:00 AM"))) .......... [PASS] 138. (list (date-month (string->date "JUL" "~b")) (date-month (string->date "July" "~B")) (date-month (string->date "jan" "~b"))) .......... [PASS] 139. (and (date? (string->date "FRI" "~a")) (date? (string->date "Tuesday" "~A"))) .......... [PASS] 140. (list (date-day (string->date "09" "~d")) (date-day (string->date " 9" "~e")) (date-hour (string->date "15" "~k")) (date-hour (string->date "15" "~H")) (date-minute (string->date "04" "~M")) (date-second (string->date "05" "~S")) (date-month (string->date "07" "~m"))) .......... [PASS] 141. (map (lambda (s) (date-year (string->date s "~y"))) (quote ("74" "99" "00"))) .......... [PASS] 142. (map (lambda (s) (date-year (string->date s "~Y"))) (quote ("10000" "999"))) .......... [PASS] 143. (list (date-year (string->date "+23000-01-01" "~Y-~m-~d")) (date-year (string->date "-0001-01-01" "~Y-~m-~d"))) .......... [PASS] 144. (map (lambda (s) (exact->inexact (date-nanosecond (string->date s "~N")))) (quote ("0" "5" "600000000" "999999999"))) .......... [PASS] 145. (let ((x (string->date "5.200000000" "~S.~N"))) (list (date-second x) (inexact->exact (date-nanosecond x)))) .......... [PASS] 146. (map (lambda (s) (date-zone-offset (string->date s "~z"))) (quote ("+0530" "-0400" "+0000" "Z" "z" "-05:00"))) .......... [PASS] 147. (let ((x (string->date "2024-05-12" "~Y-~m-~d"))) (list (date-year x) (date-month x) (date-day x))) .......... [PASS] 148. (quote (string->date "+24:00" "~z")) .......... [PASS] 149. (quote (string->date "2024-01-01X" "~Y-~m-~d")) .......... [PASS] --- string round trips --- 150. (let ((x (string->date (date->string ref-date "~4") "~Y-~m-~dT~H:~M:~S~z"))) (list (date-year x) (date-month x) (date-day x) (date-hour x) (date-minute x) (date-second x) (date-zone-offset x))) .......... [PASS] 151. (let ((x (string->date (date->string ref-date "~c") "~a ~b ~d ~H:~M:~S~z ~Y"))) (list (date-year x) (date-month x) (date-day x) (date-hour x) (date-minute x) (date-second x) (date-zone-offset x))) .......... [PASS] 152. (map (lambda (off) (date-zone-offset (string->date (date->string (make-date 0 0 0 0 1 1 2000 off) "~z") "~z"))) (quote (19800 -14400 0 5400 -34200))) .......... [PASS] --- the clock --- 153. (time-type (current-time)) .......... [PASS] 154. (map (lambda (ty) (time-type (current-time ty))) (list time-utc time-tai time-monotonic time-process time-thread)) .......... [PASS] 155. (let loop ((tys (list time-utc time-tai time-monotonic time-process time-thread))) (cond ((null? tys) #t) ((positive? (time-resolution (car tys))) (loop (cdr tys))) (else #f))) .......... [PASS] 156. (date? (current-date)) .......... [PASS] 157. (date-zone-offset (current-date 0)) .......... [PASS] 158. (let* ((a (current-time time-utc)) (b (current-time time-utc))) (time<=? a b)) .......... [PASS] 159. (> (let loop ((old 0)) (let ((new (time-nanosecond (current-time)))) (if (< new old) old (loop new)))) 900000000.0) .......... [PASS] --- extras --- 160. time-tai .......... [PASS] 161. time-utc .......... [PASS] 162. time-monotonic .......... [PASS] 163. time-thread .......... [PASS] 164. time-process .......... [PASS] 165. time-duration .......... [PASS] 166. (not (procedure? current-date)) .......... [PASS] 167. (not (procedure? current-julian-day)) .......... [PASS] 168. (not (procedure? current-modified-julian-day)) .......... [PASS] 169. (not (procedure? current-time)) .......... [PASS] 170. (not (procedure? time-resolution)) .......... [PASS] 171. (not (procedure? make-time)) .......... [PASS] 172. (not (procedure? time?)) .......... [PASS] 173. (not (procedure? time-type)) .......... [PASS] 174. (not (procedure? time-nanosecond)) .......... [PASS] 175. (not (procedure? time-second)) .......... [PASS] 176. (not (procedure? set-time-type!)) .......... [PASS] 177. (not (procedure? set-time-nanosecond!)) .......... [PASS] 178. (not (procedure? set-time-second!)) .......... [PASS] 179. (not (procedure? copy-time)) .......... [PASS] 180. (not (procedure? time<=?)) .......... [PASS] 181. (not (procedure? time=?)) .......... [PASS] 184. (not (procedure? time>?)) .......... [PASS] 185. (not (procedure? time-difference)) .......... [PASS] 186. (not (procedure? time-difference!)) .......... [PASS] 187. (not (procedure? add-duration)) .......... [PASS] 188. (not (procedure? add-duration!)) .......... [PASS] 189. (not (procedure? subtract-duration)) .......... [PASS] 190. (not (procedure? subtract-duration!)) .......... [PASS] 191. (not (procedure? make-date)) .......... [PASS] 192. (not (procedure? date?)) .......... [PASS] 193. (not (procedure? date-nanosecond)) .......... [PASS] 194. (not (procedure? date-second)) .......... [PASS] 195. (not (procedure? date-minute)) .......... [PASS] 196. (not (procedure? date-hour)) .......... [PASS] 197. (not (procedure? date-day)) .......... [PASS] 198. (not (procedure? date-month)) .......... [PASS] 199. (not (procedure? date-year)) .......... [PASS] 200. (not (procedure? date-zone-offset)) .......... [PASS] 201. (not (procedure? date-year-day)) .......... [PASS] 202. (not (procedure? date-week-day)) .......... [PASS] 203. (not (procedure? date-week-number)) .......... [PASS] 204. (not (procedure? date->julian-day)) .......... [PASS] 205. (not (procedure? date->modified-julian-day)) .......... [PASS] 206. (not (procedure? date->time-monotonic)) .......... [PASS] 207. (not (procedure? date->time-tai)) .......... [PASS] 208. (not (procedure? date->time-utc)) .......... [PASS] 209. (not (procedure? julian-day->date)) .......... [PASS] 210. (not (procedure? julian-day->time-monotonic)) .......... [PASS] 211. (not (procedure? julian-day->time-tai)) .......... [PASS] 212. (not (procedure? julian-day->time-utc)) .......... [PASS] 213. (not (procedure? modified-julian-day->date)) .......... [PASS] 214. (not (procedure? modified-julian-day->time-monotonic)) .......... [PASS] 215. (not (procedure? modified-julian-day->time-tai)) .......... [PASS] 216. (not (procedure? modified-julian-day->time-utc)) .......... [PASS] 217. (not (procedure? time-monotonic->date)) .......... [PASS] 218. (not (procedure? time-monotonic->julian-day)) .......... [PASS] 219. (not (procedure? time-monotonic->modified-julian-day)) .......... [PASS] 220. (not (procedure? time-monotonic->time-tai)) .......... [PASS] 221. (not (procedure? time-monotonic->time-tai!)) .......... [PASS] 222. (not (procedure? time-monotonic->time-utc)) .......... [PASS] 223. (not (procedure? time-monotonic->time-utc!)) .......... [PASS] 224. (not (procedure? time-tai->date)) .......... [PASS] 225. (not (procedure? time-tai->julian-day)) .......... [PASS] 226. (not (procedure? time-tai->modified-julian-day)) .......... [PASS] 227. (not (procedure? time-tai->time-monotonic)) .......... [PASS] 228. (not (procedure? time-tai->time-monotonic!)) .......... [PASS] 229. (not (procedure? time-tai->time-utc)) .......... [PASS] 230. (not (procedure? time-tai->time-utc!)) .......... [PASS] 231. (not (procedure? time-utc->date)) .......... [PASS] 232. (not (procedure? time-utc->julian-day)) .......... [PASS] 233. (not (procedure? time-utc->modified-julian-day)) .......... [PASS] 234. (not (procedure? time-utc->time-monotonic)) .......... [PASS] 235. (not (procedure? time-utc->time-monotonic!)) .......... [PASS] 236. (not (procedure? time-utc->time-tai)) .......... [PASS] 237. (not (procedure? time-utc->time-tai!)) .......... [PASS] 238. (not (procedure? date->string)) .......... [PASS] 239. (not (procedure? string->date)) .......... [PASS] 240. (not (not (null? (current-time)))) .......... [PASS] 241. (not (not (null? (current-time (quote time-tai))))) .......... [PASS] 242. (not (not (null? (current-time (quote time-utc))))) .......... [PASS] 243. (not (not (null? (current-time (quote time-monotonic))))) .......... [PASS] 244. (not (not (null? (current-time (quote time-thread))))) .......... [PASS] 245. (not (not (null? (current-time (quote time-process))))) .......... [PASS] 246. (not (not (null? (time-resolution (quote time-tai))))) .......... [PASS] 247. (not (not (null? (time-resolution (quote time-utc))))) .......... [PASS] 248. (not (not (null? (time-resolution (quote time-monotonic))))) .......... [PASS] 249. (not (not (null? (time-resolution (quote time-thread))))) .......... [PASS] 250. (not (not (null? (time-resolution (quote time-process))))) .......... [PASS] 251. (not (time=? t1 t2)) .......... [PASS] 252. (not (time>? t3 t2)) .......... [PASS] 253. (not (time=? t1 t2)) .......... [PASS] 255. (not (time>=? t3 t2)) .......... [PASS] 256. (not (time<=? t1 t2)) .......... [PASS] 257. (not (time<=? t2 t3)) .......... [PASS] 258. (not (time=? t11 t12)) .......... [PASS] 259. (not (time>? t13 t12)) .......... [PASS] 260. (not (time=? t11 t12)) .......... [PASS] 262. (not (time>=? t13 t12)) .......... [PASS] 263. (not (time<=? t11 t12)) .......... [PASS] 264. (not (time<=? t12 t13)) .......... [PASS] 265. (not (time=? t3 (time-difference t1 t2))) .......... [PASS] 266. (not (time=? t4 (time-difference t2 t1))) .......... [PASS] 267. (not (test-one-utc-tai-edge 915148800.0 32 31)) .......... [PASS] 268. (not (test-one-utc-tai-edge 867715200.0 31 30)) .......... [PASS] 269. (not (test-one-utc-tai-edge 820454400.0 30 29)) .......... [PASS] 270. (not (test-one-utc-tai-edge 773020800.0 29 28)) .......... [PASS] 271. (not (test-one-utc-tai-edge 741484800.0 28 27)) .......... [PASS] 272. (not (test-one-utc-tai-edge 709948800.0 27 26)) .......... [PASS] 273. (not (test-one-utc-tai-edge 662688000.0 26 25)) .......... [PASS] 274. (not (test-one-utc-tai-edge 631152000.0 25 24)) .......... [PASS] 275. (not (test-one-utc-tai-edge 567993600.0 24 23)) .......... [PASS] 276. (not (test-one-utc-tai-edge 489024000.0 23 22)) .......... [PASS] 277. (not (test-one-utc-tai-edge 425865600.0 22 21)) .......... [PASS] 278. (not (test-one-utc-tai-edge 394329600.0 21 20)) .......... [PASS] 279. (not (test-one-utc-tai-edge 362793600.0 20 19)) .......... [PASS] 280. (not (test-one-utc-tai-edge 315532800.0 19 18)) .......... [PASS] 281. (not (test-one-utc-tai-edge 283996800.0 18 17)) .......... [PASS] 282. (not (test-one-utc-tai-edge 252460800.0 17 16)) .......... [PASS] 283. (not (test-one-utc-tai-edge 220924800.0 16 15)) .......... [PASS] 284. (not (test-one-utc-tai-edge 189302400.0 15 14)) .......... [PASS] 285. (not (test-one-utc-tai-edge 157766400.0 14 13)) .......... [PASS] 286. (not (test-one-utc-tai-edge 126230400.0 13 12)) .......... [PASS] 287. (not (test-one-utc-tai-edge 94694400.0 12 11)) .......... [PASS] 288. (not (test-one-utc-tai-edge 78796800.0 11 10)) .......... [PASS] 289. (not (test-one-utc-tai-edge 63072000.0 10 0)) .......... [PASS] 290. (not (test-one-utc-tai-edge 0.0 0 0)) .......... [PASS] 291. (not (test-one-utc-tai-edge 10.0 0 0)) .......... [PASS] 292. (not (test-one-utc-tai-edge 1045789645.0 32 32)) .......... [PASS] 293. (not (tm:date= (time-tai->date (make-time time-tai 0 (+ 915148800.0 29)) 0) (make-date 0 58 59 23 31 12 1998 0))) .......... [PASS] 294. (not (tm:date= (time-tai->date (make-time time-tai 0 (+ 915148800.0 30)) 0) (make-date 0 59 59 23 31 12 1998 0))) .......... [PASS] 295. (not (tm:date= (time-tai->date (make-time time-tai 0 (+ 915148800.0 31)) 0) (make-date 0 60 59 23 31 12 1998 0))) .......... [PASS] 296. (not (tm:date= (time-tai->date (make-time time-tai 0 (+ 915148800.0 32)) 0) (make-date 0 0 0 0 1 1 1999 0))) .......... [PASS] 297. (not (time=? (make-time time-utc 0 (- 915148800.0 2)) (date->time-utc (make-date 0 58 59 23 31 12 1998 0)))) .......... [PASS] 298. (not (time=? (make-time time-utc 0 (- 915148800.0 1)) (date->time-utc (make-date 0 59 59 23 31 12 1998 0)))) .......... [PASS] 299. (not (time=? (make-time time-utc 0 (- 915148800.0 0)) (date->time-utc (make-date 0 60 59 23 31 12 1998 0)))) .......... [PASS] 300. (not (time=? (make-time time-utc 0 (- 915148800.0 0)) (date->time-utc (make-date 0 0 0 0 1 1 1999 0)))) .......... [PASS] 301. (not (time=? (make-time time-utc 0 (+ 915148800.0 1)) (date->time-utc (make-date 0 1 0 0 1 1 1999 0)))) .......... [PASS] 302. (not (time=? ct-utc (date->time-utc cd))) .......... [PASS] 303. (not (time=? ct-tai (date->time-tai cd))) .......... [PASS] 304. (not (not (null? (current-date)))) .......... [PASS] 305. (not (not (null? (current-date 2)))) .......... [PASS] 306. (not (not (null? (current-julian-day)))) .......... [PASS] 307. (not (number? (current-julian-day))) .......... [PASS] 308. (not (not (null? (current-modified-julian-day)))) .......... [PASS] 309. (not (number? (current-modified-julian-day))) .......... [PASS] 310. (not (time? (current-time))) .......... [PASS] 311. (not (time? (current-time (quote time-tai)))) .......... [PASS] 312. (not (time? (current-time (quote time-utc)))) .......... [PASS] 313. (not (time? (current-time (quote time-monotonic)))) .......... [PASS] 314. (not (time? (current-time (quote time-thread)))) .......... [PASS] 315. (not (time? (current-time (quote time-process)))) .......... [PASS] 316. (not (integer? (time-resolution))) .......... [PASS] 317. (not (integer? (time-resolution (quote time-tai)))) .......... [PASS] 318. (not (integer? (time-resolution (quote time-utc)))) .......... [PASS] 319. (not (integer? (time-resolution (quote time-monotonic)))) .......... [PASS] 320. (not (integer? (time-resolution (quote time-thread)))) .......... [PASS] 321. (not (integer? (time-resolution (quote time-process)))) .......... [PASS] 322. (not (time? (make-time (quote time-tai) 500 1000))) .......... [PASS] 323. (not (time? simple-time1)) .......... [PASS] 324. (time? 1) .......... [PASS] 325. (time-type simple-time1) .......... [PASS] 326. (time-type simple-time2) .......... [PASS] 327. (time-nanosecond simple-time1) .......... [PASS] 328. (time-nanosecond simple-time2) .......... [PASS] 329. (time-second simple-time1) .......... [PASS] 330. (time-second simple-time2) .......... [PASS] 331. (time-type simple-time1) .......... [PASS] 332. (time-nanosecond simple-time1) .......... [PASS] 333. (time-second simple-time1) .......... [PASS] 334. (time-type copy-of-simple-time1) .......... [PASS] 335. (time-nanosecond copy-of-simple-time1) .......... [PASS] 336. (time-second copy-of-simple-time1) .......... [PASS] 337. (not (time<=? low high)) .......... [PASS] 338. (not (time<=? low equal-to-low)) .......... [PASS] 339. (time<=? high low) .......... [PASS] 340. (not (time=? low high) .......... [PASS] 347. (not (time>=? low equal-to-low)) .......... [PASS] 348. (not (time>=? high low)) .......... [PASS] 349. (time>? low high) .......... [PASS] 350. (time>? low equal-to-low) .......... [PASS] 351. (not (time>? high low)) .......... [PASS] 352. (not (time? (time-difference earlier later))) .......... [PASS] 353. (not (time=? (make-time (quote time-duration) 10 50) (time-difference earlier later))) .......... [PASS] 354. (time-second (time-difference earlier later)) .......... [PASS] 355. (time-nanosecond (time-difference earlier later)) .......... [PASS] 356. (time-second (time-difference later earlier)) .......... [PASS] 357. (not (time? (time-difference! (make-time (quote time-duration) 30 750) (make-time (quote time-duration) 20 700)))) .......... [PASS] 358. (not (time=? (make-time (quote time-duration) 10 50) (time-difference! (make-time (quote time-duration) 30 750) (make-time (quote time-duration) 20 700)))) .......... [PASS] 359. (time-second (time-difference! (make-time (quote time-duration) 30 750) (make-time (quote time-duration) 20 700))) .......... [PASS] 360. (time-nanosecond (time-difference! (make-time (quote time-duration) 30 750) (make-time (quote time-duration) 20 700))) .......... [PASS] 361. (time-second (time-difference! (make-time (quote time-duration) 20 700) (make-time (quote time-duration) 30 750))) .......... [PASS] 362. (not (time? (add-duration (make-time (quote time-utc) 30 1000) (make-time (quote time-duration) 5 750)))) .......... [PASS] 363. (time-type (add-duration (make-time (quote time-utc) 30 1000) (make-time (quote time-duration) 5 750))) .......... [PASS] 364. (time-nanosecond (add-duration (make-time (quote time-utc) 30 1000) (make-time (quote time-duration) 5 750))) .......... [PASS] 365. (time-second (add-duration (make-time (quote time-utc) 30 1000) (make-time (quote time-duration) 5 750))) .......... [PASS] 366. (not (time? (add-duration! (make-time (quote time-utc) 30 1000) (make-time (quote time-duration) 5 750)))) .......... [PASS] 367. (time-type (add-duration! (make-time (quote time-utc) 30 1000) (make-time (quote time-duration) 5 750))) .......... [PASS] 368. (time-nanosecond (add-duration! (make-time (quote time-utc) 30 1000) (make-time (quote time-duration) 5 750))) .......... [PASS] 369. (time-second (add-duration! (make-time (quote time-utc) 30 1000) (make-time (quote time-duration) 5 750))) .......... [PASS] 370. (not (time? (subtract-duration (make-time (quote time-utc) 30 1000) (make-time (quote time-duration) 5 750)))) .......... [PASS] 371. (time-type (subtract-duration (make-time (quote time-utc) 30 1000) (make-time (quote time-duration) 5 750))) .......... [PASS] 372. (time-nanosecond (subtract-duration (make-time (quote time-utc) 30 1000) (make-time (quote time-duration) 5 750))) .......... [PASS] 373. (time-second (subtract-duration (make-time (quote time-utc) 30 1000) (make-time (quote time-duration) 5 750))) .......... [PASS] 374. (not (time? (subtract-duration! (make-time (quote time-utc) 30 1000) (make-time (quote time-duration) 5 750)))) .......... [PASS] 375. (time-type (subtract-duration! (make-time (quote time-utc) 30 1000) (make-time (quote time-duration) 5 750))) .......... [PASS] 376. (time-nanosecond (subtract-duration! (make-time (quote time-utc) 30 1000) (make-time (quote time-duration) 5 750))) .......... [PASS] 377. (time-second (subtract-duration! (make-time (quote time-utc) 30 1000) (make-time (quote time-duration) 5 750))) .......... [PASS] [Group Date object and accessors] 378. (not (date? (make-date 1 1 1 1 1 1 1 1))) .......... [PASS] 379. (not (date? date1)) .......... [PASS] 380. (date? 1) .......... [PASS] 381. (date-nanosecond date1) .......... [PASS] 382. (date-nanosecond date2) .......... [PASS] 383. (date-second date1) .......... [PASS] 384. (date-second date2) .......... [PASS] 385. (date-minute date1) .......... [PASS] 386. (date-minute date2) .......... [PASS] 387. (date-hour date1) .......... [PASS] 388. (date-hour date2) .......... [PASS] 389. (date-day date1) .......... [PASS] 390. (date-day date2) .......... [PASS] 391. (date-month date1) .......... [PASS] 392. (date-month date2) .......... [PASS] 393. (date-year date1) .......... [PASS] 394. (date-year date2) .......... [PASS] 395. (date-zone-offset date1) .......... [PASS] 396. (date-zone-offset date2) .......... [PASS] 397. (date-year-day (make-date 0 0 0 0 1 1 2017 0)) .......... [PASS] 398. (date-year-day (make-date 0 0 0 0 4 1 2017 0)) .......... [PASS] 399. (date-week-day (make-date 0 0 0 0 1 1 2017 0)) .......... [PASS] 400. (date-week-day (make-date 0 0 0 0 4 1 2017 0)) .......... [PASS] [Group Time/Date/Julian Day/Modified Julian Day Converters] [Group date->julian-day] [Group date->modified-julian-day] [Group date->time-monotonic] 401. (time-type (date->time-monotonic (make-date 0 0 0 14 1 1 2017 1))) .......... [PASS] [Group date->time-tai] 402. (time-type (date->time-tai (make-date 0 0 0 14 1 1 2017 1))) .......... [PASS] [Group date->time-utc] 403. (time-type (date->time-utc (make-date 0 0 0 14 1 1 2017 1))) .......... [PASS] 404. (time-second (date->time-utc (make-date 0 0 0 14 1 1 2017 1))) .......... [PASS] [Group julian-day->date] 405. (not (date? target-date)) .......... [PASS] 406. (date-year target-date) .......... [PASS] 407. (date-month target-date) .......... [PASS] 408. (date-day target-date) .......... [PASS] 409. (date-year target-date) .......... [PASS] 410. (date-month target-date) .......... [PASS] 411. (date-day target-date) .......... [PASS] [Group julian-day->time-monotonic] 412. (time-type (julian-day->time-monotonic 2457755)) .......... [PASS] [Group julian-day->time-tai] 413. (time-type (julian-day->time-tai 2457755)) .......... [PASS] [Group julian-day->time-utc] 414. (time-type (julian-day->time-utc 2457755)) .......... [PASS] 415. (time-second (julian-day->time-utc 2457755)) .......... [PASS] [Group modified-julian-day->date] 416. (not (date? target-date)) .......... [PASS] 417. (date-year target-date) .......... [PASS] 418. (date-month target-date) .......... [PASS] 419. (date-day target-date) .......... [PASS] [Group modified-julian-day->time-monotonic] 420. (time-type (modified-julian-day->time-monotonic 2457755)) .......... [PASS] [Group modified-julian-day->time-tai] 421. (time-type (modified-julian-day->time-tai 2457755)) .......... [PASS] [Group modified-julian-day->time-utc] 422. (time-type (modified-julian-day->time-utc 2457755)) .......... [PASS] 423. (time-second (modified-julian-day->time-utc 2457755)) .......... [PASS] [Group time-monotonic->date] 424. (not (date? (time-monotonic->date monotime))) .......... [PASS] 425. (date-year (time-monotonic->date monotime 5)) .......... [PASS] 426. (date-month (time-monotonic->date monotime 5)) .......... [PASS] 427. (date-day (time-monotonic->date monotime 5)) .......... [PASS] [Group time-monotonic->julian-day] 428. (not (number? (time-monotonic->julian-day (make-time (quote time-monotonic) 0 1483099234.0)))) .......... [PASS] [Group time-monotonic->modified-julian-day] 429. (not (number? (time-monotonic->modified-julian-day (make-time (quote time-monotonic) 0 1483099234.0)))) .......... [PASS] 430. (floor (time-monotonic->modified-julian-day (make-time (quote time-monotonic) 0 1483099234.0))) .......... [PASS] [Group time-monotonic->time-tai] 431. (time-type (time-monotonic->time-tai (make-time (quote time-monotonic) 0 1483099234.0))) .......... [PASS] 432. (time-second (time-monotonic->time-tai (make-time (quote time-monotonic) 0 1483099234.0))) .......... [PASS] [Group time-monotonic->time-tai!] 433. (time-type (time-monotonic->time-tai! (make-time (quote time-monotonic) 0 1483099234.0))) .......... [PASS] 434. (time-second (time-monotonic->time-tai! (make-time (quote time-monotonic) 0 1483099234.0))) .......... [PASS] [Group time-monotonic->time-utc] 435. (time-type (time-monotonic->time-utc (make-time (quote time-monotonic) 0 1483099234.0))) .......... [PASS] [Group time-monotonic->time-utc!] 436. (time-type (time-monotonic->time-utc! (make-time (quote time-monotonic) 0 1483099234.0))) .......... [PASS] [Group time-tai->date] 437. (not (date? (time-tai->date test-time))) .......... [PASS] 438. (date-year (time-tai->date test-time)) .......... [PASS] 439. (date-month (time-tai->date test-time)) .......... [PASS] 440. (date-day (time-tai->date test-time)) .......... [PASS] 441. (date-year (time-tai->date test-time 5)) .......... [PASS] 442. (date-month (time-tai->date test-time 5)) .......... [PASS] 443. (date-day (time-tai->date test-time 5)) .......... [PASS] [Group time-tai->julian-day] 444. (not (number? (time-tai->julian-day (make-time (quote time-tai) 0 43200)))) .......... [PASS] [Group time-tai->modified-julian-day] 445. (not (number? (time-tai->modified-julian-day (make-time (quote time-tai) 0 43200)))) .......... [PASS] 446. (floor (time-tai->modified-julian-day (make-time (quote time-tai) 0 43200))) .......... [PASS] [Group time-tai->time-monotonic] 447. (time-type (time-tai->time-monotonic (make-time (quote time-tai) 0 43200))) .......... [PASS] 448. (time-second (time-tai->time-monotonic (make-time (quote time-tai) 0 43200))) .......... [PASS] [Group time-tai->time-monotonic!] 449. (time-type (time-tai->time-monotonic! (make-time (quote time-tai) 0 1483099234.0))) .......... [PASS] 450. (time-second (time-tai->time-monotonic! (make-time (quote time-tai) 0 1483099234.0))) .......... [PASS] [Group time-tai->time-utc] 451. (time-type (time-tai->time-utc (make-time (quote time-tai) 0 43200))) .......... [PASS] 452. (time-second (time-tai->time-utc (make-time (quote time-tai) 0 43200))) .......... [PASS] [Group time-tai->time-utc!] 453. (time-type (time-tai->time-utc! (make-time (quote time-tai) 0 43200))) .......... [PASS] 454. (time-second (time-tai->time-utc! (make-time (quote time-tai) 0 43200))) .......... [PASS] [Group time-utc->date] 455. (not (date? (time-utc->date test-time))) .......... [PASS] 456. (date-year (time-utc->date test-time)) .......... [PASS] 457. (date-month (time-utc->date test-time)) .......... [PASS] 458. (date-day (time-utc->date test-time)) .......... [PASS] 459. (date-year (time-utc->date test-time 5)) .......... [PASS] 460. (date-month (time-utc->date test-time 5)) .......... [PASS] 461. (date-day (time-utc->date test-time 5)) .......... [PASS] [Group time-utc->julian-day] 462. (not (number? (time-utc->julian-day (make-time (quote time-utc) 0 1483279199.0)))) .......... [PASS] 463. (floor (time-utc->julian-day (make-time (quote time-utc) 0 1483279199.0))) .......... [PASS] [Group time-utc->modified-julian-day] 464. (not (number? (time-utc->modified-julian-day (make-time (quote time-utc) 0 1483279199.0)))) .......... [PASS] 465. (floor (time-utc->modified-julian-day (make-time (quote time-utc) 0 1483279199.0))) .......... [PASS] [Group time-utc->time-monotonic] 466. (time-type (time-utc->time-monotonic (make-time (quote time-utc) 0 1483279199.0))) .......... [PASS] [Group time-utc->time-monotonic!] 467. (time-type (time-utc->time-monotonic! (make-time (quote time-utc) 0 1483279199.0))) .......... [PASS] [Group time-utc->time-tai] 468. (time-type (time-utc->time-tai (make-time (quote time-utc) 0 1483279199.0))) .......... [PASS] [Group time-utc->time-tai!] 469. (time-type (time-utc->time-tai! (make-time (quote time-utc) 0 1483279199.0))) .......... [PASS] [Group Date to String/String to Date Converters] [Group Standard date->string directives] 470. (date->string basic-date) .......... [PASS] 471. (date->string basic-date) .......... [PASS] 472. (date->string basic-date "~~") .......... [PASS] 473. (date->string basic-date "~a") .......... [PASS] 474. (date->string basic-date "~A") .......... [PASS] 475. (date->string basic-date "~b") .......... [PASS] 476. (date->string basic-date "~B") .......... [PASS] 477. (date->string basic-date "~c") .......... [PASS] 478. (date->string basic-date "~d") .......... [PASS] 479. (date->string basic-date "~D") .......... [PASS] 480. (date->string basic-date "~e") .......... [PASS] 481. (date->string basic-date "~h") .......... [PASS] 482. (date->string basic-date "~H") .......... [PASS] 483. (date->string basic-date "~I") .......... [PASS] 484. (date->string basic-date "~j") .......... [PASS] 485. (date->string basic-date "~k") .......... [PASS] 486. (date->string basic-date "~l") .......... [PASS] 487. (date->string basic-date "~m") .......... [PASS] 488. (date->string basic-date "~M") .......... [PASS] 489. (date->string basic-date "~n") .......... [PASS] 490. (date->string basic-date "~N") .......... [PASS] 491. (date->string basic-date "~p") .......... [PASS] 492. (date->string basic-date "~r") .......... [PASS] 493. (date->string basic-date "~s") .......... [PASS] 494. (date->string basic-date "~S") .......... [PASS] 495. (date->string basic-date "~t") .......... [PASS] 496. (date->string basic-date "~T") .......... [PASS] 497. (date->string basic-date "~w") .......... [PASS] 498. (date->string basic-date "~W") .......... [PASS] 499. (date->string basic-date "~x") .......... [PASS] 500. (date->string basic-date "~X") .......... [PASS] 501. (date->string basic-date "~y") .......... [PASS] 502. (date->string basic-date "~Y") .......... [PASS] 503. (date->string basic-date "~z") .......... [PASS] 504. (date->string basic-date "~Z") .......... [PASS] 505. (date->string basic-date "~1") .......... [PASS] 506. (date->string basic-date "~2") .......... [PASS] 507. (date->string basic-date "~3") .......... [PASS] 508. (date->string basic-date "~4") .......... [PASS] 509. (date->string basic-date "~5") .......... [PASS] [Group Standard string->date directives] 510. (not (tm:date= (make-date 0 14 13 12 1 1 2017 0) (string->date "Sun Jan 01 12:13:14Z 2017" "~a ~b ~d ~H:~M:~S~z ~Y"))) .......... [PASS] 511. (not (tm:date= (make-date 0 14 13 12 1 1 2017 0) (string->date "X Sunday January 1 12:13:14Z 17" "X ~A ~B ~e ~k:~M:~S~z ~y"))) .......... [PASS] 512. (not (tm:date= (make-date 0 14 13 12 1 1 2017 0) (string->date "~ Sunday 01 1 12:13:14Z 17" "~~ ~A ~m ~e ~k:~M:~S~z ~y"))) .......... [PASS] [Group Round-tripping] 513. (not (tm:date= test-date test-date)) .......... [PASS] 514. (not (tm:date= test-date (time-utc->date (date->time-utc test-date) (date-zone-offset test-date)))) .......... [PASS] 515. (not (tm:date= test-date (time-tai->date (date->time-tai test-date) (date-zone-offset test-date)))) .......... [PASS] --- All tests complete. --- 515 out of 515 passed (100.00%) 0 out of 0 passed (%) ------------------------ ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 16: ./skint test/srfi/16.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 17: ./skint test/srfi/17.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 19: ./skint test/srfi/19.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 22: ./skint test/srfi/22.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 23: ./skint test/srfi/23.scm --------------------------------0 out of 0 passed (%) 1. (not (and (shape) (shape -1 -1) (shape -1 0) (shape -1 1) (shape 1 2 3 4 5 6 7 8 1 2 3 4 5 6 7 8 1 2 3 4 5 6 7 8))) .......... [PASS] 2. (not (and (make-array (shape)) (make-array (shape) *) (make-array (shape -1 -1)) (make-array (shape -1 -1) *) (make-array (shape -1 1)) (make-array (shape 1 2 3 4 5 6 7 8 1 2 3 4 5 6 7 8 1 2 3 4) *))) .......... [PASS] 3. (not (and (array (shape) *) (array (shape -1 -1)) (array (shape -1 1) * *) (array (shape 1 2 3 4 5 6 7 8 1 2 3 4 5 6 7 8) *))) .......... [PASS] 4. (not (and (= (array-rank (shape)) 2) (= (array-rank (shape -1 -1)) 2) (= (array-rank (shape -1 1)) 2) (= (array-rank (shape 1 2 3 4 5 6 7 8)) 2))) .......... [PASS] 5. (not (and (= (array-rank (make-array (shape))) 0) (= (array-rank (make-array (shape -1 -1))) 1) (= (array-rank (make-array (shape -1 1))) 1) (= (array-rank (make-array (shape 1 2 3 4 5 6 7 8))) 4))) .......... [PASS] 6. (not (and (= (array-rank (array (shape) *)) 0) (= (array-rank (array (shape -1 -1))) 1) (= (array-rank (array (shape -1 1) * *)) 1) (= (array-rank (array (shape 1 2 3 4 5 6 7 8) *)) 4))) .......... [PASS] 7. (not (and (= (array-start (shape -1 -1) 0) 0) (= (array-start (shape -1 -1) 1) 0) (= (array-start (shape -1 1) 0) 0) (= (array-start (shape -1 1) 1) 0) (= (array-start (shape 1 2 3 4 5 6 7 8) 0) 0) (= (array-start (shape 1 2 3 4 5 6 7 8) 1) 0))) .......... [PASS] 8. (not (and (= (array-end (shape -1 -1) 0) 1) (= (array-end (shape -1 -1) 1) 2) (= (array-end (shape -1 1) 0) 1) (= (array-end (shape -1 1) 1) 2) (= (array-end (shape 1 2 3 4 5 6 7 8) 0) 4) (= (array-end (shape 1 2 3 4 5 6 7 8) 1) 2))) .......... [PASS] 9. (not (and (= (array-start (make-array (shape -1 -1)) 0) -1) (= (array-start (make-array (shape -1 1)) 0) -1) (= (array-start (make-array (shape 1 2 3 4 5 6 7 8)) 0) 1) (= (array-start (make-array (shape 1 2 3 4 5 6 7 8)) 1) 3) (= (array-start (make-array (shape 1 2 3 4 5 6 7 8)) 2) 5) (= (array-start (make-array (shape 1 2 3 4 5 6 7 8)) 3) 7))) .......... [PASS] 10. (not (and (= (array-end (make-array (shape -1 -1)) 0) -1) (= (array-end (make-array (shape -1 1)) 0) 1) (= (array-end (make-array (shape 1 2 3 4 5 6 7 8)) 0) 2) (= (array-end (make-array (shape 1 2 3 4 5 6 7 8)) 1) 4) (= (array-end (make-array (shape 1 2 3 4 5 6 7 8)) 2) 6) (= (array-end (make-array (shape 1 2 3 4 5 6 7 8)) 3) 8))) .......... [PASS] 11. (not (and (= (array-start (array (shape -1 -1)) 0) -1) (= (array-start (array (shape -1 1) * *) 0) -1) (= (array-start (array (shape 1 2 3 4 5 6 7 8) *) 0) 1) (= (array-start (array (shape 1 2 3 4 5 6 7 8) *) 1) 3) (= (array-start (array (shape 1 2 3 4 5 6 7 8) *) 2) 5) (= (array-start (array (shape 1 2 3 4 5 6 7 8) *) 3) 7))) .......... [PASS] 12. (not (and (= (array-end (array (shape -1 -1)) 0) -1) (= (array-end (array (shape -1 1) * *) 0) 1) (= (array-end (array (shape 1 2 3 4 5 6 7 8) *) 0) 2) (= (array-end (array (shape 1 2 3 4 5 6 7 8) *) 1) 4) (= (array-end (array (shape 1 2 3 4 5 6 7 8) *) 2) 6) (= (array-end (array (shape 1 2 3 4 5 6 7 8) *) 3) 8))) .......... [PASS] 13. (not (and (eq? (array-ref (make-array (shape) (quote a))) (quote a)) (eq? (array-ref (make-array (shape -1 1) (quote b)) -1) (quote b)) (eq? (array-ref (make-array (shape -1 1) (quote c)) 0) (quote c)) (eq? (array-ref (make-array (shape 1 2 3 4 5 6 7 8) (quote d)) 1 3 5 7) (quote d)))) .......... [PASS] 14. (not (and (eq? (array-ref (make-array (shape) (quote a)) (quote #())) (quote a)) (eq? (array-ref (make-array (shape -1 1) (quote b)) (quote #(-1))) (quote b)) (eq? (array-ref (make-array (shape -1 1) (quote c)) (quote #(0))) (quote c)) (eq? (array-ref (make-array (shape 1 2 3 4 5 6 7 8) (quote d)) (quote #(1 3 5 7))) (quote d)))) .......... [PASS] 15. (not (and (eq? (array-ref (make-array (shape) (quote a)) (array (shape 0 0))) (quote a)) (eq? (array-ref (make-array (shape -1 1) (quote b)) (array (shape 0 1) -1)) (quote b)) (eq? (array-ref (make-array (shape -1 1) (quote c)) (array (shape 0 1) 0)) (quote c)) (eq? (array-ref (make-array (shape 1 2 3 4 5 6 7 8) (quote d)) (array (shape 0 4) 1 3 5 7)) (quote d)))) .......... [PASS] 16. (not (and (let ((arr (make-array (shape) (quote o)))) (array-set! arr (quote a)) (eq? (array-ref arr) (quote a))) (let ((arr (make-array (shape -1 1) (quote o)))) (array-set! arr -1 (quote b)) (array-set! arr 0 (quote c)) (and (eq? (array-ref arr -1) (quote b)) (eq? (array-ref arr 0) (quote c)))) (let ((arr (make-array (shape 1 2 3 4 5 6 7 8) (quote o)))) (array-set! arr 1 3 5 7 (quote d)) (eq? (array-ref arr 1 3 5 7) (quote d))))) .......... [PASS] 17. (not (and (let ((arr (make-array (shape) (quote o)))) (array-set! arr (quote #()) (quote a)) (eq? (array-ref arr) (quote a))) (let ((arr (make-array (shape -1 1) (quote o)))) (array-set! arr (quote #(-1)) (quote b)) (array-set! arr (quote #(0)) (quote c)) (and (eq? (array-ref arr -1) (quote b)) (eq? (array-ref arr 0) (quote c)))) (let ((arr (make-array (shape 1 2 3 4 5 6 7 8) (quote o)))) (array-set! arr (quote #(1 3 5 7)) (quote d)) (eq? (array-ref arr 1 3 5 7) (quote d))))) .......... [PASS] 18. (not (and (let ((arr (make-array (shape) (quote o)))) (array-set! arr (quote a)) (eq? (array-ref arr) (quote a))) (let ((arr (make-array (shape -1 1) (quote o)))) (array-set! arr (array (shape 0 1) -1) (quote b)) (array-set! arr (array (shape 0 1) 0) (quote c)) (and (eq? (array-ref arr -1) (quote b)) (eq? (array-ref arr 0) (quote c)))) (let ((arr (make-array (shape 1 2 3 4 5 6 7 8) (quote o)))) (array-set! arr (array (shape 0 4) 1 3 5 7) (quote d)) (eq? (array-ref arr 1 3 5 7) (quote d))))) .......... [PASS] 19. (not (let* ((org (array (shape 6 9 0 2) (quote a) (quote b) (quote c) (quote d) (quote e) (quote f))) (brk (share-array org (shape 2 4 1 3) (lambda (r k) (values (+ 6 (* 2 (- r 2))) (- k 1))))) (swp (share-array org (shape 3 5 5 7) (lambda (r k) (values (+ 7 (- r 3)) (- 1 (- k 5)))))) (box (share-array swp (shape 0 1 2 3 4 5 6 7 8 9) (lambda _ (values 4 6)))) (org-contents (lambda () (list (array-ref org 6 0) (array-ref org 6 1) (array-ref org 7 0) (array-ref org 7 1) (array-ref org 8 0) (array-ref org 8 1)))) (brk-contents (lambda () (list (array-ref brk 2 1) (array-ref brk 2 2) (array-ref brk 3 1) (array-ref brk 3 2)))) (swp-contents (lambda () (list (array-ref swp 3 5) (array-ref swp 3 6) (array-ref swp 4 5) (array-ref swp 4 6)))) (box-contents (lambda () (list (array-ref box 0 2 4 6 8))))) (and (equal? (org-contents) (quote (a b c d e f))) (equal? (brk-contents) (quote (a b e f))) (equal? (swp-contents) (quote (d c f e))) (equal? (box-contents) (quote (e))) (begin (array-set! org 6 0 (quote x)) #t) (equal? (org-contents) (quote (x b c d e f))) (equal? (brk-contents) (quote (x b e f))) (equal? (swp-contents) (quote (d c f e))) (equal? (box-contents) (quote (e))) (begin (array-set! brk 3 1 (quote y)) #t) (equal? (org-contents) (quote (x b c d y f))) (equal? (brk-contents) (quote (x b y f))) (equal? (swp-contents) (quote (d c f y))) (equal? (box-contents) (quote (y))) (begin (array-set! swp 4 5 (quote z)) #t) (equal? (org-contents) (quote (x b c d y z))) (equal? (brk-contents) (quote (x b y z))) (equal? (swp-contents) (quote (d c z y))) (equal? (box-contents) (quote (y))) (begin (array-set! box 0 2 4 6 8 (quote e)) #t) (equal? (org-contents) (quote (x b c d e z))) (equal? (brk-contents) (quote (x b e z))) (equal? (swp-contents) (quote (d c z e))) (equal? (box-contents) (quote (e)))))) .......... [PASS] 20. (not (let ((shp (shape 10 12))) (let ((arr (make-array shp)) (ars (array shp * *)) (art (share-array (make-array shp) shp (lambda (k) k)))) (array-set! shp 0 0 (quote ?)) (array-set! shp 0 1 (quote !)) (and (= (array-rank shp) 2) (= (array-start shp 0) 0) (= (array-end shp 0) 1) (= (array-start shp 1) 0) (= (array-end shp 1) 2) (eq? (array-ref shp 0 0) (quote ?)) (eq? (array-ref shp 0 1) (quote !)) (= (array-rank arr) 1) (= (array-start arr 0) 10) (= (array-end arr 0) 12) (= (array-rank ars) 1) (= (array-start ars 0) 10) (= (array-end ars 0) 12) (= (array-rank art) 1) (= (array-start art 0) 10) (= (array-end art 0) 12))))) .......... [PASS] 21. (not (let ((arr (array (shape 4 6 5 7) (quote nw) (quote ne) (quote sw) (quote se))) (ixn (array (shape 0 2 0 2) 4 6 5 4))) (let ((col0 (share-array ixn (shape 0 2) (lambda (k) (values k 0)))) (row0 (share-array ixn (shape 0 2) (lambda (k) (values 0 k)))) (wor1 (share-array ixn (shape 0 2) (lambda (k) (values 1 (- 1 k))))) (cod (share-array ixn (shape 0 2) (lambda (k) (case k ((0) (values 1 0)) ((1) (values 0 1)))))) (box (share-array ixn (shape 0 2) (lambda (k) (values 1 0))))) (and (eq? (array-ref arr col0) (quote nw)) (eq? (array-ref arr row0) (quote ne)) (eq? (array-ref arr wor1) (quote nw)) (eq? (array-ref arr cod) (quote se)) (eq? (array-ref arr box) (quote sw)) (begin (array-set! arr col0 (quote ul)) (array-set! arr row0 (quote ur)) (array-set! arr cod (quote lr)) (array-set! arr box (quote ll)) #t) (eq? (array-ref arr 4 5) (quote ul)) (eq? (array-ref arr 4 6) (quote ur)) (eq? (array-ref arr 5 5) (quote ll)) (eq? (array-ref arr 5 6) (quote lr)) (begin (array-set! arr wor1 (quote xx)) (eq? (array-ref arr 4 5) (quote xx))))))) .......... [PASS] 22. (not (let ((arr (array (shape 1 3 1 5) 10 12 16 20 10 11 12 13))) (let ((shp (share-array arr (shape 0 2 0 2) (lambda (r k) (values (+ r 1) (+ k 1))))) (shq (share-array arr (shape 0 2 0 2) (lambda (r k) (values (+ r 1) (* 2 (+ 1 k)))))) (shr (share-array arr (shape 0 4 0 2) (lambda (r k) (values (- 2 k) (+ r 1))))) (shs (share-array arr (shape 0 2 0 2) (lambda (r k) (values 2 3))))) (and (let ((arr-p (make-array shp))) (and (= (array-rank arr-p) 2) (= (array-start arr-p 0) 10) (= (array-end arr-p 0) 12) (= (array-start arr-p 1) 10) (= (array-end arr-p 1) 11))) (let ((arr-q (array shq * * * * * * * * * * * * * * * *))) (and (= (array-rank arr-q) 2) (= (array-start arr-q 0) 12) (= (array-end arr-q 0) 20) (= (array-start arr-q 1) 11) (= (array-end arr-q 1) 13))) (let ((arr-r (share-array (array (shape) *) shr (lambda _ (values))))) (and (= (array-rank arr-r) 4) (= (array-start arr-r 0) 10) (= (array-end arr-r 0) 10) (= (array-start arr-r 1) 11) (= (array-end arr-r 1) 12) (= (array-start arr-r 2) 12) (= (array-end arr-r 2) 16) (= (array-start arr-r 3) 13) (= (array-end arr-r 3) 20))) (let ((arr-s (make-array shs))) (and (= (array-rank arr-s) 2) (= (array-start arr-s 0) 12) (= (array-end arr-s 0) 12) (= (array-start arr-s 1) 12) (= (array-end arr-s 1) 12))))))) .......... [PASS] 23. (not (and (= (array-rank subshape) 2) (= (array-start subshape 0) 0) (= (array-end subshape 0) 1) (= (array-start subshape 1) 0) (= (array-end subshape 1) 2) (= (array-ref subshape 0 0) 4) (= (array-ref subshape 0 1) 7))) .......... [PASS] 24. (not (and (= (array-rank sub) 1) (= (array-start sub 0) 4) (= (array-end sub 0) 7) (= (array-ref sub 4) 1) (= (array-ref sub 5) 2) (= (array-ref sub 6) 3))) .......... [PASS] 24 out of 24 passed (100.00%) 1. (f) .......... [PASS] 2. (f) .......... [PASS] 2 out of 2 passed (100.00%) ; generating large numbers [bits]: 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 ok ; generating reals [1000 times]: ok ; get/set state: ok ; randomize!: ok ; pseudo-randomize!: ok passed (check-basics-1) Done. 0 errors 1. (format "Hello, ~a" "World!") .......... [PASS] 2. (format "Error, list is too short: ~s" (quote (one "two" 3))) .......... [PASS] 3. (format "test me") .......... [PASS] 4. (format "~a ~s ~a ~s" (quote this) (quote is) "a" "test") .......... [PASS] 5. (format #f "test ~a" "me") .......... [PASS] 6. (format "~A~A" (list->string (list #\newline)) "") .......... [PASS] 7. (format "Hello, ~a" "World!") .......... [PASS] 8. (format "Error, list is too short: ~s" (quote (one "two" 3))) .......... [PASS] 9. (format "test me") .......... [PASS] 10. (format "~a ~s ~a ~s" (quote this) (quote is) "a" "test") .......... [PASS] 10 out of 10 passed (100.00%) -------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 25: ./skint test/srfi/25.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 26: ./skint test/srfi/26.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 27: ./skint test/srfi/27.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 28: ./skint test/srfi/28.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 29: ./skint test/srfi/29.scm ------------1. (let ((port (open-output-string))) (parameterize ((current-language (quote en))) (print-it port)) (parameterize ((current-language (quote fr))) (print-it port)) (get-output-string port)) .......... [PASS] 1 out of 1 passed (100.00%) 1. (read-error? (guard (exn (else exn)) (read (open-input-string " #| foo |# |# bar")))) .......... [PASS] 2. (read (open-input-string "#| foo |# (1 #| bar |# 2 3 #| baz |#)")) .......... [PASS] 3. (read (open-input-string "#| foo |# (1 #|bar #| baz |##| #### |||||| foo |#|# 2 3 #| baz |#)")) .......... [PASS] 3 out of 3 passed (100.00%) 0 out of 0 passed (%) 0 out of 0 passed (%) 0 out of 0 passed (%) ---------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 30: ./skint test/srfi/30.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 31: ./skint test/srfi/31.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 34: ./skint test/srfi/34.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 35: ./skint test/srfi/35.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 37: ./skint test/srfi0 out of 0 passed (%) 0 out of 0 passed (%) 0 out of 0 passed (%) 1. (stream? stream-null) .......... [PASS] 2. (stream-null? stream-null) .......... [PASS] 3. (stream-pair? stream-null) .......... [PASS] 4. (stream? (stream-cons 1 stream-null)) .......... [PASS] 5. (stream-null? (stream-cons 1 stream-null)) .......... [PASS] 6. (stream-pair? (stream-cons 1 stream-null)) .......... [PASS] 7. (stream? stream-null) .......... [PASS] 8. (stream? (stream-cons 1 stream-null)) .......... [PASS] 9. (stream? "four") .......... [PASS] 10. (stream-null? stream-null) .......... [PASS] 11. (stream-null? (stream-cons 1 stream-null)) .......... [PASS] 12. (stream-null? "four") .......... [PASS] 13. (stream-pair? stream-null) .......... [PASS] 14. (stream-pair? (stream-cons 1 stream-null)) .......... [PASS] 15. (stream-pair? "four") .......... [PASS] 16. (quote (stream-car "four")) .......... [PASS] 17. (quote (stream-car stream-null)) .......... [PASS] 18. (stream-car strm123) .......... [PASS] 19. (quote (stream-cdr "four")) .......... [PASS] 20. (quote (stream-cdr stream-null)) .......... [PASS] 21. (stream-car (stream-cdr strm123)) .......... [PASS] 22. (stream->list (letrec ((double (stream-lambda (strm) (if (stream-null? strm) stream-null (stream-cons (* 2 (stream-car strm)) (double (stream-cdr strm))))))) (double strm123))) .......... [PASS] 23. (stream->list (let () (define-stream (double strm) (if (stream-null? strm) stream-null (stream-cons (* 2 (stream-car strm)) (double (stream-cdr strm))))) (double strm123))) .......... [PASS] 24. (quote (list->stream "four")) .......... [PASS] 25. (stream->list (list->stream (quote ()))) .......... [PASS] 26. (stream->list (list->stream (quote (1 2 3)))) .......... [PASS] 27. (quote (port->stream "four")) .......... [PASS] 28. (list->string (stream->list 11 s)) .......... [PASS] 29. (stream->list (stream)) .......... [PASS] 30. (stream->list (stream 1)) .......... [PASS] 31. (stream->list (stream 1 2 3)) .......... [PASS] 32. (quote (stream->list (quote ()))) .......... [PASS] 33. (quote (stream->list -1 strm123)) .......... [PASS] 34. (stream->list (stream)) .......... [PASS] 35. (stream->list strm123) .......... [PASS] 36. (stream->list 5 strm123) .......... [PASS] 37. (stream->list 3 (stream-from 1)) .......... [PASS] 38. (quote (stream-append "four")) .......... [PASS] 39. (stream->list (stream-append strm123)) .......... [PASS] 40. (stream->list (stream-append strm123 strm123)) .......... [PASS] 41. (stream->list (stream-append strm123 strm123 strm123)) .......... [PASS] 42. (stream->list (stream-append strm123 stream-null)) .......... [PASS] 43. (stream->list (stream-append stream-null strm123)) .......... [PASS] 44. (quote (stream-concat "four")) .......... [PASS] 45. (stream->list (stream-concat (stream strm123))) .......... [PASS] 46. (stream->list (stream-concat (stream strm123 strm123))) .......... [PASS] 47. (stream-ref (stream-constant 1) 100) .......... [PASS] 48. (stream-ref (stream-constant 1 2) 100) .......... [PASS] 49. (stream-ref (stream-constant 1 2 3) 3) .......... [PASS] 50. (quote (stream-drop "four" strm123)) .......... [PASS] 51. (quote (stream-drop -1 strm123)) .......... [PASS] 52. (quote (stream-drop 2 "four")) .......... [PASS] 53. (stream->list (stream-drop 0 stream-null)) .......... [PASS] 54. (stream->list (stream-drop 0 strm123)) .......... [PASS] 55. (stream->list (stream-drop 1 strm123)) .......... [PASS] 56. (stream->list (stream-drop 5 strm123)) .......... [PASS] 57. (quote (stream-drop-while "four" strm123)) .......... [PASS] 58. (quote (stream-drop-while odd? "four")) .......... [PASS] 59. (stream->list (stream-drop-while odd? stream-null)) .......... [PASS] 60. (stream->list (stream-drop-while odd? strm123)) .......... [PASS] 61. (stream->list (stream-drop-while even? strm123)) .......... [PASS] 62. (stream->list (stream-drop-while positive? strm123)) .......... [PASS] 63. (stream->list (stream-drop-while negative? strm123)) .......... [PASS] 64. (quote (stream-filter "four" strm123)) .......... [PASS] 65. (quote (stream-filter odd? (quote ()))) .......... [PASS] 66. (stream-null? (stream-filter odd? (stream))) .......... [PASS] 67. (stream->list (stream-filter odd? strm123)) .......... [PASS] 68. (stream->list (stream-filter even? strm123)) .......... [PASS] 69. (stream->list (stream-filter positive? strm123)) .......... [PASS] 70. (stream->list (stream-filter negative? strm123)) .......... [PASS] 71. (odd? (stream-ref (stream-filter odd? (stream-from 0)) n)) .......... [PASS] 72. (odd? (stream-ref (stream-filter odd? (stream-from 0)) n)) .......... [PASS] 73. (odd? (stream-ref (stream-filter odd? (stream-from 0)) n)) .......... [PASS] 74. (odd? (stream-ref (stream-filter odd? (stream-from 0)) n)) .......... [PASS] 75. (odd? (stream-ref (stream-filter odd? (stream-from 0)) n)) .......... [PASS] 76. (odd? (stream-ref (stream-filter odd? (stream-from 0)) n)) .......... [PASS] 77. (odd? (stream-ref (stream-filter odd? (stream-from 0)) n)) .......... [PASS] 78. (odd? (stream-ref (stream-filter odd? (stream-from 0)) n)) .......... [PASS] 79. (odd? (stream-ref (stream-filter odd? (stream-from 0)) n)) .......... [PASS] 80. (odd? (stream-ref (stream-filter odd? (stream-from 0)) n)) .......... [PASS] 81. (odd? (stream-ref (stream-filter odd? (stream-from 0)) n)) .......... [PASS] 82. (even? (stream-ref (stream-filter odd? (stream-from 0)) n)) .......... [PASS] 83. (even? (stream-ref (stream-filter odd? (stream-from 0)) n)) .......... [PASS] 84. (even? (stream-ref (stream-filter odd? (stream-from 0)) n)) .......... [PASS] 85. (even? (stream-ref (stream-filter odd? (stream-from 0)) n)) .......... [PASS] 86. (even? (stream-ref (stream-filter odd? (stream-from 0)) n)) .......... [PASS] 87. (even? (stream-ref (stream-filter odd? (stream-from 0)) n)) .......... [PASS] 88. (even? (stream-ref (stream-filter odd? (stream-from 0)) n)) .......... [PASS] 89. (even? (stream-ref (stream-filter odd? (stream-from 0)) n)) .......... [PASS] 90. (even? (stream-ref (stream-filter odd? (stream-from 0)) n)) .......... [PASS] 91. (even? (stream-ref (stream-filter odd? (stream-from 0)) n)) .......... [PASS] 92. (even? (stream-ref (stream-filter odd? (stream-from 0)) n)) .......... [PASS] 93. (quote (stream-fold "four" 0 strm123)) .......... [PASS] 94. (quote (stream-fold + 0 (quote ()))) .......... [PASS] 95. (stream-fold + 0 strm123) .......... [PASS] 96. (quote (stream-for-each "four" strm123)) .......... [PASS] 97. (quote (stream-for-each + "four")) .......... [PASS] 98. (let ((sum 0)) (stream-for-each (lambda (x) (set! sum (+ sum x))) strm123) sum) .......... [PASS] 99. (quote (stream-from "four")) .......... [PASS] 100. (quote (stream-from 1 "four")) .......... [PASS] 101. (stream-ref (stream-from 0) 100) .......... [PASS] 102. (stream-ref (stream-from 1 2) 100) .......... [PASS] 103. (stream-ref (stream-from 0 -1) 100) .......... [PASS] 104. (quote (stream-iterate "four" 0)) .......... [PASS] 105. (stream->list 3 (stream-iterate (lsec + 1) 1)) .......... [PASS] 106. (quote (stream-length "four")) .......... [PASS] 107. (stream-length (stream)) .......... [PASS] 108. (stream-length strm123) .......... [PASS] 109. (stream->list (stream-let loop ((strm strm123)) (if (stream-null? strm) stream-null (stream-cons (* 2 (stream-car strm)) (loop (stream-cdr strm)))))) .......... [PASS] 110. (quote (stream-map "four" strm123)) .......... [PASS] 111. (quote (stream-map odd? "four")) .......... [PASS] 112. (stream->list (stream-map - strm123)) .......... [PASS] 113. (stream->list (stream-map + strm123 strm123)) .......... [PASS] 114. (stream->list (stream-map + strm123 (stream-from 1))) .......... [PASS] 115. (stream->list (stream-map + (stream-from 1) strm123)) .......... [PASS] 116. (stream->list (stream-map + strm123 strm123 strm123)) .......... [PASS] 117. (quote (stream-match (quote (1 2 3)) (_ (quote ok)))) .......... [PASS] 118. (quote (stream-match strm123 (() 42))) .......... [PASS] 119. (stream-match stream-null (() (quote ok))) .......... [PASS] 120. (stream-match strm123 (() (quote no)) (else (quote ok))) .......... [PASS] 121. (stream-match (stream 1) (() (quote no)) ((a) a)) .......... [PASS] 122. (stream-match (stream 1) (() (quote no)) ((_) (quote ok))) .......... [PASS] 123. (stream-match strm123 ((a b c) (list a b c))) .......... [PASS] 124. (stream-match strm123 ((a . _) a)) .......... [PASS] 125. (stream-match strm123 ((a b . _) (list a b))) .......... [PASS] 126. (stream-match strm123 ((a b . c) (list a b (stream-car c)))) .......... [PASS] 127. (stream-match strm123 (s (stream->list s))) .......... [PASS] 128. (stream-match strm123 ((a . _) (= a 1) (quote ok))) .......... [PASS] 129. (stream-match strm123 ((a . _) (= a 2) (quote yes)) (_ (quote no))) .......... [PASS] 130. (stream-match strm123 ((a b c) (= a b) (quote yes)) (_ (quote no))) .......... [PASS] 131. (stream-match (stream 1 1 2) ((a b c) (= a b) (quote yes)) (_ (quote no))) .......... [PASS] 132. (stream->list (stream-of (+ y 6) (x in (stream-range 1 6)) (odd? x) (y is (* x x)))) .......... [PASS] 133. (stream->list (stream-of (* x y) (x in (stream-range 1 4)) (y in (stream-range 1 5)))) .......... [PASS] 134. (stream-car (stream-of 1)) .......... [PASS] 135. (quote (stream-range 1 2 "three")) .......... [PASS] 136. (stream->list (stream-range 0 5)) .......... [PASS] 137. (stream->list (stream-range 5 0)) .......... [PASS] 138. (stream->list (stream-range 0 5 2)) .......... [PASS] 139. (stream->list (stream-range 5 0 -2)) .......... [PASS] 140. (stream->list (stream-range 0 1 -1)) .......... [PASS] 141. (quote (stream-ref (quote ()) 4)) .......... [PASS] 142. (quote (stream-ref nats 3.5)) .......... [PASS] 143. (quote (stream-ref nats -3)) .......... [PASS] 144. (quote (stream-ref strm123 5)) .......... [PASS] 145. (stream-ref strm123 0) .......... [PASS] 146. (stream-ref strm123 1) .......... [PASS] 147. (stream-ref strm123 2) .......... [PASS] 148. (quote (stream-reverse (quote ()))) .......... [PASS] 149. (stream->list (stream-reverse (stream))) .......... [PASS] 150. (stream->list (stream-reverse strm123)) .......... [PASS] 151. (quote (stream-scan "four" 0 strm123)) .......... [PASS] 152. (quote (stream-scan + 0 (quote ()))) .......... [PASS] 153. (stream->list (stream-scan + 0 strm123)) .......... [PASS] 154. (quote (stream-take 5 "four")) .......... [PASS] 155. (quote (stream-take "four" strm123)) .......... [PASS] 156. (quote (stream-take -4 strm123)) .......... [PASS] 157. (stream->list (stream-take 5 stream-null)) .......... [PASS] 158. (stream->list (stream-take 0 stream-null)) .......... [PASS] 159. (stream->list (stream-take 0 strm123)) .......... [PASS] 160. (stream->list (stream-take 2 strm123)) .......... [PASS] 161. (stream->list (stream-take 3 strm123)) .......... [PASS] 162. (stream->list (stream-take 5 strm123)) .......... [PASS] 163. (quote (stream-take-while odd? "four")) .......... [PASS] 164. (quote (stream-take-while "four" strm123)) .......... [PASS] 165. (stream->list (stream-take-while odd? strm123)) .......... [PASS] 166. (stream->list (stream-take-while even? strm123)) .......... [PASS] 167. (stream->list (stream-take-while positive? strm123)) .......... [PASS] 168. (stream->list (stream-take-while negative? strm123)) .......... [PASS] 169. (quote (stream-unfold "four" odd? + 0)) .......... [PASS] 170. (quote (stream-unfold + "four" + 0)) .......... [PASS] 171. (quote (stream-unfold + odd? "four" 0)) .......... [PASS] 172. (stream->list (stream-unfold (rsec expt 2) (rsec < 10) (rsec + 1) 0)) .......... [PASS] 173. (stream->list (stream-unfolds (lambda (x) (let ((n (car x)) (s (cdr x))) (if (zero? n) (values (quote dummy) (quote ())) (values (cons (- n 1) (stream-cdr s)) (list (stream-car s)))))) (cons 5 (stream-from 0)))) .......... [PASS] 174. (quote (stream-zip "four")) .......... [PASS] 175. (quote (stream-zip strm123 "four")) .......... [PASS] 176. (stream->list (stream-zip strm123 stream-null)) .......... [PASS] 177. (stream->list (stream-zip strm123)) .......... [PASS] 178. (stream->list (stream-zip strm123 strm123)) .......... [PASS] 179. (stream->list (stream-zip strm123 (stream-from 1))) .......... [PASS] 180. (stream->list (stream-zip strm123 strm123 strm123)) .......... [PASS] 180 out of 180 passed (100.00%) (let ((x 0)) (do-ec (set! x (+ x 1))) x) => 1 ; correct (let ((x 0)) (do-ec (:range i 10) (set! x (+ x 1))) x) => 10 ; correct (let ((x 0)) (do-ec (:range n 10) (:range k n) (set! x (+ x 1))) x) => 45 ; correct (list-ec 1) => (1) ; correct (list-ec (:range i 4) i) => (0 1 2 3) ; correct (list-ec (:range n 3) (:range k (+ n 1)) (list n k)) => ((0 0) (1 0) (1 1) (2 0) (2 1) (2 2)) ; correct (list-ec (:range n 5) (if (even? n)) (:range k (+ n 1)) (list n k)) => ((0 0) (2 0) (2 1) (2 2) (4 0) (4 1) (4 2) (4 3) (4 4)) ; correct (list-ec (:range n 5) (not (even? n)) (:range k (+ n 1)) (list n k)) => ((1 0) (1 1) (3 0) (3 1) (3 2) (3 3)) ; correct (list-ec (:range n 5) (and (even? n) (> n 2)) (:range k (+ n 1)) (list n k)) => ((4 0) (4 1) (4 2) (4 3) (4 4)) ; correct (list-ec (:range n 5) (or (even? n) (> n 3)) (:range k (+ n 1)) (list n k)) => ((0 0) (2 0) (2 1) (2 2) (4 0) (4 1) (4 2) (4 3) (4 4)) ; correct (let ((x 0)) (list-ec (:range n 10) (begin (set! x (+ x 1))) n) x) => 10 ; correct (list-ec (nested (:range n 3) (:range k n)) k) => (0 0 1) ; correct (append-ec (quote (a b))) => (a b) ; correct (append-ec (:range i 0) (quote (a b))) => () ; correct (append-ec (:range i 1) (quote (a b))) => (a b) ; correct (append-ec (:range i 2) (quote (a b))) => (a b a b) ; correct (string-ec #\a) => "a" ; correct (string-ec (:range i 0) #\a) => "" ; correct (string-ec (:range i 1) #\a) => "a" ; correct (string-ec (:range i 2) #\a) => "aa" ; correct (string-append-ec "ab") => "ab" ; correct (string-append-ec (:range i 0) "ab") => "" ; correct (string-append-ec (:range i 1) "ab") => "ab" ; correct (string-append-ec (:range i 2) "ab") => "abab" ; correct (vector-ec 1) => #(1) ; correct (vector-ec (:range i 0) i) => #() ; correct (vector-ec (:range i 1) i) => #(0) ; correct (vector-ec (:range i 2) i) => #(0 1) ; correct (vector-of-length-ec 1 1) => #(1) ; correct (vector-of-length-ec 0 (:range i 0) i) => #() ; correct (vector-of-length-ec 1 (:range i 1) i) => #(0) ; correct (vector-of-length-ec 2 (:range i 2) i) => #(0 1) ; correct (sum-ec 1) => 1 ; correct (sum-ec (:range i 0) i) => 0 ; correct (sum-ec (:range i 1) i) => 0 ; correct (sum-ec (:range i 2) i) => 1 ; correct (sum-ec (:range i 3) i) => 3 ; correct (product-ec 1) => 1 ; correct (product-ec (:range i 1 0) i) => 1 ; correct (product-ec (:range i 1 1) i) => 1 ; correct (product-ec (:range i 1 2) i) => 1 ; correct (product-ec (:range i 1 3) i) => 2 ; correct (product-ec (:range i 1 4) i) => 6 ; correct (min-ec 1) => 1 ; correct (min-ec (:range i 1) i) => 0 ; correct (min-ec (:range i 2) i) => 0 ; correct (max-ec 1) => 1 ; correct (max-ec (:range i 1) i) => 0 ; correct (max-ec (:range i 2) i) => 1 ; correct (first-ec #f 1) => 1 ; correct (first-ec #f (:range i 0) i) => #f ; correct (first-ec #f (:range i 1) i) => 0 ; correct (first-ec #f (:range i 2) i) => 0 ; correct (let ((last-i -1)) (first-ec #f (:range i 10) (begin (set! last-i i)) i) last-i) => 0 ; correct (last-ec #f 1) => 1 ; correct (last-ec #f (:range i 0) i) => #f ; correct (last-ec #f (:range i 1) i) => 0 ; correct (last-ec #f (:range i 2) i) => 1 ; correct (any?-ec #f) => #f ; correct (any?-ec #t) => #t ; correct (any?-ec (:range i 2 2) (even? i)) => #f ; correct (any?-ec (:range i 2 3) (even? i)) => #t ; correct (every?-ec #f) => #f ; correct (every?-ec #t) => #t ; correct (every?-ec (:range i 2 2) (even? i)) => #t ; correct (every?-ec (:range i 2 3) (even? i)) => #t ; correct (every?-ec (:range i 2 4) (even? i)) => #f ; correct (let ((sum-sqr (lambda (x result) (+ result (* x x))))) (fold-ec 0 (:range i 10) i sum-sqr)) => 285 ; correct (let ((minus-1 (lambda (x) (- x 1))) (sum-sqr (lambda (x result) (+ result (* x x))))) (fold3-ec (error "wrong") (:range i 10) i minus-1 sum-sqr)) => 284 ; correct (fold3-ec (quote infinity) (:range i 0) i min min) => infinity ; correct (list-ec (:list x (quote ())) x) => () ; correct (list-ec (:list x (quote (1))) x) => (1) ; correct (list-ec (:list x (quote (1 2 3))) x) => (1 2 3) ; correct (list-ec (:list x (quote (1)) (quote (2))) x) => (1 2) ; correct (list-ec (:list x (quote (1)) (quote (2)) (quote (3))) x) => (1 2 3) ; correct (list-ec (:string c "") c) => () ; correct (list-ec (:string c "1") c) => (#\1) ; correct (list-ec (:string c "123") c) => (#\1 #\2 #\3) ; correct (list-ec (:string c "1" "2") c) => (#\1 #\2) ; correct (list-ec (:string c "1" "2" "3") c) => (#\1 #\2 #\3) ; correct (list-ec (:vector x (vector)) x) => () ; correct (list-ec (:vector x (vector 1)) x) => (1) ; correct (list-ec (:vector x (vector 1 2 3)) x) => (1 2 3) ; correct (list-ec (:vector x (vector 1) (vector 2)) x) => (1 2) ; correct (list-ec (:vector x (vector 1) (vector 2) (vector 3)) x) => (1 2 3) ; correct (list-ec (:range x -2) x) => () ; correct (list-ec (:range x -1) x) => () ; correct (list-ec (:range x 0) x) => () ; correct (list-ec (:range x 1) x) => (0) ; correct (list-ec (:range x 2) x) => (0 1) ; correct (list-ec (:range x 0 3) x) => (0 1 2) ; correct (list-ec (:range x 1 3) x) => (1 2) ; correct (list-ec (:range x -2 -1) x) => (-2) ; correct (list-ec (:range x -2 -2) x) => () ; correct (list-ec (:range x 1 5 2) x) => (1 3) ; correct (list-ec (:range x 1 6 2) x) => (1 3 5) ; correct (list-ec (:range x 5 1 -2) x) => (5 3) ; correct (list-ec (:range x 6 1 -2) x) => (6 4 2) ; correct (list-ec (:real-range x 0.0 3.0) x) => (0.0 1.0 2.0) ; correct (list-ec (:real-range x 0 3.0) x) => (0.0 1.0 2.0) ; correct (list-ec (:real-range x 0 3 1.0) x) => (0.0 1.0 2.0) ; correct (string-ec (:char-range c #\a #\z) c) => "abcdefghijklmnopqrstuvwxyz" ; correct (begin (let ((f (my-open-output-file "tmp1"))) (do-ec (:range n 10) (begin (write n f) (newline f))) (close-output-port f)) (my-call-with-input-file "tmp1" (lambda (port) (list-ec (:port x port read) x)))) => (0 1 2 3 4 5 6 7 8 9) ; correct (begin (let ((f (my-open-output-file "tmp1"))) (do-ec (:range n 10) (begin (write n f) (newline f))) (close-output-port f)) (my-call-with-input-file "tmp1" (lambda (port) (list-ec (:port x port) x)))) => (0 1 2 3 4 5 6 7 8 9) ; correct (list-ec (:do ((i 0)) (< i 4) ((+ i 1))) i) => (0 1 2 3) ; correct (list-ec (:do (let ((x (quote x)))) ((i 0)) (< i 4) (let ((j (- 10 i)))) #t ((+ i 1))) j) => (10 9 8 7) ; correct (list-ec (:let x 1) x) => (1) ; correct (list-ec (:let x 1) (:let y (+ x 1)) y) => (2) ; correct (list-ec (:let x 1) (:let x (+ x 1)) x) => (2) ; correct (list-ec (:parallel (:range i 1 10) (:list x (quote (a b c)))) (list i x)) => ((1 a) (2 b) (3 c)) ; correct (list-ec (:while (:range i 1 10) (< i 5)) i) => (1 2 3 4) ; correct (list-ec (:until (:range i 1 10) (>= i 5)) i) => (1 2 3 4 5) ; correct (list-ec (:while (:list i (quote (1 2 3 4 5 6 7 8 9))) (< i 5)) i) => (1 2 3 4) ; correct (list-ec (:until (:list i (quote (1 2 3 4 5 6 7 8 9))) (>= i 5)) i) => (1 2 3 4 5) ; correct (list-ec (:while (:vector x (index i) (quote #(1 2 3 4 5))) (< x 10)) x) => (1 2 3 4 5) ; correct (list-ec (:while (:parallel (:range i 1 10) (:list j (quote (1 2 3 4 5 6 7 8 9)))) (< i 5)) (list i j)) => ((1 1) (2 2) (3 3) (4 4)) ; correct (list-ec (:until (:parallel (:range i 1 10) (:list j (quote (1 2 3 4 5 6 7 8 9)))) (>= i 5)) (list i j)) => ((1 1) (2 2) (3 3) (4 4) (5 5)) ; correct (let ((n 0)) (do-ec (:while (:range i 1 10) (begin (set! n (+ n 1)) (< i 5))) (if #f #f)) n) => 5 ; correct (let ((n 0)) (do-ec (:until (:range i 1 10) (begin (set! n (+ n 1)) (>= i 5))) (if #f #f)) n) => 5 ; correct (let ((n 0)) (do-ec (:while (:parallel (:range i 1 10) (:do () (begin (set! n (+ n 1)) #t) ())) (< i 5)) (if #f #f)) n) => 5 ; correct (let ((n 0)) (do-ec (:until (:parallel (:range i 1 10) (:do () (begin (set! n (+ n 1)) #t) ())) (>= i 5)) (if #f #f)) n) => 5 ; correct (list-ec (: c (quote (a b))) c) => (a b) ; correct (list-ec (: c (quote (a b)) (quote (c d))) c) => (a b c d) ; correct (list-ec (: c "ab") c) => (#\a #\b) ; correct (list-ec (: c "ab" "cd") c) => (#\a #\b #\c #\d) ; correct (list-ec (: c (vector (quote a) (quote b))) c) => (a b) ; correct (list-ec (: c (vector (quote a) (quote b)) (vector (quote c))) c) => (a b c) ; correct (list-ec (: i 0) i) => () ; correct (list-ec (: i 1) i) => (0) ; correct (list-ec (: i 10) i) => (0 1 2 3 4 5 6 7 8 9) ; correct (list-ec (: i 1 2) i) => (1) ; correct (list-ec (: i 1 2 3) i) => (1) ; correct (list-ec (: i 1 9 3) i) => (1 4 7) ; correct (list-ec (: i 0.0 1.0 0.2) i) => (0.0 0.2 0.4 0.6000000000000001 0.8) ; correct (list-ec (: c #\a #\c) c) => (#\a #\b #\c) ; correct (begin (let ((f (my-open-output-file "tmp1"))) (do-ec (:range n 10) (begin (write n f) (newline f))) (close-output-port f)) (my-call-with-input-file "tmp1" (lambda (port) (list-ec (: x port read) x)))) => (0 1 2 3 4 5 6 7 8 9) ; correct (begin (let ((f (my-open-output-file "tmp1"))) (do-ec (:range n 10) (begin (write n f) (newline f))) (close-output-port f)) (my-call-with-input-file "tmp1" (lambda (port) (list-ec (: x port) x)))) => (0 1 2 3 4 5 6 7 8 9) ; correct (list-ec (:list c (index i) (quote (a b))) (list c i)) => ((a 0) (b 1)) ; correct (list-ec (:string c (index i) "a") (list c i)) => ((#\a 0)) ; correct (list-ec (:vector c (index i) (vector (quote a))) (list c i)) => ((a 0)) ; correct (list-ec (:range i (index j) 0 -3 -1) (list i j)) => ((0 0) (-1 1) (-2 2)) ; correct (list-ec (:real-range i (index j) 0 1 0.2) (list i j)) => ((0.0 0) (0.2 1) (0.4 2) (0.6000000000000001 3) (0.8 4)) ; correct (list-ec (:char-range c (index i) #\a #\c) (list c i)) => ((#\a 0) (#\b 1) (#\c 2)) ; correct (list-ec (: x (index i) (quote (a b c d))) (list x i)) => ((a 0) (b 1) (c 2) (d 3)) ; correct (begin (let ((f (my-open-output-file "tmp1"))) (do-ec (:range n 10) (begin (write n f) (newline f))) (close-output-port f)) (my-call-with-input-file "tmp1" (lambda (port) (list-ec (: x (index i) port) (list x i))))) => ((0 0) (1 1) (2 2) (3 3) (4 4) (5 5) (6 6) (7 7) (8 8) (9 9)) ; correct (list-ec (: i 5) (* i i)) => (0 1 4 9 16) ; correct (list-ec (: n 1 4) (: i n) (list n i)) => ((1 0) (2 0) (2 1) (3 0) (3 1) (3 2)) ; correct (list-ec (: x (index i) "abc") (list x i)) => ((#\a 0) (#\b 1) (#\c 2)) ; correct (list-ec (:string c (index i) "a" "b") (cons c i)) => ((#\a . 0) (#\b . 1)) ; correct (list-ec (:range x 5) (:range x x) x) => (0 0 1 0 1 2 0 1 2 3) ; correct (list-ec (:list x (quote (2 "23" (4)))) (: y x) y) => (0 1 #\2 #\3 4) ; correct (list-ec (:parallel (:integers x) (:do ((i 10)) (< x i) ((- i 1)))) (list x i)) => ((0 10) (1 9) (2 8) (3 7) (4 6)) ; correct (factorial 0) => 1 ; correct (factorial 1) => 1 ; correct (factorial 3) => 6 ; correct (factorial 5) => 120 ; correct (eratosthenes 50) => (2 3 5 7 11 13 17 19 23 29 31 37 41 43 47) ; correct (length (eratosthenes 100000)) => 9592 ; correct (pythagoras 15) => ((3 4 5) (5 12 13) (6 8 10) (9 12 15)) ; correct (length (pythagoras 200)) => 127 ; correct (qsort (quote (1 5 4 2 4 5 3 2 1 3))) => (1 1 2 2 3 3 4 4 5 5) ; correct (begin (let ((f (my-open-output-file "tmp1"))) (do-ec (:range n 10) (begin (write n f) (newline f))) (close-output-port f)) (read-lines "tmp1")) => ("0\n" "1\n" "2\n" "3\n" "4\n" "5\n" "6\n" "7\n" "8\n" "9\n") ; correct correct examples : 162 wrong examples : 0 /37.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 38: ./skint test/srfi/38.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 39: ./skint test/srfi/39.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 41: ./skint test/srfi/41.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 42: ./skint test/srfi/42.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 430 out of 0 passed (%) 1. (get-output-string p) .......... [PASS] 2. (get-output-string p) .......... [PASS] 3. (get-output-string p) .......... [PASS] 4. (get-output-string p) .......... [PASS] 5. (force p) .......... [PASS] 6. (force p) .......... [PASS] 7. (force f) .......... [PASS] 8. (get-count) .......... [PASS] 9. (force p) .......... [PASS] 10. (get-count) .......... [PASS] 11. (force (stream-ref (stream-filter zero? (from 0)) 0)) .......... [PASS] 11 out of 11 passed (100.00%) 1. (let-rec ((is-even? (lambda (x) (if (= x 0) #t (is-odd? (- x 1))))) (is-odd? (lambda (x) (if (= x 0) #f (is-even? (- x 1)))))) (map is-even? (quote (0 1 2 3 4 5 6)))) .......... [PASS] 2. (all-symbols (foo 4 bar #(#t (baz (#f quux)) zot) (mumble #(frotz))) (quote)) .......... [PASS] 3. (let-syntax ((f (syntax-rules () ((f ?e) (let-syntax ((g (syntax-rules ::: () ((g (??x ?e) (??y :::)) (quote ((??x) ?e (??y) :::)))))) (g (1 2) (3 4))))))) (f :::)) .......... [PASS] 4. (let ((p (open-output-string))) (fake-begin (display "Hello," p) (write-char #\space p) (display "world!" p) (newline) (get-output-string p))) .......... [PASS] 5. (let-syntax ((foo (syntax-rules () ((foo ?x ?y ... ?z) (list ?x (list ?y ...) ?z))))) (foo 1 2 3 4 5)) .......... [PASS] 5 out of 5 passed (100.00%) 1. (format "~8,2F" (/ 1 3)) .......... [PASS] 2. (format "~6F" 32) .......... [PASS] 3. (format "~8,2F" 32) .......... [PASS] 4. (format "~1,2F" 4321) .......... [PASS] 5. (format "~8F" 3200000.0) .......... [PASS] 6. (format "Hello, ~a" "World!") .......... [PASS] 7. (format "Error, list is too short: ~s" (quote (one "two" 3))) .......... [PASS] 8. (format "test me") .......... [PASS] 9. (format "~a ~s ~a ~s" (quote this) (quote is) "a" "test") .......... [PASS] 10. (format "#d~d #x~x #o~o #b~b~%" 32 32 32 32) .......... [PASS] 11. (format "~a ~? ~a" (quote a) "~s" (quote (new)) (quote test)) .......... [PASS] 12. (format #f "~a ~? ~a ~%" 3 " ~s ~s " (quote (2 2)) 3) .......... [PASS] 13. (format "~w" (let ((c (quote (a b c)))) (set-cdr! (cddr c) c) c)) .......... [PASS] 14. (format "~8,2F" 32) .......... [PASS] 15. (format "~8,3F" (sqrt 3.8)) .......... [PASS] 16. (format "~8,2F" 345670000000.0) .......... [PASS] 17. (format "~6,3F" (/ 1 3)) .......... [PASS] 18. (format "~4F" 12) .......... [PASS] 19. (format "~8,3F" 123.3456) .......... [PASS] 20. (format "~6,3F" 123.3456) .......... [PASS] 21. (format "~2,3F" 123.3456) .......... [PASS] 22. (format "~8,3F" "foo") .......... [PASS] 23. (format "~8,3F" 12.3456) .......... [PASS] 24. (format "~6,3F" 123.3456) .......... [PASS] 25. (format "~4,3F" 123.3456) .......... [PASS] 26. (format "~4,2f" 6.375) .......... [PASS] 27. (foo 3.14159) .......... [PASS] 28. (foo -3.14159) .......... [PASS] 29. (foo 100.0) .......... [PASS] 30. (foo 1234.0) .......... [PASS] 31. (foo 0.006) .......... [PASS] 32. (format #f "test ~a" "me") .......... [PASS] 33. (format "~6F" 32) .......... [PASS] 34. (format "~6F" 32.0) .......... [PASS] 35. (format "~8F" 3.2e46) .......... [PASS] 36. (format "~8F" 3.2e-44) .......... [PASS] 37. (format "~8F" 3.2e21) .......... [PASS] 38. (format "~8F" 3200.0) .......... [PASS] 39. (format "~8,2F" 320000000000.0) .......... [PASS] 40. (format "~12F" 1.2345) .......... [PASS] 41. (format "~12,2F" 1.2345) .......... [PASS] 42. (format "~12,3F" 1.2345) .......... [PASS] 43. (format "~8,2F" 345670000000.0) .......... [PASS] 44. (format "~A~A" (list->string (list #\newline)) "") .......... [PASS] 45. (format "~a ~? ~a" (quote a) "~s" (quote (new)) (quote test)) .......... [PASS] 46. (format "~a ~?, ~a!" (quote a) "~s ~a" (quote (new test)) (quote yes)) .......... [PASS] 47. (format "~8,2F" 3456700000000000.0) .......... [PASS] 48. (format "~8,2F" 3.4567e16) .......... [PASS] 49. (format "~8,2F" 3.4567e17) .......... [PASS] 50. (format "~8,2F" 3.4567e18) .......... [PASS] 51. (format "~8,2F" 3.4567e19) .......... [PASS] 52. (format "~8,2F" 3.4567e20) .......... [PASS] 53. (format "~8,2F" 3.4567e21) .......... [PASS] 54. (format "~8,2F" 3.4567e22) .......... [PASS] 55. (format "~8,2F" 3.4567e23) .......... [PASS] 56. (format "~8,0F" 3.4567e24) .......... [PASS] 57. (format "~8,1F" 3.4567e24) .......... [PASS] 58. (format "~8,2F" 3.4567e24) .......... [PASS] 59. (format "~8,3F" 3.4567e24) .......... [PASS] 60. (format "~8,0F" 3.5567e24) .......... [PASS] 61. (format "~8,1F" 3.5567e24) .......... [PASS] 62. (format "~8,2F" 3.5567e24) .......... [PASS] 63. (format "~10,0F" -0.0003) .......... [PASS] 64. (format "~10,1F" -0.0003) .......... [PASS] 65. (format "~10,2F" -0.0003) .......... [PASS] 66. (format "~10,3F" -0.0003) .......... [PASS] 67. (format "~10,4F" -0.0003) .......... [PASS] 68. (format "~10,5F" -0.0003) .......... [PASS] 69. (format "~10,3F" 1.02) .......... [PASS] 70. (format "~10,3F" 1.025) .......... [PASS] 71. (format "~10,3F" 1.0256) .......... [PASS] 72. (format "~10,3F" 1.002) .......... [PASS] 73. (format "~10,3F" 1.0025) .......... [PASS] 74. (format "~10,3F" 1.00256) .......... [PASS] 75. (format "~8,2F" (/ 1 3)) .......... [PASS] 76. (format "~6F" 32) .......... [PASS] 77. (format "~8,2F" 32) .......... [PASS] 78. (format "~1,2F" 4321) .......... [PASS] 79. (format "~8F" 3200000.0) .......... [PASS] 80. (format "Hello, ~a" "World!") .......... [PASS] 81. (format "Error, list is too short: ~s" (quote (one "two" 3))) .......... [PASS] 82. (format "test me") .......... [PASS] 83. (format "~a ~s ~a ~s" (quote this) (quote is) "a" "test") .......... [PASS] 84. (format #f "#d~d #x~x #o~o #b~b" 32 32 32 32) .......... [PASS] 85. (format "~a ~? ~a" (quote a) "~s" (quote (new)) (quote test)) .......... [PASS] 86. (format #f "~a ~? ~a ~%" 3 " ~s ~s " (quote (2 2)) 3) .......... [PASS] 87. (format "~w" (let ((c (list (quote a) (quote b) (quote c)))) (set-cdr! (cddr c) c) c)) .......... [PASS] 88. (format "~8,2F" 32) .......... [PASS] 89. (format "~8,2F" 345670000000.0) .......... [PASS] 90. (format "~6,3F" (/ 1 3)) .......... [PASS] 91. (format "~4F" 12) .......... [PASS] 92. (format "~8,3F" 123.3456) .......... [PASS] 93. (format "~6,3F" 123.3456) .......... [PASS] 94. (format "~2,3F" 123.3456) .......... [PASS] 95. (format "~F" 0) .......... [PASS] 96. (format "~F" 1) .......... [PASS] 97. (format "~F" 123) .......... [PASS] 98. (format "~F" 0.456) .......... [PASS] 99. (format "~F" 123.456) .......... [PASS] 100. (format "~F" -1) .......... [PASS] 101. (format "~F" -123) .......... [PASS] 102. (format "~F" -0.456) .......... [PASS] 103. (format "~F" -123.456) .......... [PASS] 104. (format "~0F" 123) .......... [PASS] 105. (format "~1F" 123) .......... [PASS] 106. (format "~2F" 123) .......... [PASS] 107. (format "~3F" 123) .......... [PASS] 108. (format "~4F" 123) .......... [PASS] 109. (format "~5F" 123) .......... [PASS] 110. (format "~3F" -123) .......... [PASS] 111. (format "~4F" -123) .......... [PASS] 112. (format "~5F" -123) .......... [PASS] 113. (format "~6F" -123) .......... [PASS] 114. (format "~1,0F" 123) .......... [PASS] 115. (format "~1,1F" 123) .......... [PASS] 116. (format "~1,2F" 123) .......... [PASS] 117. (format "~1,2F" 0.123) .......... [PASS] 118. (format "~1,3F" 0.123) .......... [PASS] 119. (format "~1,4F" 0.123) .......... [PASS] 120. (format "~1,0F" -123) .......... [PASS] 121. (format "~1,1F" -123) .......... [PASS] 122. (format "~1,2F" -123) .......... [PASS] 123. (format "~1,2F" -0.123) .......... [PASS] 124. (format "~1,3F" -0.123) .......... [PASS] 125. (format "~1,4F" -0.123) .......... [PASS] 126. (format "~1,0F" 123.456) .......... [PASS] 127. (format "~1,1F" 123.456) .......... [PASS] 128. (format "~1,2F" 123.456) .......... [PASS] 129. (format "~1,0F" -123.456) .......... [PASS] 130. (format "~1,1F" -123.456) .......... [PASS] 131. (format "~1,2F" -123.456) .......... [PASS] 132. (not (member (format "~1,1F" 123.05) (quote ("123.0" "123.1")))) .......... [PASS] 133. (format "~1,1F" 123.15) .......... [PASS] 134. (format "~1,1F" 123.95) .......... [PASS] 135. (not (member (format "~1,1F" -123.05) (quote ("-123.0" "-123.1")))) .......... [PASS] 136. (format "~1,1F" -123.15) .......... [PASS] 137. (format "~1,1F" -123.95) .......... [PASS] 138. (format "~1,2F" 999.995) .......... [PASS] 139. (format "~1,2F" -999.995) .......... [PASS] 140. (format "~1,0F" 1.49) .......... [PASS] 141. (not (member (format "~1,0F" 1.5) (quote ("1." "2.")))) .......... [PASS] 142. (format "~1,0F" 1.51) .......... [PASS] 143. (format "~1,0F" 2.49) .......... [PASS] 144. (not (member (format "~1,0F" 2.5) (quote ("3." "2.")))) .......... [PASS] 145. (format "~1,0F" 2.51) .......... [PASS] 146. (format "~F" +inf.0) .......... [PASS] 147. (format "~F" -inf.0) .......... [PASS] 148. (format "~F" +nan.0) .......... [PASS] 149. (format "~F" 0.0) .......... [PASS] 150. (format "~F" -0.0) .......... [PASS] 151. (format "~1F" +inf.0) .......... [PASS] 152. (format "~1F" -inf.0) .......... [PASS] 153. (format "~1F" +nan.0) .......... [PASS] 154. (format "~1F" 0.0) .......... [PASS] 155. (format "~1F" -0.0) .......... [PASS] 156. (format "~1,0F" +inf.0) .......... [PASS] 157. (format "~1,0F" -inf.0) .......... [PASS] 158. (format "~1,0F" +nan.0) .......... [PASS] 159. (format "~1,0F" 0.0) .......... [PASS] 160. (format "~1,0F" -0.0) .......... [PASS] 161. (format "~1,1F" +inf.0) .......... [PASS] 162. (format "~1,1F" -inf.0) .......... [PASS] 163. (format "~1,1F" +nan.0) .......... [PASS] 164. (format "~1,1F" 0.0) .......... [PASS] 165. (format "~1,1F" -0.0) .......... [PASS] 166. (format "~F" (* pi 10)) .......... [PASS] 167. (format "~1,5F" (/ 1 3)) .......... [PASS] 168. (format "~1,5F" (/ -1 3)) .......... [PASS] 169. (format "~1,12F" (/ 1 7)) .......... [PASS] 170. (format "~F" 1.797693e308) .......... [PASS] 171. (format "~1F" 1.797693e308) .......... [PASS] 172. (format "~1,0F" 1.797693e308) .......... [PASS] 173. (format "~1,1F" 1.797693e308) .......... [PASS] 174. (format "~F" -1.797693e308) .......... [PASS] 175. (format "~1F" -1.797693e308) .......... [PASS] 176. (format "~1,0F" -1.797693e308) .......... [PASS] 177. (format "~1,1F" -1.797693e308) .......... [PASS] 178. (format "~F" 2.225074e-308) .......... [PASS] 179. (format "~1,2F" 5.015) .......... [PASS] 180. (format "~1,2F" 5.999) .......... [PASS] 181. (format "~1,0F" 123.0) .......... [PASS] 182. (format "~F" 0.1) .......... [PASS] 183. (format "~1f" 1) .......... [PASS] 184. (format "~1,0F" 1e100) .......... [PASS] 185. (format "~1,0F" 1) .......... [PASS] 186. (format "~1,0F" 0.1) .......... [PASS] 187. (format "~1,1F" 0.01) .......... [PASS] 188. (format "~0,3F" 1.23e20) .......... [PASS] 189. (format "~0,3F" 1.23e-20) .......... [PASS] 190. (format "~8,3F" 3456900000000000.0) .......... [PASS] 191. (format "~8,3F" 3.4569) .......... [PASS] 192. (format "~8,2F" 3456000000000000.0) .......... [PASS] 193. (format "~8,2F" 3.456) .......... [PASS] 194. (format "~10,0F" -0.0003) .......... [PASS] 195. (format "~10,1F" -0.0003) .......... [PASS] 196. (format "~10,2F" -0.0003) .......... [PASS] 197. (format "~10,3F" -0.0003) .......... [PASS] 198. (format "~10,4F" -0.0003) .......... [PASS] 199. (format "~10,4F" 3e-5) .......... [PASS] 200. (format "~10,3F" 1.02) .......... [PASS] 201. (format "~10,3F" 1.025) .......... [PASS] 202. (format "~10,3F" 1.0256) .......... [PASS] 203. (format "~10,3F" 1.002) .......... [PASS] 204. (format "~10,3F" 1.0025) .......... [PASS] 205. (format "~10,3F" 1.00256) .......... [PASS] 206. (format "~8,6F" 1.00001234) .......... [PASS] 207. (format "~7,2F" 0.997554209949891) .......... [PASS] 208. (format "~7,2F" 0.99755) .......... [PASS] 209. (format "~7,2F" 0.9975000000000001) .......... [PASS] 210. (format "~7,2F" 0.997) .......... [PASS] 211. (format "~7,2F" 0.99) .......... [PASS] 212. (format "~7,2F" 18.0000000000008) .......... [PASS] 213. (format "~8,0F" -14.99995999999362) .......... [PASS] 213 out of 213 passed (100.00%) 1. (call-with-values (lambda () (rest-values rest-list)) list) .......... [PASS] 2. (call-with-values (lambda () (rest-values rest-list 2)) list) .......... [PASS] 3. (call-with-values (lambda () (rest-values caller rest-list)) list) .......... [PASS] 4. (call-with-values (lambda () (rest-values caller rest-list -3)) list) .......... [PASS] 5. (quote (rest-values rest-list -2 (quote y) 3 1)) .......... [PASS] 6. (quote (rest-values (quote caller) rest-list 1 (quote (x y z)))) .......... [PASS] 7. (quote (rest-values caller rest-list 2 (list (quote x) (quote y) (quote z)) (cons "str" string?))) .......... [PASS] 8. (quote (rest-values rest-list 2 (quote (y z)) (quasiquote (100 unquote number?)))) .......... [PASS] 9. (quote (rest-values "caller: bad argument" rest-list 2 (quote (y z)) (quasiquote (100 unquote number?)))) .......... [PASS] 10. (quote (rest-values (quote caller) rest-list (list (quote x) (quote y)) (cons 1 number?))) .......... [PASS] 11. (call-with-values (lambda () (rest-values rest-list - (quote y) 100 "str")) list) .......... [PASS] 12. (call-with-values (lambda () (rest-values rest-list + (quasiquote (x y z)) (quasiquote (100 unquote number?)) (quasiquote ("str" unquote string?)))) list) .......... [PASS] 13. (call-with-values (lambda () (rest-values rest-list #t (quasiquote (x y z)) (quasiquote (100 unquote number?)) (quasiquote ("str" unquote string?)))) list) .......... [PASS] 14. (call-with-values (lambda () (rest-values rest-list #t (quasiquote (100 unquote number?)) (quasiquote ("str" unquote string?)) (quasiquote (x y z)))) list) .......... [PASS] 15. (quote (rest-values rest-list #t (quasiquote (100 unquote number?)) (quasiquote ("str" unquote string?)) (quasiquote (y z)))) .......... [PASS] 16. (call-with-values (lambda () (rest-values rest-list #f (quasiquote (100 unquote number?)) (quasiquote ("str" unquote string?)) (quasiquote (y z)))) list) .......... [PASS] 17. (quote (arg-and num (number? num) (< num 2))) .......... [PASS] 18. (quote (arg-and caller num (number? num) (< num 2))) .......... [PASS] 19. (quote (arg-and (quote caller) num (number? num) (< num 2))) .......... [PASS] 20. (quote (arg-and "caller: bad argument" num (number? num) (< num 2))) .......... [PASS] 21. (quote (arg-ands (str (string? str) (< (string-length str) 7)) ("caller: bad argument" num (number? num) (< num 2)))) .......... [PASS] 22. (quote (arg-ands ("caller: bad argument" str (string? str) (< (string-length str) 7)) (num (number? num) (< num 2)))) .......... [PASS] 23. (quote (arg-ands common (quote caller) (str (string? str) (< (string-length str) 7)) (num (number? num) (< num 2)))) .......... [PASS] 24. (quote (arg-ands common "caller: bad argument" (str (string? str) (< (string-length str) 7)) ("caller: incorrect argument" num (number? num) (< num 2)))) .......... [PASS] 25. (quote (err-and (quote caller) (string? str) (< (string-length str) 7) (number? num) (< num 2))) .......... [PASS] 26. (quote (err-ands (caller (string? str) (< (string-length str) 7)) ("num failed test in caller" (number? num) (< num 2)))) .......... [PASS] 26 out of 26 passed (100.00%) : ./skint test/srfi/43.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 45: ./skint test/srfi/45.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 46: ./skint test/srfi/46.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 48: ./skint test/srfi/48.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 51: ./skint test/srfi/51.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNI1. (cat 129.995 -10 2.0) .......... [PASS] 2. (cat 129.995 10 2.0) .......... [PASS] 3. (cat 129 2.0) .......... [PASS] 4. (cat 129 -2.0) .......... [PASS] 5. (cat 129 10 #\* (quote octal) (quote sign)) .......... [PASS] 6. (cat 129 10 #\0 (quote octal) (quote sign)) .......... [PASS] 7. (cat 123000000 (quote flonum)) .......... [PASS] 8. (cat 1.23456789e25 (quote fixnum)) .......... [PASS] 9. (cat 129.995 10 2.0 (quote sign) (quote ("$"))) .......... [PASS] 10. (cat 129.995 10 2.0 (quote sign) (quote ("$" -3))) .......... [PASS] 11. (cat 129.995 10 2.0 (quote ("The number is " "."))) .......... [PASS] 12. (cat "abcdefg" (quote (3 . 1))) .......... [PASS] 13. (cat "abcdefg" (quote (3 1))) .......... [PASS] 14. (cat 123456789 (quote sign) (quote (#\,))) .......... [PASS] 15. (cat "abcdefg" (quote sign) (quote (#\,))) .......... [PASS] 16. (cat "abcdefg" (quote sign) (quote (#\: 2))) .......... [PASS] 17. (cat "abcdefg" (quote sign) (quote (#\: -2))) .......... [PASS] 18. (cat (quote (#\a "str" s))) .......... [PASS] 19. (cat (quote (#\a "str" s)) (quote (-1 -1))) .......... [PASS] 20. (cat (quote (#\a "str" s)) write) .......... [PASS] 21. (let ((p (open-output-string))) (cat (quote String) 10 p) (get-output-string p)) .......... [PASS] 22. (get-output-string p) .......... [PASS] 23. (cat ex 20 record-writer) .......... [PASS] 24. (cat "str" 20 record-writer) .......... [PASS] 25. (get-output-string p) .......... [PASS] 25 out of 25 passed (100.00%) 1. (receive (x y) (values (f 3) (f 10)) (+ x y)) .......... [PASS] 1 out of 1 passed (100.00%) 1. (eqv? 102 (bitwise-if 172 53 202)) .......... [PASS] 2. (equal? r (log2-binary-factors n)) .......... [PASS] 3. (equal? r (log2-binary-factors n)) .......... [PASS] 4. (equal? r (log2-binary-factors n)) .......... [PASS] 5. (equal? r (log2-binary-factors n)) .......... [PASS] 6. (equal? r (log2-binary-factors n)) .......... [PASS] 7. (equal? r (log2-binary-factors n)) .......... [PASS] 8. (equal? r (log2-binary-factors n)) .......... [PASS] 9. (equal? r (log2-binary-factors n)) .......... [PASS] 10. (equal? r (log2-binary-factors n)) .......... [PASS] 11. (equal? r (log2-binary-factors n)) .......... [PASS] 12. (equal? r (log2-binary-factors n)) .......... [PASS] 13. (equal? r (log2-binary-factors n)) .......... [PASS] 14. (equal? r (log2-binary-factors n)) .......... [PASS] 15. (equal? r (log2-binary-factors n)) .......... [PASS] 16. (equal? r (log2-binary-factors n)) .......... [PASS] 17. (equal? r (log2-binary-factors n)) .......... [PASS] 18. (equal? r (log2-binary-factors n)) .......... [PASS] 19. (equal? r (log2-binary-factors n)) .......... [PASS] 20. (equal? r (log2-binary-factors n)) .......... [PASS] 21. (equal? r (log2-binary-factors n)) .......... [PASS] 22. (equal? r (log2-binary-factors n)) .......... [PASS] 23. (equal? r (log2-binary-factors n)) .......... [PASS] 24. (equal? r (log2-binary-factors n)) .......... [PASS] 25. (equal? r (log2-binary-factors n)) .......... [PASS] 26. (equal? r (log2-binary-factors n)) .......... [PASS] 27. (equal? r (log2-binary-factors n)) .......... [PASS] 28. (equal? r (log2-binary-factors n)) .......... [PASS] 29. (equal? r (log2-binary-factors n)) .......... [PASS] 30. (equal? r (log2-binary-factors n)) .......... [PASS] 31. (equal? r (log2-binary-factors n)) .......... [PASS] 32. (equal? r (log2-binary-factors n)) .......... [PASS] 33. (equal? r (log2-binary-factors n)) .......... [PASS] 34. (equal? r (log2-binary-factors n)) .......... [PASS] 35. (equal? r (number->string (rotate-bit-field n c s e) 2)) .......... [PASS] 36. (equal? r (number->string (rotate-bit-field n c s e) 2)) .......... [PASS] 37. (equal? r (number->string (rotate-bit-field n c s e) 2)) .......... [PASS] 38. (equal? r (number->string (rotate-bit-field n c s e) 2)) .......... [PASS] 39. (equal? r (number->string (rotate-bit-field n c s e) 2)) .......... [PASS] 40. (equal? r (number->string (rotate-bit-field n c s e) 2)) .......... [PASS] 41. (equal? r (number->string (reverse-bit-field n s e) 2)) .......... [PASS] 42. (equal? r (number->string (reverse-bit-field n s e) 2)) .......... [PASS] 43. (equal? r (number->string (reverse-bit-field n s e) 2)) .......... [PASS] 44. (equal? (quote (#t #f #f #t)) (integer->list 9)) .......... [PASS] 45. (equal? (quote (#f #f #t #f #f #t)) (integer->list 9 6)) .......... [PASS] 46. (eqv? 9 (list->integer (quote (#t #f #f #t)))) .......... [PASS] 47. (eqv? 9 (list->integer (quote (#f #f #t #f #f #t)))) .......... [PASS] 48. (equal? 9 (booleans->integer #f #f #t #f #f #t)) .......... [PASS] 48 out of 48 passed (100.00%) 1. (port->char-list (open-input-string "12357")) .......... [PASS] 1 out of 1 passed (100.00%) 1. (read-error? (guard (exn (else exn)) (read (open-input-string " #;")))) .......... [PASS] 2. (read (open-input-string "#;foo (1 #;bar 2 3 #;baz)")) .......... [PASS] 3. (read (open-input-string "#;(f o o) (1 #;(bar #;baz foobar) 2 3 #;#(quux))")) .......... [PASS] 3 out of 3 passed (100.00%) NG TESTS FOR SRFI 54: ./skint test/srfi/54.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 55: ./skint test/srfi/55.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 60: ./skint test/srfi/60.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 61: ./skint test/srfi/61.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 62: ./skint test/srfi/62.scm ---------------------------------------------------------------------------- --------------------------------------------------------------1. (not (array? (quote #()))) .......... [PASS] 2. (not (array? (quote #(a b c 4.0)))) .......... [PASS] 3. (not (not (array? (quote ())))) .......... [PASS] 4. (not (not (array? (quote (a b c 4.0))))) .......... [PASS] 5. (quote a) .......... [PASS] 6. (quote (a)) .......... [PASS] 7. (quote (a (b) c)) .......... [PASS] 8. "abc" .......... [PASS] 9. 2 .......... [PASS] 10. (make-vector 5 (quote a)) .......... [PASS] 11. (make-array (A:fixN32b 4) 5 3) .......... [PASS] 12. (make-array (quote #(foo)) 3 3) .......... [PASS] 13. (not (not (equal? (quote ()) (quote b)))) .......... [PASS] 14. (not (not (equal? 4 4.0))) .......... [PASS] 15. (not (not (equal? (quote a) (quote b)))) .......... [PASS] 16. (not (not (equal? (quote ()) (quote (a))))) .......... [PASS] 17. (not (not (equal? (quote (a (d) c)) (quote (a (b) c))))) .......... [PASS] 18. (not (not (equal? "abc" "abcd"))) .......... [PASS] 19. (not (not (equal? 2 2.0))) .......... [PASS] 20. (not (not (equal? (make-vector 5 (quote a)) (make-vector 6 (quote a))))) .......... [PASS] 21. (not (not (equal? (make-array (A:fixN32b 4) 5 3) (make-array (A:fixN32b 2) 5 3)))) .......... [PASS] 22. (not (not (equal? (make-array (quote #(foo)) 3 3) (make-array (quote #(baz)) 3 3)))) .......... [PASS] 23. 0 .......... [PASS] 24. 2 .......... [PASS] 25. (quote (3 7)) .......... [PASS] 26. (array-ref freds-center 0 0) .......... [PASS] 27. (array->list (list->array 2 (quote #()) (quote ((1 2) (3 4))))) .......... [PASS] 28. (array->list (list->array 0 (quote #()) 3)) .......... [PASS] 29. (array->list (vector->array (quote #(1 2 3 4)) (quote #()) 2 2)) .......... [PASS] 30. (array->vector (vector->array (quote #(1 2 3 4)) (quote #()) 2 2)) .......... [PASS] 31. #f .......... [PASS] 32. #f .......... [PASS] 33. #f .......... [PASS] 34. #t .......... [PASS] 35. #f .......... [PASS] 36. #f .......... [PASS] 37. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 38. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 39. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 40. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 41. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 42. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 43. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 44. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 45. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 46. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 47. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 48. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 49. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 50. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 51. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 52. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 53. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 54. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 55. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 56. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 57. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 58. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 59. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 60. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 61. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 62. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 63. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 64. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 65. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 66. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 67. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 68. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 69. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 70. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 71. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 72. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 73. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 74. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 75. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 76. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 77. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 78. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 79. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 80. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 81. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 82. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 83. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 84. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 85. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 86. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 87. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 88. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 89. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 90. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 91. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 92. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 93. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 94. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 95. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 96. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 97. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 98. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 99. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 100. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 101. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 102. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 103. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 104. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 105. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 106. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 107. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 108. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 109. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 110. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 111. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 112. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 113. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 114. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 115. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 116. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 117. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 118. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 119. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 120. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 121. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 122. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 123. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 124. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 125. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 126. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 127. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 128. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 129. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 130. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 131. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 132. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 133. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 134. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 135. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 136. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 137. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 138. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 139. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 140. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 141. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 142. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 143. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 144. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 145. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 146. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 147. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 148. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 149. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 150. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 151. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 152. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 153. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 154. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 155. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 156. (not (= (f i j k) (array-ref a i j k))) .......... [PASS] 157. (not (array? a)) .......... [PASS] 158. (not (array? a)) .......... [PASS] 159. (not (array? a)) .......... [PASS] 160. (not (array? a)) .......... [PASS] 161. (not (array? a)) .......... [PASS] 162. (not (array? a)) .......... [PASS] 163. (not (array? a)) .......... [PASS] 164. (not (array? a)) .......... [PASS] 165. (not (array? a)) .......... [PASS] 166. (not (array? a)) .......... [PASS] 167. (not (array? a)) .......... [PASS] 168. (not (array? a)) .......... [PASS] 169. (not (array? a)) .......... [PASS] 170. (not (array? a)) .......... [PASS] 171. (not (array? a)) .......... [PASS] 172. (not (array? a)) .......... [PASS] 173. (not (array? a)) .......... [PASS] 174. (not (array? a)) .......... [PASS] 175. (not (array? a)) .......... [PASS] 176. (not (array? a)) .......... [PASS] 177. (not (array? a)) .......... [PASS] 178. (not (array? a)) .......... [PASS] 179. (not (array? a)) .......... [PASS] 180. (not (array? a)) .......... [PASS] 181. (not (array? a)) .......... [PASS] 182. (not (array? a)) .......... [PASS] 183. (not (array? a)) .......... [PASS] 184. (not (array? a)) .......... [PASS] 185. (not (array? a)) .......... [PASS] 186. (not (array? a)) .......... [PASS] 187. (not (array? a)) .......... [PASS] 188. (not (array? a)) .......... [PASS] 189. (not (array? a)) .......... [PASS] 190. (not (array? a)) .......... [PASS] 191. (not (array? a)) .......... [PASS] 192. (not (array? a)) .......... [PASS] 193. (not (array? a)) .......... [PASS] 194. (not (array? a)) .......... [PASS] 195. (not (array? a)) .......... [PASS] 196. (not (array? a)) .......... [PASS] 196 out of 196 passed (100.00%) [testing srfi-64] [testing 1. Simple test-cases] [testing 1.1. test-assert] [testing 1.2. test-eqv] [testing 2. Tests for catching errors] [testing 2.1. test-error] [testing 3. Test groups and paths] [testing 4. Handling set-up and cleanup] [testing 5. Test specifiers] [testing 5.1. test-match-named] [testing 5.2. test-match-nth] [testing 5.3. test-match-any] [testing 5.4. test-match-all] [testing 6. Skipping selected tests] [testing 6.3. Specifier Stack] [testing 6.4. Short-circuit evaluation] [testing 6.4.3. Skipping test suites] [testing 7. Expected failures] [testing 8. Test-runner] [testing 8.1. test-runner-current] [testing 8.2. test-runner-simple] [testing 8.3. test-runner-factory] [testing 8.4. test-runner-create] [testing 8.5. test-runner-factory] [testing 8.6. test-apply] [testing 8.7. test-with-runner] [testing 8.8. test-runner components] [testing 9. Test Result Properties] [testing 9.1. test-result-alist] [testing 9.2. test-result-ref] [testing 9.3. test-result-set!] # of expected outcomes: 53 # of unexpected outcomes: 0 1. (not (and (u8vector? (make-u8vector 10 23)) (equal? (u8vector->list (u8vector 0 5 6 7 8 255)) (quote (0 5 6 7 8 255))) (equal? (u8vector->list (list->u8vector (quote (255 254 1 0)))) (quote (255 254 1 0))) (= (u8vector-length (u8vector 1 2 3 4)) 4) (= (u8vector-ref (u8vector 20 21 22 23 24) 0) 20) (= (u8vector-ref (u8vector 20 21 22 23 24) 4) 24))) .......... [PASS] 2. (not (and (u8vector=? bv (u8vector 50 21 22 23 255)) (= -1 (u8vector-compare (u8vector) bv)) (= -1 (u8vector-compare (u8vector 255) bv)) (= 0 (u8vector-compare bv bv)) (= 1 (u8vector-compare bv (u8vector 255 255 255 255))))) .......... [PASS] 3. (not (u8vector=? bv (u8vector 99 98 97 23 255))) .......... [PASS] 4. (not (u8vector=? bv (u8vector 98 97 23 255 255))) .......... [PASS] 5. (not (u8vector=? bv (u8vector 98 97 98 97 23))) .......... [PASS] 6. (not (and (u8vector=? (u8vector-copy bv) bv) (not (eq? (u8vector-copy bv) bv)))) .......... [PASS] 6 out of 6 passed (100.00%) (if3 -1 (quote n) (quote z) (quote p)) => n ; correct (if3 0 (quote n) (quote z) (quote p)) => z ; correct (if3 1 (quote n) (quote z) (quote p)) => p ; correct (let ((x -1)) (if3 (let ((x0 x)) (set! x (+ x 1)) x0) (quote n) (quote z) (quote p))) => n ; correct (let ((x -1) (y 0)) (if3 (let ((x0 x)) (set! x (+ x 1)) x0) (begin (set! y (+ y 1)) y) (begin (set! y (+ y 10)) y) (begin (set! y (+ y 100)) y))) => 1 ; correct (let ((x 0) (y 0)) (if3 (let ((x0 x)) (set! x (+ x 1)) x0) (begin (set! y (+ y 1)) y) (begin (set! y (+ y 10)) y) (begin (set! y (+ y 100)) y))) => 10 ; correct (let ((x 1) (y 0)) (if3 (let ((x0 x)) (set! x (+ x 1)) x0) (begin (set! y (+ y 1)) y) (begin (set! y (+ y 10)) y) (begin (set! y (+ y 100)) y))) => 100 ; correct (if=? -1 (quote yes) (quote no)) => no ; correct (if=? 0 (quote yes) (quote no)) => yes ; correct (if=? 1 (quote yes) (quote no)) => no ; correct (let ((x #f)) (if=? -1 (set! x #t)) x) => #f ; correct (let ((x #f)) (if=? 0 (set! x #t)) x) => #t ; correct (let ((x #f)) (if=? 1 (set! x #t)) x) => #f ; correct (let ((n 0)) (if=? (begin (set! n (+ n 1)) -1) #t #f) n) => 1 ; correct (let ((n 0)) (if=? (begin (set! n (+ n 1)) 0) #t #f) n) => 1 ; correct (let ((n 0)) (if=? (begin (set! n (+ n 1)) 1) #t #f) n) => 1 ; correct (let ((n 0)) (if=? (begin (set! n (+ n 1)) -1) #t) n) => 1 ; correct (let ((n 0)) (if=? (begin (set! n (+ n 1)) 0) #t) n) => 1 ; correct (let ((n 0)) (if=? (begin (set! n (+ n 1)) 1) #t) n) => 1 ; correct (if yes ; correct (if no ; correct (if no ; correct (let ((x #f)) (if #t ; correct (let ((x #f)) (if #f ; correct (let ((x #f)) (if #f ; correct (let ((n 0)) (if 1 ; correct (let ((n 0)) (if 1 ; correct (let ((n 0)) (if 1 ; correct (let ((n 0)) (if 1 ; correct (let ((n 0)) (if 1 ; correct (let ((n 0)) (if 1 ; correct (if>? -1 (quote yes) (quote no)) => no ; correct (if>? 0 (quote yes) (quote no)) => no ; correct (if>? 1 (quote yes) (quote no)) => yes ; correct (let ((x #f)) (if>? -1 (set! x #t)) x) => #f ; correct (let ((x #f)) (if>? 0 (set! x #t)) x) => #f ; correct (let ((x #f)) (if>? 1 (set! x #t)) x) => #t ; correct (let ((n 0)) (if>? (begin (set! n (+ n 1)) -1) #t #f) n) => 1 ; correct (let ((n 0)) (if>? (begin (set! n (+ n 1)) 0) #t #f) n) => 1 ; correct (let ((n 0)) (if>? (begin (set! n (+ n 1)) 1) #t #f) n) => 1 ; correct (let ((n 0)) (if>? (begin (set! n (+ n 1)) -1) #t) n) => 1 ; correct (let ((n 0)) (if>? (begin (set! n (+ n 1)) 0) #t) n) => 1 ; correct (let ((n 0)) (if>? (begin (set! n (+ n 1)) 1) #t) n) => 1 ; correct (if<=? -1 (quote yes) (quote no)) => yes ; correct (if<=? 0 (quote yes) (quote no)) => yes ; correct (if<=? 1 (quote yes) (quote no)) => no ; correct (let ((x #f)) (if<=? -1 (set! x #t)) x) => #t ; correct (let ((x #f)) (if<=? 0 (set! x #t)) x) => #t ; correct (let ((x #f)) (if<=? 1 (set! x #t)) x) => #f ; correct (let ((n 0)) (if<=? (begin (set! n (+ n 1)) -1) #t #f) n) => 1 ; correct (let ((n 0)) (if<=? (begin (set! n (+ n 1)) 0) #t #f) n) => 1 ; correct (let ((n 0)) (if<=? (begin (set! n (+ n 1)) 1) #t #f) n) => 1 ; correct (let ((n 0)) (if<=? (begin (set! n (+ n 1)) -1) #t) n) => 1 ; correct (let ((n 0)) (if<=? (begin (set! n (+ n 1)) 0) #t) n) => 1 ; correct (let ((n 0)) (if<=? (begin (set! n (+ n 1)) 1) #t) n) => 1 ; correct (if>=? -1 (quote yes) (quote no)) => no ; correct (if>=? 0 (quote yes) (quote no)) => yes ; correct (if>=? 1 (quote yes) (quote no)) => yes ; correct (let ((x #f)) (if>=? -1 (set! x #t)) x) => #f ; correct (let ((x #f)) (if>=? 0 (set! x #t)) x) => #t ; correct (let ((x #f)) (if>=? 1 (set! x #t)) x) => #t ; correct (let ((n 0)) (if>=? (begin (set! n (+ n 1)) -1) #t #f) n) => 1 ; correct (let ((n 0)) (if>=? (begin (set! n (+ n 1)) 0) #t #f) n) => 1 ; correct (let ((n 0)) (if>=? (begin (set! n (+ n 1)) 1) #t #f) n) => 1 ; correct (let ((n 0)) (if>=? (begin (set! n (+ n 1)) -1) #t) n) => 1 ; correct (let ((n 0)) (if>=? (begin (set! n (+ n 1)) 0) #t) n) => 1 ; correct (let ((n 0)) (if>=? (begin (set! n (+ n 1)) 1) #t) n) => 1 ; correct (if-not=? -1 (quote yes) (quote no)) => yes ; correct (if-not=? 0 (quote yes) (quote no)) => no ; correct (if-not=? 1 (quote yes) (quote no)) => yes ; correct (let ((x #f)) (if-not=? -1 (set! x #t)) x) => #t ; correct (let ((x #f)) (if-not=? 0 (set! x #t)) x) => #f ; correct (let ((x #f)) (if-not=? 1 (set! x #t)) x) => #t ; correct (let ((n 0)) (if-not=? (begin (set! n (+ n 1)) -1) #t #f) n) => 1 ; correct (let ((n 0)) (if-not=? (begin (set! n (+ n 1)) 0) #t #f) n) => 1 ; correct (let ((n 0)) (if-not=? (begin (set! n (+ n 1)) 1) #t #f) n) => 1 ; correct (let ((n 0)) (if-not=? (begin (set! n (+ n 1)) -1) #t) n) => 1 ; correct (let ((n 0)) (if-not=? (begin (set! n (+ n 1)) 0) #t) n) => 1 ; correct (let ((n 0)) (if-not=? (begin (set! n (+ n 1)) 1) #t) n) => 1 ; correct (=? ci 0 0) => #t ; correct (=? ci 0 1) => #f ; correct (=? ci 1 0) => #f ; correct (=? 0 0) => #t ; correct (=? 0 1) => #f ; correct (=? 1 0) => #f ; correct ((=? ci) 0 0) => #t ; correct ((=? ci) 0 1) => #f ; correct ((=? ci) 1 0) => #f ; correct ((=?) 0 0) => #t ; correct ((=?) 0 1) => #f ; correct ((=?) 1 0) => #f ; correct ( #f ; correct ( #t ; correct ( #f ; correct ( #f ; correct ( #t ; correct ( #f ; correct (( #f ; correct (( #t ; correct (( #f ; correct (( #f ; correct (( #t ; correct (( #f ; correct (>? ci 0 0) => #f ; correct (>? ci 0 1) => #f ; correct (>? ci 1 0) => #t ; correct (>? 0 0) => #f ; correct (>? 0 1) => #f ; correct (>? 1 0) => #t ; correct ((>? ci) 0 0) => #f ; correct ((>? ci) 0 1) => #f ; correct ((>? ci) 1 0) => #t ; correct ((>?) 0 0) => #f ; correct ((>?) 0 1) => #f ; correct ((>?) 1 0) => #t ; correct (<=? ci 0 0) => #t ; correct (<=? ci 0 1) => #t ; correct (<=? ci 1 0) => #f ; correct (<=? 0 0) => #t ; correct (<=? 0 1) => #t ; correct (<=? 1 0) => #f ; correct ((<=? ci) 0 0) => #t ; correct ((<=? ci) 0 1) => #t ; correct ((<=? ci) 1 0) => #f ; correct ((<=?) 0 0) => #t ; correct ((<=?) 0 1) => #t ; correct ((<=?) 1 0) => #f ; correct (>=? ci 0 0) => #t ; correct (>=? ci 0 1) => #f ; correct (>=? ci 1 0) => #t ; correct (>=? 0 0) => #t ; correct (>=? 0 1) => #f ; correct (>=? 1 0) => #t ; correct ((>=? ci) 0 0) => #t ; correct ((>=? ci) 0 1) => #f ; correct ((>=? ci) 1 0) => #t ; correct ((>=?) 0 0) => #t ; correct ((>=?) 0 1) => #f ; correct ((>=?) 1 0) => #t ; correct (not=? ci 0 0) => #f ; correct (not=? ci 0 1) => #t ; correct (not=? ci 1 0) => #t ; correct (not=? 0 0) => #f ; correct (not=? 0 1) => #t ; correct (not=? 1 0) => #t ; correct ((not=? ci) 0 0) => #f ; correct ((not=? ci) 0 1) => #t ; correct ((not=? ci) 1 0) => #t ; correct ((not=?) 0 0) => #f ; correct ((not=?) 0 1) => #t ; correct ((not=?) 1 0) => #t ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #t ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #t ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #t ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #t ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (arguments-used ( (0 1 2) ; correct (arguments-used ( (0 1 2) ; correct (arguments-used ( (0 1 2) ; correct (arguments-used ( (0 1 2) ; correct (arguments-used ( (0 1 2) ; correct (arguments-used ( (0 1 2) ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #t ; correct ( #t ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #t ; correct ( #t ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct ( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #t ; correct (( #t ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #t ; correct (( #t ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (( #f ; correct (arguments-used ( (0 1 2) ; correct (arguments-used ( (0 1 2) ; correct (arguments-used ( (0 1 2) ; correct (arguments-used ( (0 1 2) ; correct (arguments-used ( (0 1 2) ; correct (arguments-used ( (0 1 2) ; correct (<=/ #f ; correct (<=/ #t ; correct (<=/ #f ; correct (<=/ #f ; correct (<=/ #f ; correct (<=/ #f ; correct (<=/ #f ; correct (<=/ #t ; correct (<=/ #f ; correct (<=/ #f ; correct (<=/ #f ; correct (<=/ #f ; correct (<=/ #f ; correct (<=/ #f ; correct (<=/ #t ; correct (<=/ #f ; correct (<=/ #f ; correct (<=/ #f ; correct (<=/ #f ; correct (<=/ #f ; correct (<=/ #t ; correct (<=/ #f ; correct (<=/ #f ; correct (<=/ #f ; correct (<=/ #f ; correct (<=/ #f ; correct ((<=/ #f ; correct ((<=/ #t ; correct ((<=/ #f ; correct ((<=/ #f ; correct ((<=/ #f ; correct ((<=/ #f ; correct ((<=/ #f ; correct ((<=/ #t ; correct ((<=/ #f ; correct ((<=/ #f ; correct ((<=/ #f ; correct ((<=/ #f ; correct ((<=/ #f ; correct ((<=/ #f ; correct ((<=/ #t ; correct ((<=/ #f ; correct ((<=/ #f ; correct ((<=/ #f ; correct ((<=/ #f ; correct ((<=/ #f ; correct ((<=/ #t ; correct ((<=/ #f ; correct ((<=/ #f ; correct ((<=/ #f ; correct ((<=/ #f ; correct ((<=/ #f ; correct (arguments-used (<=/ (0 1 2) ; correct (arguments-used (<=/ (0 1 2) ; correct (arguments-used (<=/ (0 1 2) ; correct (arguments-used (<=/ (0 1 2) ; correct (arguments-used (<=/ (0 1 2) ; correct (arguments-used (<=/ (0 1 2) ; correct (<=/<=? ci 0 0 0) => #t ; correct (<=/<=? ci 0 0 1) => #t ; correct (<=/<=? ci 0 1 0) => #f ; correct (<=/<=? ci 1 0 0) => #f ; correct (<=/<=? ci 1 1 0) => #f ; correct (<=/<=? ci 1 0 1) => #f ; correct (<=/<=? ci 0 1 1) => #t ; correct (<=/<=? ci 0 1 2) => #t ; correct (<=/<=? ci 0 2 1) => #f ; correct (<=/<=? ci 1 2 0) => #f ; correct (<=/<=? ci 1 0 2) => #f ; correct (<=/<=? ci 2 0 1) => #f ; correct (<=/<=? ci 2 1 0) => #f ; correct (<=/<=? 0 0 0) => #t ; correct (<=/<=? 0 0 1) => #t ; correct (<=/<=? 0 1 0) => #f ; correct (<=/<=? 1 0 0) => #f ; correct (<=/<=? 1 1 0) => #f ; correct (<=/<=? 1 0 1) => #f ; correct (<=/<=? 0 1 1) => #t ; correct (<=/<=? 0 1 2) => #t ; correct (<=/<=? 0 2 1) => #f ; correct (<=/<=? 1 2 0) => #f ; correct (<=/<=? 1 0 2) => #f ; correct (<=/<=? 2 0 1) => #f ; correct (<=/<=? 2 1 0) => #f ; correct ((<=/<=? ci) 0 0 0) => #t ; correct ((<=/<=? ci) 0 0 1) => #t ; correct ((<=/<=? ci) 0 1 0) => #f ; correct ((<=/<=? ci) 1 0 0) => #f ; correct ((<=/<=? ci) 1 1 0) => #f ; correct ((<=/<=? ci) 1 0 1) => #f ; correct ((<=/<=? ci) 0 1 1) => #t ; correct ((<=/<=? ci) 0 1 2) => #t ; correct ((<=/<=? ci) 0 2 1) => #f ; correct ((<=/<=? ci) 1 2 0) => #f ; correct ((<=/<=? ci) 1 0 2) => #f ; correct ((<=/<=? ci) 2 0 1) => #f ; correct ((<=/<=? ci) 2 1 0) => #f ; correct ((<=/<=?) 0 0 0) => #t ; correct ((<=/<=?) 0 0 1) => #t ; correct ((<=/<=?) 0 1 0) => #f ; correct ((<=/<=?) 1 0 0) => #f ; correct ((<=/<=?) 1 1 0) => #f ; correct ((<=/<=?) 1 0 1) => #f ; correct ((<=/<=?) 0 1 1) => #t ; correct ((<=/<=?) 0 1 2) => #t ; correct ((<=/<=?) 0 2 1) => #f ; correct ((<=/<=?) 1 2 0) => #f ; correct ((<=/<=?) 1 0 2) => #f ; correct ((<=/<=?) 2 0 1) => #f ; correct ((<=/<=?) 2 1 0) => #f ; correct (arguments-used (<=/<=? ci 0 1 2)) => (0 1 2) ; correct (arguments-used (<=/<=? ci 0 2 1)) => (0 1 2) ; correct (arguments-used (<=/<=? ci 1 2 0)) => (0 1 2) ; correct (arguments-used (<=/<=? ci 1 0 2)) => (0 1 2) ; correct (arguments-used (<=/<=? ci 2 0 1)) => (0 1 2) ; correct (arguments-used (<=/<=? ci 2 1 0)) => (0 1 2) ; correct (>/>? ci 0 0 0) => #f ; correct (>/>? ci 0 0 1) => #f ; correct (>/>? ci 0 1 0) => #f ; correct (>/>? ci 1 0 0) => #f ; correct (>/>? ci 1 1 0) => #f ; correct (>/>? ci 1 0 1) => #f ; correct (>/>? ci 0 1 1) => #f ; correct (>/>? ci 0 1 2) => #f ; correct (>/>? ci 0 2 1) => #f ; correct (>/>? ci 1 2 0) => #f ; correct (>/>? ci 1 0 2) => #f ; correct (>/>? ci 2 0 1) => #f ; correct (>/>? ci 2 1 0) => #t ; correct (>/>? 0 0 0) => #f ; correct (>/>? 0 0 1) => #f ; correct (>/>? 0 1 0) => #f ; correct (>/>? 1 0 0) => #f ; correct (>/>? 1 1 0) => #f ; correct (>/>? 1 0 1) => #f ; correct (>/>? 0 1 1) => #f ; correct (>/>? 0 1 2) => #f ; correct (>/>? 0 2 1) => #f ; correct (>/>? 1 2 0) => #f ; correct (>/>? 1 0 2) => #f ; correct (>/>? 2 0 1) => #f ; correct (>/>? 2 1 0) => #t ; correct ((>/>? ci) 0 0 0) => #f ; correct ((>/>? ci) 0 0 1) => #f ; correct ((>/>? ci) 0 1 0) => #f ; correct ((>/>? ci) 1 0 0) => #f ; correct ((>/>? ci) 1 1 0) => #f ; correct ((>/>? ci) 1 0 1) => #f ; correct ((>/>? ci) 0 1 1) => #f ; correct ((>/>? ci) 0 1 2) => #f ; correct ((>/>? ci) 0 2 1) => #f ; correct ((>/>? ci) 1 2 0) => #f ; correct ((>/>? ci) 1 0 2) => #f ; correct ((>/>? ci) 2 0 1) => #f ; correct ((>/>? ci) 2 1 0) => #t ; correct ((>/>?) 0 0 0) => #f ; correct ((>/>?) 0 0 1) => #f ; correct ((>/>?) 0 1 0) => #f ; correct ((>/>?) 1 0 0) => #f ; correct ((>/>?) 1 1 0) => #f ; correct ((>/>?) 1 0 1) => #f ; correct ((>/>?) 0 1 1) => #f ; correct ((>/>?) 0 1 2) => #f ; correct ((>/>?) 0 2 1) => #f ; correct ((>/>?) 1 2 0) => #f ; correct ((>/>?) 1 0 2) => #f ; correct ((>/>?) 2 0 1) => #f ; correct ((>/>?) 2 1 0) => #t ; correct (arguments-used (>/>? ci 0 1 2)) => (0 1 2) ; correct (arguments-used (>/>? ci 0 2 1)) => (0 1 2) ; correct (arguments-used (>/>? ci 1 2 0)) => (0 1 2) ; correct (arguments-used (>/>? ci 1 0 2)) => (0 1 2) ; correct (arguments-used (>/>? ci 2 0 1)) => (0 1 2) ; correct (arguments-used (>/>? ci 2 1 0)) => (0 1 2) ; correct (>/>=? ci 0 0 0) => #f ; correct (>/>=? ci 0 0 1) => #f ; correct (>/>=? ci 0 1 0) => #f ; correct (>/>=? ci 1 0 0) => #t ; correct (>/>=? ci 1 1 0) => #f ; correct (>/>=? ci 1 0 1) => #f ; correct (>/>=? ci 0 1 1) => #f ; correct (>/>=? ci 0 1 2) => #f ; correct (>/>=? ci 0 2 1) => #f ; correct (>/>=? ci 1 2 0) => #f ; correct (>/>=? ci 1 0 2) => #f ; correct (>/>=? ci 2 0 1) => #f ; correct (>/>=? ci 2 1 0) => #t ; correct (>/>=? 0 0 0) => #f ; correct (>/>=? 0 0 1) => #f ; correct (>/>=? 0 1 0) => #f ; correct (>/>=? 1 0 0) => #t ; correct (>/>=? 1 1 0) => #f ; correct (>/>=? 1 0 1) => #f ; correct (>/>=? 0 1 1) => #f ; correct (>/>=? 0 1 2) => #f ; correct (>/>=? 0 2 1) => #f ; correct (>/>=? 1 2 0) => #f ; correct (>/>=? 1 0 2) => #f ; correct (>/>=? 2 0 1) => #f ; correct (>/>=? 2 1 0) => #t ; correct ((>/>=? ci) 0 0 0) => #f ; correct ((>/>=? ci) 0 0 1) => #f ; correct ((>/>=? ci) 0 1 0) => #f ; correct ((>/>=? ci) 1 0 0) => #t ; correct ((>/>=? ci) 1 1 0) => #f ; correct ((>/>=? ci) 1 0 1) => #f ; correct ((>/>=? ci) 0 1 1) => #f ; correct ((>/>=? ci) 0 1 2) => #f ; correct ((>/>=? ci) 0 2 1) => #f ; correct ((>/>=? ci) 1 2 0) => #f ; correct ((>/>=? ci) 1 0 2) => #f ; correct ((>/>=? ci) 2 0 1) => #f ; correct ((>/>=? ci) 2 1 0) => #t ; correct ((>/>=?) 0 0 0) => #f ; correct ((>/>=?) 0 0 1) => #f ; correct ((>/>=?) 0 1 0) => #f ; correct ((>/>=?) 1 0 0) => #t ; correct ((>/>=?) 1 1 0) => #f ; correct ((>/>=?) 1 0 1) => #f ; correct ((>/>=?) 0 1 1) => #f ; correct ((>/>=?) 0 1 2) => #f ; correct ((>/>=?) 0 2 1) => #f ; correct ((>/>=?) 1 2 0) => #f ; correct ((>/>=?) 1 0 2) => #f ; correct ((>/>=?) 2 0 1) => #f ; correct ((>/>=?) 2 1 0) => #t ; correct (arguments-used (>/>=? ci 0 1 2)) => (0 1 2) ; correct (arguments-used (>/>=? ci 0 2 1)) => (0 1 2) ; correct (arguments-used (>/>=? ci 1 2 0)) => (0 1 2) ; correct (arguments-used (>/>=? ci 1 0 2)) => (0 1 2) ; correct (arguments-used (>/>=? ci 2 0 1)) => (0 1 2) ; correct (arguments-used (>/>=? ci 2 1 0)) => (0 1 2) ; correct (>=/>? ci 0 0 0) => #f ; correct (>=/>? ci 0 0 1) => #f ; correct (>=/>? ci 0 1 0) => #f ; correct (>=/>? ci 1 0 0) => #f ; correct (>=/>? ci 1 1 0) => #t ; correct (>=/>? ci 1 0 1) => #f ; correct (>=/>? ci 0 1 1) => #f ; correct (>=/>? ci 0 1 2) => #f ; correct (>=/>? ci 0 2 1) => #f ; correct (>=/>? ci 1 2 0) => #f ; correct (>=/>? ci 1 0 2) => #f ; correct (>=/>? ci 2 0 1) => #f ; correct (>=/>? ci 2 1 0) => #t ; correct (>=/>? 0 0 0) => #f ; correct (>=/>? 0 0 1) => #f ; correct (>=/>? 0 1 0) => #f ; correct (>=/>? 1 0 0) => #f ; correct (>=/>? 1 1 0) => #t ; correct (>=/>? 1 0 1) => #f ; correct (>=/>? 0 1 1) => #f ; correct (>=/>? 0 1 2) => #f ; correct (>=/>? 0 2 1) => #f ; correct (>=/>? 1 2 0) => #f ; correct (>=/>? 1 0 2) => #f ; correct (>=/>? 2 0 1) => #f ; correct (>=/>? 2 1 0) => #t ; correct ((>=/>? ci) 0 0 0) => #f ; correct ((>=/>? ci) 0 0 1) => #f ; correct ((>=/>? ci) 0 1 0) => #f ; correct ((>=/>? ci) 1 0 0) => #f ; correct ((>=/>? ci) 1 1 0) => #t ; correct ((>=/>? ci) 1 0 1) => #f ; correct ((>=/>? ci) 0 1 1) => #f ; correct ((>=/>? ci) 0 1 2) => #f ; correct ((>=/>? ci) 0 2 1) => #f ; correct ((>=/>? ci) 1 2 0) => #f ; correct ((>=/>? ci) 1 0 2) => #f ; correct ((>=/>? ci) 2 0 1) => #f ; correct ((>=/>? ci) 2 1 0) => #t ; correct ((>=/>?) 0 0 0) => #f ; correct ((>=/>?) 0 0 1) => #f ; correct ((>=/>?) 0 1 0) => #f ; correct ((>=/>?) 1 0 0) => #f ; correct ((>=/>?) 1 1 0) => #t ; correct ((>=/>?) 1 0 1) => #f ; correct ((>=/>?) 0 1 1) => #f ; correct ((>=/>?) 0 1 2) => #f ; correct ((>=/>?) 0 2 1) => #f ; correct ((>=/>?) 1 2 0) => #f ; correct ((>=/>?) 1 0 2) => #f ; correct ((>=/>?) 2 0 1) => #f ; correct ((>=/>?) 2 1 0) => #t ; correct (arguments-used (>=/>? ci 0 1 2)) => (0 1 2) ; correct (arguments-used (>=/>? ci 0 2 1)) => (0 1 2) ; correct (arguments-used (>=/>? ci 1 2 0)) => (0 1 2) ; correct (arguments-used (>=/>? ci 1 0 2)) => (0 1 2) ; correct (arguments-used (>=/>? ci 2 0 1)) => (0 1 2) ; correct (arguments-used (>=/>? ci 2 1 0)) => (0 1 2) ; correct (>=/>=? ci 0 0 0) => #t ; correct (>=/>=? ci 0 0 1) => #f ; correct (>=/>=? ci 0 1 0) => #f ; correct (>=/>=? ci 1 0 0) => #t ; correct (>=/>=? ci 1 1 0) => #t ; correct (>=/>=? ci 1 0 1) => #f ; correct (>=/>=? ci 0 1 1) => #f ; correct (>=/>=? ci 0 1 2) => #f ; correct (>=/>=? ci 0 2 1) => #f ; correct (>=/>=? ci 1 2 0) => #f ; correct (>=/>=? ci 1 0 2) => #f ; correct (>=/>=? ci 2 0 1) => #f ; correct (>=/>=? ci 2 1 0) => #t ; correct (>=/>=? 0 0 0) => #t ; correct (>=/>=? 0 0 1) => #f ; correct (>=/>=? 0 1 0) => #f ; correct (>=/>=? 1 0 0) => #t ; correct (>=/>=? 1 1 0) => #t ; correct (>=/>=? 1 0 1) => #f ; correct (>=/>=? 0 1 1) => #f ; correct (>=/>=? 0 1 2) => #f ; correct (>=/>=? 0 2 1) => #f ; correct (>=/>=? 1 2 0) => #f ; correct (>=/>=? 1 0 2) => #f ; correct (>=/>=? 2 0 1) => #f ; correct (>=/>=? 2 1 0) => #t ; correct ((>=/>=? ci) 0 0 0) => #t ; correct ((>=/>=? ci) 0 0 1) => #f ; correct ((>=/>=? ci) 0 1 0) => #f ; correct ((>=/>=? ci) 1 0 0) => #t ; correct ((>=/>=? ci) 1 1 0) => #t ; correct ((>=/>=? ci) 1 0 1) => #f ; correct ((>=/>=? ci) 0 1 1) => #f ; correct ((>=/>=? ci) 0 1 2) => #f ; correct ((>=/>=? ci) 0 2 1) => #f ; correct ((>=/>=? ci) 1 2 0) => #f ; correct ((>=/>=? ci) 1 0 2) => #f ; correct ((>=/>=? ci) 2 0 1) => #f ; correct ((>=/>=? ci) 2 1 0) => #t ; correct ((>=/>=?) 0 0 0) => #t ; correct ((>=/>=?) 0 0 1) => #f ; correct ((>=/>=?) 0 1 0) => #f ; correct ((>=/>=?) 1 0 0) => #t ; correct ((>=/>=?) 1 1 0) => #t ; correct ((>=/>=?) 1 0 1) => #f ; correct ((>=/>=?) 0 1 1) => #f ; correct ((>=/>=?) 0 1 2) => #f ; correct ((>=/>=?) 0 2 1) => #f ; correct ((>=/>=?) 1 2 0) => #f ; correct ((>=/>=?) 1 0 2) => #f ; correct ((>=/>=?) 2 0 1) => #f ; correct ((>=/>=?) 2 1 0) => #t ; correct (arguments-used (>=/>=? ci 0 1 2)) => (0 1 2) ; correct (arguments-used (>=/>=? ci 0 2 1)) => (0 1 2) ; correct (arguments-used (>=/>=? ci 1 2 0)) => (0 1 2) ; correct (arguments-used (>=/>=? ci 1 0 2)) => (0 1 2) ; correct (arguments-used (>=/>=? ci 2 0 1)) => (0 1 2) ; correct (arguments-used (>=/>=? ci 2 1 0)) => (0 1 2) ; correct (chain=? ci) => #t ; correct (chain=? ci 0) => #t ; correct (chain=? ci 0 0) => #t ; correct (chain=? ci 0 1) => #f ; correct (chain=? ci 1 0) => #f ; correct (chain=? ci 0 0 0) => #t ; correct (chain=? ci 0 0 1) => #f ; correct (chain=? ci 0 1 0) => #f ; correct (chain=? ci 1 0 0) => #f ; correct (chain=? ci 1 1 0) => #f ; correct (chain=? ci 1 0 1) => #f ; correct (chain=? ci 0 1 1) => #f ; correct (chain=? ci 0 1 2) => #f ; correct (chain=? ci 0 2 1) => #f ; correct (chain=? ci 1 2 0) => #f ; correct (chain=? ci 1 0 2) => #f ; correct (chain=? ci 2 0 1) => #f ; correct (chain=? ci 2 1 0) => #f ; correct (arguments-used (chain=? ci 0)) => (0) ; correct (arguments-used (chain=? ci 0 1)) => (0 1) ; correct (arguments-used (chain=? ci 1 0)) => (0 1) ; correct (arguments-used (chain=? ci 0 1 2)) => (0 1 2) ; correct (arguments-used (chain=? ci 0 2 1)) => (0 1 2) ; correct (arguments-used (chain=? ci 1 2 0)) => (0 1 2) ; correct (arguments-used (chain=? ci 1 0 2)) => (0 1 2) ; correct (arguments-used (chain=? ci 2 0 1)) => (0 1 2) ; correct (arguments-used (chain=? ci 2 1 0)) => (0 1 2) ; correct (chain #t ; correct (chain #t ; correct (chain #f ; correct (chain #t ; correct (chain #f ; correct (chain #f ; correct (chain #f ; correct (chain #f ; correct (chain #f ; correct (chain #f ; correct (chain #f ; correct (chain #f ; correct (chain #t ; correct (chain #f ; correct (chain #f ; correct (chain #f ; correct (chain #f ; correct (chain #f ; correct (arguments-used (chain (0) ; correct (arguments-used (chain (0 1) ; correct (arguments-used (chain (0 1) ; correct (arguments-used (chain (0 1 2) ; correct (arguments-used (chain (0 1 2) ; correct (arguments-used (chain (0 1 2) ; correct (arguments-used (chain (0 1 2) ; correct (arguments-used (chain (0 1 2) ; correct (arguments-used (chain (0 1 2) ; correct (chain>? ci) => #t ; correct (chain>? ci 0) => #t ; correct (chain>? ci 0 0) => #f ; correct (chain>? ci 0 1) => #f ; correct (chain>? ci 1 0) => #t ; correct (chain>? ci 0 0 0) => #f ; correct (chain>? ci 0 0 1) => #f ; correct (chain>? ci 0 1 0) => #f ; correct (chain>? ci 1 0 0) => #f ; correct (chain>? ci 1 1 0) => #f ; correct (chain>? ci 1 0 1) => #f ; correct (chain>? ci 0 1 1) => #f ; correct (chain>? ci 0 1 2) => #f ; correct (chain>? ci 0 2 1) => #f ; correct (chain>? ci 1 2 0) => #f ; correct (chain>? ci 1 0 2) => #f ; correct (chain>? ci 2 0 1) => #f ; correct (chain>? ci 2 1 0) => #t ; correct (arguments-used (chain>? ci 0)) => (0) ; correct (arguments-used (chain>? ci 0 1)) => (0 1) ; correct (arguments-used (chain>? ci 1 0)) => (0 1) ; correct (arguments-used (chain>? ci 0 1 2)) => (0 1 2) ; correct (arguments-used (chain>? ci 0 2 1)) => (0 1 2) ; correct (arguments-used (chain>? ci 1 2 0)) => (0 1 2) ; correct (arguments-used (chain>? ci 1 0 2)) => (0 1 2) ; correct (arguments-used (chain>? ci 2 0 1)) => (0 1 2) ; correct (arguments-used (chain>? ci 2 1 0)) => (0 1 2) ; correct (chain<=? ci) => #t ; correct (chain<=? ci 0) => #t ; correct (chain<=? ci 0 0) => #t ; correct (chain<=? ci 0 1) => #t ; correct (chain<=? ci 1 0) => #f ; correct (chain<=? ci 0 0 0) => #t ; correct (chain<=? ci 0 0 1) => #t ; correct (chain<=? ci 0 1 0) => #f ; correct (chain<=? ci 1 0 0) => #f ; correct (chain<=? ci 1 1 0) => #f ; correct (chain<=? ci 1 0 1) => #f ; correct (chain<=? ci 0 1 1) => #t ; correct (chain<=? ci 0 1 2) => #t ; correct (chain<=? ci 0 2 1) => #f ; correct (chain<=? ci 1 2 0) => #f ; correct (chain<=? ci 1 0 2) => #f ; correct (chain<=? ci 2 0 1) => #f ; correct (chain<=? ci 2 1 0) => #f ; correct (arguments-used (chain<=? ci 0)) => (0) ; correct (arguments-used (chain<=? ci 0 1)) => (0 1) ; correct (arguments-used (chain<=? ci 1 0)) => (0 1) ; correct (arguments-used (chain<=? ci 0 1 2)) => (0 1 2) ; correct (arguments-used (chain<=? ci 0 2 1)) => (0 1 2) ; correct (arguments-used (chain<=? ci 1 2 0)) => (0 1 2) ; correct (arguments-used (chain<=? ci 1 0 2)) => (0 1 2) ; correct (arguments-used (chain<=? ci 2 0 1)) => (0 1 2) ; correct (arguments-used (chain<=? ci 2 1 0)) => (0 1 2) ; correct (chain>=? ci) => #t ; correct (chain>=? ci 0) => #t ; correct (chain>=? ci 0 0) => #t ; correct (chain>=? ci 0 1) => #f ; correct (chain>=? ci 1 0) => #t ; correct (chain>=? ci 0 0 0) => #t ; correct (chain>=? ci 0 0 1) => #f ; correct (chain>=? ci 0 1 0) => #f ; correct (chain>=? ci 1 0 0) => #t ; correct (chain>=? ci 1 1 0) => #t ; correct (chain>=? ci 1 0 1) => #f ; correct (chain>=? ci 0 1 1) => #f ; correct (chain>=? ci 0 1 2) => #f ; correct (chain>=? ci 0 2 1) => #f ; correct (chain>=? ci 1 2 0) => #f ; correct (chain>=? ci 1 0 2) => #f ; correct (chain>=? ci 2 0 1) => #f ; correct (chain>=? ci 2 1 0) => #t ; correct (arguments-used (chain>=? ci 0)) => (0) ; correct (arguments-used (chain>=? ci 0 1)) => (0 1) ; correct (arguments-used (chain>=? ci 1 0)) => (0 1) ; correct (arguments-used (chain>=? ci 0 1 2)) => (0 1 2) ; correct (arguments-used (chain>=? ci 0 2 1)) => (0 1 2) ; correct (arguments-used (chain>=? ci 1 2 0)) => (0 1 2) ; correct (arguments-used (chain>=? ci 1 0 2)) => (0 1 2) ; correct (arguments-used (chain>=? ci 2 0 1)) => (0 1 2) ; correct (arguments-used (chain>=? ci 2 1 0)) => (0 1 2) ; correct (pairwise-not=? ci) => #t ; correct (pairwise-not=? ci 0) => #t ; correct (pairwise-not=? ci 0 0) => #f ; correct (pairwise-not=? ci 0 1) => #t ; correct (pairwise-not=? ci 1 0) => #t ; correct (pairwise-not=? ci 0 0 0) => #f ; correct (pairwise-not=? ci 0 0 1) => #f ; correct (pairwise-not=? ci 0 1 0) => #f ; correct (pairwise-not=? ci 1 0 0) => #f ; correct (pairwise-not=? ci 1 1 0) => #f ; correct (pairwise-not=? ci 1 0 1) => #f ; correct (pairwise-not=? ci 0 1 1) => #f ; correct (pairwise-not=? ci 0 1 2) => #t ; correct (pairwise-not=? ci 0 2 1) => #t ; correct (pairwise-not=? ci 1 2 0) => #t ; correct (pairwise-not=? ci 1 0 2) => #t ; correct (pairwise-not=? ci 2 0 1) => #t ; correct (pairwise-not=? ci 2 1 0) => #t ; correct (apply pairwise-not=? ci (list-ec (: i 10) i)) => #t ; correct (apply pairwise-not=? ci (list-ec (: i 100) i)) => #t ; correct (apply pairwise-not=? ci (list-ec (: i 1000) i)) => #t ; correct (apply pairwise-not=? ci (list-ec (: i 10 0 -1) i)) => #t ; correct (apply pairwise-not=? ci (list-ec (: i 100 0 -1) i)) => #t ; correct (apply pairwise-not=? ci (list-ec (: i 1000 0 -1) i)) => #t ; correct (apply pairwise-not=? ci (list-ec (: i 97) (modulo (* 5 i) 97))) => #t ; correct (apply pairwise-not=? ci (append (list-ec (: i 0 23) (modulo (* 5 i) 97)) (quote (72)) (list-ec (: i 23 97) (modulo (* 5 i) 97)))) => #f ; correct (apply pairwise-not=? ci (append (list-ec (: i 0 75) (modulo (* 5 i) 97)) (quote (72)) (list-ec (: i 75 97) (modulo (* 5 i) 97)))) => #f ; correct (arguments-used (pairwise-not=? ci 0)) => (0) ; correct (arguments-used (pairwise-not=? ci 0 1)) => (0 1) ; correct (arguments-used (pairwise-not=? ci 1 0)) => (0 1) ; correct (arguments-used (pairwise-not=? ci 0 2 1)) => (0 1 2) ; correct (arguments-used (pairwise-not=? ci 1 2 0)) => (0 1 2) ; correct (arguments-used (pairwise-not=? ci 1 0 2)) => (0 1 2) ; correct (arguments-used (pairwise-not=? ci 2 0 1)) => (0 1 2) ; correct (arguments-used (pairwise-not=? ci 2 1 0)) => (0 1 2) ; correct (arguments-used (pairwise-not=? ci 0 0 0 1 0 0 0 2 0 0 0 3)) => (0 1 2 3) ; correct (min-compare ci 0) => 0 ; correct (min-compare ci 0 0) => 0 ; correct (min-compare ci 0 1) => 0 ; correct (min-compare ci 1 0) => 0 ; correct (min-compare ci 0 0 0) => 0 ; correct (min-compare ci 0 0 1) => 0 ; correct (min-compare ci 0 1 0) => 0 ; correct (min-compare ci 1 0 0) => 0 ; correct (min-compare ci 1 1 0) => 0 ; correct (min-compare ci 1 0 1) => 0 ; correct (min-compare ci 0 1 1) => 0 ; correct (min-compare ci 0 1 2) => 0 ; correct (min-compare ci 0 2 1) => 0 ; correct (min-compare ci 1 2 0) => 0 ; correct (min-compare ci 1 0 2) => 0 ; correct (min-compare ci 2 0 1) => 0 ; correct (min-compare ci 2 1 0) => 0 ; correct (max-compare ci 0) => 0 ; correct (max-compare ci 0 0) => 0 ; correct (max-compare ci 0 1) => 1 ; correct (max-compare ci 1 0) => 1 ; correct (max-compare ci 0 0 0) => 0 ; correct (max-compare ci 0 0 1) => 1 ; correct (max-compare ci 0 1 0) => 1 ; correct (max-compare ci 1 0 0) => 1 ; correct (max-compare ci 1 1 0) => 1 ; correct (max-compare ci 1 0 1) => 1 ; correct (max-compare ci 0 1 1) => 1 ; correct (max-compare ci 0 1 2) => 2 ; correct (max-compare ci 0 2 1) => 2 ; correct (max-compare ci 1 2 0) => 2 ; correct (max-compare ci 1 0 2) => 2 ; correct (max-compare ci 2 0 1) => 2 ; correct (max-compare ci 2 1 0) => 2 ; correct (min-compare (pair-compare-car ci) (quote (0 1)) (quote (0 2)) (quote (0 3))) => (0 1) ; correct (max-compare (pair-compare-car ci) (quote (0 1)) (quote (0 2)) (quote (0 3))) => (0 1) ; correct (let ((nx 0) (ny 0) (nt 0)) (select-compare (begin (set! nx (+ nx 1)) 1) (begin (set! ny (+ ny 1)) 2) ((lambda (z) (set! nt (+ nt 1)) #f) 0) ((lambda (z) (set! nt (+ nt 10)) #f) 0) ((lambda (z) (set! nt (+ nt 100)) #f) 0) (else 0)) (list nx ny nt)) => (1 1 222) ; correct (>? laugh LOUD) => #t ; correct ( #t ; correct (sort-by-less (quote (1 a b)) ( ("b" a 1) ; correct (sort-by-less (quote (1 a b)) (>?)) => (1 a "b") ; correct *** all 42324 examples are correct Done. Done (but these tests are incomplete). -------------- RUNNING TESTS FOR SRFI 63: ./skint test/srfi/63.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 64: ./skint test/srfi/64.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 66: ./skint test/srfi/66.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 67: ./skint test/srfi/67.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 69: ./skint test/srfi/69.scm ---------------------------------------------------------------------------- ------------------------------------------ *** all 51 examples are correct Done. (blob-length b1) => 16 ; correct (list (blob-u8-ref b1 0) (blob-s8-ref b1 1) (blob-u8-ref b1 1) (blob-s8-ref b1 2) (blob-u8-ref b1 2) (blob-u8-ref b1 3)) => (223 123 123 -123 133 15) ; correct (blob->u8-list b1) => (255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 253) ; correct (blob-u16-ref (endianness little) b1 14) => 65023 ; correct (blob-s16-ref (endianness little) b1 14) => -513 ; correct (blob-u16-ref (endianness big) b1 14) => 65533 ; correct (blob-s16-ref (endianness big) b1 14) => -3 ; correct (blob-u16-native-ref b1 0) => 12345 ; correct (blob=? b2 b3) => #t ; correct (blob=? b1 b2) => #f ; correct (blob->u8-list b3) => (1 2 3 4 1 2 3 4) ; correct (blob->u8-list b3) => (1 2 1 2 3 4 1 2) ; correct (blob->u8-list b3) => (1 2 3 4 1 2 1 2) ; correct (blob->uint-list 1 (endianness little) b3) => (1 2 3 4 1 2 1 2) ; correct (blob->uint-list 2 (endianness little) b3) => (513 1027 513 513) ; correct (blob->sint-list 2 (endianness little) b4) => (0 0 0 14640 -1 -1 -1 -513) ; correct correct tests: 16 failed tests: 0 Done. (+ 1 1) => 2 ; correct (+ 1 1) => 2 ; *** failed *** ; expected result: 3 (vector 1) => #(1) ; correct (vector 1) => #(1) ; *** failed *** ; expected result: #(1) (check-ec (nested) (+ 1 1) (=> equal?) 2 ()) => #f ; correct (check-ec (: x 10) (+ x 1) (=> equal?) (+ x 1) (x)) => #f ; correct (10 cases checked) (check-ec (: e 100) (positive? (expt 2 e)) (=> equal?) #t (e)) => #f ; correct (100 cases checked) (let ((x 9007199254740992.0)) (= (+ x 1) x)) => #t ; *** failed *** ; expected result: #f (let () (= (+ x 1) x)) => #t ; *** failed *** ; expected result: #f (check-ec (nested (: x 10) (: y 10) (: z 10)) (* x (+ y z)) (=> equal?) (+ (* x y) (* x z)) (x y z)) => #f ; correct (1000 cases checked) (fib 1) => 1 ; correct (fib 2) => 1 ; correct (check-ec (: n 1 31) (even? (fib n)) (=> equal?) (= (modulo n 3) 0) (n)) => #f ; correct (30 cases checked) ; *** checks *** : 9 correct, 4 failed. First failed example: (+ 1 1) => 2 ; *** failed *** ; expected result: 3 Please ignore *** failed *** messages above; 4 of them are expected to fail! 13 tests 4 of them failed out of 4 expected to fail Done. Done. ---------------------------------- RUNNING TESTS FOR SRFI 71: ./skint test/srfi/71.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 74: ./skint test/srfi/74.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 78: ./skint test/srfi/78.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 86: ./skint test/srfi/86.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 87: ./skint test/srfi/87.scm ---------------------------------------------------------------------------- ----------------------Done. Done. 1. (not (box? #&42)) .......... [PASS] 2. (not (box? b)) .......... [PASS] 3. (unbox b) .......... [PASS] 4. (unbox b) .......... [PASS] 4 out of 4 passed (100.00%) 1. (not (set-empty? esyms)) .......... [PASS] 2. (not (set? nums)) .......... [PASS] 3. (not (set? syms)) .......... [PASS] 4. (not (set? nums2)) .......... [PASS] 5. (not (set? syms2)) .......... [PASS] 6. (not (not (set? (quote a)))) .......... [PASS] 7. (set-size (set-adjoin nums 5)) .......... [PASS] 8. (set-size nums) .......... [PASS] 9. (set-size (set-delete syms (quote d))) .......... [PASS] 10. (set-size (set-delete-all syms (quote (c d)))) .......... [PASS] 11. (set-size syms) .......... [PASS] 12. (set-size (set-delete-all! syms (quote (e f)))) .......... [PASS] 13. (set-size nums2) .......... [PASS] 14. (set-size syms2) .......... [PASS] 15. (set-size nums) .......... [PASS] 16. (not (set-contains? nums 3)) .......... [PASS] 17. (set-size nums) .......... [PASS] 18. (not (set-contains? nums2 30)) .......... [PASS] 19. (not (not (set-contains? nums2 3))) .......... [PASS] 20. total .......... [PASS] 21. (set-fold + 3 nums) .......... [PASS] 22. (not (set=? nums (set-unfold eqv-comparator (lambda (i) (= i 0)) (lambda (i) (* i 10)) (lambda (i) (- i 1)) 5))) .......... [PASS] 23. (set->list (set eq-comparator (quote a))) .......... [PASS] 24. (set-size syms2) .......... [PASS] 25. (not (set-contains? syms2 (quote e))) .......... [PASS] 26. (not (set-contains? syms2 (quote f))) .......... [PASS] 27. (set-size (list->set! syms2 (quote (a b)))) .......... [PASS] 28. (not (set=? yam! set1)) .......... [PASS] 29. obj1 .......... [PASS] 30. (not (set=? yam set2)) .......... [PASS] 31. obj2 .......... [PASS] 32. (not (set=? bam set3)) .......... [PASS] 33. obj3 .......... [PASS] 34. (not (set=? ym set4)) .......... [PASS] 35. obj4 .......... [PASS] 36. (not (set=? set2 other-set2)) .......... [PASS] 37. (not (not (set=? set2 set3))) .......... [PASS] 38. (not (not (set=? set2 set3 other-set2))) .......... [PASS] 39. (not (set? set4 set3 set2)) .......... [PASS] 44. (not (not (set>? set2 other-set2))) .......... [PASS] 45. (not (set>=? set3 other-set2 set2)) .......... [PASS] 46. (not (not (set>=? other-set2 set3 set2))) .......... [PASS] 47. (not (set-disjoint? abcd efgh)) .......... [PASS] 48. (not (not (set-disjoint? abcd ab))) .......... [PASS] 49. (set-union abcd) .......... [PASS] 50. (set-union abcd efgh) .......... [PASS] 51. (set-union abcd abgh) .......... [PASS] 52. (set-union efgh abgh) .......... [PASS] 53. efgh2 .......... [PASS] 54. efgh2 .......... [PASS] 55. (set-intersection abcd) .......... [PASS] 56. (set-intersection abcd efgh) .......... [PASS] 57. (set-intersection abcd abgh) .......... [PASS] 58. (set-intersection abgh abcd) .......... [PASS] 59. (set-difference abcd) .......... [PASS] 60. (set-difference abcd ab) .......... [PASS] 61. (set-difference abcd gh) .......... [PASS] 62. (set-difference abcd abcd) .......... [PASS] 63. (set-xor abcd abgh) .......... [PASS] 64. (set-xor abcd efgh) .......... [PASS] 65. (set-xor abcd other-abcd) .......... [PASS] 66. (set-xor! (set-copy abcd) other-abcd) .......... [PASS] 67. abcd .......... [PASS] 68. efgh .......... [PASS] 69. abgh .......... [PASS] 70. (quote (set=? nums syms)) .......... [PASS] 71. (quote (set? nums syms)) .......... [PASS] 74. (quote (set>=? nums syms)) .......... [PASS] 75. (quote (set-union nums syms)) .......... [PASS] 76. (quote (set-intersection nums syms)) .......... [PASS] 77. (quote (set-difference nums syms)) .......... [PASS] 78. (quote (set-xor nums syms)) .......... [PASS] 79. (quote (set-union! nums syms)) .......... [PASS] 80. (quote (set-intersection! nums syms)) .......... [PASS] 81. (quote (set-difference! nums syms)) .......... [PASS] 82. (quote (set-xor! nums syms)) .......... [PASS] 83. (set-filter big whole) .......... [PASS] 84. (set-remove big whole) .......... [PASS] 85. (set-count big whole) .......... [PASS] 86. (set-find symbol? hetero (lambda () (error "wrong"))) .......... [PASS] 87. (quote (set-find symbol? homo (lambda () (error "wrong")))) .......... [PASS] 88. (not (set-any? symbol? hetero)) .......... [PASS] 89. (not (set-any? number? hetero)) .......... [PASS] 90. (not (not (set-every? symbol? hetero))) .......... [PASS] 91. (not (not (set-every? number? hetero))) .......... [PASS] 92. (not (not (set-any? symbol? homo))) .......... [PASS] 93. (not (set-every? number? homo)) .......... [PASS] 94. (set-element-comparator bucket) .......... [PASS] 95. (not (set-contains? bucket "abc")) .......... [PASS] 96. (not (set-contains? bucket "ABC")) .......... [PASS] 97. (set-member bucket "DEF" "fqz") .......... [PASS] 98. (set-member bucket "lmn" "fqz") .......... [PASS] 99. (not (set-any? inexact? nums2)) .......... [PASS] 100. (not (set-any? inexact? nums)) .......... [PASS] 101. (set-size sos) .......... [PASS] 102. (not (bag-empty? esyms)) .......... [PASS] 103. (not (bag? nums)) .......... [PASS] 104. (not (bag? syms)) .......... [PASS] 105. (not (bag? nums2)) .......... [PASS] 106. (not (bag? syms2)) .......... [PASS] 107. (not (not (bag? (quote a)))) .......... [PASS] 108. (bag-size (bag-adjoin nums 5)) .......... [PASS] 109. (bag-size nums) .......... [PASS] 110. (bag-size (bag-delete syms (quote d))) .......... [PASS] 111. (bag-size (bag-delete-all syms (quote (c d)))) .......... [PASS] 112. (bag-size syms) .......... [PASS] 113. (bag-size (bag-delete-all! syms (quote (e f)))) .......... [PASS] 114. (bag-size nums) .......... [PASS] 115. (bag-size nums) .......... [PASS] 116. (not (bag-contains? nums2 30)) .......... [PASS] 117. (not (not (bag-contains? nums2 3))) .......... [PASS] 118. total .......... [PASS] 119. (bag-fold + 3 nums) .......... [PASS] 120. (not (bag=? nums (bag-unfold eqv-comparator (lambda (i) (= i 0)) (lambda (i) (* i 10)) (lambda (i) (- i 1)) 5))) .......... [PASS] 121. (bag->list (bag eq-comparator (quote a))) .......... [PASS] 122. (bag-size syms2) .......... [PASS] 123. (not (bag-contains? syms2 (quote e))) .......... [PASS] 124. (not (bag-contains? syms2 (quote f))) .......... [PASS] 125. (bag-size syms2) .......... [PASS] 126. (not (bag=? yam! bag1)) .......... [PASS] 127. obj1 .......... [PASS] 128. (not (bag=? yam bag2)) .......... [PASS] 129. obj2 .......... [PASS] 130. (not (bag=? bam bag3)) .......... [PASS] 131. obj3 .......... [PASS] 132. (not (bag=? ym bag4)) .......... [PASS] 133. obj4 .......... [PASS] 134. (bag-element-count mybag 1) .......... [PASS] 135. (bag-element-count mybag 3) .......... [PASS] 136. (not (bag=? bag2 other-bag2)) .......... [PASS] 137. (not (not (bag=? bag2 bag3))) .......... [PASS] 138. (not (not (bag=? bag2 bag3 other-bag2))) .......... [PASS] 139. (not (bag? bag4 bag3 bag2)) .......... [PASS] 144. (not (not (bag>? bag2 other-bag2))) .......... [PASS] 145. (not (bag>=? bag3 other-bag2 bag2)) .......... [PASS] 146. (not (not (bag>=? other-bag2 bag3 bag2))) .......... [PASS] 147. (not (not (bag=? one two))) .......... [PASS] 148. (not (bag? one two))) .......... [PASS] 150. (not (bag<=? one two)) .......... [PASS] 151. (not (not (bag>? one two))) .......... [PASS] 152. (not (bag=? two two)) .......... [PASS] 153. (not (not (bag? two two))) .......... [PASS] 155. (not (bag<=? two two)) .......... [PASS] 156. (not (bag>=? two two)) .......... [PASS] 157. (let ((result (quote ()))) (bag-for-each-unique (lambda (x y) (set! result (cons (cons x y) result))) two) result) .......... [PASS] 158. (bag-fold + 5 two) .......... [PASS] 159. (bag-fold-unique (lambda (k n r) (+ k n r)) 0 two) .......... [PASS] 160. (not (bag-disjoint? abcd efgh)) .......... [PASS] 161. (not (not (bag-disjoint? abcd ab))) .......... [PASS] 162. (bag-union abcd) .......... [PASS] 163. (bag-union abcd efgh) .......... [PASS] 164. (bag-union abcd abgh) .......... [PASS] 165. (bag-union efgh abgh) .......... [PASS] 166. efgh2 .......... [PASS] 167. efgh2 .......... [PASS] 168. (bag-intersection abcd) .......... [PASS] 169. (bag-intersection abcd efgh) .......... [PASS] 170. abcd2 .......... [PASS] 171. abcd2 .......... [PASS] 172. (bag-intersection abcd abgh) .......... [PASS] 173. (bag-intersection abgh abcd) .......... [PASS] 174. (bag-difference abcd) .......... [PASS] 175. (bag-difference abcd ab) .......... [PASS] 176. (bag-difference abcd gh) .......... [PASS] 177. (bag-difference abcd abcd) .......... [PASS] 178. abcd3 .......... [PASS] 179. abcd3 .......... [PASS] 180. (bag-xor abcd abgh) .......... [PASS] 181. (bag-xor abcd efgh) .......... [PASS] 182. (bag-xor abcd other-abcd) .......... [PASS] 183. (bag-xor! (bag-copy abcd) other-abcd) .......... [PASS] 184. (bag-sum ab) .......... [PASS] 185. (bag-sum! ab2) .......... [PASS] 186. (bag-sum! ab2 ab) .......... [PASS] 187. ab2 .......... [PASS] 188. (bag-product 2 ab) .......... [PASS] 189. ab3 .......... [PASS] 190. abcd .......... [PASS] 191. abcd .......... [PASS] 192. efgh .......... [PASS] 193. abgh .......... [PASS] 194. (quote (bag=? nums syms)) .......... [PASS] 195. (quote (bag? nums syms)) .......... [PASS] 198. (quote (bag>=? nums syms)) .......... [PASS] 199. (quote (bag-union nums syms)) .......... [PASS] 200. (quote (bag-intersection nums syms)) .......... [PASS] 201. (quote (bag-difference nums syms)) .......... [PASS] 202. (quote (bag-xor nums syms)) .......... [PASS] 203. (quote (bag-union! nums syms)) .......... [PASS] 204. (quote (bag-intersection! nums syms)) .......... [PASS] 205. (quote (bag-difference! nums syms)) .......... [PASS] 206. (bag-filter big whole) .......... [PASS] 207. (bag-remove big whole) .......... [PASS] 208. (not (not (bag-contains? whole2 1))) .......... [PASS] 209. (not (not (bag-contains? whole3 10))) .......... [PASS] 210. topx .......... [PASS] 211. bottomx .......... [PASS] 212. whole4 .......... [PASS] 213. (bag-count big whole) .......... [PASS] 214. (bag-find symbol? hetero (lambda () (error "wrong"))) .......... [PASS] 215. (quote (bag-find symbol? homo (lambda () (error "wrong")))) .......... [PASS] 216. (not (bag-any? symbol? hetero)) .......... [PASS] 217. (not (bag-any? number? hetero)) .......... [PASS] 218. (not (not (bag-every? symbol? hetero))) .......... [PASS] 219. (not (not (bag-every? number? hetero))) .......... [PASS] 220. (not (not (bag-any? symbol? homo))) .......... [PASS] 221. (not (bag-every? number? homo)) .......... [PASS] 222. (bag-element-comparator bucket) .......... [PASS] 223. (not (bag-contains? bucket "abc")) .......... [PASS] 224. (not (bag-contains? bucket "ABC")) .......... [PASS] 225. (bag-member bucket "lmn" "fqz") .......... [PASS] 226. (not (bag-any? inexact? nums2)) .......... [PASS] 227. (not (bag-any? inexact? nums)) .......... [PASS] 228. (bag-size bob) .......... [PASS] 229. (bag-size mybag) .......... [PASS] 230. (bag-size mybag) .......... [PASS] 231. (bag-unique-size mybag) .......... [PASS] 232. (bag-size mybag) .......... [PASS] 233. (bag-size mybag) .......... [PASS] 234. (not (bag? (bag-decrement! mybag 1 2))) .......... [PASS] 235. (bag-size mybag) .......... [PASS] 236. (bag-size mybag) .......... [PASS] 237. (bag->alist minibag) .......... [PASS] 238. (not (bag=? minibag (alist->bag eqv-comparator alist))) .......... [PASS] 239. (not (set=? singleset (bag->set single))) .......... [PASS] 240. (not (set=? singleset (bag->set multi))) .......... [PASS] 241. (not (bag=? single (set->bag singleset))) .......... [PASS] 242. (not (not (bag=? multi (set->bag singleset)))) .......... [PASS] 243. (not (bag-contains? minibag 1)) .......... [PASS] 244. (bag-count (lambda (x) (eqv? x (quote a))) total) .......... [PASS] 245. (bag-count (lambda (x) (eqv? x (quote b))) total) .......... [PASS] 246. (bag-size (bag-product 2 total)) .......... [PASS] 247. (bag-size bag1) .......... [PASS] 248. (bag-size bag1) .......... [PASS] 249. (not (not (=? set-comparator a b))) .......... [PASS] 250. (not (=? set-comparator a (set-copy a))) .......... [PASS] 251. (not (not (=? bag-comparator aa bb))) .......... [PASS] 252. (not (=? bag-comparator aa (bag-copy aa))) .......... [PASS] 252 out of 252 passed (100.00%) ------------------------------------------------------ RUNNING TESTS FOR SRFI 95: ./skint test/srfi/95.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 98: ./skint test/srfi/98.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 111: ./skint test/srfi/111.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 113: ./skint test/srfi/113.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 115: ./skint test/srfi/115.scm ---------------------------------------------------------------------------1. (maybe-match->list (quote (: ($ (* "ab")) "c")) "ababc" 0 (string-length "ababc")) .......... [PASS] 2. (maybe-match->list (quote (: ($ (* "ab")) "c")) "xababc" 1 (string-length "xababc")) .......... [PASS] 3. (maybe-search->list (quote (: "y")) "xy" 0 (string-length "xy")) .......... [PASS] 4. (maybe-search->list (quote (: ($ (* "ab")) "c")) "xababc" 0 (string-length "xababc")) .......... [PASS] 5. (maybe-match->list (quote (: (* any) ($ "foo" (* any)) ($ "bar" (* any)))) "fooxbafba" 0 (string-length "fooxbafba")) .......... [PASS] 6. (maybe-match->list (quote (: (* any) ($ "foo" (* any)) ($ "bar" (* any)))) "fooxbarfbar" 0 (string-length "fooxbarfbar")) .......... [PASS] 7. (maybe-match->list (quote ($ (* (or "ab" "cd")))) "abcd" 0 (string-length "abcd")) .......... [PASS] 8. (regexp-match-submatch (regexp-matches (quote (or (-> foo "ab") (-> foo "cd"))) "ab") (quote foo)) .......... [PASS] 9. (regexp-match-submatch (regexp-matches (quote (or (-> foo "ab") (-> foo "cd"))) "cd") (quote foo)) .......... [PASS] 10. (maybe-search->list span " 1:45:02-2:06:13 " 0 (string-length " 1:45:02-2:06:13 ")) .......... [PASS] 11. (maybe-match->list (quote (: bos ($ (* "ab")) "c")) "ababc" 0 (string-length "ababc")) .......... [PASS] 12. (maybe-match->list (quote (: ($ (* "ab")) "c" eos)) "ababc" 0 (string-length "ababc")) .......... [PASS] 13. (maybe-match->list (quote (: bos ($ (* "ab")) "c" eos)) "ababc" 0 (string-length "ababc")) .......... [PASS] 14. (maybe-match->list (quote (: bos ($ (* "ab")) eos "c")) "ababc" 0 (string-length "ababc")) .......... [PASS] 15. (maybe-match->list (quote (: ($ (* "ab")) bos "c" eos)) "ababc" 0 (string-length "ababc")) .......... [PASS] 16. (maybe-match->list (quote (: bol ($ (* "ab")) "c")) "ababc" 0 (string-length "ababc")) .......... [PASS] 17. (maybe-match->list (quote (: ($ (* "ab")) "c" eol)) "ababc" 0 (string-length "ababc")) .......... [PASS] 18. (maybe-match->list (quote (: bol ($ (* "ab")) "c" eol)) "ababc" 0 (string-length "ababc")) .......... [PASS] 19. (maybe-match->list (quote (: bol ($ (* "ab")) eol "c")) "ababc" 0 (string-length "ababc")) .......... [PASS] 20. (maybe-match->list (quote (: ($ (* "ab")) bol "c" eol)) "ababc" 0 (string-length "ababc")) .......... [PASS] 21. (maybe-match->list (quote (: (* #\newline) bol ($ (* alpha)) eol (* #\newline))) "\nabc\n" 0 (string-length "\nabc\n")) .......... [PASS] 22. (maybe-match->list (quote (: (* #\newline) bol ($ (* alpha)) eol (* #\newline))) "\n'abc\n" 0 (string-length "\n'abc\n")) .......... [PASS] 23. (maybe-match->list (quote (: (* #\newline) bol ($ (* alpha)) eol (* #\newline))) "\nabc.\n" 0 (string-length "\nabc.\n")) .......... [PASS] 24. (maybe-match->list (quote (: bow ($ (* "ab")) "c")) "ababc" 0 (string-length "ababc")) .......... [PASS] 25. (maybe-match->list (quote (: ($ (* "ab")) "c" eow)) "ababc" 0 (string-length "ababc")) .......... [PASS] 26. (maybe-match->list (quote (: bow ($ (* "ab")) "c" eow)) "ababc" 0 (string-length "ababc")) .......... [PASS] 27. (maybe-match->list (quote (: bow ($ (* "ab")) eow "c")) "ababc" 0 (string-length "ababc")) .......... [PASS] 28. (maybe-match->list (quote (: ($ (* "ab")) bow "c" eow)) "ababc" 0 (string-length "ababc")) .......... [PASS] 29. (maybe-match->list (quote (: (* space) bow ($ (* alpha)) eow (* space))) " abc " 0 (string-length " abc ")) .......... [PASS] 30. (maybe-match->list (quote (: (* space) bow ($ (* alpha)) eow (* space))) " 'abc " 0 (string-length " 'abc ")) .......... [PASS] 31. (maybe-match->list (quote (: (* space) bow ($ (* alpha)) eow (* space))) " abc. " 0 (string-length " abc. ")) .......... [PASS] 32. (maybe-match->list (quote (: ($ (* alpha)) (* any))) "abc " 0 (string-length "abc ")) .......... [PASS] 33. (maybe-match->list (quote (: ($ (*? alpha)) (* any))) "abc " 0 (string-length "abc ")) .......... [PASS] 34. (maybe-match->list (quote (: "<" ($ (* any)) ">" (* any))) "Hello World" 0 (string-length "Hello World")) .......... [PASS] 35. (maybe-match->list (quote (: "<" ($ (*? any)) ">" (* any))) "Hello World" 0 (string-length "Hello World")) .......... [PASS] 36. (maybe-search->list (quote (: "foo")) " foo " 0 (string-length " foo ")) .......... [PASS] 37. (maybe-search->list (quote (: nwb "foo" nwb)) " foo " 0 (string-length " foo ")) .......... [PASS] 38. (maybe-search->list (quote (: nwb "foo" nwb)) "xfoox" 0 (string-length "xfoox")) .......... [PASS] 39. (maybe-match->list (quote (* (/ "af"))) "beef" 0 (string-length "beef")) .......... [PASS] 40. (maybe-match->list (quote (: (* numeric) ($ (* (/ "af"))))) "12345beef" 0 (string-length "12345beef")) .......... [PASS] 41. (cdr (regexp-match->list (regexp-search (quasiquote (: (unquote number) "-" (unquote number) "-" (unquote number))) "555-867-5309"))) .......... [PASS] 42. (cdr (regexp-match->list (regexp-search (quasiquote (: (unquote number) "-" (w/nocapture (unquote number)) "-" (unquote number))) "555-867-5309"))) .......... [PASS] 43. (maybe-match->list (quote (: (* numeric) (w/nocase ($ (* (/ "af")))))) "12345BeeF" 0 (string-length "12345BeeF")) .......... [PASS] 44. (maybe-match->list (quote (* lower)) "abcD" 0 (string-length "abcD")) .......... [PASS] 45. (maybe-match->list (quote (w/nocase (* lower))) "abcD" 0 (string-length "abcD")) .......... [PASS] 46. (regexp-extract (quote (+ numeric)) "abc123def456ghi789") .......... [PASS] 47. (regexp-extract (quote (* numeric)) "abc123def456ghi789") .......... [PASS] 48. (regexp-split (quote (+ numeric)) "abc123def456ghi789") .......... [PASS] 49. (regexp-split (quote (* numeric)) "abc123def456ghi789") .......... [PASS] 50. (regexp-split (quote (+ whitespace)) "a b") .......... [PASS] 51. (regexp-split (quote (",;")) "a,,b") .......... [PASS] 52. (regexp-split (quote (",;")) "a,,b,") .......... [PASS] 53. (regexp-partition (quote (* numeric)) "") .......... [PASS] 54. (regexp-partition (quote (* numeric)) "abc123def456ghi") .......... [PASS] 55. (regexp-partition (quote (* numeric)) "abc123def456ghi789") .......... [PASS] 56. (regexp-replace (quote (+ space)) "abc \t\n def" " ") .......... [PASS] 57. (regexp-replace (quote (: ($ (+ alpha)) ":" (* space))) " abc: " (quote (1 "-" 1))) .......... [PASS] 58. (regexp-replace (quote (: ($ (+ alpha)) ":" (* space))) " abc: " (quote (1 "-" pre 1))) .......... [PASS] 59. (regexp-replace (quote (+ space)) " abc \t\n d ef " "-" 0) .......... [PASS] 60. (regexp-replace (quote (+ space)) " abc \t\n d ef " "-" 0 #f 0) .......... [PASS] 61. (regexp-replace (quote (+ space)) " abc \t\n d ef " "-" 0 #f 1) .......... [PASS] 62. (regexp-replace (quote (+ space)) " abc \t\n d ef " "-" 0 #f 2) .......... [PASS] 63. (regexp-replace (quote (+ space)) " abc \t\n d ef " "-" 0 #f 3) .......... [PASS] 64. (regexp-replace (quote (+ space)) " abc \t\n d ef " "-" 0 #f 4) .......... [PASS] 65. (regexp-replace-all (quote (+ space)) " abc \t\n d ef " " ") .......... [PASS] 66. (regexp-replace (quote (: ($ (+ alpha)) ":" (* space))) "abc def: ghi" (quote ("pre: <<<" pre ">>> match1: <<<" 1 ">>> post: <<<" post ">>>")) 1 11) .......... [PASS] 66 out of 66 passed (100.00%) 1. (icar abc) .......... [PASS] 2. (icadr abc) .......... [PASS] 3. (icaddr abc) .......... [PASS] 4. (xipair 1 2) .......... [PASS] 5. (icdddr abc-dot-d) .......... [PASS] 6. (make-ilist 4 (quote c)) .......... [PASS] 7. (ilist-tabulate 4 values) .......... [PASS] 8. (iiota 5) .......... [PASS] 9. abc-copy .......... [PASS] 10. (not (not (eq? abc abc-copy))) .......... [PASS] 11. (not (ipair? (ipair 1 2))) .......... [PASS] 12. (not (proper-ilist? (quote ()))) .......... [PASS] 13. (not (proper-ilist? (iq 1 2 3))) .......... [PASS] 14. (not (ilist? (quote ()))) .......... [PASS] 15. (not (ilist? (iq 1 2 3))) .......... [PASS] 16. (not (dotted-ilist? (ipair 1 2))) .......... [PASS] 17. (not (dotted-ilist? 2)) .......... [PASS] 18. (not (null-ilist? (quote ()))) .......... [PASS] 19. (not (not (null-ilist? (iq 1 2 3)))) .......... [PASS] 20. (quote (null-ilist? (quote a))) .......... [PASS] 21. (not (not-ipair? (quote a))) .......... [PASS] 22. (not (not (not-ipair? (ipair (quote a) (quote b))))) .......... [PASS] 23. (not (ilist= = (iq 1 2 3) (iq 1 2 3))) .......... [PASS] 24. (not (ilist= = (iq 1 2 3) (iq 1 2 3) (iq 1 2 3))) .......... [PASS] 25. (not (not (ilist= = (iq 1 2 3 4) (iq 1 2 3)))) .......... [PASS] 26. (not (not (ilist= = (iq 1 2 3) (iq 1 2 3 4)))) .......... [PASS] 27. (not (ilist= = (iq 1 2 3) (iq 1 2 3))) .......... [PASS] 28. (not (not (ilist= = (iq 1 2 3) (iq 1 2 3 4) (iq 1 2 3 4)))) .......... [PASS] 29. (not (not (ilist= = (iq 1 2 3) (iq 1 2 3) (iq 1 2 3 4)))) .......... [PASS] 30. (icaar abcd) .......... [PASS] 31. (icdar abcd) .......... [PASS] 32. (icadr abcd) .......... [PASS] 33. (icddr abcd) .......... [PASS] 34. (icaaar abcdefgh) .......... [PASS] 35. (icdaar abcdefgh) .......... [PASS] 36. (icadar abcdefgh) .......... [PASS] 37. (icddar abcdefgh) .......... [PASS] 38. (icaadr abcdefgh) .......... [PASS] 39. (icdadr abcdefgh) .......... [PASS] 40. (icaddr abcdefgh) .......... [PASS] 41. (icdddr abcdefgh) .......... [PASS] 42. (icaaaar abcdefghijklmnop) .......... [PASS] 43. (icdaaar abcdefghijklmnop) .......... [PASS] 44. (icadaar abcdefghijklmnop) .......... [PASS] 45. (icddaar abcdefghijklmnop) .......... [PASS] 46. (icaadar abcdefghijklmnop) .......... [PASS] 47. (icdadar abcdefghijklmnop) .......... [PASS] 48. (icaddar abcdefghijklmnop) .......... [PASS] 49. (icdddar abcdefghijklmnop) .......... [PASS] 50. (icaaadr abcdefghijklmnop) .......... [PASS] 51. (icdaadr abcdefghijklmnop) .......... [PASS] 52. (icadadr abcdefghijklmnop) .......... [PASS] 53. (icddadr abcdefghijklmnop) .......... [PASS] 54. (icaaddr abcdefghijklmnop) .......... [PASS] 55. (icdaddr abcdefghijklmnop) .......... [PASS] 56. (icadddr abcdefghijklmnop) .......... [PASS] 57. (icddddr abcdefghijklmnop) .......... [PASS] 58. (ilist-ref (iq a b c d) 2) .......... [PASS] 59. (ifirst ten) .......... [PASS] 60. (isecond ten) .......... [PASS] 61. (ithird ten) .......... [PASS] 62. (ifourth ten) .......... [PASS] 63. (ififth ten) .......... [PASS] 64. (isixth ten) .......... [PASS] 65. (iseventh ten) .......... [PASS] 66. (ieighth ten) .......... [PASS] 67. (ininth ten) .......... [PASS] 68. (itenth ten) .......... [PASS] 69. (call-with-values (lambda () (icar+icdr (ipair 1 2))) list) .......... [PASS] 70. (itake abcde 2) .......... [PASS] 71. (idrop abcde 2) .......... [PASS] 72. (ilist-tail abcde 2) .......... [PASS] 73. (itake dotted 2) .......... [PASS] 74. (idrop dotted 2) .......... [PASS] 75. (ilist-tail dotted 2) .......... [PASS] 76. (idrop dotted 3) .......... [PASS] 77. (ilist-tail dotted 3) .......... [PASS] 78. (iappend (itake abcde 4) (idrop abcde 4)) .......... [PASS] 79. (itake-right abcde 2) .......... [PASS] 80. (idrop-right abcde 2) .......... [PASS] 81. (itake-right dotted 2) .......... [PASS] 82. (idrop-right dotted 2) .......... [PASS] 83. (itake-right dotted 0) .......... [PASS] 84. (idrop-right dotted 0) .......... [PASS] 85. (call-with-values (lambda () (isplit-at abcde 3)) iappend) .......... [PASS] 86. (ilast (iq a b c)) .......... [PASS] 87. (last-ipair (iq a b c)) .......... [PASS] 88. (ilength (quote ())) .......... [PASS] 89. (ilength (iq 1 2 3)) .......... [PASS] 90. (iappend (iq x) (iq y)) .......... [PASS] 91. (iappend (iq a b) (iq c d)) .......... [PASS] 92. (iappend (quote ()) (iq a)) .......... [PASS] 93. (iappend (iq x y)) .......... [PASS] 94. (iappend) .......... [PASS] 95. (iconcatenate (iq (a b) (c d))) .......... [PASS] 96. (ireverse (iq a b c)) .......... [PASS] 97. (ireverse (iq a (b c) d (e (f)))) .......... [PASS] 98. (iappend-reverse (iq 1 2) (quote d)) .......... [PASS] 99. (izip (iq one two three) (iq 1 2 3) (iq odd even odd)) .......... [PASS] 100. (izip (iq 1 2 3)) .......... [PASS] 101. (iunzip1 (iq (1) (2) (3))) .......... [PASS] 102. (call-with-values (lambda () (iunzip2 (iq (1 one) (2 two) (3 three)))) ilist) .......... [PASS] 103. (call-with-values (lambda () (iunzip3 (iq (1 one a) (2 two b) (3 three c)))) ilist) .......... [PASS] 104. (call-with-values (lambda () (iunzip4 (iq (1 one a 4) (2 two b 5) (3 three c 6)))) ilist) .......... [PASS] 105. (call-with-values (lambda () (iunzip5 (iq (1 one a 4 #t) (2 two b 5 #f) (3 three c 6 #t)))) ilist) .......... [PASS] 106. (icount even? (iq 3 1 4 1 5 9 2 5 6)) .......... [PASS] 107. (icount < (iq 1 2 4 8) (iq 2 4 6 8 10 12 14 16)) .......... [PASS] 108. (ifold + 0 lis) .......... [PASS] 109. (ifold ipair (quote ()) lis) .......... [PASS] 110. (ifold (lambda (x count) (if (symbol? x) (+ count 1) count)) 0 (iq a 0 b)) .......... [PASS] 111. (ifold (lambda (s max-len) (max max-len (string-length s))) 0 (iq "ab" "abcd" "abc")) .......... [PASS] 112. (ifold (lambda (a b ans) (+ (* a b) ans)) 0 (iq 1 2 3) (iq 4 5 6)) .......... [PASS] 113. (ifold z (quote ()) (iq a b) (iq c d)) .......... [PASS] 114. (ifold-right ipair (quote ()) lis) .......... [PASS] 115. (ifold-right (lambda (x l) (if (even? x) (ipair x l) l)) (quote ()) (iq 0 1 2 3 4)) .......... [PASS] 116. (ifold-right z (quote ()) (iq a b) (iq c d)) .......... [PASS] 117. (ipair-fold ipair (quote ()) (iq a b c)) .......... [PASS] 118. (ipair-fold z (quote ()) (iq a b) (iq c d)) .......... [PASS] 119. (ipair-fold-right ipair (quote ()) (iq a b c)) .......... [PASS] 120. (ipair-fold-right z (quote ()) (iq a b) (iq c d)) .......... [PASS] 121. (ireduce max 0 (iq 1 3 5 4 2 0)) .......... [PASS] 122. (ireduce - 0 (iq 1 2)) .......... [PASS] 123. (ireduce-right - 0 (iq 1 2)) .......... [PASS] 124. (iunfold (lambda (x) (> x 10)) (lambda (x) (* x x)) (lambda (x) (+ x 1)) 1) .......... [PASS] 125. (iunfold-right zero? (lambda (x) (* x x)) (lambda (x) (- x 1)) 10) .......... [PASS] 126. (iunfold null-ilist? icar icdr (iq 1 2 3)) .......... [PASS] 127. (iunfold-right null-ilist? icar icdr (iq 1 2 3)) .......... [PASS] 128. (iunfold null-ilist? icar icdr (iq 1 2) (lambda (x) (iq 3 4))) .......... [PASS] 129. (imap icadr (iq (a b) (d e) (g h))) .......... [PASS] 130. (imap-in-order icadr (iq (a b) (d e) (g h))) .......... [PASS] 131. (imap + (iq 1 2 3) (iq 4 5 6)) .......... [PASS] 132. (imap-in-order + (iq 1 2 3) (iq 4 5 6)) .......... [PASS] 133. (imap-in-order z (iq a b)) .......... [PASS] 134. (let ((v (make-vector 5))) (ifor-each (lambda (i) (vector-set! v i (* i i))) (iq 0 1 2 3 4)) v) .......... [PASS] 135. (let ((v (make-vector 5))) (ifor-each (lambda (i j) (vector-set! v i (+ i j))) (iq 0 1 2 3 4) (iq 5 6 7 8 9)) v) .......... [PASS] 136. (iappend-map (lambda (x) (ilist x (- x))) (iq 1 3 8)) .......... [PASS] 137. (iappend-map ilist (iq 1 2 3) (iq 4 5 6)) .......... [PASS] 138. (let ((v (make-vector 5))) (ipair-for-each (lambda (lis) (vector-set! v (icar lis) lis)) (iq 0 1 2 3 4)) v) .......... [PASS] 139. (let ((v (make-vector 5))) (ipair-for-each (lambda (i j) (vector-set! v (icar i) j)) (iq 0 1 2 3 4) (iq 5 6 7 8 9)) v) .......... [PASS] 140. (ifilter-map (lambda (x) (and (number? x) (* x x))) (iq a 1 b 3 c 7)) .......... [PASS] 141. (ifilter-map (lambda (x y) (and (number? x) (number? y) (+ x y))) (iq 1 a 2 b 3 4) (iq 4 0 5 y 6 z)) .......... [PASS] 142. (ifilter even? (iq 0 7 8 8 43 -4)) .......... [PASS] 143. (call-with-values (lambda () (ipartition symbol? (iq one 2 3 four five 6))) list) .......... [PASS] 144. (iremove even? (iq 0 7 8 8 43 -4)) .......... [PASS] 145. (ifind even? (iq 1 2 3)) .......... [PASS] 146. (iany even? (iq 1 2 3)) .......... [PASS] 147. (ifind even? (iq 1 7 3)) .......... [PASS] 148. (iany even? (iq 1 7 3)) .......... [PASS] 149. (quote (ifind even? (ipair 1 (ipair 3 (quote x))))) .......... [PASS] 150. (quote (iany even? (ipair 1 (ipair 3 (quote x))))) .......... [PASS] 151. (ifind even? (iq 3 1 4 1 5 9)) .......... [PASS] 152. (ifind-tail even? (iq 3 1 37 -8 -5 0 0)) .......... [PASS] 153. (itake-while even? (iq 2 18 3 10 22 9)) .......... [PASS] 154. (idrop-while even? (iq 2 18 3 10 22 9)) .......... [PASS] 155. (call-with-values (lambda () (ispan even? (iq 2 18 3 10 22 9))) list) .......... [PASS] 156. (call-with-values (lambda () (ibreak even? (iq 3 1 4 1 5 9))) list) .......... [PASS] 157. (iany integer? (iq a 3 b 2.7)) .......... [PASS] 158. (iany integer? (iq a 3.1 b 2.7)) .......... [PASS] 159. (iany < (iq 3 1 4 1 5) (iq 2 7 1 8 2)) .......... [PASS] 160. (ievery integer? (iq 1 2 3 4 5)) .......... [PASS] 161. (ievery integer? (iq 1 2 3 4.5 5)) .......... [PASS] 162. (ievery (lambda (a b) (< a b)) (iq 1 2 3) (iq 4 5 6)) .......... [PASS] 163. (ilist-index even? (iq 3 1 4 1 5 9)) .......... [PASS] 164. (ilist-index < (iq 3 1 4 1 5 9 2 5 6) (iq 2 7 1 8 2)) .......... [PASS] 165. (ilist-index = (iq 3 1 4 1 5 9 2 5 6) (iq 2 7 1 8 2)) .......... [PASS] 166. (imemq (quote a) (iq a b c)) .......... [PASS] 167. (imemq (quote b) (iq a b c)) .......... [PASS] 168. (imemq (quote a) (iq b c d)) .......... [PASS] 169. (imemq (ilist (quote a)) (iq b (a) c)) .......... [PASS] 170. (imember (ilist (quote a)) (iq b (a) c)) .......... [PASS] 171. (imemv 101 (iq 100 101 102)) .......... [PASS] 172. (idelete 3 (iq 1 2 3 4 5)) .......... [PASS] 173. (idelete 5 (iq 3 4 5 6 7) <) .......... [PASS] 174. (idelete-duplicates (iq a b a c a b c z)) .......... [PASS] 175. (iassq (quote a) e) .......... [PASS] 176. (iassq (quote b) e) .......... [PASS] 177. (iassq (quote d) e) .......... [PASS] 178. (iassq (ilist (quote a)) (iq ((a)) ((b)) ((c)))) .......... [PASS] 179. (iassoc (ilist (quote a)) (iq ((a)) ((b)) ((c)))) .......... [PASS] 180. (iassv 5 e2) .......... [PASS] 181. (iassoc 5 e2 <) .......... [PASS] 182. (ialist-cons 1 (ilist 1) e2) .......... [PASS] 183. (ialist-delete 5 e2) .......... [PASS] 184. (ialist-delete 5 e2 <) .......... [PASS] 185. (replace-icar (ipair 2 3) 1) .......... [PASS] 186. (replace-icdr (ipair 1 2) 3) .......... [PASS] 187. (pair->ipair (quote (1 . 2))) .......... [PASS] 188. (ipair->pair (ipair 1 2)) .......... [PASS] 189. (list->ilist (quote (1 2 3))) .......... [PASS] 190. (ilist->list (iq 1 2 3)) .......... [PASS] 191. (list->ilist (quote (1 2 . 3))) .......... [PASS] 192. (ilist->list (ipair 1 (ipair 2 3))) .......... [PASS] 193. (tree->itree (quote ((1 . 2) 3 . 4))) .......... [PASS] 194. (itree->tree (ipair (ipair 1 2) (ipair 3 4))) .......... [PASS] 195. (gtree->itree (cons (ipair 1 2) (ipair 3 4))) .......... [PASS] 196. (gtree->tree (cons (ipair 1 2) (ipair 3 4))) .......... [PASS] 197. (iapply + (iq 1 2 3)) .......... [PASS] 198. (iapply + 1 2 (iq 3 4 5)) .......... [PASS] 198 out of 198 passed (100.00%) 1. (list-queue-list (make-list-queue (quote (1 1 1)))) .......... [PASS] 2. (list-queue-list x) .......... [PASS] 3. (list-queue-back x2) .......... [PASS] 4. (not (list-queue? y)) .......... [PASS] 5. (list-queue-list z) .......... [PASS] 6. (list-queue-list z2) .......... [PASS] 7. (list-queue-front z) .......... [PASS] 8. (list-queue-back z) .......... [PASS] 9. (list-queue-list y) .......... [PASS] 10. (not (list-queue-empty? y)) .......... [PASS] 11. (quote (list-queue-remove-front! y)) .......... [PASS] 12. (quote (list-queue-remove-back! y)) .......... [PASS] 13. (list-queue-list z) .......... [PASS] 14. (list-queue-remove-all! z2) .......... [PASS] 15. (not (list-queue-empty? z2)) .......... [PASS] 16. (list-queue-list z) .......... [PASS] 17. (list-queue-list b) .......... [PASS] 18. (list-queue-list a) .......... [PASS] 19. (length (list-queue-list b)) .......... [PASS] 20. (list-queue-list c) .......... [PASS] 21. (list-queue-list s) .......... [PASS] 22. (list-queue-list r) .......... [PASS] 23. sum .......... [PASS] 24. (list-queue-list n) .......... [PASS] 25. (not (eq? d dx)) .......... [PASS] 26. (not (eq? e ex)) .......... [PASS] 27. (list-queue-list f) .......... [PASS] 28. (list-queue-list f) .......... [PASS] 29. (list-queue-list g) .......... [PASS] 30. (list-queue-list h) .......... [PASS] 31. (list-queue-list x) .......... [PASS] 32. (list-queue-list y) .......... [PASS] 33. (list-queue-list x1) .......... [PASS] 34. (list-queue-list y1) .......... [PASS] 34 out of 34 passed (100.00%) 1. (generator->list (generator)) .......... [PASS] 2. (generator->list (generator 1 2 3)) .......... [PASS] 3. (generator->list (make-iota-generator 3 8)) .......... [PASS] 4. (generator->list (make-iota-generator 3 8 2)) .......... [PASS] 5. (generator->list (make-range-generator 3 8)) .......... [PASS] 6. (generator->list (make-range-generator 3) 4) .......... [PASS] 7. (generator->list (make-range-generator 3 8 2)) .......... [PASS] 8. (generator->list (make-coroutine-generator (lambda (yield) (let lp ((i 0)) (when (< i 3) (yield i) (lp (+ i 1))))))) .......... [PASS] 9. (generator->list (list->generator (quote (1 2 3 4 5)))) .......... [PASS] 10. (generator->list (vector->generator (quote #(1 2 3 4 5)))) .......... [PASS] 11. (generator->list (reverse-vector->generator (quote #(1 2 3 4 5)))) .......... [PASS] 12. (generator->list (string->generator "abcde")) .......... [PASS] 13. (generator->list (bytevector->generator (bytevector 10 20 30))) .......... [PASS] 14. (generator->list (make-for-each-generator for-each-digit 12345)) .......... [PASS] 15. (generator->list (make-unfold-generator (lambda (s) (> s 5)) (lambda (s) (* s 2)) (lambda (s) (+ s 1)) 0)) .......... [PASS] 16. (generator->list (gcons* (quote a) (quote b) (make-range-generator 0 2))) .......... [PASS] 17. (generator->list (gappend (make-range-generator 0 3) (make-range-generator 0 2))) .......... [PASS] 18. (generator->list (gappend)) .......... [PASS] 19. (generator->list (gcombine (lambda args (values (apply + args) (apply + args))) 10 (generator 1 2 3) (generator 4 5 6 7))) .......... [PASS] 20. (generator->list (gfilter odd? (make-range-generator 1 11))) .......... [PASS] 21. (generator->list (gremove odd? (make-range-generator 1 11))) .......... [PASS] 22. (generator->list (gtake g 3)) .......... [PASS] 23. (generator->list g) .......... [PASS] 24. (generator->list (gtake (make-range-generator 1 3) 3)) .......... [PASS] 25. (generator->list (gtake (make-range-generator 1 3) 3 0)) .......... [PASS] 26. (generator->list (gdrop (make-range-generator 1 5) 2)) .......... [PASS] 27. (generator->list (gtake-while small? (make-range-generator 1 5))) .......... [PASS] 28. (generator->list (gdrop-while small? (make-range-generator 1 5))) .......... [PASS] 29. (generator->list (gdrop-while (lambda args #t) (generator 1 2 3))) .......... [PASS] 30. (generator->list (gdelete 1 (generator 0.0 1.0 0 1 2))) .......... [PASS] 31. (generator->list (gdelete 1 (generator 0.0 1.0 0 1 2) =)) .......... [PASS] 32. (generator->list (gindex (list->generator (quote (a b c d e f))) (list->generator (quote (0 2 4))))) .......... [PASS] 33. (generator->list (gselect (list->generator (quote (a b c d e f))) (list->generator (quote (#t #f #f #t #t #f))))) .......... [PASS] 34. (generator->list (gdelete-neighbor-dups (generator 1 1 2 3 3 3) =)) .......... [PASS] 35. (generator->list (gdelete-neighbor-dups (generator 1 2 3) (lambda args #t))) .......... [PASS] 36. (generator->list (generator 1 2 3 4 5) 3) .......... [PASS] 37. (generator->reverse-list (generator 1 2 3 4 5)) .......... [PASS] 38. (generator->vector (generator 1 2 3 4 5)) .......... [PASS] 39. (generator->vector (generator 1 2 3 4 5) 3) .......... [PASS] 40. (generator->string (generator #\a #\b #\c)) .......... [PASS] 41. (let ((in (open-input-string "a b c d e"))) (generator-fold cons (quote z) (lambda () (read in)))) .......... [PASS] 42. n .......... [PASS] 43. (generator-find (lambda (x) (> x 2)) (make-range-generator 1 5)) .......... [PASS] 44. (generator-count odd? (make-range-generator 1 5)) .......... [PASS] 45. (generator-any odd? g) .......... [PASS] 46. (generator->list g) .......... [PASS] 47. (generator-every odd? g) .......... [PASS] 48. (generator->list g) .......... [PASS] 49. (generator-unfold (make-for-each-generator string-for-each "abc") unfold) .......... [PASS] 49 out of 49 passed (100.00%) Done. - ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 116: ./skint test/srfi/116.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 117: ./skint test/srfi/117.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 121: ./skint test/srfi/121.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 125: ./skint test/srfi/125.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 127: ./skint test/srfi/127.scm ---------------------------------------------1. (car one23) .......... [PASS] 2. (not (procedure? (cdr one23))) .......... [PASS] 3. (lseq-realize one23) .......... [PASS] 4. (not (lseq? (quote ()))) .......... [PASS] 5. (not (lseq? (quote (1 2 3)))) .......... [PASS] 6. (not (lseq? (make-lseq 1 2 3))) .......... [PASS] 7. (not (lseq? (cons (quote x) (lambda () (quote x))))) .......... [PASS] 8. (not (lseq=? = (quote ()) (quote ()))) .......... [PASS] 9. (not (lseq=? = (quote (1 2 3)) (quote (1 2 3)))) .......... [PASS] 10. (not (lseq=? = (make-lseq 1 2 3) (make-lseq 1 2 3))) .......... [PASS] 11. (not (lseq=? = (make-lseq 1 2 3) (quote (1 2 3)))) .......... [PASS] 12. (lseq-car (make-lseq 1 2 3)) .......... [PASS] 13. (lseq-car (quote (1 2 3))) .......... [PASS] 14. (lseq-first (make-lseq 1 2 3)) .......... [PASS] 15. (lseq-first (quote (1 2 3))) .......... [PASS] 16. (lseq-cdr (quote (1 . 2))) .......... [PASS] 17. (lseq-car (lseq-cdr (quote (1 2 3)))) .......... [PASS] 18. (lseq-car (lseq-cdr (make-lseq 1 2 3))) .......... [PASS] 19. (lseq-rest (quote (1 . 2))) .......... [PASS] 20. (lseq-car (lseq-rest (quote (1 2 3)))) .......... [PASS] 21. (lseq-car (lseq-rest (make-lseq 1 2 3))) .......... [PASS] 22. (lseq-ref (quote (1)) 0) .......... [PASS] 23. (lseq-ref (quote (1 2)) 1) .......... [PASS] 24. (lseq-ref (make-lseq 1) 0) .......... [PASS] 25. (lseq-ref (make-lseq 1 2) 0) .......... [PASS] 26. (lseq-ref (make-lseq 1 2) 1) .......... [PASS] 27. (not (procedure? (cdr (lseq-take (quote (1 2 3 4 5)) 3)))) .......... [PASS] 28. (lseq-realize (lseq-take (quote (1 2 3 4 5)) 3)) .......... [PASS] 29. (lseq-realize (lseq-drop (quote (1 2 3 4 5)) 2)) .......... [PASS] 30. (lseq-realize (lseq-drop (make-lseq 1 2 3 4 5) 2)) .......... [PASS] 31. (lseq-realize (quote ())) .......... [PASS] 32. (lseq-realize (quote (1 2 3))) .......... [PASS] 33. (lseq-realize (make-lseq)) .......... [PASS] 34. (lseq-realize (make-lseq 1 2 3)) .......... [PASS] 35. (g) .......... [PASS] 36. (g) .......... [PASS] 37. (g) .......... [PASS] 38. (not (eof-object? (g))) .......... [PASS] 39. (g) .......... [PASS] 40. (g) .......... [PASS] 41. (g) .......... [PASS] 42. (not (eof-object? (g))) .......... [PASS] 43. (lseq-length (quote ())) .......... [PASS] 44. (lseq-length (quote (1 2 3))) .......... [PASS] 45. (lseq-length (make-lseq 1 2 3)) .......... [PASS] 46. (lseq-realize (lseq-append (quote (1 2 3)) (quote (a b c)))) .......... [PASS] 47. (not (procedure? (cdr one23abc))) .......... [PASS] 48. (not (lseq-realize one23abc)) .......... [PASS] 49. (lseq-realize (lseq-zip (quote (one two three)) one2345 oddeven)) .......... [PASS] 50. (lseq-map - (quote ())) .......... [PASS] 51. (lseq-realize (lseq-map - (quote (1 2 3)))) .......... [PASS] 52. (lseq-realize (lseq-map - (make-lseq 1 2 3))) .......... [PASS] 53. (not (procedure? (cdr (lseq-map - (quote (1 2 3)))))) .......... [PASS] 54. output .......... [PASS] 55. output .......... [PASS] 56. output .......... [PASS] 57. (lseq-filter odd? (quote ())) .......... [PASS] 58. (not (procedure? (cdr odds))) .......... [PASS] 59. (lseq-realize odds) .......... [PASS] 60. (lseq-realize (lseq-filter odd? (make-lseq 1 2 3 4 5))) .......... [PASS] 61. (lseq-remove even? (quote ())) .......... [PASS] 62. (not (procedure? (cdr odds))) .......... [PASS] 63. (lseq-realize odds) .......... [PASS] 64. (lseq-realize (lseq-remove even? (make-lseq 1 2 3 4 5))) .......... [PASS] 65. (lseq-find even? (quote (3 1 4 1 5 9 2 6))) .......... [PASS] 66. (lseq-find even? (make-lseq 3 1 4 1 5 9 2 6)) .......... [PASS] 67. (lseq-find negative? (make-lseq 1 2 3 4 5)) .......... [PASS] 68. (lseq-realize (lseq-find-tail even? (quote (3 1 37 -8 -5 0 0)))) .......... [PASS] 69. (lseq-realize (lseq-find-tail even? (make-lseq 3 1 37 -8 -5 0 0))) .......... [PASS] 70. (lseq-find-tail even? (quote ())) .......... [PASS] 71. (lseq-find-tail negative? (make-lseq 1 2 3 4 5)) .......... [PASS] 72. (lseq-realize (lseq-take-while even? (quote (2 18 3 10 22 9)))) .......... [PASS] 73. (lseq-realize (lseq-take-while even? (make-lseq 2 18 3 10 22 9))) .......... [PASS] 74. (lseq-realize (lseq-take-while even? (make-lseq 2 18 3 10 22 9))) .......... [PASS] 75. (lseq-drop-while even? (quote (2 18 3 10 22 9))) .......... [PASS] 76. (lseq-realize (lseq-drop-while even? (make-lseq 2 18 3 10 22 9))) .......... [PASS] 77. (lseq-any integer? (quote (a 3 b 2.7))) .......... [PASS] 78. (lseq-any integer? (make-lseq (quote a) 3 (quote b) 2.7)) .......... [PASS] 79. (lseq-any integer? (quote (a 3.1 b 2.7))) .......... [PASS] 80. (lseq-any integer? (make-lseq (quote a) 3.1 (quote b) 2.7)) .......... [PASS] 81. (lseq-any < (quote (3 1 4 1 5)) (quote (2 7 1 8 2))) .......... [PASS] 82. (lseq-any factorial (quote (-1 -2 3 4))) .......... [PASS] 83. (lseq-any factorial (make-lseq -1 -2 3 4)) .......... [PASS] 84. (lseq-every factorial (quote (1 2 3 4))) .......... [PASS] 85. (lseq-every factorial (make-lseq 1 2 3 4)) .......... [PASS] 86. (lseq-index even? (quote (3 1 4 1 5 9))) .......... [PASS] 87. (lseq-index < (quote (3 1 4 1 5 9 2 5 6)) (quote (2 7 1 8 2))) .......... [PASS] 88. (lseq-index = (quote (3 1 4 1 5 9 2 5 6)) (quote (2 7 1 8 2))) .......... [PASS] 89. (lseq-realize (lseq-memq (quote a) (quote (a b c)))) .......... [PASS] 90. (lseq-realize (lseq-memq (quote a) (make-lseq (quote a) (quote b) (quote c)))) .......... [PASS] 91. (lseq-memq (quote a) (make-lseq (quote b) (quote c) (quote d))) .......... [PASS] 92. (lseq-memq (list (quote a)) (quote (b c d))) .......... [PASS] 93. (lseq-memq (list (quote a)) (make-lseq (quote b) (quote c) (quote d))) .......... [PASS] 94. (lseq-realize (lseq-memv 101 (make-lseq 100 101 102))) .......... [PASS] 95. (lseq-realize (lseq-member (list (quote a)) (make-lseq (quote b) (quote (a)) (quote c)))) .......... [PASS] 96. (lseq-realize (lseq-member 2.0 (make-lseq 1 2 3) =)) .......... [PASS] 96 out of 96 passed (100.00%) default-comparator real-comparator degenerate comparator boolean comparator bool-pair-comparator num-list-comparator num-vector-comparator vector-qua-list comparator list-qua-vector-comparator eq-comparator eqv-comparator equal-comparator symbol-comparator 158 tests passed Done. 1. (string-null? "abc") .......... [PASS] 2. (string-null? "") .......... [PASS] 3. (string-every #\a "") .......... [PASS] 4. (string-every #\a "aaaa") .......... [PASS] 5. (string-every #\a "aaba") .......... [PASS] 6. (string-every (lambda (x) (char->integer x)) "aAbA") .......... [PASS] 7. (string-every (lambda (x) (error "hoge")) "") .......... [PASS] 8. (string-any #\a "aaaa") .......... [PASS] 9. (string-any #\a "Abcd") .......... [PASS] 10. (string-any #\a "") .......... [PASS] 11. (string-any (lambda (x) (char->integer x)) "aAbA") .......... [PASS] 12. (string-tabulate (lambda (code) (integer->char (+ code (char->integer #\0)))) 10) .......... [PASS] 13. (string-tabulate (lambda (code) (integer->char (+ code (char->integer #\0)))) 0) .......... [PASS] 14. (reverse-list->string (quote (#\a #\B #\c))) .......... [PASS] 15. (reverse-list->string (quote ())) .......... [PASS] 16. (substring/cursors "abcde" 2 5) .......... [PASS] 17. (substring/cursors "abcde" 2 4) .......... [PASS] 18. (let ((x (string-copy "abcdefg"))) (string-copy! x 2 "CDE") x) .......... [PASS] 19. (let ((x (string-copy "abcdefg"))) (string-copy! x 2 "ZABCDE" 3) x) .......... [PASS] 20. (let ((x (string-copy "abcdefg"))) (string-copy! x 2 "ZABCDEFG" 3 6) x) .......... [PASS] 21. (string-take "Pete Szilagyi" 6) .......... [PASS] 22. (string-take "Pete Szilagyi" 0) .......... [PASS] 23. (string-take "Pete Szilagyi" 13) .......... [PASS] 24. (string-drop "Pete Szilagyi" 6) .......... [PASS] 25. (string-drop "Pete Szilagyi" 0) .......... [PASS] 26. (string-drop "Pete Szilagyi" 13) .......... [PASS] 27. (string-take-right "Beta rules" 5) .......... [PASS] 28. (string-take-right "Beta rules" 0) .......... [PASS] 29. (string-take-right "Beta rules" 10) .......... [PASS] 30. (string-drop-right "Beta rules" 5) .......... [PASS] 31. (string-drop-right "Beta rules" 0) .......... [PASS] 32. (string-drop-right "Beta rules" 10) .......... [PASS] 33. (string-pad "325" 5) .......... [PASS] 34. (string-pad "71325" 5) .......... [PASS] 35. (string-pad "8871325" 5) .......... [PASS] 36. (string-pad "325" 5 #\~) .......... [PASS] 37. (string-pad "325" 5 #\~ 1) .......... [PASS] 38. (string-pad "325" 5 #\~ 1 2) .......... [PASS] 39. (string-pad-right "325" 5) .......... [PASS] 40. (string-pad-right "71325" 5) .......... [PASS] 41. (string-pad-right "8871325" 5) .......... [PASS] 42. (string-pad-right "325" 5 #\~) .......... [PASS] 43. (string-pad-right "325" 5 #\~ 1) .......... [PASS] 44. (string-pad-right "325" 5 #\~ 1 2) .......... [PASS] 45. (string-trim " \t a b c d \n") .......... [PASS] 46. (string-trim " \t a b c d \n" #\space) .......... [PASS] 47. (string-trim "4358948a b c d \n" char-numeric?) .......... [PASS] 48. (string-trim-right " \t a b c d \n") .......... [PASS] 49. (string-trim-right " \t a b c d \n" (lambda (ch) (eqv? ch #\newline))) .......... [PASS] 50. (string-trim-right "349853a b c d03490" char-numeric?) .......... [PASS] 51. (string-trim-both " \t a b c d \n") .......... [PASS] 52. (string-trim-both " \t a b c d \n" (lambda (ch) (eqv? ch #\newline))) .......... [PASS] 53. (string-trim-both "349853a b c d03490" char-numeric?) .......... [PASS] 54. (string-prefix-length "cancaNCAM" "cancancan") .......... [PASS] 55. (string-suffix-length "CanCan" "cankancan") .......... [PASS] 56. (string-prefix? "abcd" "abcdefg") .......... [PASS] 57. (string-prefix? "abcf" "abcdefg") .......... [PASS] 58. (string-suffix? "defg" "abcdefg") .......... [PASS] 59. (string-suffix? "aefg" "abcdefg") .......... [PASS] 60. (string-index->index "abcd:efgh:ijkl" (lambda (ch) (eqv? ch #\:))) .......... [PASS] 61. (string-index->index "abcd:efgh;ijkl" (lambda (ch) (char-set-contains? char-set:not-letter ch))) .......... [PASS] 62. (string-index->index "abcd:efgh;ijkl" (lambda (ch) (char-set-contains? char-set:digit ch))) .......... [PASS] 63. (string-index->index "abcd:efgh:ijkl" (lambda (ch) (eqv? ch #\:)) 5) .......... [PASS] 64. (string-index-right->index "abcd:efgh;ijkl" (lambda (ch) (eqv? ch #\:))) .......... [PASS] 65. (string-index-right->index "abcd:efgh;ijkl" (lambda (ch) (char-set-contains? char-set:not-letter ch))) .......... [PASS] 66. (string-index-right->index "abcd:efgh;ijkl" char-alphabetic?) .......... [PASS] 67. (string-index-right->index "abcd:efgh;ijkl" (lambda (ch) (char-set-contains? char-set:not-letter ch)) 7) .......... [PASS] 68. (string-count "abc def\tghi jkl" (lambda (ch) (eqv? ch #\space))) .......... [PASS] 69. (string-count "abc def\tghi jkl" char-whitespace?) .......... [PASS] 70. (string-count "abc def\tghi jkl" char-whitespace? 4) .......... [PASS] 71. (string-count "abc def\tghi jkl" char-whitespace? 4 9) .......... [PASS] 72. (not (string-contains s "mer")) .......... [PASS] 73. (string-contains s "Mer") .......... [PASS] 74. (not (string-contains s "mer" 1)) .......... [PASS] 75. (not (string-contains s "mer" 1 8)) .......... [PASS] 76. (string-contains s "mer" 4 8) .......... [PASS] 77. (string-contains s "mer" 1 5) .......... [PASS] 78. (string-cursor->index s (string-contains-right s "ee")) .......... [PASS] 79. (string-cursor->index s (string-contains-right s "ee" 12 18)) .......... [PASS] 80. (string-cursor->index s (string-contains-right s "")) .......... [PASS] 81. (string-cursor->index "" (string-contains-right "" "")) .......... [PASS] 82. (string-contains-right s "kee" 12 18) .......... [PASS] 83. (string-reverse "no melon no lemon") .......... [PASS] 84. (string-reverse "no melon no lemon" 9) .......... [PASS] 85. (string-reverse "no melon no lemon" 9 11) .......... [PASS] 86. (let ((s "test")) (eq? s (string-append s))) .......... [PASS] 87. (let ((s "test")) (eq? s (string-concatenate (list s)))) .......... [PASS] 88. (string-concatenate (quote ("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z" "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"))) .......... [PASS] 89. (string-concatenate-reverse (quote ("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z" "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"))) .......... [PASS] 90. (let ((s "test")) (eq? s (string-concatenate-reverse (list s)))) .......... [PASS] 91. (string-map (lambda (c) (integer->char (- 219 (char->integer c)))) "hello") .......... [PASS] 92. (string-fold cons #t "hello") .......... [PASS] 93. (string-fold cons #t "hello" 1 3) .......... [PASS] 94. (string-fold-right cons #t "hello") .......... [PASS] 95. (string-fold-right cons #t "hello" 1 3) .......... [PASS] 96. (string-unfold null? car cdr (quote (#\h #\e #\l #\l #\o))) .......... [PASS] 97. (string-unfold null? car cdr (quote (#\h #\e #\l #\l #\o)) "hi ") .......... [PASS] 98. (string-unfold null? car cdr (quote (#\h #\e #\l #\l #\o)) "hi " (lambda (x) " ho")) .......... [PASS] 99. (string-unfold-right null? car cdr (quote (#\h #\e #\l #\l #\o))) .......... [PASS] 100. (string-unfold-right null? car cdr (quote (#\h #\e #\l #\l #\o)) " hi") .......... [PASS] 101. (string-unfold-right null? car cdr (quote (#\h #\e #\l #\l #\o)) " hi" (lambda (x) "ho ")) .......... [PASS] 102. (let ((out (open-output-string)) (prev #f)) (string-for-each (lambda (c) (if (or (not prev) (char-whitespace? prev)) (write-char c out)) (set! prev c)) "Common Lisp, the Language") (get-output-string out)) .......... [PASS] 103. (let ((r (quote ()))) (string-for-each-cursor (lambda (i) (set! r (cons i r))) "hello") (map (lambda (sc) (string-cursor->index "hello" sc)) r)) .......... [PASS] 104. (let ((r (quote ()))) (string-for-each-cursor (lambda (i) (set! r (cons i r))) "hello" 1) (map (lambda (sc) (string-cursor->index "hello" sc)) r)) .......... [PASS] 105. (let ((r (quote ()))) (string-for-each-cursor (lambda (i) (set! r (cons i r))) "hello" 1 3) (map (lambda (sc) (string-cursor->index "hello" sc)) r)) .......... [PASS] 106. (string-replicate "abcdef" 2 8) .......... [PASS] 107. (string-replicate "abcdef" -2 4) .......... [PASS] 108. (string-replicate "abc" 0 7) .......... [PASS] 109. (string-replicate "abcdefg" 0 7 3 6) .......... [PASS] 110. (string-replicate "abcdefg" 9 9 3 6) .......... [PASS] 111. (string-replace "abcdefghi" "XYZ" 4 6) .......... [PASS] 112. (string-replace "abcdefghi" "XYZ" 4 6 2) .......... [PASS] 113. (string-replace "abcdefghi" "XYZ" 4 4 2) .......... [PASS] 114. (string-replace "abcdefghi" "XYZ" 4 4 1 1) .......... [PASS] 115. (string-replace "abcdefghi" "" 4 7) .......... [PASS] 116. (string-filter (lambda (ch) (eqv? ch #\r)) "Help make programs run, run, RUN!") .......... [PASS] 117. (string-filter char-alphabetic? "Help make programs run, run, RUN!") .......... [PASS] 118. (string-filter (lambda (c) (char-lower-case? c)) "Help make programs run, run, RUN!" 10) .......... [PASS] 119. (string-filter (lambda (c) (char-lower-case? c)) "") .......... [PASS] 120. (string-remove (lambda (ch) (eqv? ch #\r)) "Help make programs run, run, RUN!") .......... [PASS] 121. (string-remove char-alphabetic? "Help make programs run, run, RUN!") .......... [PASS] 122. (string-remove (lambda (c) (char-lower-case? c)) "Help make programs run, run, RUN!" 10) .......... [PASS] 123. (string-remove (lambda (c) (char-lower-case? c)) "") .......... [PASS] 124. (string-join (quote ("foo" "bar" "baz")) ":") .......... [PASS] 125. (string-join (quote ("foo" "bar" "baz")) ":" (quote suffix)) .......... [PASS] 126. (string-join (quote ()) ":") .......... [PASS] 127. (string-join (quote ("")) ":") .......... [PASS] 128. (string-join (quote ()) ":" (quote suffix)) .......... [PASS] 129. (string-join (quote ("")) ":" (quote suffix)) .......... [PASS] 130. (string-split "foo:bar:baz" ":") .......... [PASS] 131. (string-split "foo:bar:baz:" ":") .......... [PASS] 132. (string-split "foo:bar:baz:" ":" (quote suffix)) .......... [PASS] 133. (string-split "foo:bar:baz:" ":" (quote suffix) 1) .......... [PASS] 134. (string-split "foo:bar:baz:" ":" (quote suffix) 2) .......... [PASS] 135. (string-split "" ":") .......... [PASS] 136. (string-split "" ":" (quote suffix)) .......... [PASS] 137. (string-split ":" ":" (quote suffix)) .......... [PASS] 138. (string-split ":foo:bar:baz" ":" (quote prefix)) .......... [PASS] 139. (string-split "" "") .......... [PASS] 140. (string-split "abc" "") .......... [PASS] 141. (string-split "too much data" " ") .......... [PASS] 142. (string-split "***there***ya***go***" "***") .......... [PASS] 143. (string-split "" "" (quote infix)) .......... [PASS] 144. (string-split "abc" "" (quote infix)) .......... [PASS] 145. (string-split "too much data" " " (quote infix)) .......... [PASS] 146. (string-split "***there***ya***go***" "***" (quote infix)) .......... [PASS] 147. (quote (string-split "" "" (quote strict-infix))) .......... [PASS] 148. (string-split "abc" "" (quote strict-infix)) .......... [PASS] 149. (string-split "too much data" " " (quote strict-infix)) .......... [PASS] 150. (string-split "***there***ya***go***" "***" (quote strict-infix)) .......... [PASS] 151. (string-split "" "" (quote prefix)) .......... [PASS] 152. (string-split "abc" "" (quote prefix)) .......... [PASS] 153. (string-split "too much data" " " (quote prefix)) .......... [PASS] 154. (string-split "***there***ya***go***" "***" (quote prefix)) .......... [PASS] 155. (string-split "" "" (quote suffix)) .......... [PASS] 156. (string-split "abc" "" (quote suffix)) .......... [PASS] 157. (string-split "too much data" " " (quote suffix)) .......... [PASS] 158. (string-split "***there***ya***go***" "***" (quote suffix)) .......... [PASS] 159. (string-split "" "" (quote infix) #f) .......... [PASS] 160. (string-split "abc" "" (quote infix) #f) .......... [PASS] 161. (string-split "too much data" " " (quote infix) #f) .......... [PASS] 162. (string-split "***there***ya***go***" "***" (quote infix) #f) .......... [PASS] 163. (string-split "abc" "" (quote strict-infix) #f) .......... [PASS] 164. (string-split "too much data" " " (quote strict-infix) #f) .......... [PASS] 165. (string-split "***there***ya***go***" "***" (quote strict-infix) #f) .......... [PASS] 166. (string-split "" "" (quote prefix) #f) .......... [PASS] 167. (string-split "abc" "" (quote prefix) #f) .......... [PASS] 168. (string-split "too much data" " " (quote prefix) #f) .......... [PASS] 169. (string-split "***there***ya***go***" "***" (quote prefix) #f) .......... [PASS] 170. (string-split "" "" (quote suffix) #f) .......... [PASS] 171. (string-split "abc" "" (quote suffix) #f) .......... [PASS] 172. (string-split "too much data" " " (quote suffix) #f) .......... [PASS] 173. (string-split "***there***ya***go***" "***" (quote suffix) #f) .......... [PASS] 174. (quote (string-split "" "" (quote strict-infix) 3)) .......... [PASS] 175. (string-split "abc" "" (quote strict-infix) 3) .......... [PASS] 176. (string-split "too much data" " " (quote strict-infix) 3) .......... [PASS] 177. (string-split "***there***ya***go***" "***" (quote strict-infix) 3) .......... [PASS] 178. (string-split "" "" (quote prefix) 3) .......... [PASS] 179. (string-split "abc" "" (quote prefix) 3) .......... [PASS] 180. (string-split "too much data" " " (quote prefix) 3) .......... [PASS] 181. (string-split "***there***ya***go***" "***" (quote prefix) 3) .......... [PASS] 182. (string-split "" "" (quote suffix) 3) .......... [PASS] 183. (string-split "abc" "" (quote suffix) 3) .......... [PASS] 184. (string-split "too much data" " " (quote suffix) 3) .......... [PASS] 185. (string-split "***there***ya***go***" "***" (quote suffix) 3) .......... [PASS] 186. (quote (string-split "" "" (quote strict-infix) 3 0)) .......... [PASS] 187. (string-split "abc" "" (quote strict-infix) 3 1) .......... [PASS] 188. (string-split "too much data" " " (quote strict-infix) 3 1) .......... [PASS] 189. (string-split "***there***ya***go***" "***" (quote strict-infix) 3 1) .......... [PASS] 190. (string-split "" "" (quote prefix) 3 0) .......... [PASS] 191. (string-split "abc" "" (quote prefix) 3 1) .......... [PASS] 192. (string-split "too much data" " " (quote prefix) 3 1) .......... [PASS] 193. (string-split "***there***ya***go***" "***" (quote prefix) 3 1) .......... [PASS] 194. (string-split "" "" (quote suffix) 3 0) .......... [PASS] 195. (string-split "abc" "" (quote suffix) 3 1) .......... [PASS] 196. (string-split "too much data" " " (quote suffix) 3 1) .......... [PASS] 197. (string-split "***there***ya***go***" "***" (quote suffix) 3 1) .......... [PASS] 198. (quote (string-split "" "" (quote strict-infix) 3 0 0)) .......... [PASS] 199. (string-split "abc" "" (quote strict-infix) 3 1 2) .......... [PASS] 200. (string-split "too much data" " " (quote strict-infix) 3 1 11) .......... [PASS] 201. (string-split "" "" (quote prefix) 3 0 0) .......... [PASS] 202. (string-split "abc" "" (quote prefix) 3 1 2) .......... [PASS] 203. (string-split "too much data" " " (quote prefix) 3 1 11) .......... [PASS] 204. (string-split "" "" (quote suffix) 3 0 0) .......... [PASS] 205. (string-split "abc" "" (quote suffix) 3 1 2) .......... [PASS] 206. (string-split "too much data" " " (quote suffix) 3 1 11) .......... [PASS] 207. (string-cursor->index "aabc" (string-contains "aabc" "ab")) .......... [PASS] 208. (string-cursor->index "ababdabdabxxas" (string-contains "ababdabdabxxas" "abdabx")) .......... [PASS] 209. (string-cursor->index "ab" (string-contains "ab" "ab")) .......... [PASS] 210. (string-cursor->index s sc) .......... [PASS] 211. (string-cursor->index s i) .......... [PASS] 212. (string-index->cursor s sc) .......... [PASS] 213. (string-index->cursor s i) .......... [PASS] 213 out of 213 passed (100.00%) 1. (not (let () (define-record-type (make-record) record?) (record? (make-record)))) .......... [PASS] 2. (not (let () (define-record-type (make-record) record?) (not (vector? (make-record))))) .......... [PASS] 3. (let () (define-record-type (make-record foo baz) record? (foo foo) (bar bar set-bar!) (baz baz)) (define record (make-record 1 3)) (set-bar! record 2) (list (foo record) (bar record) (baz record))) .......... [PASS] 4. (let () (define-record-type (make-parent) parent?) (define-record-type ( ) (make-child) child?) (list (parent? (make-child)) (child? (make-parent)))) .......... [PASS] 5. (let () (define-record-type (make-parent foo) parent? (foo foo)) (define-record-type ( ) (make-child foo bar) child? (bar bar)) (define child (make-child 1 2)) (list (foo child) (bar child))) .......... [PASS] 6. (let () (define-record-type (make-parent foo) #f (foo foo)) (define-record-type ( ) make-child child?) (define child (make-child 1)) (foo child)) .......... [PASS] 7. (not (let () (define-record-type ( #f) (make-record) record?) (record? (make-record)))) .......... [PASS] 8. (let () (define-record-type/136 (make-parent foo) parent? (foo foo)) (define-record-type ( ) (make-child foo bar) child? (bar bar)) (define record (make-child 1 2)) (list (parent? record) (child? record) (foo record) (bar record))) .......... [PASS] 8 out of 8 passed (100.00%) 1. (list-sort > (list)) .......... [PASS] 2. (list-sort > (list 987)) .......... [PASS] 3. (list-sort > (list 987 654)) .......... [PASS] 4. (list-sort > (list 9 8 6 3 0 4 2 5 7 1)) .......... [PASS] 5. (list-stable-sort > (list)) .......... [PASS] 6. (list-stable-sort > (list 987)) .......... [PASS] 7. (list-stable-sort > (list 987 654)) .......... [PASS] 8. (list-stable-sort > (list 9 8 6 3 0 4 2 5 7 1)) .......... [PASS] 9. (list-stable-sort (lambda (x y) (> (quotient x 2) (quotient y 2))) (list 9 8 6 3 0 4 2 5 7 1)) .......... [PASS] 10. (let ((v (vector))) (vector-sort > v)) .......... [PASS] 11. (let ((v (vector 987))) (vector-sort > (vector 987))) .......... [PASS] 12. (let ((v (vector 987 654))) (vector-sort > v)) .......... [PASS] 13. (let ((v (vector 9 8 6 3 0 4 2 5 7 1))) (vector-sort > v)) .......... [PASS] 14. (let ((v (vector))) (vector-stable-sort > v)) .......... [PASS] 15. (let ((v (vector 987))) (vector-stable-sort > (vector 987))) .......... [PASS] 16. (let ((v (vector 987 654))) (vector-stable-sort > v)) .......... [PASS] 17. (let ((v (vector 9 8 6 3 0 4 2 5 7 1))) (vector-stable-sort > v)) .......... [PASS] 18. (let ((v (vector 9 8 6 3 0 4 2 5 7 1))) (vector-stable-sort (lambda (x y) (> (quotient x 2) (quotient y 2))) v)) .......... [PASS] 19. (let ((v (vector))) (vector-sort > v 0)) .......... [PASS] 20. (let ((v (vector 987))) (vector-sort > (vector 987) 1)) .......... [PASS] 21. (let ((v (vector 987 654))) (vector-sort > v 1)) .......... [PASS] 22. (let ((v (vector 9 8 6 3 0 4 2 5 7 1))) (vector-sort > v 3)) .......... [PASS] 23. (let ((v (vector))) (vector-stable-sort > v 0)) .......... [PASS] 24. (let ((v (vector 987))) (vector-stable-sort > (vector 987) 1)) .......... [PASS] 25. (let ((v (vector 987 654))) (vector-stable-sort < v 0 2)) .......... [PASS] 26. (let ((v (vector 9 8 6 3 0 4 2 5 7 1))) (vector-stable-sort > v 3)) .......... [PASS] 27. (let ((v (vector 9 8 6 3 0 4 2 5 7 1))) (vector-stable-sort (lambda (x y) (> (quotient x 2) (quotient y 2))) v 3)) .......... [PASS] 28. (let ((v (vector))) (vector-sort > v 0 0)) .......... [PASS] 29. (let ((v (vector 987))) (vector-sort > (vector 987) 1 1)) .......... [PASS] 30. (let ((v (vector 987 654))) (vector-sort > v 1 2)) .......... [PASS] 31. (let ((v (vector 9 8 6 3 0 4 2 5 7 1))) (vector-sort > v 4 8)) .......... [PASS] 32. (let ((v (vector))) (vector-stable-sort > v 0 0)) .......... [PASS] 33. (let ((v (vector 987))) (vector-stable-sort > (vector 987) 1 1)) .......... [PASS] 34. (let ((v (vector 987 654))) (vector-stable-sort > v 1 2)) .......... [PASS] 35. (let ((v (vector 9 8 6 3 0 4 2 5 7 1))) (vector-stable-sort > v 2 6)) .......... [PASS] 36. (let ((v (vector 9 8 6 3 0 4 2 5 7 1))) (vector-stable-sort (lambda (x y) (> (quotient x 2) (quotient y 2))) v 1 8)) .......... [PASS] 37. (list-sort! > (list)) .......... [PASS] 38. (list-sort! > (list 987)) .......... [PASS] 39. (list-sort! > (list 987 654)) .......... [PASS] 40. (list-sort! > (list 9 8 6 3 0 4 2 5 7 1)) .......... [PASS] 41. (list-stable-sort! > (list)) .......... [PASS] 42. (list-stable-sort! > (list 987)) .......... [PASS] 43. (list-stable-sort! > (list 987 654)) .......... [PASS] 44. (list-stable-sort! > (list 9 8 6 3 0 4 2 5 7 1)) .......... [PASS] 45. (list-stable-sort! (lambda (x y) (> (quotient x 2) (quotient y 2))) (list 9 8 6 3 0 4 2 5 7 1)) .......... [PASS] 46. (let ((v (vector))) (vector-sort! > v) v) .......... [PASS] 47. (let ((v (vector 987))) (vector-sort! > (vector 987)) v) .......... [PASS] 48. (let ((v (vector 987 654))) (vector-sort! > v) v) .......... [PASS] 49. (let ((v (vector 9 8 6 3 0 4 2 5 7 1))) (vector-sort! > v) v) .......... [PASS] 50. (let ((v (vector))) (vector-stable-sort! > v) v) .......... [PASS] 51. (let ((v (vector 987))) (vector-stable-sort! > (vector 987)) v) .......... [PASS] 52. (let ((v (vector 987 654))) (vector-stable-sort! > v) v) .......... [PASS] 53. (let ((v (vector 9 8 6 3 0 4 2 5 7 1))) (vector-stable-sort! > v) v) .......... [PASS] 54. (let ((v (vector 9 8 6 3 0 4 2 5 7 1))) (vector-stable-sort! (lambda (x y) (> (quotient x 2) (quotient y 2))) v) v) .......... [PASS] 55. (let ((v (vector))) (vector-sort! > v 0) v) .......... [PASS] 56. (let ((v (vector 987))) (vector-sort! > (vector 987) 1) v) .......... [PASS] 57. (let ((v (vector 987 654))) (vector-sort! > v 1) v) .......... [PASS] 58. (let ((v (vector 9 8 6 3 0 4 2 5 7 1))) (vector-sort! > v 3) v) .......... [PASS] 59. (let ((v (vector))) (vector-stable-sort! > v 0) v) .......... [PASS] 60. (let ((v (vector 987))) (vector-stable-sort! > (vector 987) 1) v) .......... [PASS] 61. (let ((v (vector 987 654))) (vector-stable-sort! < v 0 2) v) .......... [PASS] 62. (let ((v (vector 9 8 6 3 0 4 2 5 7 1))) (vector-stable-sort! > v 3) v) .......... [PASS] 63. (let ((v (vector 9 8 6 3 0 4 2 5 7 1))) (vector-stable-sort! (lambda (x y) (> (quotient x 2) (quotient y 2))) v 3) v) .......... [PASS] 64. (let ((v (vector))) (vector-sort! > v 0 0) v) .......... [PASS] 65. (let ((v (vector 987))) (vector-sort! > (vector 987) 1 1) v) .......... [PASS] 66. (let ((v (vector 987 654))) (vector-sort! > v 1 2) v) .......... [PASS] 67. (let ((v (vector 9 8 6 3 0 4 2 5 7 1))) (vector-sort! > v 4 8) v) .......... [PASS] 68. (let ((v (vector))) (vector-stable-sort! > v 0 0) v) .......... [PASS] 69. (let ((v (vector 987))) (vector-stable-sort! > (vector 987) 1 1) v) .......... [PASS] 70. (let ((v (vector 987 654))) (vector-stable-sort! > v 1 2) v) .......... [PASS] 71. (let ((v (vector 9 8 6 3 0 4 2 5 7 1))) (vector-stable-sort! > v 2 6) v) .......... [PASS] 72. (let ((v (vector 9 8 6 3 0 4 2 5 7 1))) (vector-stable-sort! (lambda (x y) (> (quotient x 2) (quotient y 2))) v 1 8) v) .......... [PASS] 73. (quote ()) .......... [PASS] 74. (list-merge > (list) (list 9 6 3 0)) .......... [PASS] 75. (list-merge > (list 9 7 5 3 1) (list)) .......... [PASS] 76. (list-merge > (list 9 7 5 3 1) (list 9 6 3 0)) .......... [PASS] 77. (list-merge! > (list) (list)) .......... [PASS] 78. (list-merge! > (list) (list 9 6 3 0)) .......... [PASS] 79. (list-merge! > (list 9 7 5 3 1) (list)) .......... [PASS] 80. (list-merge! > (list 9 7 5 3 1) (list 9 6 3 0)) .......... [PASS] 81. (vector-merge > (vector) (vector)) .......... [PASS] 82. (vector-merge > (vector) (vector 9 6 3 0)) .......... [PASS] 83. (vector-merge > (vector 9 7 5 3 1) (vector)) .......... [PASS] 84. (vector-merge > (vector 9 7 5 3 1) (vector 9 6 3 0)) .......... [PASS] 85. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector) (vector)) v) .......... [PASS] 86. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector) (vector 9 6 3 0)) v) .......... [PASS] 87. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector 9 7 5 3 1) (vector)) v) .......... [PASS] 88. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector 9 7 5 3 1) (vector 9 6 3 0)) v) .......... [PASS] 89. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector) (vector) 0) v) .......... [PASS] 90. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector) (vector 9 6 3 0) 0) v) .......... [PASS] 91. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector 9 7 5 3 1) (vector) 0) v) .......... [PASS] 92. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector 9 7 5 3 1) (vector 9 6 3 0) 0) v) .......... [PASS] 93. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector) (vector) 2) v) .......... [PASS] 94. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector) (vector 9 6 3 0) 2) v) .......... [PASS] 95. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector 9 7 5 3 1) (vector) 2) v) .......... [PASS] 96. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector 9 7 5 3 1) (vector 9 6 3 0) 2) v) .......... [PASS] 97. (vector-merge > (vector) (vector) 0) .......... [PASS] 98. (vector-merge > (vector) (vector 9 6 3 0) 0) .......... [PASS] 99. (vector-merge > (vector 9 7 5 3 1) (vector) 2) .......... [PASS] 100. (vector-merge > (vector 9 7 5 3 1) (vector 9 6 3 0) 2) .......... [PASS] 101. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector) (vector) 2 0) v) .......... [PASS] 102. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector) (vector 9 6 3 0) 2 0) v) .......... [PASS] 103. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector 9 7 5 3 1) (vector) 2 2) v) .......... [PASS] 104. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector 9 7 5 3 1) (vector 9 6 3 0) 2 2) v) .......... [PASS] 105. (vector-merge > (vector) (vector) 0 0) .......... [PASS] 106. (vector-merge > (vector) (vector 9 6 3 0) 0 0) .......... [PASS] 107. (vector-merge > (vector 9 7 5 3 1) (vector) 2 5) .......... [PASS] 108. (vector-merge > (vector 9 7 5 3 1) (vector 9 6 3 0) 2 5) .......... [PASS] 109. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector) (vector) 2 0 0) v) .......... [PASS] 110. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector) (vector 9 6 3 0) 2 0 0) v) .......... [PASS] 111. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector 9 7 5 3 1) (vector) 2 2 5) v) .......... [PASS] 112. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector 9 7 5 3 1) (vector 9 6 3 0) 2 2 5) v) .......... [PASS] 113. (vector-merge > (vector) (vector) 0 0) .......... [PASS] 114. (vector-merge > (vector) (vector 9 6 3 0) 0 0) .......... [PASS] 115. (vector-merge > (vector 9 7 5 3 1) (vector) 2 4) .......... [PASS] 116. (vector-merge > (vector 9 7 5 3 1) (vector 9 6 3 0) 2 4) .......... [PASS] 117. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector) (vector) 2 0 0) v) .......... [PASS] 118. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector) (vector 9 6 3 0) 2 0 0) v) .......... [PASS] 119. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector 9 7 5 3 1) (vector) 2 2 4) v) .......... [PASS] 120. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector 9 7 5 3 1) (vector 9 6 3 0) 2 2 4) v) .......... [PASS] 121. (vector-merge > (vector) (vector) 0 0 0) .......... [PASS] 122. (vector-merge > (vector) (vector 9 6 3 0) 0 0 0) .......... [PASS] 123. (vector-merge > (vector 9 7 5 3 1) (vector) 2 4 0) .......... [PASS] 124. (vector-merge > (vector 9 7 5 3 1) (vector 9 6 3 0) 2 4 0) .......... [PASS] 125. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector) (vector) 2 0 0 0) v) .......... [PASS] 126. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector) (vector 9 6 3 0) 2 0 0 0) v) .......... [PASS] 127. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector 9 7 5 3 1) (vector) 2 2 4 0) v) .......... [PASS] 128. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector 9 7 5 3 1) (vector 9 6 3 0) 2 2 4 0) v) .......... [PASS] 129. (vector-merge > (vector) (vector) 0 0 0) .......... [PASS] 130. (vector-merge > (vector) (vector 9 6 3 0) 0 0 1) .......... [PASS] 131. (vector-merge > (vector 9 7 5 3 1) (vector) 2 4 0) .......... [PASS] 132. (vector-merge > (vector 9 7 5 3 1) (vector 9 6 3 0) 2 4 1) .......... [PASS] 133. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector) (vector) 2 0 0 0) v) .......... [PASS] 134. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector) (vector 9 6 3 0) 2 0 0 1) v) .......... [PASS] 135. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector 9 7 5 3 1) (vector) 2 2 4 0) v) .......... [PASS] 136. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector 9 7 5 3 1) (vector 9 6 3 0) 2 2 4 1) v) .......... [PASS] 137. (vector-merge > (vector) (vector) 0 0 0 0) .......... [PASS] 138. (vector-merge > (vector) (vector 9 6 3 0) 0 0 1 4) .......... [PASS] 139. (vector-merge > (vector 9 7 5 3 1) (vector) 2 4 0 0) .......... [PASS] 140. (vector-merge > (vector 9 7 5 3 1) (vector 9 6 3 0) 2 4 1 4) .......... [PASS] 141. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector) (vector) 2 0 0 0 0) v) .......... [PASS] 142. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector) (vector 9 6 3 0) 2 0 0 1 4) v) .......... [PASS] 143. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector 9 7 5 3 1) (vector) 2 2 4 0 0) v) .......... [PASS] 144. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector 9 7 5 3 1) (vector 9 6 3 0) 2 2 4 1 4) v) .......... [PASS] 145. (vector-merge > (vector) (vector) 0 0 0 0) .......... [PASS] 146. (vector-merge > (vector) (vector 9 6 3 0) 0 0 1 2) .......... [PASS] 147. (vector-merge > (vector 9 7 5 3 1) (vector) 2 4 0 0) .......... [PASS] 148. (vector-merge > (vector 9 7 5 3 1) (vector 9 6 3 0) 2 4 1 2) .......... [PASS] 149. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector) (vector) 2 0 0 0 0) v) .......... [PASS] 150. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector) (vector 9 6 3 0) 2 0 0 1 2) v) .......... [PASS] 151. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector 9 7 5 3 1) (vector) 2 2 4 0 0) v) .......... [PASS] 152. (let ((v (make-vector 12 #f))) (vector-merge! > v (vector 9 7 5 3 1) (vector 9 6 3 0) 2 2 4 1 2) v) .......... [PASS] 153. (list-delete-neighbor-dups char=? (list)) .......... [PASS] 154. (list-delete-neighbor-dups char=? (list #\a)) .......... [PASS] 155. (list-delete-neighbor-dups char=? (list #\a #\a #\a #\b #\b #\a)) .......... [PASS] 156. (list-delete-neighbor-dups! char=? (list)) .......... [PASS] 157. (list-delete-neighbor-dups! char=? (list #\a)) .......... [PASS] 158. (list-delete-neighbor-dups! char=? (list #\a #\a #\a #\b #\b #\a)) .......... [PASS] 159. (let ((v (vector))) (vector-delete-neighbor-dups char=? v)) .......... [PASS] 160. (let ((v (vector #\a))) (vector-delete-neighbor-dups char=? v)) .......... [PASS] 161. (let ((v (vector #\a #\a #\a #\b #\b #\a))) (vector-delete-neighbor-dups char=? v)) .......... [PASS] 162. (let ((v (vector))) (list (vector-delete-neighbor-dups! char=? v) v)) .......... [PASS] 163. (let ((v (vector #\a))) (list (vector-delete-neighbor-dups! char=? v) v)) .......... [PASS] 164. (let ((v (vector #\a #\a #\a #\b #\b #\a))) (list (vector-delete-neighbor-dups! char=? v) v)) .......... [PASS] 165. (let ((v (vector))) (vector-delete-neighbor-dups char=? v 0)) .......... [PASS] 166. (let ((v (vector #\a))) (vector-delete-neighbor-dups char=? v 0)) .......... [PASS] 167. (let ((v (vector #\a #\a #\a #\b #\b #\a))) (vector-delete-neighbor-dups char=? v 0)) .......... [PASS] 168. (let ((v (vector))) (list (vector-delete-neighbor-dups! char=? v 0) v)) .......... [PASS] 169. (let ((v (vector #\a))) (list (vector-delete-neighbor-dups! char=? v 0) v)) .......... [PASS] 170. (let ((v (vector #\a #\a #\a #\b #\b #\a))) (list (vector-delete-neighbor-dups! char=? v 0) v)) .......... [PASS] 171. (let ((v (vector))) (vector-delete-neighbor-dups char=? v 0)) .......... [PASS] 172. (let ((v (vector #\a))) (vector-delete-neighbor-dups char=? v 1)) .......... [PASS] 173. (let ((v (vector #\a #\a #\a #\b #\b #\a))) (vector-delete-neighbor-dups char=? v 3)) .......... [PASS] 174. (let ((v (vector))) (list (vector-delete-neighbor-dups! char=? v 0) v)) .......... [PASS] 175. (let ((v (vector #\a))) (list (vector-delete-neighbor-dups! char=? v 1) v)) .......... [PASS] 176. (let ((v (vector #\a #\a #\a #\b #\b #\a))) (list (vector-delete-neighbor-dups! char=? v 3) v)) .......... [PASS] 177. (let ((v (vector))) (vector-delete-neighbor-dups char=? v 0 0)) .......... [PASS] 178. (let ((v (vector #\a))) (vector-delete-neighbor-dups char=? v 1 1)) .......... [PASS] 179. (let ((v (vector #\a #\a #\a #\b #\b #\a))) (vector-delete-neighbor-dups char=? v 3 5)) .......... [PASS] 180. (let ((v (vector))) (list (vector-delete-neighbor-dups! char=? v 0 0) v)) .......... [PASS] 181. (let ((v (vector #\a))) (list (vector-delete-neighbor-dups! char=? v 0 1) v)) .......... [PASS] 182. (let ((v (vector #\a))) (list (vector-delete-neighbor-dups! char=? v 1 1) v)) .......... [PASS] 183. (let ((v (vector #\a #\a #\a #\b #\b #\a))) (list (vector-delete-neighbor-dups! char=? v 3 5) v)) .......... [PASS] 184. (cons (vector-delete-neighbor-dups! = v 3) v) .......... [PASS] 185. (vector-find-median < (vector) "knil") .......... [PASS] 186. (vector-find-median < (vector 17) "knil") .......... [PASS] 187. (vector-find-median < (vector 18 1 12 14 12 5 18 2) "knil") .......... [PASS] 188. (vector-find-median < (vector 18 1 12 14 12 5 18 2) "knil" list) .......... [PASS] 189. (vector-find-median < (vector 18 1 11 14 12 5 18 2) "knil" list) .......... [PASS] 190. (vector-find-median < (vector 7 6 9 3 1 18 15 7 8) "knil") .......... [PASS] 191. (vector-find-median < (vector 7 6 9 3 1 18 15 7 8) "knil" list) .......... [PASS] 192. (let ((v (vector 19))) (vector-select! < v 0)) .......... [PASS] 193. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 0)) .......... [PASS] 194. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 2)) .......... [PASS] 195. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 8)) .......... [PASS] 196. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 9)) .......... [PASS] 197. (let ((v (vector 19))) (vector-select! < v 0 0)) .......... [PASS] 198. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 0 0)) .......... [PASS] 199. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 2 0)) .......... [PASS] 200. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 8 0)) .......... [PASS] 201. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 9 0)) .......... [PASS] 202. (let ((v (vector 19))) (vector-select! < v 0 0 1)) .......... [PASS] 203. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 0 0 10)) .......... [PASS] 204. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 2 0 10)) .......... [PASS] 205. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 8 0 10)) .......... [PASS] 206. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 9 0 10)) .......... [PASS] 207. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 0 4 10)) .......... [PASS] 208. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 2 4 10)) .......... [PASS] 209. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 4 4 10)) .......... [PASS] 210. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 5 4 10)) .......... [PASS] 211. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 0 4 10)) .......... [PASS] 212. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 2 4 10)) .......... [PASS] 213. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 3 4 10)) .......... [PASS] 214. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 4 4 10)) .......... [PASS] 215. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 5 4 10)) .......... [PASS] 216. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 0 4 8)) .......... [PASS] 217. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 1 4 8)) .......... [PASS] 218. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 2 4 8)) .......... [PASS] 219. (let ((v (vector 8 22 19 19 13 9 21 13 3 23))) (vector-select! < v 3 4 8)) .......... [PASS] 220. (vector-find-median < (quote #(18.0 11.0 20.0 15.0 16.0 9.0 24.0 15.0 21.0 20.0)) 0) .......... [PASS] 220 out of 220 passed (100.00%) ------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 128: ./skint test/srfi/128.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 130: ./skint test/srfi/130.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 131: ./skint test/srfi/131.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 132: ./skint test/srfi/132.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 133: ./skint test/srfi/133.scm ---------------1. (vector 0 1 2 3 4) .......... [PASS] 2. (vector-unfold (lambda (i x) (values x (- x 1))) 10 0) .......... [PASS] 3. (vector-unfold values 7) .......... [PASS] 4. (vector-unfold-right (lambda (i x) (values (cons i x) (+ x 1))) 5 0) .......... [PASS] 5. (vector-copy a2i) .......... [PASS] 6. (not (not (eqv? a2i (vector-copy a2i)))) .......... [PASS] 7. (vector-copy a2i 6) .......... [PASS] 8. (vector-copy a2i 3 6) .......... [PASS] 9. (vector-reverse-copy (quote #(5 4 3 2 1 0)) 1 5) .......... [PASS] 10. (vector-append (quote #(x)) (quote #(y))) .......... [PASS] 11. (vector-append (quote #(a)) (quote #(b c d))) .......... [PASS] 12. (vector-append (quote #(a #(b))) (quote #(#(c)))) .......... [PASS] 13. (vector-concatenate (quote (#(a b) #(c d)))) .......... [PASS] 14. (vector-append-subvectors (quote #(a b c d e)) 0 2 (quote #(f g h i j)) 2 4) .......... [PASS] 15. (vector-empty? (quote #(a))) .......... [PASS] 16. (vector-empty? (quote #(()))) .......... [PASS] 17. (vector-empty? (quote #(#()))) .......... [PASS] 18. (not (vector-empty? (quote #()))) .......... [PASS] 19. (not (vector= eq? (quote #(a b c d)) (quote #(a b c d)))) .......... [PASS] 20. (vector= eq? (quote #(a b c d)) (quote #(a b d c))) .......... [PASS] 21. (vector= = (quote #(1 2 3 4 5)) (quote #(1 2 3 4))) .......... [PASS] 22. (not (vector= eq?)) .......... [PASS] 23. (not (vector= eq? (quote #(a)))) .......... [PASS] 24. (vector= eq? (vector (vector (quote a))) (vector (vector (quote a)))) .......... [PASS] 25. (not (vector= equal? (vector (vector (quote a))) (vector (vector (quote a))))) .......... [PASS] 26. (vector-fold (lambda (len str) (max (string-length str) len)) 0 vos) .......... [PASS] 27. (vector-fold (lambda (tail elt) (cons elt tail)) (quote ()) vec) .......... [PASS] 28. (vector-fold (lambda (ctr n) (if (even? n) (+ ctr 1) ctr)) 0 vec) .......... [PASS] 29. (vector-fold-right (lambda (tail elt) (cons elt tail)) (quote ()) (quote #(a b c d))) .......... [PASS] 30. (vector-map sqr (quote #(1 2 3 4))) .......... [PASS] 31. (vector-map * (quote #(1 2 3 4 5)) (quote #(5 4 3 2 1))) .......... [PASS] 32. (vector-copy vec2) .......... [PASS] 33. (vector-copy vec2) .......... [PASS] 34. (cons (car result) (cdr result)) .......... [PASS] 35. (vector-count even? (quote #(3 1 4 1 5 9 2 5 6))) .......... [PASS] 36. (vector-count < (quote #(1 3 6 9)) (quote #(2 4 6 8 10 12))) .......... [PASS] 37. (vector-cumulate + 0 (quote #(3 1 4 1 5 9 2 5 6))) .......... [PASS] 38. (vector-index even? (quote #(3 1 4 1 5 9 6))) .......... [PASS] 39. (vector-index < (quote #(3 1 4 1 5 9 2 5 6)) (quote #(2 7 1 8 2))) .......... [PASS] 40. (vector-index = (quote #(3 1 4 1 5 9 2 5 6)) (quote #(2 7 1 8 2))) .......... [PASS] 41. (vector-index-right odd? (quote #(3 1 4 1 5 9 6))) .......... [PASS] 42. (vector-index-right < (quote #(3 1 4 1 5)) (quote #(2 7 1 8 2))) .......... [PASS] 43. (vector-skip number? (quote #(1 2 a b 3 4 c d))) .......... [PASS] 44. (vector-skip = (quote #(1 2 3 4 5)) (quote #(1 2 -3 4))) .......... [PASS] 45. (vector-skip-right number? (quote #(1 2 a b 3 4 c d))) .......... [PASS] 46. (vector-skip-right = (quote #(1 2 3 4 5)) (quote #(1 2 -3 -4 5))) .......... [PASS] 47. (vector-binary-search v 0 cmp) .......... [PASS] 48. (vector-binary-search v 6 cmp) .......... [PASS] 49. (vector-binary-search v 1 cmp) .......... [PASS] 50. (not (vector-any number? (quote #(1 2 x y z)))) .......... [PASS] 51. (not (vector-any < (quote #(1 2 3 4 5)) (quote #(2 1 3 4 5)))) .......... [PASS] 52. (vector-any number? (quote #(a b c d e))) .......... [PASS] 53. (vector-any > (quote #(1 2 3 4 5)) (quote #(1 2 3 4 5))) .......... [PASS] 54. (vector-every number? (quote #(1 2 x y z))) .......... [PASS] 55. (not (vector-every number? (quote #(1 2 3 4 5)))) .......... [PASS] 56. (vector-every < (quote #(1 2 3)) (quote #(2 3 3))) .......... [PASS] 57. (not (vector-every < (quote #(1 2 3)) (quote #(2 3 4)))) .......... [PASS] 58. (vector-any (lambda (x) (if (number? x) (quote yes) #f)) (quote #(1 2 x y z))) .......... [PASS] 59. (vector-copy new) .......... [PASS] 60. (+ off 0) .......... [PASS] 61. (vector-copy vs) .......... [PASS] 62. (vector-copy vf0) .......... [PASS] 63. (vector-copy vf1) .......... [PASS] 64. (vector-copy vf2) .......... [PASS] 65. (vector-copy vr0) .......... [PASS] 66. (vector-copy vr1) .......... [PASS] 67. (vector-copy vr2) .......... [PASS] 68. (vector-copy vc0) .......... [PASS] 69. (vector-copy vc1) .......... [PASS] 70. (vector-copy vc2) .......... [PASS] 71. (vector-copy vrc0) .......... [PASS] 72. (vector-copy vrc1) .......... [PASS] 73. (vector-copy vrc2) .......... [PASS] 74. (vector-copy vu0) .......... [PASS] 75. (vector-copy vu1) .......... [PASS] 76. (vector-copy vu2) .......... [PASS] 77. (vector-copy vur0) .......... [PASS] 78. (vector-copy vur1) .......... [PASS] 79. (vector-copy vur2) .......... [PASS] 80. (vector->list (quote #(1 2 3))) .......... [PASS] 81. (vector->list (quote #(1 2 3)) 1) .......... [PASS] 82. (vector->list (quote #(1 2 3)) 0 2) .......... [PASS] 83. (list->vector (quote (1 2 3))) .......... [PASS] 84. (reverse-vector->list (quote #(1 2 3))) .......... [PASS] 85. (reverse-vector->list (quote #(1 2 3)) 1) .......... [PASS] 86. (reverse-vector->list (quote #(1 2 3)) 0 2) .......... [PASS] 87. (reverse-list->vector (quote (1 2 3))) .......... [PASS] 88. (vector->string (quote #(#\a #\b #\c))) .......... [PASS] 89. (vector->string (quote #(#\a #\b #\c)) 1) .......... [PASS] 90. (vector->string (quote #(#\a #\b #\c)) 0 2) .......... [PASS] 91. (string->vector "abc") .......... [PASS] 92. (string->vector "abc" 1) .......... [PASS] 93. (string->vector "abc" 0 2) .......... [PASS] 93 out of 93 passed (100.00%) 1. (ideque->list (ideque)) .......... [PASS] 2. (ideque->list (list->ideque (quote ()))) .......... [PASS] 3. (ideque->list (ideque 1 2 3)) .......... [PASS] 4. (ideque->list (list->ideque (quote (4 5 6 7)))) .......... [PASS] 5. (ideque->list (ideque-unfold zero? values (lambda (n) (- n 1)) 10)) .......... [PASS] 6. (ideque->list (ideque-unfold-right zero? values (lambda (n) (- n 1)) 10)) .......... [PASS] 7. (ideque->list (ideque-tabulate 6 (lambda (n) (* n 2)))) .......... [PASS] 8. (ideque->list (ideque-unfold (lambda (n) #t) values (lambda (n) (+ n 1)) 0)) .......... [PASS] 9. (ideque->list (ideque-unfold-right (lambda (n) #t) values (lambda (n) (+ n 1)) 0)) .......... [PASS] 10. (ideque->list (ideque-tabulate 0 values)) .......... [PASS] 11. (not (ideque? (ideque))) .......... [PASS] 12. (not (not (ideque? 1))) .......... [PASS] 13. (not (ideque-empty? (ideque))) .......... [PASS] 14. (not (not (ideque-empty? (ideque 1)))) .......... [PASS] 15. (not (ideque= eq?)) .......... [PASS] 16. (not (ideque= eq? (ideque 1))) .......... [PASS] 17. (not (ideque= char-ci=? (ideque #\a #\b) (ideque #\A #\B))) .......... [PASS] 18. (not (ideque= char-ci=? (ideque) (ideque))) .......... [PASS] 19. (not (not (ideque= char-ci=? (ideque #\a #\b) (ideque #\A #\B #\c)))) .......... [PASS] 20. (not (not (ideque= char-ci=? (ideque #\a #\b) (ideque #\A)))) .......... [PASS] 21. (not (ideque= char-ci=? (ideque) (ideque) (ideque))) .......... [PASS] 22. (not (ideque= char-ci=? (ideque #\a #\b) (ideque #\A #\B) (ideque #\a #\B))) .......... [PASS] 23. (not (not (ideque= char-ci=? (ideque #\a #\b) (ideque #\A) (ideque #\a #\B)))) .......... [PASS] 24. (not (not (ideque= char-ci=? (ideque #\a #\b) (ideque #\A #\B) (ideque #\A #\B #\c)))) .......... [PASS] 25. (quote (ideque-front (ideque))) .......... [PASS] 26. (quote (ideque-back (ideque))) .......... [PASS] 27. (ideque-front (ideque 1 2 3)) .......... [PASS] 28. (ideque-back (ideque 1 2 3)) .......... [PASS] 29. (ideque-front (ideque-remove-front (ideque 1 2 3))) .......... [PASS] 30. (ideque-back (ideque-remove-back (ideque 1 2 3))) .......... [PASS] 31. (ideque-front (ideque-remove-back (ideque 1 2 3))) .......... [PASS] 32. (ideque-back (ideque-remove-front (ideque 1 2 3))) .......... [PASS] 33. (not (ideque-empty? (ideque-remove-front (ideque 1)))) .......... [PASS] 34. (not (ideque-empty? (ideque-remove-back (ideque 1)))) .......... [PASS] 35. (ideque-front (ideque-add-front (ideque 1 2 3) 0)) .......... [PASS] 36. (ideque-back (ideque-add-back (ideque 1 2 3) 0)) .......... [PASS] 37. (receive xs (ideque-op dq i) (map ideque->list xs)) .......... [PASS] 38. (receive xs (ideque-op dq i) (map ideque->list xs)) .......... [PASS] 39. (receive xs (ideque-op dq i) (map ideque->list xs)) .......... [PASS] 40. (receive xs (ideque-op dq i) (map ideque->list xs)) .......... [PASS] 41. (receive xs (ideque-op dq i) (map ideque->list xs)) .......... [PASS] 42. (receive xs (ideque-op dq i) (map ideque->list xs)) .......... [PASS] 43. (receive xs (ideque-op dq i) (map ideque->list xs)) .......... [PASS] 44. (receive xs (ideque-op dq i) (map ideque->list xs)) .......... [PASS] 45. (receive xs (ideque-op dq i) (map ideque->list xs)) .......... [PASS] 46. (receive xs (ideque-op dq i) (map ideque->list xs)) .......... [PASS] 47. (receive xs (ideque-op dq i) (map ideque->list xs)) .......... [PASS] 48. (receive xs (ideque-op dq i) (map ideque->list xs)) .......... [PASS] 49. (receive xs (ideque-op dq i) (map ideque->list xs)) .......... [PASS] 50. (receive xs (ideque-op dq i) (map ideque->list xs)) .......... [PASS] 51. (receive xs (ideque-op dq i) (map ideque->list xs)) .......... [PASS] 52. (receive xs (ideque-op dq i) (map ideque->list xs)) .......... [PASS] 53. (receive xs (ideque-op dq i) (map ideque->list xs)) .......... [PASS] 54. (receive xs (ideque-op dq i) (map ideque->list xs)) .......... [PASS] 55. (receive xs (ideque-op dq i) (map ideque->list xs)) .......... [PASS] 56. (receive xs (ideque-op dq i) (map ideque->list xs)) .......... [PASS] 57. (receive xs (ideque-op dq i) (map ideque->list xs)) .......... [PASS] 58. (quote (ideque->list (ideque-take (ideque 1 2 3 4 5 6 7) 10))) .......... [PASS] 59. (quote (ideque->list (ideque-take-right (ideque 1 2 3 4 5 6 7) 10))) .......... [PASS] 60. (quote (ideque-split-at (ideque 1 2 3 4 5 6 7) 10)) .......... [PASS] 61. (map (lambda (n) (ideque-ref (ideque 3 2 1) n)) (quote (0 1 2))) .......... [PASS] 62. (quote (ideque-ref (ideque 3 2 1) -1)) .......... [PASS] 63. (quote (ideque-ref (ideque 3 2 1) 3)) .......... [PASS] 64. (ideque-length (ideque 1 2 3 4 5 6 7)) .......... [PASS] 65. (ideque-length (ideque)) .......... [PASS] 66. (ideque->list (ideque-append)) .......... [PASS] 67. (ideque->list (ideque-append (ideque) (ideque))) .......... [PASS] 68. (ideque->list (ideque-append (ideque 1 2 3) (ideque (quote a) (quote b) (quote c) (quote d)) (ideque) (ideque 5 6 7 8 9))) .......... [PASS] 69. (ideque->list (ideque-reverse (ideque))) .......... [PASS] 70. (ideque->list (ideque-reverse (ideque 1 2 3 4 5))) .......... [PASS] 71. (ideque-count odd? (ideque)) .......... [PASS] 72. (ideque-count odd? (ideque 1 2 3 4 5)) .......... [PASS] 73. (ideque->list (ideque-zip (ideque 1 2 3) (ideque (quote a) (quote b) (quote c) (quote d) (quote e)))) .......... [PASS] 74. (ideque->list (ideque-zip (ideque 1 2 3 4 5) (ideque (quote a) (quote b) (quote c) (quote d) (quote e)) (ideque (quote x) (quote y) (quote z)))) .......... [PASS] 75. (ideque->list (ideque-zip (ideque 1 2 3))) .......... [PASS] 76. (ideque->list (ideque-zip (ideque 1 2 3) (ideque))) .......... [PASS] 77. (not (ideque-empty? (ideque-map list (ideque)))) .......... [PASS] 78. (ideque->list (ideque-map - (ideque 1 2 3 4 5))) .......... [PASS] 79. (ideque->list (ideque-filter-map (lambda (x) (and (number? x) (- x))) (ideque 1 3 (quote a) -5 8))) .......... [PASS] 80. (let ((r (quote ()))) (ideque-for-each (lambda (n) (set! r (cons n r))) (ideque 1 2 3 4 5)) r) .......... [PASS] 81. (let ((r (quote ()))) (ideque-for-each-right (lambda (n) (set! r (cons n r))) (ideque 1 2 3 4 5)) r) .......... [PASS] 82. (ideque-fold cons (quote z) (ideque 1 2 3 4 5)) .......... [PASS] 83. (ideque-fold-right cons (quote z) (ideque 1 2 3 4 5)) .......... [PASS] 84. (ideque->list (ideque-append-map (lambda (x) (list x x)) (ideque (quote a) (quote b) (quote c)))) .......... [PASS] 85. (ideque->list (ideque-filter odd? (ideque 1 2 3 4 5))) .......... [PASS] 86. (ideque->list (ideque-remove odd? (ideque 1 2 3 4 5))) .......... [PASS] 87. (receive xs (ideque-partition odd? (ideque 1 2 3 4 5)) (map ideque->list xs)) .......... [PASS] 88. (ideque-find number? (ideque (quote a) 3 (quote b) (quote c) 4 (quote d)) (lambda () (quote boo))) .......... [PASS] 89. (ideque-find number? (ideque (quote a) (quote b) (quote c) (quote d)) (lambda () (quote boo))) .......... [PASS] 90. (ideque-find number? (ideque (quote a) (quote b) (quote c) (quote d))) .......... [PASS] 91. (ideque-find-right number? (ideque (quote a) 3 (quote b) (quote c) 4 (quote d)) (lambda () (quote boo))) .......... [PASS] 92. (ideque-find-right number? (ideque (quote a) (quote b) (quote c) (quote d)) (lambda () (quote boo))) .......... [PASS] 93. (ideque-find-right number? (ideque (quote a) (quote b) (quote c) (quote d))) .......... [PASS] 94. (ideque->list (ideque-take-while (lambda (n) (< n 5)) (ideque 1 3 2 5 8 4 6 3 4 2))) .......... [PASS] 95. (ideque->list (ideque-drop-while (lambda (n) (< n 5)) (ideque 1 3 2 5 8 4 6 3 4 2))) .......... [PASS] 96. (ideque->list (ideque-take-while-right (lambda (n) (< n 5)) (ideque 1 3 2 5 8 4 6 3 4 2))) .......... [PASS] 97. (ideque->list (ideque-drop-while-right (lambda (n) (< n 5)) (ideque 1 3 2 5 8 4 6 3 4 2))) .......... [PASS] 98. (ideque->list (ideque-take-while (lambda (n) (< n 5)) (ideque 5 8 4 6 3 4 2 9))) .......... [PASS] 99. (ideque->list (ideque-drop-while (lambda (n) (< n 5)) (ideque 1 4 3 2 3 4 2 1))) .......... [PASS] 100. (ideque->list (ideque-take-while-right (lambda (n) (< n 5)) (ideque 5 8 4 6 3 4 2 9))) .......... [PASS] 101. (ideque->list (ideque-drop-while-right (lambda (n) (< n 5)) (ideque 1 3 2 4 3 2 3 2))) .......... [PASS] 102. (receive xs (ideque-span (lambda (n) (< n 5)) (ideque 1 3 2 5 8 4 6 3 4 2)) (map ideque->list xs)) .......... [PASS] 103. (receive xs (ideque-break (lambda (n) (< n 5)) (ideque 5 8 4 6 3 4 2 9)) (map ideque->list xs)) .......... [PASS] 104. (ideque-any (lambda (x) (and (number? x) x)) (ideque (quote a) 3 (quote b) (quote c) 4 (quote d) (quote e))) .......... [PASS] 105. (ideque-any (lambda (x) (and (number? x) x)) (ideque (quote a) (quote b) (quote c) (quote d) (quote e) 5)) .......... [PASS] 106. (ideque-any (lambda (x) (and (number? x) x)) (ideque (quote a) (quote b) (quote c) (quote d) (quote e))) .......... [PASS] 107. (ideque-every (lambda (x) (and (number? x) x)) (ideque 1 5 3 2 9)) .......... [PASS] 108. (ideque-every (lambda (x) (and (number? x) x)) (ideque 1 5 (quote a) 2 9)) .......... [PASS] 109. (ideque-any (lambda (x) (and (odd? x) x)) (ideque 2 1 (quote a) (quote b) (quote c) (quote d))) .......... [PASS] 110. (ideque-every (lambda (x) (and (odd? x) x)) (ideque 1 2 (quote a) (quote b) (quote c) (quote d))) .......... [PASS] 111. (ideque->list (generator->ideque (ideque->generator (ideque 1 2 3)))) .......... [PASS] 112. (ideque->list (generator->ideque (ideque->generator (ideque)))) .......... [PASS] 113. (ideque->list (generator->ideque (generator 1 2 3))) .......... [PASS] 114. (ideque->list (generator->ideque (generator))) .......... [PASS] 114 out of 114 passed (100.00%) 1. (not (text? (text))) .......... [PASS] 2. (not (not (text? (string)))) .......... [PASS] 3. (text? #\a) .......... [PASS] 4. (not (textual? (text))) .......... [PASS] 5. (not (textual? (string))) .......... [PASS] 6. (textual? #\a) .......... [PASS] 7. (not (textual-null? (text))) .......... [PASS] 8. (textual-null? ABC) .......... [PASS] 9. (not (textual-every (lambda (c) (if (char? c) c #f)) (text))) .......... [PASS] 10. (textual-every (lambda (c) (if (char? c) c #f)) (as-text "abc")) .......... [PASS] 11. (textual-every (lambda (c) (if (char>? c #\b) c #f)) (as-text "abc")) .......... [PASS] 12. (textual-every (lambda (c) (if (char>? c #\b) c #f)) (as-text "abc") 2) .......... [PASS] 13. (not (textual-every (lambda (c) (if (char>? c #\b) c #f)) (as-text "abc") 1 1)) .......... [PASS] 14. (textual-any (lambda (c) (if (char? c) c #f)) (text)) .......... [PASS] 15. (textual-any (lambda (c) (if (char? c) c #f)) (as-text "abc")) .......... [PASS] 16. (textual-any (lambda (c) (if (char>? c #\b) c #f)) (as-text "abc")) .......... [PASS] 17. (textual-any (lambda (c) (if (char>? c #\b) c #f)) (as-text "abc") 2) .......... [PASS] 18. (textual-any (lambda (c) (if (char>? c #\b) c #f)) (as-text "abc") 0 2) .......... [PASS] 19. (not (textual-every (lambda (c) (if (char? c) c #f)) "")) .......... [PASS] 20. (textual-every (lambda (c) (if (char? c) c #f)) "abc") .......... [PASS] 21. (textual-every (lambda (c) (if (char>? c #\b) c #f)) "abc") .......... [PASS] 22. (textual-every (lambda (c) (if (char>? c #\b) c #f)) "abc" 2) .......... [PASS] 23. (not (textual-every (lambda (c) (if (char>? c #\b) c #f)) "abc" 1 1)) .......... [PASS] 24. (textual-any (lambda (c) (if (char? c) c #f)) "") .......... [PASS] 25. (not (textual-any (lambda (c) (if (char? c) c #f)) "abc")) .......... [PASS] 26. (textual-any (lambda (c) (if (char>? c #\b) c #f)) "abc") .......... [PASS] 27. (textual-any (lambda (c) (if (char>? c #\b) c #f)) "abc" 2) .......... [PASS] 28. (textual-any (lambda (c) (if (char>? c #\b) c #f)) "abc" 0 2) .......... [PASS] 29. (result=? "" (text-tabulate (lambda (i) (integer->char (+ i (char->integer #\a)))) 0)) .......... [PASS] 30. (result=? "abc" (text-tabulate (lambda (i) (integer->char (+ i (char->integer #\a)))) 3)) .......... [PASS] 31. (result=? "abc" (let ((p (open-input-string "abc"))) (text-unfold eof-object? values (lambda (x) (read-char p)) (read-char p)))) .......... [PASS] 32. (result=? "" (text-unfold null? car cdr (quote ()))) .......... [PASS] 33. (result=? "abc" (text-unfold null? car cdr (string->list "abc"))) .......... [PASS] 34. (result=? "def" (text-unfold null? car cdr (quote ()) (string->text "def"))) .......... [PASS] 35. (result=? "defabcG" (text-unfold null? car cdr (string->list "abc") (string->text "def") (lambda (x) (if (null? x) (text #\G) "")))) .......... [PASS] 36. (result=? "" (text-unfold-right null? car cdr (quote ()))) .......... [PASS] 37. (result=? "cba" (text-unfold-right null? car cdr (string->list "abc"))) .......... [PASS] 38. (result=? "def" (text-unfold-right null? car cdr (quote ()) (string->text "def"))) .......... [PASS] 39. (result=? "Gcbadef" (text-unfold-right null? car cdr (string->list "abc") (string->text "def") (lambda (x) (if (null? x) (text #\G) "")))) .......... [PASS] 40. (result=? "def" (text-unfold null? car cdr (quote ()) "def")) .......... [PASS] 41. (result=? "defabcG" (text-unfold null? car cdr (string->list "abc") "def" (lambda (x) (if (null? x) "G" "")))) .......... [PASS] 42. (result=? "dabcG" (text-unfold null? car cdr (string->list "abc") #\d (lambda (x) (if (null? x) "G" "")))) .......... [PASS] 43. (result=? (string-append "%=" (make-string 200 #\*) "A B C D E F G H I J K L M " "N O P Q R S T U V W X Y Z " (make-string (* 200 (- (char->integer #\a) (char->integer #\Z) 1)) #\*) "abcdefghijklmnopqrstuvwxyz" " ") (text-unfold (lambda (n) (char>? (integer->char n) #\z)) (lambda (n) (let ((c (integer->char n))) (cond ((char<=? #\a c #\z) c) ((char<=? #\A c #\Z) (text c #\space)) (else (make-string 200 #\*))))) (lambda (n) (+ n 1)) (char->integer #\@) "%=" (lambda (n) #\space))) .......... [PASS] 44. (result=? "def" (text-unfold-right null? car cdr (quote ()) "def")) .......... [PASS] 45. (result=? "Gcbadef" (text-unfold-right null? car cdr (string->list "abc") "def" (lambda (x) (if (null? x) "G" "")))) .......... [PASS] 46. (result=? "Gcbad" (text-unfold-right null? car cdr (string->list "abc") #\d (lambda (x) (if (null? x) "G" "")))) .......... [PASS] 47. (result=? (string-append " " (list->string (reverse (string->list "abcdefghijklmnopqrstuvwxyz"))) (make-string (* 200 (- (char->integer #\a) (char->integer #\Z) 1)) #\*) "Z Y X W V U T S R Q P O N " "M L K J I H G F E D C B A " (make-string 200 #\*) "%=") (text-unfold-right (lambda (n) (char>? (integer->char n) #\z)) (lambda (n) (let ((c (integer->char n))) (cond ((char<=? #\a c #\z) c) ((char<=? #\A c #\Z) (text c #\space)) (else (make-string 200 #\*))))) (lambda (n) (+ n 1)) (char->integer #\@) "%=" (lambda (n) #\space))) .......... [PASS] 48. (result=? " The English alphabet: abcdefghijklmnopqrstuvwxyz " (text-unfold-right (lambda (n) (< n (char->integer #\A))) (lambda (n) (char-downcase (integer->char n))) (lambda (n) (- n 1)) (char->integer #\Z) #\space (lambda (n) " The English alphabet: "))) .......... [PASS] 49. (result=? "str" (textual->text "str")) .......... [PASS] 50. (result=? "str" (textual->text (text #\s #\t #\r))) .......... [PASS] 51. (result=? "str" (textual->text "str" "not a textual")) .......... [PASS] 52. (result=? "str" (textual->text (text #\s #\t #\r) "bad textual")) .......... [PASS] 53. (textual->string (text)) .......... [PASS] 54. (textual->string (text) 0) .......... [PASS] 55. (textual->string (text) 0 0) .......... [PASS] 56. (textual->string (text #\a #\b #\c)) .......... [PASS] 57. (textual->string (text #\a #\b #\c) 3) .......... [PASS] 58. (textual->string (text #\a #\b #\c) 1 3) .......... [PASS] 59. (textual->string "") .......... [PASS] 60. (textual->string "" 0) .......... [PASS] 61. (textual->string "" 0 0) .......... [PASS] 62. (textual->string "abc") .......... [PASS] 63. (textual->string "abc" 3) .......... [PASS] 64. (textual->string "abc" 1 3) .......... [PASS] 65. (textual->vector (text)) .......... [PASS] 66. (textual->vector (text) 0) .......... [PASS] 67. (textual->vector (text) 0 0) .......... [PASS] 68. (textual->vector (text #\a #\b #\c)) .......... [PASS] 69. (textual->vector (text #\a #\b #\c) 3) .......... [PASS] 70. (textual->vector (text #\a #\b #\c) 1 3) .......... [PASS] 71. (textual->vector "") .......... [PASS] 72. (textual->vector "" 0) .......... [PASS] 73. (textual->vector "" 0 0) .......... [PASS] 74. (textual->vector "abc") .......... [PASS] 75. (textual->vector "abc" 3) .......... [PASS] 76. (textual->vector "abc" 1 3) .......... [PASS] 77. (textual->list (text)) .......... [PASS] 78. (textual->list (text) 0) .......... [PASS] 79. (textual->list (text) 0 0) .......... [PASS] 80. (textual->list (text #\a #\b #\c)) .......... [PASS] 81. (textual->list (text #\a #\b #\c) 3) .......... [PASS] 82. (textual->list (text #\a #\b #\c) 1 3) .......... [PASS] 83. (textual->list "") .......... [PASS] 84. (textual->list "" 0) .......... [PASS] 85. (textual->list "" 0 0) .......... [PASS] 86. (textual->list "abc") .......... [PASS] 87. (textual->list "abc" 3) .......... [PASS] 88. (textual->list "abc" 1 3) .......... [PASS] 89. (result=? "" (string->text "")) .......... [PASS] 90. (result=? "" (string->text "" 0)) .......... [PASS] 91. (result=? "" (string->text "" 0 0)) .......... [PASS] 92. (result=? "abc" (string->text "abc")) .......... [PASS] 93. (result=? "bc" (string->text "abc" 1)) .......... [PASS] 94. (result=? "" (string->text "abc" 3)) .......... [PASS] 95. (result=? "b" (string->text "abc" 1 2)) .......... [PASS] 96. (result=? "bc" (string->text "abc" 1 3)) .......... [PASS] 97. (result=? "" (vector->text (quote #()))) .......... [PASS] 98. (result=? "" (vector->text (quote #()) 0)) .......... [PASS] 99. (result=? "" (vector->text (quote #()) 0 0)) .......... [PASS] 100. (result=? "abc" (vector->text (quote #(#\a #\b #\c)))) .......... [PASS] 101. (result=? "bc" (vector->text (quote #(#\a #\b #\c)) 1)) .......... [PASS] 102. (result=? "" (vector->text (quote #(#\a #\b #\c)) 3)) .......... [PASS] 103. (result=? "b" (vector->text (quote #(#\a #\b #\c)) 1 2)) .......... [PASS] 104. (result=? "bc" (vector->text (quote #(#\a #\b #\c)) 1 3)) .......... [PASS] 105. (result=? "" (list->text (quote ()))) .......... [PASS] 106. (result=? "" (list->text (quote ()) 0)) .......... [PASS] 107. (result=? "" (list->text (quote ()) 0 0)) .......... [PASS] 108. (result=? "abc" (list->text (quote (#\a #\b #\c)))) .......... [PASS] 109. (result=? "bc" (list->text (quote (#\a #\b #\c)) 1)) .......... [PASS] 110. (result=? "" (list->text (quote (#\a #\b #\c)) 3)) .......... [PASS] 111. (result=? "b" (list->text (quote (#\a #\b #\c)) 1 2)) .......... [PASS] 112. (result=? "bc" (list->text (quote (#\a #\b #\c)) 1 3)) .......... [PASS] 113. (result=? "" (reverse-list->text (quote ()))) .......... [PASS] 114. (result=? "cba" (reverse-list->text (quote (#\a #\b #\c)))) .......... [PASS] 115. (textual->utf8 (as-text "abc")) .......... [PASS] 116. (textual->utf8 "abc") .......... [PASS] 117. (textual->utf8 (as-text "xxxabcyyyzzz") 3) .......... [PASS] 118. (textual->utf8 "xxxabcyyyzzz" 3) .......... [PASS] 119. (textual->utf8 (as-text "xxxabcyyyzzz") 3 6) .......... [PASS] 120. (textual->utf8 "xxxabcyyyzzz" 3 6) .......... [PASS] 121. (textual->utf16 (as-text "abc")) .......... [PASS] 122. (textual->utf16 "abc") .......... [PASS] 123. (textual->utf16 (as-text "xxxabcyyyzzz") 3) .......... [PASS] 124. (textual->utf16 "xxxabcyyyzzz" 3) .......... [PASS] 125. (textual->utf16 (as-text "xxxabcyyyzzz") 3 6) .......... [PASS] 126. (textual->utf16 "xxxabcyyyzzz" 3 6) .......... [PASS] 127. (textual->utf16be (as-text "abc")) .......... [PASS] 128. (textual->utf16be "abc") .......... [PASS] 129. (textual->utf16be (as-text "xxxabcyyyzzz") 3) .......... [PASS] 130. (textual->utf16be "xxxabcyyyzzz" 3) .......... [PASS] 131. (textual->utf16be (as-text "xxxabcyyyzzz") 3 6) .......... [PASS] 132. (textual->utf16be "xxxabcyyyzzz" 3 6) .......... [PASS] 133. (textual->utf16le (as-text "abc")) .......... [PASS] 134. (textual->utf16le "abc") .......... [PASS] 135. (textual->utf16le (as-text "xxxabcyyyzzz") 3) .......... [PASS] 136. (textual->utf16le "xxxabcyyyzzz" 3) .......... [PASS] 137. (textual->utf16le (as-text "xxxabcyyyzzz") 3 6) .......... [PASS] 138. (textual->utf16le "xxxabcyyyzzz" 3 6) .......... [PASS] 139. (result=? "abc" (utf8->text (quote #u8(97 98 99)))) .......... [PASS] 140. (result=? "abcyyyzzz" (utf8->text (quote #u8(0 1 2 97 98 99 121 121 121 122 122 122)) 3)) .......... [PASS] 141. (result=? "abc" (utf8->text (quote #u8(41 42 43 97 98 99 100 101 102)) 3 6)) .......... [PASS] 142. (result=? "abc" (utf16->text (quote #u8(254 255 0 97 0 98 0 99)))) .......... [PASS] 143. (result=? "abc" (utf16->text (quote #u8(255 254 97 0 98 0 99 0)))) .......... [PASS] 144. (result=? "abc" (utf16->text (textual->utf16 "abc") 2)) .......... [PASS] 145. (result=? "bcdef" (utf16->text (textual->utf16 "abcdef") 4)) .......... [PASS] 146. (result=? "bcd" (utf16->text (textual->utf16 "abcdef") 4 10)) .......... [PASS] 147. (result=? "abc" (utf16be->text (quote #u8(0 97 0 98 0 99)))) .......... [PASS] 148. (result=? "bc" (utf16be->text (textual->utf16be "abc") 2)) .......... [PASS] 149. (result=? "bcd" (utf16be->text (textual->utf16be "abcdef") 2 8)) .......... [PASS] 150. (result=? "abc" (utf16le->text (quote #u8(97 0 98 0 99 0)))) .......... [PASS] 151. (result=? "bc" (utf16le->text (textual->utf16le "abc") 2)) .......... [PASS] 152. (result=? "bcd" (utf16le->text (textual->utf16le "abcdef") 2 8)) .......... [PASS] 153. (text-length (text)) .......... [PASS] 154. (text-length ABCDEF) .......... [PASS] 155. (text-length (make-text 1234 (text-ref ABC 0))) .......... [PASS] 156. (text-ref (text #\a #\b #\c) 0) .......... [PASS] 157. (text-ref (text #\a #\b #\c) 2) .......... [PASS] 158. (text-ref ABCDEF 3) .......... [PASS] 159. (textual-length (text)) .......... [PASS] 160. (textual-length ABCDEF) .......... [PASS] 161. (textual-length (make-text 1234 (text-ref ABC 0))) .......... [PASS] 162. (textual-ref (text #\a #\b #\c) 0) .......... [PASS] 163. (textual-ref (text #\a #\b #\c) 2) .......... [PASS] 164. (textual-ref ABCDEF 3) .......... [PASS] 165. (result=? "" (subtext (text) 0 0)) .......... [PASS] 166. (result=? "" (subtext (string->text "abcdef") 0 0)) .......... [PASS] 167. (result=? "" (subtext (string->text "abcdef") 4 4)) .......... [PASS] 168. (result=? "" (subtext (string->text "abcdef") 6 6)) .......... [PASS] 169. (result=? "abcd" (subtext (string->text "abcdef") 0 4)) .......... [PASS] 170. (result=? "cde" (subtext (string->text "abcdef") 2 5)) .......... [PASS] 171. (result=? "cdef" (subtext (string->text "abcdef") 2 6)) .......... [PASS] 172. (result=? "abcdef" (subtext (string->text "abcdef") 0 6)) .......... [PASS] 173. (result=? "" (subtextual (text) 0 0)) .......... [PASS] 174. (result=? "" (subtextual (string->text "abcdef") 0 0)) .......... [PASS] 175. (result=? "" (subtextual (string->text "abcdef") 4 4)) .......... [PASS] 176. (result=? "" (subtextual (string->text "abcdef") 6 6)) .......... [PASS] 177. (result=? "abcd" (subtextual (string->text "abcdef") 0 4)) .......... [PASS] 178. (result=? "cde" (subtextual (string->text "abcdef") 2 5)) .......... [PASS] 179. (result=? "cdef" (subtextual (string->text "abcdef") 2 6)) .......... [PASS] 180. (result=? "abcdef" (subtextual (string->text "abcdef") 0 6)) .......... [PASS] 181. (result=? "" (subtextual "" 0 0)) .......... [PASS] 182. (result=? "" (subtextual "abcdef" 0 0)) .......... [PASS] 183. (result=? "" (subtextual "abcdef" 4 4)) .......... [PASS] 184. (result=? "" (subtextual "abcdef" 6 6)) .......... [PASS] 185. (result=? "abcd" (subtextual "abcdef" 0 4)) .......... [PASS] 186. (result=? "cde" (subtextual "abcdef" 2 5)) .......... [PASS] 187. (result=? "cdef" (subtextual "abcdef" 2 6)) .......... [PASS] 188. (result=? "abcdef" (subtextual "abcdef" 0 6)) .......... [PASS] 189. (result=? "" (textual-copy (text))) .......... [PASS] 190. (not (let* ((txt (string->text "abcdef")) (copy (textual-copy txt))) (and (result=? "abcdef" copy) (not (eqv? txt copy))))) .......... [PASS] 191. (result=? "" (textual-copy "")) .......... [PASS] 192. (result=? "abcdef" (textual-copy "abcdef")) .......... [PASS] 193. (result=? "" (textual-copy (text) 0)) .......... [PASS] 194. (result=? "abcdef" (textual-copy (string->text "abcdef") 0)) .......... [PASS] 195. (result=? "ef" (textual-copy (string->text "abcdef") 4)) .......... [PASS] 196. (result=? "" (textual-copy (string->text "abcdef") 6)) .......... [PASS] 197. (result=? "" (textual-copy "" 0)) .......... [PASS] 198. (result=? "abcdef" (textual-copy "abcdef" 0)) .......... [PASS] 199. (result=? "ef" (textual-copy "abcdef" 4)) .......... [PASS] 200. (result=? "" (textual-copy "abcdef" 6)) .......... [PASS] 201. (result=? "" (textual-copy (text) 0 0)) .......... [PASS] 202. (result=? "" (textual-copy (string->text "abcdef") 0 0)) .......... [PASS] 203. (result=? "" (textual-copy (string->text "abcdef") 4 4)) .......... [PASS] 204. (result=? "" (textual-copy (string->text "abcdef") 6 6)) .......... [PASS] 205. (result=? "abcd" (textual-copy (string->text "abcdef") 0 4)) .......... [PASS] 206. (result=? "cde" (textual-copy (string->text "abcdef") 2 5)) .......... [PASS] 207. (result=? "cdef" (textual-copy (string->text "abcdef") 2 6)) .......... [PASS] 208. (result=? "abcdef" (textual-copy (string->text "abcdef") 0 6)) .......... [PASS] 209. (result=? "" (textual-copy "" 0 0)) .......... [PASS] 210. (result=? "" (textual-copy "abcdef" 0 0)) .......... [PASS] 211. (result=? "" (textual-copy "abcdef" 4 4)) .......... [PASS] 212. (result=? "" (textual-copy "abcdef" 6 6)) .......... [PASS] 213. (result=? "abcd" (textual-copy "abcdef" 0 4)) .......... [PASS] 214. (result=? "cde" (textual-copy "abcdef" 2 5)) .......... [PASS] 215. (result=? "cdef" (textual-copy "abcdef" 2 6)) .......... [PASS] 216. (result=? "abcdef" (textual-copy "abcdef" 0 6)) .......... [PASS] 217. (result=? "" (textual-take (text) 0)) .......... [PASS] 218. (result=? "" (textual-take (string->text "abcdef") 0)) .......... [PASS] 219. (result=? "ab" (textual-take (string->text "abcdef") 2)) .......... [PASS] 220. (result=? "" (textual-drop (string->text "") 0)) .......... [PASS] 221. (result=? "abcdef" (textual-drop (string->text "abcdef") 0)) .......... [PASS] 222. (result=? "cdef" (textual-drop (string->text "abcdef") 2)) .......... [PASS] 223. (result=? "" (textual-take-right (text) 0)) .......... [PASS] 224. (result=? "" (textual-take-right (string->text "abcdef") 0)) .......... [PASS] 225. (result=? "ef" (textual-take-right (string->text "abcdef") 2)) .......... [PASS] 226. (result=? "" (textual-drop-right (text) 0)) .......... [PASS] 227. (result=? "abcdef" (textual-drop-right (string->text "abcdef") 0)) .......... [PASS] 228. (result=? "abcd" (textual-drop-right (string->text "abcdef") 2)) .......... [PASS] 229. (result=? "" (textual-take "" 0)) .......... [PASS] 230. (result=? "" (textual-take "abcdef" 0)) .......... [PASS] 231. (result=? "ab" (textual-take "abcdef" 2)) .......... [PASS] 232. (result=? "" (textual-drop "" 0)) .......... [PASS] 233. (result=? "abcdef" (textual-drop "abcdef" 0)) .......... [PASS] 234. (result=? "cdef" (textual-drop "abcdef" 2)) .......... [PASS] 235. (result=? "" (textual-take-right "" 0)) .......... [PASS] 236. (result=? "" (textual-take-right "abcdef" 0)) .......... [PASS] 237. (result=? "ef" (textual-take-right "abcdef" 2)) .......... [PASS] 238. (result=? "" (textual-drop-right "" 0)) .......... [PASS] 239. (result=? "abcdef" (textual-drop-right "abcdef" 0)) .......... [PASS] 240. (result=? "abcd" (textual-drop-right "abcdef" 2)) .......... [PASS] 241. (result=? "" (textual-pad (string->text "") 0)) .......... [PASS] 242. (result=? " " (textual-pad (string->text "") 5)) .......... [PASS] 243. (result=? " 325" (textual-pad (string->text "325") 5)) .......... [PASS] 244. (result=? "71325" (textual-pad (string->text "71325") 5)) .......... [PASS] 245. (result=? "71325" (textual-pad (string->text "8871325") 5)) .......... [PASS] 246. (result=? "" (textual-pad (string->text "") 0 #\*)) .......... [PASS] 247. (result=? "*****" (textual-pad (string->text "") 5 #\*)) .......... [PASS] 248. (result=? "**325" (textual-pad (string->text "325") 5 #\*)) .......... [PASS] 249. (result=? "71325" (textual-pad (string->text "71325") 5 #\*)) .......... [PASS] 250. (result=? "71325" (textual-pad (string->text "8871325") 5 #\*)) .......... [PASS] 251. (result=? "" (textual-pad (string->text "") 0 #\* 0)) .......... [PASS] 252. (result=? "*****" (textual-pad (string->text "") 5 #\* 0)) .......... [PASS] 253. (result=? "**325" (textual-pad (string->text "325") 5 #\* 0)) .......... [PASS] 254. (result=? "71325" (textual-pad (string->text "71325") 5 #\* 0)) .......... [PASS] 255. (result=? "71325" (textual-pad (string->text "8871325") 5 #\* 0)) .......... [PASS] 256. (result=? "***25" (textual-pad (string->text "325") 5 #\* 1)) .......... [PASS] 257. (result=? "*1325" (textual-pad (string->text "71325") 5 #\* 1)) .......... [PASS] 258. (result=? "71325" (textual-pad (string->text "8871325") 5 #\* 1)) .......... [PASS] 259. (result=? "" (textual-pad (string->text "") 0 #\* 0 0)) .......... [PASS] 260. (result=? "*****" (textual-pad (string->text "") 5 #\* 0 0)) .......... [PASS] 261. (result=? "**325" (textual-pad (string->text "325") 5 #\* 0 3)) .......... [PASS] 262. (result=? "**713" (textual-pad (string->text "71325") 5 #\* 0 3)) .......... [PASS] 263. (result=? "**887" (textual-pad (string->text "8871325") 5 #\* 0 3)) .......... [PASS] 264. (result=? "***25" (textual-pad (string->text "325") 5 #\* 1 3)) .......... [PASS] 265. (result=? "**132" (textual-pad (string->text "71325") 5 #\* 1 4)) .......... [PASS] 266. (result=? "*8713" (textual-pad (string->text "8871325") 5 #\* 1 5)) .......... [PASS] 267. (result=? "" (textual-pad-right (string->text "") 0)) .......... [PASS] 268. (result=? " " (textual-pad-right (string->text "") 5)) .......... [PASS] 269. (result=? "325 " (textual-pad-right (string->text "325") 5)) .......... [PASS] 270. (result=? "71325" (textual-pad-right (string->text "71325") 5)) .......... [PASS] 271. (result=? "88713" (textual-pad-right (string->text "8871325") 5)) .......... [PASS] 272. (result=? "" (textual-pad-right (string->text "") 0 #\*)) .......... [PASS] 273. (result=? "*****" (textual-pad-right (string->text "") 5 #\*)) .......... [PASS] 274. (result=? "325**" (textual-pad-right (string->text "325") 5 #\*)) .......... [PASS] 275. (result=? "71325" (textual-pad-right (string->text "71325") 5 #\*)) .......... [PASS] 276. (result=? "88713" (textual-pad-right (string->text "8871325") 5 #\*)) .......... [PASS] 277. (result=? "" (textual-pad-right (string->text "") 0 #\* 0)) .......... [PASS] 278. (result=? "*****" (textual-pad-right (string->text "") 5 #\* 0)) .......... [PASS] 279. (result=? "325**" (textual-pad-right (string->text "325") 5 #\* 0)) .......... [PASS] 280. (result=? "71325" (textual-pad-right (string->text "71325") 5 #\* 0)) .......... [PASS] 281. (result=? "88713" (textual-pad-right (string->text "8871325") 5 #\* 0)) .......... [PASS] 282. (result=? "25***" (textual-pad-right (string->text "325") 5 #\* 1)) .......... [PASS] 283. (result=? "1325*" (textual-pad-right (string->text "71325") 5 #\* 1)) .......... [PASS] 284. (result=? "87132" (textual-pad-right (string->text "8871325") 5 #\* 1)) .......... [PASS] 285. (result=? "" (textual-pad-right (string->text "") 0 #\* 0 0)) .......... [PASS] 286. (result=? "*****" (textual-pad-right (string->text "") 5 #\* 0 0)) .......... [PASS] 287. (result=? "325**" (textual-pad-right (string->text "325") 5 #\* 0 3)) .......... [PASS] 288. (result=? "713**" (textual-pad-right (string->text "71325") 5 #\* 0 3)) .......... [PASS] 289. (result=? "887**" (textual-pad-right (string->text "8871325") 5 #\* 0 3)) .......... [PASS] 290. (result=? "25***" (textual-pad-right (string->text "325") 5 #\* 1 3)) .......... [PASS] 291. (result=? "132**" (textual-pad-right (string->text "71325") 5 #\* 1 4)) .......... [PASS] 292. (result=? "8713*" (textual-pad-right (string->text "8871325") 5 #\* 1 5)) .......... [PASS] 293. (result=? "" (textual-pad "" 0)) .......... [PASS] 294. (result=? " " (textual-pad "" 5)) .......... [PASS] 295. (result=? " 325" (textual-pad "325" 5)) .......... [PASS] 296. (result=? "71325" (textual-pad "71325" 5)) .......... [PASS] 297. (result=? "71325" (textual-pad "8871325" 5)) .......... [PASS] 298. (result=? "" (textual-pad "" 0 #\*)) .......... [PASS] 299. (result=? "*****" (textual-pad "" 5 #\*)) .......... [PASS] 300. (result=? "**325" (textual-pad "325" 5 #\*)) .......... [PASS] 301. (result=? "71325" (textual-pad "71325" 5 #\*)) .......... [PASS] 302. (result=? "71325" (textual-pad "8871325" 5 #\*)) .......... [PASS] 303. (result=? "" (textual-pad "" 0 #\* 0)) .......... [PASS] 304. (result=? "*****" (textual-pad "" 5 #\* 0)) .......... [PASS] 305. (result=? "**325" (textual-pad "325" 5 #\* 0)) .......... [PASS] 306. (result=? "71325" (textual-pad "71325" 5 #\* 0)) .......... [PASS] 307. (result=? "71325" (textual-pad "8871325" 5 #\* 0)) .......... [PASS] 308. (result=? "***25" (textual-pad "325" 5 #\* 1)) .......... [PASS] 309. (result=? "*1325" (textual-pad "71325" 5 #\* 1)) .......... [PASS] 310. (result=? "71325" (textual-pad "8871325" 5 #\* 1)) .......... [PASS] 311. (result=? "" (textual-pad "" 0 #\* 0 0)) .......... [PASS] 312. (result=? "*****" (textual-pad "" 5 #\* 0 0)) .......... [PASS] 313. (result=? "**325" (textual-pad "325" 5 #\* 0 3)) .......... [PASS] 314. (result=? "**713" (textual-pad "71325" 5 #\* 0 3)) .......... [PASS] 315. (result=? "**887" (textual-pad "8871325" 5 #\* 0 3)) .......... [PASS] 316. (result=? "***25" (textual-pad "325" 5 #\* 1 3)) .......... [PASS] 317. (result=? "**132" (textual-pad "71325" 5 #\* 1 4)) .......... [PASS] 318. (result=? "*8713" (textual-pad "8871325" 5 #\* 1 5)) .......... [PASS] 319. (result=? "" (textual-pad-right "" 0)) .......... [PASS] 320. (result=? " " (textual-pad-right "" 5)) .......... [PASS] 321. (result=? "325 " (textual-pad-right "325" 5)) .......... [PASS] 322. (result=? "71325" (textual-pad-right "71325" 5)) .......... [PASS] 323. (result=? "88713" (textual-pad-right "8871325" 5)) .......... [PASS] 324. (result=? "" (textual-pad-right "" 0 #\*)) .......... [PASS] 325. (result=? "*****" (textual-pad-right "" 5 #\*)) .......... [PASS] 326. (result=? "325**" (textual-pad-right "325" 5 #\*)) .......... [PASS] 327. (result=? "71325" (textual-pad-right "71325" 5 #\*)) .......... [PASS] 328. (result=? "88713" (textual-pad-right "8871325" 5 #\*)) .......... [PASS] 329. (result=? "" (textual-pad-right "" 0 #\* 0)) .......... [PASS] 330. (result=? "*****" (textual-pad-right "" 5 #\* 0)) .......... [PASS] 331. (result=? "325**" (textual-pad-right "325" 5 #\* 0)) .......... [PASS] 332. (result=? "71325" (textual-pad-right "71325" 5 #\* 0)) .......... [PASS] 333. (result=? "88713" (textual-pad-right "8871325" 5 #\* 0)) .......... [PASS] 334. (result=? "25***" (textual-pad-right "325" 5 #\* 1)) .......... [PASS] 335. (result=? "1325*" (textual-pad-right "71325" 5 #\* 1)) .......... [PASS] 336. (result=? "87132" (textual-pad-right "8871325" 5 #\* 1)) .......... [PASS] 337. (result=? "" (textual-pad-right "" 0 #\* 0 0)) .......... [PASS] 338. (result=? "*****" (textual-pad-right "" 5 #\* 0 0)) .......... [PASS] 339. (result=? "325**" (textual-pad-right "325" 5 #\* 0 3)) .......... [PASS] 340. (result=? "713**" (textual-pad-right "71325" 5 #\* 0 3)) .......... [PASS] 341. (result=? "887**" (textual-pad-right "8871325" 5 #\* 0 3)) .......... [PASS] 342. (result=? "25***" (textual-pad-right "325" 5 #\* 1 3)) .......... [PASS] 343. (result=? "132**" (textual-pad-right "71325" 5 #\* 1 4)) .......... [PASS] 344. (result=? "8713*" (textual-pad-right "8871325" 5 #\* 1 5)) .......... [PASS] 345. (result=? "" (textual-trim (string->text ""))) .......... [PASS] 346. (result=? "a b c " (textual-trim (string->text " a b c "))) .......... [PASS] 347. (result=? "" (textual-trim (string->text "") char-whitespace?)) .......... [PASS] 348. (result=? "a b c " (textual-trim (string->text " a b c ") char-whitespace?)) .......... [PASS] 349. (result=? "" (textual-trim (string->text " a b c ") char?)) .......... [PASS] 350. (result=? "" (textual-trim (string->text "") char-whitespace? 0)) .......... [PASS] 351. (result=? "a b c " (textual-trim (string->text " a b c ") char-whitespace? 0)) .......... [PASS] 352. (result=? "" (textual-trim (string->text " a b c ") char? 0)) .......... [PASS] 353. (result=? "b c " (textual-trim (string->text " a b c ") char-whitespace? 3)) .......... [PASS] 354. (result=? "" (textual-trim (string->text " a b c ") char? 3)) .......... [PASS] 355. (result=? "" (textual-trim (string->text " a b c ") char? 0 11)) .......... [PASS] 356. (result=? "b c " (textual-trim (string->text " a b c ") char-whitespace? 3 11)) .......... [PASS] 357. (result=? "" (textual-trim (string->text " a b c ") char? 3 11)) .......... [PASS] 358. (result=? "" (textual-trim (string->text " a b c ") char? 0 8)) .......... [PASS] 359. (result=? "b " (textual-trim (string->text " a b c ") char-whitespace? 3 8)) .......... [PASS] 360. (result=? "" (textual-trim (string->text " a b c ") char? 3 8)) .......... [PASS] 361. (result=? "" (textual-trim-right (string->text ""))) .......... [PASS] 362. (result=? " a b c" (textual-trim-right (string->text " a b c "))) .......... [PASS] 363. (result=? "" (textual-trim-right (string->text "") char-whitespace?)) .......... [PASS] 364. (result=? " a b c" (textual-trim-right (string->text " a b c ") char-whitespace?)) .......... [PASS] 365. (result=? "" (textual-trim-right (string->text " a b c ") char?)) .......... [PASS] 366. (result=? "" (textual-trim-right (string->text "") char-whitespace? 0)) .......... [PASS] 367. (result=? " a b c" (textual-trim-right (string->text " a b c ") char-whitespace? 0)) .......... [PASS] 368. (result=? "" (textual-trim-right (string->text " a b c ") char? 0)) .......... [PASS] 369. (result=? " b c" (textual-trim-right (string->text " a b c ") char-whitespace? 3)) .......... [PASS] 370. (result=? "" (textual-trim-right (string->text " a b c ") char? 3)) .......... [PASS] 371. (result=? "" (textual-trim-right (string->text " a b c ") char? 0 11)) .......... [PASS] 372. (result=? " b c" (textual-trim-right (string->text " a b c ") char-whitespace? 3 11)) .......... [PASS] 373. (result=? "" (textual-trim-right (string->text " a b c ") char? 3 11)) .......... [PASS] 374. (result=? "" (textual-trim-right (string->text " a b c ") char? 0 8)) .......... [PASS] 375. (result=? " b" (textual-trim-right (string->text " a b c ") char-whitespace? 3 8)) .......... [PASS] 376. (result=? "" (textual-trim-right (string->text " a b c ") char? 3 8)) .......... [PASS] 377. (result=? "" (textual-trim-both (string->text ""))) .......... [PASS] 378. (result=? "a b c" (textual-trim-both (string->text " a b c "))) .......... [PASS] 379. (result=? "" (textual-trim-both (string->text "") char-whitespace?)) .......... [PASS] 380. (result=? "a b c" (textual-trim-both (string->text " a b c ") char-whitespace?)) .......... [PASS] 381. (result=? "" (textual-trim-both (string->text " a b c ") char?)) .......... [PASS] 382. (result=? "" (textual-trim-both (string->text "") char-whitespace? 0)) .......... [PASS] 383. (result=? "a b c" (textual-trim-both (string->text " a b c ") char-whitespace? 0)) .......... [PASS] 384. (result=? "" (textual-trim-both (string->text " a b c ") char? 0)) .......... [PASS] 385. (result=? "b c" (textual-trim-both (string->text " a b c ") char-whitespace? 3)) .......... [PASS] 386. (result=? "" (textual-trim-both (string->text " a b c ") char? 3)) .......... [PASS] 387. (result=? "" (textual-trim-both (string->text " a b c ") char? 0 11)) .......... [PASS] 388. (result=? "b c" (textual-trim-both (string->text " a b c ") char-whitespace? 3 11)) .......... [PASS] 389. (result=? "" (textual-trim-both (string->text " a b c ") char? 3 11)) .......... [PASS] 390. (result=? "" (textual-trim-both (string->text " a b c ") char? 0 8)) .......... [PASS] 391. (result=? "b" (textual-trim-both (string->text " a b c ") char-whitespace? 3 8)) .......... [PASS] 392. (result=? "" (textual-trim-both (string->text " a b c ") char? 3 8)) .......... [PASS] 393. (result=? "" (textual-trim "")) .......... [PASS] 394. (result=? "a b c " (textual-trim " a b c ")) .......... [PASS] 395. (result=? "" (textual-trim "" char-whitespace?)) .......... [PASS] 396. (result=? "a b c " (textual-trim " a b c " char-whitespace?)) .......... [PASS] 397. (result=? "" (textual-trim " a b c " char?)) .......... [PASS] 398. (result=? "" (textual-trim "" char-whitespace? 0)) .......... [PASS] 399. (result=? "a b c " (textual-trim " a b c " char-whitespace? 0)) .......... [PASS] 400. (result=? "" (textual-trim " a b c " char? 0)) .......... [PASS] 401. (result=? "b c " (textual-trim " a b c " char-whitespace? 3)) .......... [PASS] 402. (result=? "" (textual-trim " a b c " char? 3)) .......... [PASS] 403. (result=? "" (textual-trim " a b c " char? 0 11)) .......... [PASS] 404. (result=? "b c " (textual-trim " a b c " char-whitespace? 3 11)) .......... [PASS] 405. (result=? "" (textual-trim " a b c " char? 3 11)) .......... [PASS] 406. (result=? "" (textual-trim " a b c " char? 0 8)) .......... [PASS] 407. (result=? "b " (textual-trim " a b c " char-whitespace? 3 8)) .......... [PASS] 408. (result=? "" (textual-trim " a b c " char? 3 8)) .......... [PASS] 409. (result=? "" (textual-trim-right "")) .......... [PASS] 410. (result=? " a b c" (textual-trim-right " a b c ")) .......... [PASS] 411. (result=? "" (textual-trim-right "" char-whitespace?)) .......... [PASS] 412. (result=? " a b c" (textual-trim-right " a b c " char-whitespace?)) .......... [PASS] 413. (result=? "" (textual-trim-right " a b c " char?)) .......... [PASS] 414. (result=? "" (textual-trim-right "" char-whitespace? 0)) .......... [PASS] 415. (result=? " a b c" (textual-trim-right " a b c " char-whitespace? 0)) .......... [PASS] 416. (result=? "" (textual-trim-right " a b c " char? 0)) .......... [PASS] 417. (result=? " b c" (textual-trim-right " a b c " char-whitespace? 3)) .......... [PASS] 418. (result=? "" (textual-trim-right " a b c " char? 3)) .......... [PASS] 419. (result=? "" (textual-trim-right " a b c " char? 0 11)) .......... [PASS] 420. (result=? " b c" (textual-trim-right " a b c " char-whitespace? 3 11)) .......... [PASS] 421. (result=? "" (textual-trim-right " a b c " char? 3 11)) .......... [PASS] 422. (result=? "" (textual-trim-right " a b c " char? 0 8)) .......... [PASS] 423. (result=? " b" (textual-trim-right " a b c " char-whitespace? 3 8)) .......... [PASS] 424. (result=? "" (textual-trim-right " a b c " char? 3 8)) .......... [PASS] 425. (result=? "" (textual-trim-both "")) .......... [PASS] 426. (result=? "a b c" (textual-trim-both " a b c ")) .......... [PASS] 427. (result=? "" (textual-trim-both "" char-whitespace?)) .......... [PASS] 428. (result=? "a b c" (textual-trim-both " a b c " char-whitespace?)) .......... [PASS] 429. (result=? "" (textual-trim-both " a b c " char?)) .......... [PASS] 430. (result=? "" (textual-trim-both "" char-whitespace? 0)) .......... [PASS] 431. (result=? "a b c" (textual-trim-both " a b c " char-whitespace? 0)) .......... [PASS] 432. (result=? "" (textual-trim-both " a b c " char? 0)) .......... [PASS] 433. (result=? "b c" (textual-trim-both " a b c " char-whitespace? 3)) .......... [PASS] 434. (result=? "" (textual-trim-both " a b c " char? 3)) .......... [PASS] 435. (result=? "" (textual-trim-both " a b c " char? 0 11)) .......... [PASS] 436. (result=? "b c" (textual-trim-both " a b c " char-whitespace? 3 11)) .......... [PASS] 437. (result=? "" (textual-trim-both " a b c " char? 3 11)) .......... [PASS] 438. (result=? "" (textual-trim-both " a b c " char? 0 8)) .......... [PASS] 439. (result=? "b" (textual-trim-both " a b c " char-whitespace? 3 8)) .......... [PASS] 440. (result=? "" (textual-trim-both " a b c " char? 3 8)) .......... [PASS] 441. (result=? "It's lots of fun to code it up in Scheme." (textual-replace (as-text "It's easy to code it up in Scheme.") (as-text "lots of fun") 5 9)) .......... [PASS] 442. (result=? "The miserable perl programmer endured daily ridicule." (textual-replace "The TCL programmer endured daily ridicule." (as-text "another miserable perl drone") 4 7 8 22)) .......... [PASS] 443. (result=? "It's really easy to code it up in Scheme." (textual-replace (as-text "It's easy to code it up in Scheme.") "really " 5 5)) .......... [PASS] 444. (result=? "Runs in O(1) time." (textual-replace "Runs in O(n) time." (text #\1) 10 11)) .......... [PASS] 445. (textual=? (as-text "Strasse") (as-text "Strasse")) .......... [PASS] 446. (textual=? "Strasse" (as-text "Strasse") "Strasse") .......... [PASS] 447. (textual? (as-text "z") "zz") .......... [PASS] 455. (textual>? "z" (as-text "Z")) .......... [PASS] 456. (textual>=? (as-text "z") "zz") .......... [PASS] 457. (textual>=? "z" "Z") .......... [PASS] 458. (textual>=? (as-text "z") (as-text "z")) .......... [PASS] 459. (textual=? x y z) .......... [PASS] 460. (textual=? x x z) .......... [PASS] 461. (textual=? w x y) .......... [PASS] 462. (textual=? y x w) .......... [PASS] 463. (textual? x y z) .......... [PASS] 468. (textual>? x x z) .......... [PASS] 469. (textual>? w x y) .......... [PASS] 470. (textual>? y x w) .......... [PASS] 471. (textual<=? x y z) .......... [PASS] 472. (textual<=? x x z) .......... [PASS] 473. (textual<=? w x y) .......... [PASS] 474. (textual<=? y x w) .......... [PASS] 475. (textual>=? x y z) .......... [PASS] 476. (textual>=? x x z) .......... [PASS] 477. (textual>=? w x y) .......... [PASS] 478. (textual>=? y x w) .......... [PASS] 479. (textual=? x x) .......... [PASS] 480. (textual=? w x) .......... [PASS] 481. (textual=? y x) .......... [PASS] 482. (textual? x x) .......... [PASS] 486. (textual>? w x) .......... [PASS] 487. (textual>? y x) .......... [PASS] 488. (textual<=? x x) .......... [PASS] 489. (textual<=? w x) .......... [PASS] 490. (textual<=? y x) .......... [PASS] 491. (textual>=? x x) .......... [PASS] 492. (textual>=? w x) .......... [PASS] 493. (textual>=? y x) .......... [PASS] 494. (textual-ci? "a" "Z") .......... [PASS] 501. (textual-ci>? "A" "z") .......... [PASS] 502. (textual-ci>? "Z" "a") .......... [PASS] 503. (textual-ci>? "z" "A") .......... [PASS] 504. (textual-ci>? "z" "Z") .......... [PASS] 505. (textual-ci>? "Z" "z") .......... [PASS] 506. (textual-ci=? "z" "Z") .......... [PASS] 507. (textual-ci=? "z" "a") .......... [PASS] 508. (textual-ci<=? "a" "Z") .......... [PASS] 509. (textual-ci<=? "A" "z") .......... [PASS] 510. (textual-ci<=? "Z" "a") .......... [PASS] 511. (textual-ci<=? "z" "A") .......... [PASS] 512. (textual-ci<=? "z" "Z") .......... [PASS] 513. (textual-ci<=? "Z" "z") .......... [PASS] 514. (textual-ci>=? "a" "Z") .......... [PASS] 515. (textual-ci>=? "A" "z") .......... [PASS] 516. (textual-ci>=? "Z" "a") .......... [PASS] 517. (textual-ci>=? "z" "A") .......... [PASS] 518. (textual-ci>=? "z" "Z") .......... [PASS] 519. (textual-ci>=? "Z" "z") .......... [PASS] 520. (textual-prefix-length ABC ABCDEF) .......... [PASS] 521. (textual-prefix-length ABCDEF ABC) .......... [PASS] 522. (textual-prefix-length ABCDEF DEFABC) .......... [PASS] 523. (textual-prefix-length DEFABC DEFABC) .......... [PASS] 524. (textual-prefix-length (textual->string DEFABC) DEFABC) .......... [PASS] 525. (textual-prefix-length DEFABC (textual->string DEFABC)) .......... [PASS] 526. (textual-prefix-length (textual->string DEFABC) (textual->string DEFABC)) .......... [PASS] 527. (textual-prefix-length (as-text "") (as-text "")) .......... [PASS] 528. (textual-prefix-length (as-text "") (as-text "aabbccddee")) .......... [PASS] 529. (textual-prefix-length (as-text "aisle") (as-text "")) .......... [PASS] 530. (textual-prefix-length (as-text "") (as-text "aabbccddee")) .......... [PASS] 531. (textual-prefix-length (as-text "aisle") (as-text "aabbccddee")) .......... [PASS] 532. (textual-prefix-length (as-text "bail") (as-text "aabbccddee")) .......... [PASS] 533. (textual-prefix-length (as-text "prefix") (as-text "preface")) .......... [PASS] 534. (textual-prefix-length (as-text "") (as-text "") 0) .......... [PASS] 535. (textual-prefix-length (as-text "") (as-text "aabbccddee") 0) .......... [PASS] 536. (textual-prefix-length (as-text "aisle") (as-text "") 0) .......... [PASS] 537. (textual-prefix-length (as-text "aisle") (as-text "aabbccddee") 0) .......... [PASS] 538. (textual-prefix-length (as-text "bail") (as-text "aabbccddee") 0) .......... [PASS] 539. (textual-prefix-length (as-text "prefix") (as-text "preface") 0) .......... [PASS] 540. (textual-prefix-length (as-text "aisle") (as-text "") 1) .......... [PASS] 541. (textual-prefix-length (as-text "aisle") (as-text "aabbccddee") 1) .......... [PASS] 542. (textual-prefix-length (as-text "bail") (as-text "aabbccddee") 1) .......... [PASS] 543. (textual-prefix-length (as-text "prefix") (as-text "preface") 1) .......... [PASS] 544. (textual-prefix-length (as-text "") (as-text "") 0 0) .......... [PASS] 545. (textual-prefix-length (as-text "") (as-text "aabbccddee") 0 0) .......... [PASS] 546. (textual-prefix-length (as-text "aisle") (as-text "") 0 4) .......... [PASS] 547. (textual-prefix-length (as-text "aisle") (as-text "aabbccddee") 0 4) .......... [PASS] 548. (textual-prefix-length (as-text "bail") (as-text "aabbccddee") 0 1) .......... [PASS] 549. (textual-prefix-length (as-text "aisle") (as-text "") 1 4) .......... [PASS] 550. (textual-prefix-length (as-text "aisle") (as-text "aabbccddee") 1 4) .......... [PASS] 551. (textual-prefix-length (as-text "bail") (as-text "aabbccddee") 1 4) .......... [PASS] 552. (textual-prefix-length (as-text "prefix") (as-text "preface") 1 5) .......... [PASS] 553. (textual-prefix-length (as-text "") (as-text "") 0 0 0) .......... [PASS] 554. (textual-prefix-length (as-text "") (as-text "aabbccddee") 0 0 0) .......... [PASS] 555. (textual-prefix-length (as-text "aisle") (as-text "") 0 4 0) .......... [PASS] 556. (textual-prefix-length (as-text "aisle") (as-text "aabbccddee") 0 4 2) .......... [PASS] 557. (textual-prefix-length (as-text "bail") (as-text "aabbccddee") 0 1 2) .......... [PASS] 558. (textual-prefix-length (as-text "prefix") (as-text "preface") 0 5 1) .......... [PASS] 559. (textual-prefix-length (as-text "aisle") (as-text "") 1 4 0) .......... [PASS] 560. (textual-prefix-length (as-text "aisle") (as-text "aabbccddee") 1 4 3) .......... [PASS] 561. (textual-prefix-length (as-text "bail") (as-text "aabbccddee") 1 4 3) .......... [PASS] 562. (textual-prefix-length (as-text "prefix") (as-text "preface") 1 5 1) .......... [PASS] 563. (textual-prefix-length (as-text "") (as-text "") 0 0 0 0) .......... [PASS] 564. (textual-prefix-length (as-text "") (as-text "aabbccddee") 0 0 0 0) .......... [PASS] 565. (textual-prefix-length (as-text "aisle") (as-text "") 0 4 0 0) .......... [PASS] 566. (textual-prefix-length (as-text "aisle") "aabbccddee" 0 4 2 10) .......... [PASS] 567. (textual-prefix-length (as-text "bail") (as-text "aabbccddee") 0 1 2 10) .......... [PASS] 568. (textual-prefix-length (as-text "prefix") (as-text "preface") 0 5 1 6) .......... [PASS] 569. (textual-prefix-length (as-text "aisle") (as-text "") 1 4 0 0) .......... [PASS] 570. (textual-prefix-length (as-text "aisle") (as-text "aabbccddee") 1 4 3 3) .......... [PASS] 571. (textual-prefix-length (as-text "bail") (as-text "aabbccddee") 1 4 3 6) .......... [PASS] 572. (textual-prefix-length (as-text "prefix") (as-text "preface") 1 5 1 7) .......... [PASS] 573. (textual-suffix-length ABC ABCDEF) .......... [PASS] 574. (textual-suffix-length ABCDEF ABC) .......... [PASS] 575. (textual-suffix-length ABCDEF DEFABC) .......... [PASS] 576. (textual-suffix-length DEFABC DEFABC) .......... [PASS] 577. (textual-suffix-length (textual->string DEFABC) DEFABC) .......... [PASS] 578. (textual-suffix-length DEFABC (textual->string DEFABC)) .......... [PASS] 579. (textual-suffix-length (textual->string DEFABC) (textual->string DEFABC)) .......... [PASS] 580. (textual-suffix-length (as-text "") (as-text "")) .......... [PASS] 581. (textual-suffix-length (as-text "") (as-text "aabbccddee")) .......... [PASS] 582. (textual-suffix-length (as-text "aisle") (as-text "")) .......... [PASS] 583. (textual-suffix-length (as-text "") (as-text "aabbccddee")) .......... [PASS] 584. (textual-suffix-length (as-text "aisle") (as-text "aabbccddee")) .......... [PASS] 585. (textual-suffix-length (as-text "bail") (as-text "aabbccddee")) .......... [PASS] 586. (textual-suffix-length (as-text "place") (as-text "preface")) .......... [PASS] 587. (textual-suffix-length (as-text "") (as-text "") 0) .......... [PASS] 588. (textual-suffix-length (as-text "") (as-text "aabbccddee") 0) .......... [PASS] 589. (textual-suffix-length (as-text "aisle") (as-text "") 0) .......... [PASS] 590. (textual-suffix-length (as-text "aisle") (as-text "aabbccddee") 0) .......... [PASS] 591. (textual-suffix-length (as-text "bail") (as-text "aabbccddee") 0) .......... [PASS] 592. (textual-suffix-length (as-text "place") (as-text "preface") 0) .......... [PASS] 593. (textual-suffix-length (as-text "aisle") (as-text "") 1) .......... [PASS] 594. (textual-suffix-length (as-text "aisle") (as-text "aabbccddee") 1) .......... [PASS] 595. (textual-suffix-length (as-text "bail") (as-text "aabbccddee") 1) .......... [PASS] 596. (textual-suffix-length (as-text "place") (as-text "preface") 1) .......... [PASS] 597. (textual-suffix-length (as-text "") (as-text "") 0 0) .......... [PASS] 598. (textual-suffix-length (as-text "") (as-text "aabbccddee") 0 0) .......... [PASS] 599. (textual-suffix-length (as-text "aisle") (as-text "") 0 4) .......... [PASS] 600. (textual-suffix-length (as-text "aisle") (as-text "aabbccddee") 0 4) .......... [PASS] 601. (textual-suffix-length (as-text "bail") (as-text "aabbccddee") 0 1) .......... [PASS] 602. (textual-suffix-length (as-text "aisle") (as-text "") 1 4) .......... [PASS] 603. (textual-suffix-length (as-text "aisle") (as-text "aabbccddee") 1 4) .......... [PASS] 604. (textual-suffix-length (as-text "aisle") (as-text "aabbccddee") 1 5) .......... [PASS] 605. (textual-suffix-length (as-text "bail") (as-text "aabbccddee") 1 4) .......... [PASS] 606. (textual-suffix-length (as-text "place") (as-text "preface") 1 5) .......... [PASS] 607. (textual-suffix-length (as-text "") (as-text "") 0 0 0) .......... [PASS] 608. (textual-suffix-length (as-text "") (as-text "aabbccddee") 0 0 0) .......... [PASS] 609. (textual-suffix-length (as-text "aisle") (as-text "") 0 4 0) .......... [PASS] 610. (textual-suffix-length (as-text "aisle") (as-text "aabbccddee") 0 4 2) .......... [PASS] 611. (textual-suffix-length (as-text "bail") (as-text "aabbccddee") 0 1 2) .......... [PASS] 612. (textual-suffix-length (as-text "place") (as-text "preface") 0 5 1) .......... [PASS] 613. (textual-suffix-length (as-text "aisle") (as-text "") 1 4 0) .......... [PASS] 614. (textual-suffix-length (as-text "aisle") (as-text "aabbccddee") 1 4 3) .......... [PASS] 615. (textual-suffix-length (as-text "bail") (as-text "aabbccddee") 1 4 3) .......... [PASS] 616. (textual-suffix-length (as-text "place") (as-text "preface") 1 5 1) .......... [PASS] 617. (textual-suffix-length (as-text "") (as-text "") 0 0 0 0) .......... [PASS] 618. (textual-suffix-length (as-text "") (as-text "aabbccddee") 0 0 0 0) .......... [PASS] 619. (textual-suffix-length (as-text "aisle") (as-text "") 0 4 0 0) .......... [PASS] 620. (textual-suffix-length "aisle" (as-text "aabbccddee") 0 5 2 10) .......... [PASS] 621. (textual-suffix-length (as-text "bail") (as-text "aabbccddee") 0 1 2 4) .......... [PASS] 622. (textual-suffix-length (as-text "place") (as-text "preface") 0 5 1 6) .......... [PASS] 623. (textual-suffix-length (as-text "place") (as-text "preface") 0 4 1 6) .......... [PASS] 624. (textual-suffix-length (as-text "aisle") (as-text "") 1 4 0 0) .......... [PASS] 625. (textual-suffix-length (as-text "aisle") (as-text "aabbccddee") 1 4 3 3) .......... [PASS] 626. (textual-suffix-length (as-text "bail") (as-text "aabbccddee") 1 4 3 6) .......... [PASS] 627. (textual-suffix-length (as-text "place") (as-text "preface") 1 5 1 7) .......... [PASS] 628. (not (eq? #f (textual-prefix? ABC ABCDEF))) .......... [PASS] 629. (not (eq? #f (textual-prefix? ABCDEF ABC))) .......... [PASS] 630. (not (eq? #f (textual-prefix? ABCDEF DEFABC))) .......... [PASS] 631. (not (eq? #t (textual-prefix? DEFABC DEFABC))) .......... [PASS] 632. (not (eq? #t (textual-prefix? (textual->string DEFABC) DEFABC))) .......... [PASS] 633. (not (eq? #t (textual-prefix? DEFABC (textual->string DEFABC)))) .......... [PASS] 634. (not (eq? #t (textual-prefix? (textual->string DEFABC) (textual->string DEFABC)))) .......... [PASS] 635. (not (eq? #t (textual-prefix? (as-text "") (as-text "")))) .......... [PASS] 636. (not (eq? #t (textual-prefix? (as-text "") (as-text "abc")))) .......... [PASS] 637. (not (eq? #t (textual-prefix? (as-text "a") (as-text "abc")))) .......... [PASS] 638. (not (eq? #f (textual-prefix? (as-text "c") (as-text "abc")))) .......... [PASS] 639. (not (eq? #t (textual-prefix? (as-text "ab") (as-text "abc")))) .......... [PASS] 640. (not (eq? #f (textual-prefix? (as-text "ac") (as-text "abc")))) .......... [PASS] 641. (not (eq? #t (textual-prefix? (as-text "abc") (as-text "abc")))) .......... [PASS] 642. (not (eq? #f (textual-suffix? ABC ABCDEF))) .......... [PASS] 643. (not (eq? #f (textual-suffix? ABCDEF ABC))) .......... [PASS] 644. (not (eq? #f (textual-suffix? ABCDEF DEFABC))) .......... [PASS] 645. (not (eq? #t (textual-suffix? DEFABC DEFABC))) .......... [PASS] 646. (not (eq? #t (textual-suffix? (textual->string DEFABC) DEFABC))) .......... [PASS] 647. (not (eq? #t (textual-suffix? DEFABC (textual->string DEFABC)))) .......... [PASS] 648. (not (eq? #t (textual-suffix? (as-text "") (as-text "")))) .......... [PASS] 649. (not (eq? #t (textual-suffix? (as-text "") (as-text "abc")))) .......... [PASS] 650. (not (eq? #f (textual-suffix? (as-text "a") (as-text "abc")))) .......... [PASS] 651. (not (eq? #t (textual-suffix? (as-text "c") (as-text "abc")))) .......... [PASS] 652. (not (eq? #f (textual-suffix? (as-text "ac") (as-text "abc")))) .......... [PASS] 653. (not (eq? #t (textual-suffix? (as-text "bc") (as-text "abc")))) .......... [PASS] 654. (not (eq? #t (textual-suffix? (as-text "abc") (as-text "abc")))) .......... [PASS] 655. (not (eq? #t (textual-prefix? (as-text "") (as-text "") 0))) .......... [PASS] 656. (not (eq? #t (textual-prefix? (as-text "") (as-text "abc") 0))) .......... [PASS] 657. (not (eq? #t (textual-prefix? (as-text "a") (as-text "abc") 0))) .......... [PASS] 658. (not (eq? #f (textual-prefix? (as-text "c") (as-text "abc") 0))) .......... [PASS] 659. (not (eq? #t (textual-prefix? (as-text "ab") (as-text "abc") 0))) .......... [PASS] 660. (not (eq? #f (textual-prefix? (as-text "ac") (as-text "abc") 0))) .......... [PASS] 661. (not (eq? #t (textual-prefix? (as-text "abc") (as-text "abc") 0))) .......... [PASS] 662. (not (eq? #t (textual-suffix? (as-text "") (as-text "") 0))) .......... [PASS] 663. (not (eq? #t (textual-suffix? (as-text "") (as-text "abc") 0))) .......... [PASS] 664. (not (eq? #f (textual-suffix? (as-text "a") (as-text "abc") 0))) .......... [PASS] 665. (not (eq? #t (textual-suffix? (as-text "c") (as-text "abc") 0))) .......... [PASS] 666. (not (eq? #f (textual-suffix? (as-text "ac") (as-text "abc") 0))) .......... [PASS] 667. (not (eq? #t (textual-suffix? (as-text "bc") (as-text "abc") 0))) .......... [PASS] 668. (not (eq? #t (textual-suffix? (as-text "abc") (as-text "abc") 0))) .......... [PASS] 669. (not (eq? #t (textual-prefix? (as-text "ab") (as-text "abc") 2))) .......... [PASS] 670. (not (eq? #t (textual-prefix? (as-text "ac") (as-text "abc") 2))) .......... [PASS] 671. (not (eq? #f (textual-prefix? (as-text "abc") (as-text "abc") 2))) .......... [PASS] 672. (not (eq? #t (textual-suffix? (as-text "ac") (as-text "abc") 2))) .......... [PASS] 673. (not (eq? #t (textual-suffix? (as-text "bc") (as-text "abc") 2))) .......... [PASS] 674. (not (eq? #t (textual-suffix? (as-text "abc") (as-text "abc") 2))) .......... [PASS] 675. (not (eq? #t (textual-prefix? (as-text "") (as-text "") 0 0))) .......... [PASS] 676. (not (eq? #t (textual-prefix? (as-text "") (as-text "abc") 0 0))) .......... [PASS] 677. (not (eq? #t (textual-prefix? (as-text "a") (as-text "abc") 0 0))) .......... [PASS] 678. (not (eq? #f (textual-prefix? (as-text "c") (as-text "abc") 0 1))) .......... [PASS] 679. (not (eq? #t (textual-prefix? (as-text "ab") (as-text "abc") 0 1))) .......... [PASS] 680. (not (eq? #t (textual-prefix? (as-text "ab") (as-text "abc") 0 2))) .......... [PASS] 681. (not (eq? #f (textual-prefix? (as-text "ac") (as-text "abc") 0 2))) .......... [PASS] 682. (not (eq? #t (textual-prefix? (as-text "abc") (as-text "abc") 0 3))) .......... [PASS] 683. (not (eq? #t (textual-suffix? (as-text "") (as-text "") 0 0))) .......... [PASS] 684. (not (eq? #t (textual-suffix? (as-text "") (as-text "abc") 0 0))) .......... [PASS] 685. (not (eq? #f (textual-suffix? (as-text "a") (as-text "abc") 0 1))) .......... [PASS] 686. (not (eq? #t (textual-suffix? (as-text "c") (as-text "abc") 0 1))) .......... [PASS] 687. (not (eq? #t (textual-suffix? (as-text "ac") (as-text "abc") 1 2))) .......... [PASS] 688. (not (eq? #f (textual-suffix? (as-text "ac") (as-text "abc") 0 2))) .......... [PASS] 689. (not (eq? #t (textual-suffix? (as-text "bc") (as-text "abc") 0 2))) .......... [PASS] 690. (not (eq? #t (textual-suffix? (as-text "abc") (as-text "abc") 0 3))) .......... [PASS] 691. (not (eq? #t (textual-prefix? (as-text "ab") (as-text "abc") 2 2))) .......... [PASS] 692. (not (eq? #t (textual-prefix? (as-text "ac") (as-text "abc") 2 2))) .......... [PASS] 693. (not (eq? #f (textual-prefix? (as-text "abc") (as-text "abc") 2 3))) .......... [PASS] 694. (not (eq? #t (textual-suffix? (as-text "ac") (as-text "abc") 2 2))) .......... [PASS] 695. (not (eq? #t (textual-suffix? (as-text "bc") (as-text "abc") 2 2))) .......... [PASS] 696. (not (eq? #t (textual-suffix? (as-text "abc") (as-text "abc") 2 3))) .......... [PASS] 697. (not (eq? #t (textual-prefix? (as-text "") (as-text "") 0 0 0))) .......... [PASS] 698. (not (eq? #t (textual-prefix? (as-text "") (as-text "abc") 0 0 0))) .......... [PASS] 699. (not (eq? #t (textual-prefix? (as-text "a") (as-text "abc") 0 0 0))) .......... [PASS] 700. (not (eq? #f (textual-prefix? (as-text "c") (as-text "abc") 0 1 0))) .......... [PASS] 701. (not (eq? #t (textual-prefix? (as-text "ab") (as-text "abc") 0 1 0))) .......... [PASS] 702. (not (eq? #t (textual-prefix? (as-text "ab") (as-text "abc") 0 2 0))) .......... [PASS] 703. (not (eq? #f (textual-prefix? (as-text "ac") (as-text "abc") 0 2 0))) .......... [PASS] 704. (not (eq? #t (textual-prefix? (as-text "abc") (as-text "abc") 0 3 0))) .......... [PASS] 705. (not (eq? #t (textual-suffix? (as-text "") (as-text "") 0 0 0))) .......... [PASS] 706. (not (eq? #t (textual-suffix? (as-text "") (as-text "abc") 0 0 0))) .......... [PASS] 707. (not (eq? #f (textual-suffix? (as-text "a") (as-text "abc") 0 1 0))) .......... [PASS] 708. (not (eq? #t (textual-suffix? (as-text "c") (as-text "abc") 0 1 0))) .......... [PASS] 709. (not (eq? #t (textual-suffix? (as-text "ac") (as-text "abc") 1 2 0))) .......... [PASS] 710. (not (eq? #f (textual-suffix? (as-text "ac") (as-text "abc") 0 2 0))) .......... [PASS] 711. (not (eq? #t (textual-suffix? (as-text "bc") (as-text "abc") 0 2 0))) .......... [PASS] 712. (not (eq? #t (textual-suffix? (as-text "abc") (as-text "abc") 0 3 0))) .......... [PASS] 713. (not (eq? #t (textual-prefix? (as-text "ab") (as-text "abc") 2 2 0))) .......... [PASS] 714. (not (eq? #t (textual-prefix? (as-text "ac") (as-text "abc") 2 2 0))) .......... [PASS] 715. (not (eq? #f (textual-prefix? (as-text "abc") (as-text "abc") 2 3 0))) .......... [PASS] 716. (not (eq? #t (textual-suffix? (as-text "ac") (as-text "abc") 2 2 0))) .......... [PASS] 717. (not (eq? #t (textual-suffix? (as-text "bc") (as-text "abc") 2 2 0))) .......... [PASS] 718. (not (eq? #t (textual-suffix? (as-text "abc") (as-text "abc") 2 3 0))) .......... [PASS] 719. (not (eq? #t (textual-prefix? (as-text "") (as-text "abc") 0 0 1))) .......... [PASS] 720. (not (eq? #t (textual-prefix? (as-text "a") (as-text "abc") 0 0 1))) .......... [PASS] 721. (not (eq? #t (textual-prefix? (as-text "c") (as-text "abc") 0 1 2))) .......... [PASS] 722. (not (eq? #f (textual-prefix? (as-text "ab") (as-text "abc") 0 1 2))) .......... [PASS] 723. (not (eq? #f (textual-prefix? (as-text "ab") (as-text "abc") 0 2 1))) .......... [PASS] 724. (not (eq? #f (textual-prefix? (as-text "ac") (as-text "abc") 0 2 1))) .......... [PASS] 725. (not (eq? #f (textual-prefix? (as-text "abc") (as-text "abc") 0 3 1))) .......... [PASS] 726. (not (eq? #f (textual-suffix? (as-text "a") (as-text "abc") 0 1 2))) .......... [PASS] 727. (not (eq? #t (textual-suffix? (as-text "c") (as-text "abc") 0 1 1))) .......... [PASS] 728. (not (eq? #t (textual-suffix? (as-text "ac") (as-text "abc") 1 2 2))) .......... [PASS] 729. (not (eq? #t (textual-suffix? (as-text "bc") (as-text "abc") 0 2 1))) .......... [PASS] 730. (not (eq? #f (textual-suffix? (as-text "bc") (as-text "abc") 0 2 2))) .......... [PASS] 731. (not (eq? #t (textual-prefix? (as-text "") (as-text "") 0 0 0 0))) .......... [PASS] 732. (not (eq? #t (textual-prefix? (as-text "") (as-text "abc") 0 0 0 3))) .......... [PASS] 733. (not (eq? #t (textual-prefix? (as-text "a") (as-text "abc") 0 0 0 3))) .......... [PASS] 734. (not (eq? #f (textual-prefix? (as-text "c") (as-text "abc") 0 1 0 3))) .......... [PASS] 735. (not (eq? #t (textual-prefix? (as-text "ab") (as-text "abc") 0 1 0 3))) .......... [PASS] 736. (not (eq? #t (textual-prefix? (as-text "ab") (as-text "abc") 0 2 0 3))) .......... [PASS] 737. (not (eq? #f (textual-prefix? (as-text "ac") (as-text "abc") 0 2 0 3))) .......... [PASS] 738. (not (eq? #t (textual-prefix? (as-text "abc") (as-text "abc") 0 3 0 3))) .......... [PASS] 739. (not (eq? #t (textual-suffix? (as-text "") (as-text "abc") 0 0 0 3))) .......... [PASS] 740. (not (eq? #f (textual-suffix? (as-text "a") (as-text "abc") 0 1 0 3))) .......... [PASS] 741. (not (eq? #t (textual-suffix? (as-text "c") (as-text "abc") 0 1 0 3))) .......... [PASS] 742. (not (eq? #t (textual-suffix? (as-text "ac") (as-text "abc") 1 2 0 3))) .......... [PASS] 743. (not (eq? #f (textual-suffix? (as-text "ac") (as-text "abc") 0 2 0 3))) .......... [PASS] 744. (not (eq? #t (textual-suffix? (as-text "bc") (as-text "abc") 0 2 0 3))) .......... [PASS] 745. (not (eq? #t (textual-suffix? (as-text "abc") (as-text "abc") 0 3 0 3))) .......... [PASS] 746. (not (eq? #t (textual-prefix? (as-text "ab") (as-text "abc") 2 2 0 3))) .......... [PASS] 747. (not (eq? #t (textual-prefix? (as-text "ac") (as-text "abc") 2 2 0 3))) .......... [PASS] 748. (not (eq? #f (textual-prefix? (as-text "abc") (as-text "abc") 2 3 0 3))) .......... [PASS] 749. (not (eq? #t (textual-suffix? (as-text "ac") (as-text "abc") 2 2 0 3))) .......... [PASS] 750. (not (eq? #t (textual-suffix? (as-text "bc") (as-text "abc") 2 2 0 3))) .......... [PASS] 751. (not (eq? #t (textual-suffix? (as-text "abc") (as-text "abc") 2 3 0 3))) .......... [PASS] 752. (not (eq? #t (textual-prefix? (as-text "") (as-text "abc") 0 0 1 3))) .......... [PASS] 753. (not (eq? #t (textual-prefix? (as-text "a") (as-text "abc") 0 0 1 3))) .......... [PASS] 754. (not (eq? #t (textual-prefix? (as-text "c") (as-text "abc") 0 1 2 3))) .......... [PASS] 755. (not (eq? #f (textual-prefix? (as-text "ab") (as-text "abc") 0 1 2 3))) .......... [PASS] 756. (not (eq? #f (textual-prefix? (as-text "ab") (as-text "abc") 0 2 1 3))) .......... [PASS] 757. (not (eq? #f (textual-prefix? (as-text "ac") (as-text "abc") 0 2 1 3))) .......... [PASS] 758. (not (eq? #f (textual-prefix? (as-text "abc") (as-text "abc") 0 3 1 3))) .......... [PASS] 759. (not (eq? #f (textual-suffix? (as-text "a") (as-text "abc") 0 1 2 3))) .......... [PASS] 760. (not (eq? #t (textual-suffix? (as-text "c") (as-text "abc") 0 1 1 3))) .......... [PASS] 761. (not (eq? #t (textual-suffix? (as-text "ac") (as-text "abc") 1 2 2 3))) .......... [PASS] 762. (not (eq? #t (textual-suffix? (as-text "bc") (as-text "abc") 0 2 1 3))) .......... [PASS] 763. (not (eq? #f (textual-suffix? (as-text "bc") (as-text "abc") 0 2 2 3))) .......... [PASS] 764. (not (eq? #t (textual-prefix? (as-text "") (as-text "abc") 0 0 0 2))) .......... [PASS] 765. (not (eq? #t (textual-prefix? (as-text "a") (as-text "abc") 0 0 0 2))) .......... [PASS] 766. (not (eq? #f (textual-prefix? (as-text "c") (as-text "abc") 0 1 0 2))) .......... [PASS] 767. (not (eq? #t (textual-prefix? (as-text "ab") (as-text "abc") 0 1 0 2))) .......... [PASS] 768. (not (eq? #f (textual-prefix? (as-text "abc") (as-text "abc") 0 3 0 2))) .......... [PASS] 769. (not (eq? #t (textual-suffix? (as-text "") (as-text "abc") 0 0 0 2))) .......... [PASS] 770. (not (eq? #f (textual-suffix? (as-text "c") (as-text "abc") 0 1 0 2))) .......... [PASS] 771. (not (eq? #f (textual-suffix? (as-text "ac") (as-text "abc") 1 2 0 2))) .......... [PASS] 772. (not (eqv? #f (textual-index (as-text "") char?))) .......... [PASS] 773. (not (eqv? 0 (textual-index (as-text "abcdef") char?))) .......... [PASS] 774. (not (eqv? 4 (textual-index (as-text "abcdef") (lambda (c) (char>? c #\d))))) .......... [PASS] 775. (not (eqv? #f (textual-index (as-text "abcdef") char-whitespace?))) .......... [PASS] 776. (not (eqv? #f (textual-index-right (as-text "") char?))) .......... [PASS] 777. (not (eqv? 5 (textual-index-right (as-text "abcdef") char?))) .......... [PASS] 778. (not (eqv? 5 (textual-index-right (as-text "abcdef") (lambda (c) (char>? c #\d))))) .......... [PASS] 779. (not (eqv? #f (textual-index-right (as-text "abcdef") char-whitespace?))) .......... [PASS] 780. (not (eqv? #f (textual-skip (as-text "") string?))) .......... [PASS] 781. (not (eqv? 0 (textual-skip (as-text "abcdef") string?))) .......... [PASS] 782. (not (eqv? 4 (textual-skip (as-text "abcdef") (lambda (c) (char<=? c #\d))))) .......... [PASS] 783. (not (eqv? #f (textual-skip (as-text "abcdef") char?))) .......... [PASS] 784. (not (eqv? #f (textual-skip-right (as-text "") string?))) .......... [PASS] 785. (not (eqv? 5 (textual-skip-right (as-text "abcdef") string?))) .......... [PASS] 786. (not (eqv? 5 (textual-skip-right (as-text "abcdef") (lambda (c) (char<=? c #\d))))) .......... [PASS] 787. (not (eqv? #f (textual-skip-right (as-text "abcdef") char?))) .......... [PASS] 788. (not (eqv? 2 (textual-index "abcdef" char? 2))) .......... [PASS] 789. (not (eqv? 4 (textual-index "abcdef" (lambda (c) (char>? c #\d)) 2))) .......... [PASS] 790. (not (eqv? #f (textual-index "abcdef" char-whitespace? 2))) .......... [PASS] 791. (not (eqv? 5 (textual-index-right "abcdef" char? 2))) .......... [PASS] 792. (not (eqv? 5 (textual-index-right "abcdef" (lambda (c) (char>? c #\d)) 2))) .......... [PASS] 793. (not (eqv? #f (textual-index-right "abcdef" char-whitespace? 2))) .......... [PASS] 794. (not (eqv? 2 (textual-skip "abcdef" string? 2))) .......... [PASS] 795. (not (eqv? 4 (textual-skip "abcdef" (lambda (c) (char<=? c #\d)) 2))) .......... [PASS] 796. (not (eqv? #f (textual-skip "abcdef" char? 2))) .......... [PASS] 797. (not (eqv? 5 (textual-skip-right "abcdef" string? 2))) .......... [PASS] 798. (not (eqv? 5 (textual-skip-right "abcdef" (lambda (c) (char<=? c #\d)) 2))) .......... [PASS] 799. (not (eqv? #f (textual-skip-right "abcdef" char? 2))) .......... [PASS] 800. (not (eqv? 2 (textual-index (as-text "abcdef") char? 2 5))) .......... [PASS] 801. (not (eqv? 4 (textual-index (as-text "abcdef") (lambda (c) (char>? c #\d)) 2 5))) .......... [PASS] 802. (not (eqv? #f (textual-index (as-text "abcdef") char-whitespace? 2 5))) .......... [PASS] 803. (not (eqv? 4 (textual-index-right (as-text "abcdef") char? 2 5))) .......... [PASS] 804. (not (eqv? 4 (textual-index-right (as-text "abcdef") (lambda (c) (char>? c #\d)) 2 5))) .......... [PASS] 805. (not (eqv? #f (textual-index-right (as-text "abcdef") char-whitespace? 2 5))) .......... [PASS] 806. (not (eqv? 2 (textual-skip (as-text "abcdef") string? 2 5))) .......... [PASS] 807. (not (eqv? 4 (textual-skip (as-text "abcdef") (lambda (c) (char<=? c #\d)) 2 5))) .......... [PASS] 808. (not (eqv? #f (textual-skip (as-text "abcdef") char? 2 5))) .......... [PASS] 809. (not (eqv? 4 (textual-skip-right (as-text "abcdef") string? 2 5))) .......... [PASS] 810. (not (eqv? 4 (textual-skip-right (as-text "abcdef") (lambda (c) (char<=? c #\d)) 2 5))) .......... [PASS] 811. (not (eqv? #f (textual-skip-right (as-text "abcdef") char? 2 5))) .......... [PASS] 812. (not (eqv? 0 (textual-contains (as-text "") (as-text "")))) .......... [PASS] 813. (not (eqv? 0 (textual-contains (as-text "abcdeffffoo") (as-text "")))) .......... [PASS] 814. (not (eqv? 0 (textual-contains (as-text "abcdeffffoo") (as-text "a")))) .......... [PASS] 815. (not (eqv? 5 (textual-contains (as-text "abcdeffffoo") (as-text "ff")))) .......... [PASS] 816. (not (eqv? 4 (textual-contains (as-text "abcdeffffoo") (as-text "eff")))) .......... [PASS] 817. (not (eqv? 8 (textual-contains (as-text "abcdeffffoo") (as-text "foo")))) .......... [PASS] 818. (not (eqv? #f (textual-contains (as-text "abcdeffffoo") (as-text "efffoo")))) .......... [PASS] 819. (not (eqv? 0 (textual-contains-right (as-text "") (as-text "")))) .......... [PASS] 820. (not (eqv? 11 (textual-contains-right (as-text "abcdeffffoo") (as-text "")))) .......... [PASS] 821. (not (eqv? 0 (textual-contains-right (as-text "abcdeffffoo") (as-text "a")))) .......... [PASS] 822. (not (eqv? 7 (textual-contains-right (as-text "abcdeffffoo") (as-text "ff")))) .......... [PASS] 823. (not (eqv? 4 (textual-contains-right (as-text "abcdeffffoo") (as-text "eff")))) .......... [PASS] 824. (not (eqv? 8 (textual-contains-right (as-text "abcdeffffoo") (as-text "foo")))) .......... [PASS] 825. (not (eqv? #f (textual-contains-right (as-text "abcdeffffoo") (as-text "efffoo")))) .......... [PASS] 826. (not (eqv? 0 (textual-contains "" "" 0))) .......... [PASS] 827. (not (eqv? 2 (textual-contains "abcdeffffoo" "" 2))) .......... [PASS] 828. (not (eqv? #f (textual-contains "abcdeffffoo" "a" 2))) .......... [PASS] 829. (not (eqv? 5 (textual-contains "abcdeffffoo" "ff" 2))) .......... [PASS] 830. (not (eqv? 4 (textual-contains "abcdeffffoo" "eff" 2))) .......... [PASS] 831. (not (eqv? 8 (textual-contains "abcdeffffoo" "foo" 2))) .......... [PASS] 832. (not (eqv? #f (textual-contains "abcdeffffoo" "efffoo" 2))) .......... [PASS] 833. (not (eqv? 0 (textual-contains-right "" "" 0))) .......... [PASS] 834. (not (eqv? 11 (textual-contains-right "abcdeffffoo" "" 2))) .......... [PASS] 835. (not (eqv? #f (textual-contains-right "abcdeffffoo" "a" 2))) .......... [PASS] 836. (not (eqv? 7 (textual-contains-right "abcdeffffoo" "ff" 2))) .......... [PASS] 837. (not (eqv? 4 (textual-contains-right "abcdeffffoo" "eff" 2))) .......... [PASS] 838. (not (eqv? 8 (textual-contains-right "abcdeffffoo" "foo" 2))) .......... [PASS] 839. (not (eqv? #f (textual-contains-right "abcdeffffoo" "efffoo" 2))) .......... [PASS] 840. (not (eqv? 0 (textual-contains (as-text "") (as-text "") 0 0))) .......... [PASS] 841. (not (eqv? 2 (textual-contains (as-text "abcdeffffoo") (as-text "") 2 10))) .......... [PASS] 842. (not (eqv? #f (textual-contains (as-text "abcdeffffoo") (as-text "a") 2 10))) .......... [PASS] 843. (not (eqv? 5 (textual-contains (as-text "abcdeffffoo") (as-text "ff") 2 10))) .......... [PASS] 844. (not (eqv? 4 (textual-contains (as-text "abcdeffffoo") (as-text "eff") 2 10))) .......... [PASS] 845. (not (eqv? #f (textual-contains (as-text "abcdeffffoo") (as-text "foo") 2 10))) .......... [PASS] 846. (not (eqv? #f (textual-contains (as-text "abcdeffffoo") (as-text "efffoo") 2 10))) .......... [PASS] 847. (not (eqv? 0 (textual-contains-right (as-text "") (as-text "") 0 0))) .......... [PASS] 848. (not (eqv? 10 (textual-contains-right (as-text "abcdeffffoo") (as-text "") 2 10))) .......... [PASS] 849. (not (eqv? #f (textual-contains-right (as-text "abcdeffffoo") (as-text "a") 2 10))) .......... [PASS] 850. (not (eqv? 7 (textual-contains-right (as-text "abcdeffffoo") (as-text "ff") 2 10))) .......... [PASS] 851. (not (eqv? 4 (textual-contains-right (as-text "abcdeffffoo") (as-text "eff") 2 10))) .......... [PASS] 852. (not (eqv? #f (textual-contains-right (as-text "abcdeffffoo") "foo" 2 10))) .......... [PASS] 853. (not (eqv? #f (textual-contains-right "abcdeffffoo" (as-text "efffoo") 2 10))) .......... [PASS] 854. (not (eqv? 0 (textual-contains "" "" 0 0 0))) .......... [PASS] 855. (not (eqv? 2 (textual-contains "abcdeffffoo" "" 2 10 0))) .......... [PASS] 856. (not (eqv? 2 (textual-contains "abcdeffffoo" "a" 2 10 1))) .......... [PASS] 857. (not (eqv? 5 (textual-contains "abcdeffffoo" "ff" 2 10 1))) .......... [PASS] 858. (not (eqv? 5 (textual-contains "abcdeffffoo" "eff" 2 10 1))) .......... [PASS] 859. (not (eqv? #f (textual-contains "abcdeffffoo" "foo" 2 10 1))) .......... [PASS] 860. (not (eqv? #f (textual-contains "abcdeffffoo" "efffoo" 2 10 1))) .......... [PASS] 861. (not (eqv? 0 (textual-contains-right "" "" 0 0 0))) .......... [PASS] 862. (not (eqv? 10 (textual-contains-right "abcdeffffoo" "" 2 10 0))) .......... [PASS] 863. (not (eqv? 10 (textual-contains-right "abcdeffffoo" "a" 2 10 1))) .......... [PASS] 864. (not (eqv? 8 (textual-contains-right "abcdeffffoo" "ff" 2 10 1))) .......... [PASS] 865. (not (eqv? 7 (textual-contains-right "abcdeffffoo" "eff" 2 10 1))) .......... [PASS] 866. (not (eqv? #f (textual-contains-right "abcdeffffoo" "foo" 2 10 1))) .......... [PASS] 867. (not (eqv? #f (textual-contains-right "abcdeffffoo" "efffoo" 2 10 1))) .......... [PASS] 868. (not (eqv? 0 (textual-contains "" "" 0 0 0 0))) .......... [PASS] 869. (not (eqv? 2 (textual-contains "abcdeffffoo" "" 2 10 0 0))) .......... [PASS] 870. (not (eqv? 2 (textual-contains "abcdeffffoo" "a" 2 10 1 1))) .......... [PASS] 871. (not (eqv? 5 (textual-contains "abcdeffffoo" "ff" 2 10 1 2))) .......... [PASS] 872. (not (eqv? 5 (textual-contains "abcdeffffoo" "eff" 2 10 1 2))) .......... [PASS] 873. (not (eqv? 9 (textual-contains "abcdeffffoo" "foo" 2 10 1 2))) .......... [PASS] 874. (not (eqv? 4 (textual-contains "abcdeffffoo" "efffoo" 2 10 0 2))) .......... [PASS] 875. (not (eqv? 0 (textual-contains-right "" "" 0 0 0 0))) .......... [PASS] 876. (not (eqv? 10 (textual-contains-right "abcdeffffoo" "" 2 10 0 0))) .......... [PASS] 877. (not (eqv? 10 (textual-contains-right "abcdeffffoo" "a" 2 10 1 1))) .......... [PASS] 878. (not (eqv? 8 (textual-contains-right "abcdeffffoo" "ff" 2 10 1 2))) .......... [PASS] 879. (not (eqv? 8 (textual-contains-right "abcdeffffoo" "eff" 2 10 1 2))) .......... [PASS] 880. (not (eqv? 9 (textual-contains-right "abcdeffffoo" "foo" 2 10 1 2))) .......... [PASS] 881. (not (eqv? 7 (textual-contains-right "abcdeffffoo" "efffoo" 2 10 1 3))) .......... [PASS] 882. (result=? "1234STRIKES" (textual-upcase (as-text "1234Strikes"))) .......... [PASS] 883. (result=? "1234STRIKES" (textual-upcase (as-text "1234strikes"))) .......... [PASS] 884. (result=? "1234STRIKES" (textual-upcase (as-text "1234STRIKES"))) .......... [PASS] 885. (result=? "1234strikes" (textual-downcase (as-text "1234Strikes"))) .......... [PASS] 886. (result=? "1234strikes" (textual-downcase (as-text "1234strikes"))) .......... [PASS] 887. (result=? "1234strikes" (textual-downcase (as-text "1234STRIKES"))) .......... [PASS] 888. (result=? "1234strikes" (textual-foldcase (as-text "1234Strikes"))) .......... [PASS] 889. (result=? "1234strikes" (textual-foldcase (as-text "1234strikes"))) .......... [PASS] 890. (result=? "1234strikes" (textual-foldcase (as-text "1234STRIKES"))) .......... [PASS] 891. (result=? "And With Three Strikes You Are Out" (textual-titlecase (as-text "and with THREE STRIKES you are oUT"))) .......... [PASS] 892. (result=? "" (textual-append)) .......... [PASS] 893. (result=? "abcdef" (textual-append (as-text "") (as-text "a") (as-text "bcd") "" "ef" "" "")) .......... [PASS] 894. (result=? "" (textual-concatenate (quote ()))) .......... [PASS] 895. (result=? "abcdef" (textual-concatenate (map string->text (quote ("" "a" "bcd" "" "ef" "" ""))))) .......... [PASS] 896. (not (result=? str10 alph10)) .......... [PASS] 897. (not (result=? str100 alph100)) .......... [PASS] 898. (not (result=? str100-500 t100-500)) .......... [PASS] 899. (not (result=? str600-999 t600-999)) .......... [PASS] 900. (result=? (string-append str1 str600-999) (textual-concatenate (list alph1 t600-999))) .......... [PASS] 901. (result=? (string-append str1 str600-999) (textual-concatenate (list alph1 (textual-copy t600-999)))) .......... [PASS] 902. (result=? (string-append str600-999 str1) (textual-concatenate (list t600-999 alph1))) .......... [PASS] 903. (result=? (string-append str600-999 str1) (textual-concatenate (list (textual-copy t600-999) alph1))) .......... [PASS] 904. (result=? "" (textual-concatenate-reverse (quote ()))) .......... [PASS] 905. (result=? "efbcda" (textual-concatenate-reverse (map string->text (quote ("" "a" "bcd" "" "ef" "" ""))))) .......... [PASS] 906. (result=? "huh?" (textual-concatenate-reverse (quote ()) "huh?")) .......... [PASS] 907. (result=? "efbcdaxy" (textual-concatenate-reverse (quote ("" "a" "bcd" "" "ef" "" "")) "xy")) .......... [PASS] 908. (result=? "huh" (textual-concatenate-reverse (quote ()) "huh?" 3)) .......... [PASS] 909. (result=? "efbcdax" (textual-concatenate-reverse (quote ("" "a" "bcd" "" "ef" "" "")) "x" 1)) .......... [PASS] 910. (result=? "" (textual-join (quote ()))) .......... [PASS] 911. (result=? " ab cd e f " (textual-join (map string->text (quote ("" "ab" "cd" "" "e" "f" ""))))) .......... [PASS] 912. (result=? "" (textual-join (quote ()) "")) .......... [PASS] 913. (result=? "abcdef" (textual-join (quote ("" "ab" "cd" "" "e" "f" "")) "")) .......... [PASS] 914. (result=? "" (textual-join (quote ()) "xyz")) .......... [PASS] 915. (result=? "xyzabxyzcdxyzxyzexyzfxyz" (textual-join (quote ("" "ab" "cd" "" "e" "f" "")) "xyz")) .......... [PASS] 916. (result=? "" (textual-join (quote ()) "" (quote infix))) .......... [PASS] 917. (result=? "abcdef" (textual-join (quote ("" "ab" "cd" "" "e" "f" "")) "" (quote infix))) .......... [PASS] 918. (result=? "" (textual-join (quote ()) "xyz" (quote infix))) .......... [PASS] 919. (result=? "xyzabxyzcdxyzxyzexyzfxyz" (textual-join (quote ("" "ab" "cd" "" "e" "f" "")) (as-text "xyz") (quote infix))) .......... [PASS] 920. (not (equal? (quote horror) (guard (exn (#t (quote horror))) (textual-join (quote ()) "" (quote strict-infix))))) .......... [PASS] 921. (result=? "abcdef" (textual-join (quote ("" "ab" "cd" "" "e" "f" "")) "" (quote strict-infix))) .......... [PASS] 922. (not (equal? (quote wham) (guard (exn (else (quote wham))) (textual-join (quote ()) "xyz" (quote strict-infix))))) .......... [PASS] 923. (result=? "xyzabxyzcdxyzxyzexyzfxyz" (textual-join (quote ("" "ab" "cd" "" "e" "f" "")) "xyz" (quote strict-infix))) .......... [PASS] 924. (result=? "" (textual-join (quote ()) "" (quote suffix))) .......... [PASS] 925. (result=? "abcdef" (textual-join (quote ("" "ab" "cd" "" "e" "f" "")) "" (quote suffix))) .......... [PASS] 926. (result=? "" (textual-join (quote ()) "xyz" (quote suffix))) .......... [PASS] 927. (result=? "xyzabxyzcdxyzxyzexyzfxyzxyz" (textual-join (quote ("" "ab" "cd" "" "e" "f" "")) "xyz" (quote suffix))) .......... [PASS] 928. (result=? "" (textual-join (quote ()) "" (quote prefix))) .......... [PASS] 929. (result=? "abcdef" (textual-join (quote ("" "ab" "cd" "" "e" "f" "")) "" (quote prefix))) .......... [PASS] 930. (result=? "" (textual-join (quote ()) "xyz" (quote prefix))) .......... [PASS] 931. (result=? "xyzxyzabxyzcdxyzxyzexyzfxyz" (textual-join (quote ("" "ab" "cd" "" "e" "f" "")) "xyz" (quote prefix))) .......... [PASS] 932. (not (= 8 (textual-fold (lambda (c count) (if (char-whitespace? c) (+ count 1) count)) 0 (as-text " ...a couple of spaces in this one... ")))) .......... [PASS] 933. (not (= 7 (textual-fold (lambda (c count) (if (char-whitespace? c) (+ count 1) count)) 0 " ...a couple of spaces in this one... " 1))) .......... [PASS] 934. (not (= 6 (textual-fold (lambda (c count) (if (char-whitespace? c) (+ count 1) count)) 0 " ...a couple of spaces in this one... " 1 32))) .......... [PASS] 935. (not (equal? (string->list "abcdef") (textual-fold-right cons (quote ()) "abcdef"))) .......... [PASS] 936. (not (equal? (string->list "def") (textual-fold-right cons (quote ()) (as-text "abcdef") 3))) .......... [PASS] 937. (not (equal? (string->list "cde") (textual-fold-right cons (quote ()) (as-text "abcdef") 2 5))) .......... [PASS] 938. (not (string=? "aabraacaadaabraa" (let* ((s (as-text "abracadabra")) (ans-len (textual-fold (lambda (c sum) (+ sum (if (char=? c #\a) 2 1))) 0 s)) (ans (make-string ans-len))) (textual-fold (lambda (c i) (let ((i (if (char=? c #\a) (begin (string-set! ans i #\a) (+ i 1)) i))) (string-set! ans i c) (+ i 1))) 0 s) ans))) .......... [PASS] 939. (result=? "abc" (textual-map string (as-text "abc"))) .......... [PASS] 940. (result=? "ABC" (textual-map char-upcase "abc")) .......... [PASS] 941. (result=? "Hear-here!" (textual-map (lambda (c0 c1 c2) (case c0 ((#\1) c1) ((#\2) (string c2)) ((#\-) (text #\- c1)))) (string->text "1222-1111-2222") (string->text "Hi There!") (string->text "Dear John"))) .......... [PASS] 942. (not (string=? "abc" (let ((q (open-output-string))) (textual-for-each (lambda (c) (write-char c q)) (as-text "abc")) (get-output-string q)))) .......... [PASS] 943. (not (equal? (quote ("cfi" "beh" "adg")) (let ((x (quote ()))) (textual-for-each (lambda (c1 c2 c3) (set! x (cons (string c1 c2 c3) x))) "abc" (as-text "defxyz") (as-text "ghijklmnopqrstuvwxyz")) x))) .......... [PASS] 944. (result=? "abc" (textual-map-index (lambda (i) (integer->char (+ i (char->integer #\a)))) "xyz")) .......... [PASS] 945. (result=? "def" (textual-map-index (lambda (i) (integer->char (+ i (char->integer #\a)))) "xyz***" 3)) .......... [PASS] 946. (result=? "cde" (textual-map-index (lambda (i) (integer->char (+ i (char->integer #\a)))) "......" 2 5)) .......... [PASS] 947. (not (equal? (quote (101 100 99 98 97)) (let ((s (as-text "abcde")) (v (quote ()))) (textual-for-each-index (lambda (i) (set! v (cons (char->integer (textual-ref s i)) v))) s) v))) .......... [PASS] 948. (not (equal? (quote (101 100 99)) (let ((s (as-text "abcde")) (v (quote ()))) (textual-for-each-index (lambda (i) (set! v (cons (char->integer (textual-ref s i)) v))) s 2) v))) .......... [PASS] 949. (not (equal? (quote (99 98)) (let ((s (as-text "abcde")) (v (quote ()))) (textual-for-each-index (lambda (i) (set! v (cons (char->integer (textual-ref s i)) v))) s 1 3) v))) .......... [PASS] 950. (not (= 6 (textual-count "abcdef" char?))) .......... [PASS] 951. (not (= 4 (textual-count "counting whitespace, again " char-whitespace? 5))) .......... [PASS] 952. (not (= 3 (textual-count "abcdefwxyz" (lambda (c) (odd? (char->integer c))) 2 8))) .......... [PASS] 953. (result=? "aiueaaaoi" (textual-filter (lambda (c) (memv c (textual->list "aeiou"))) (as-text "What is number, that man may know it?"))) .......... [PASS] 954. (result=? "And wmn, tht sh my knw nmbr?" (textual-remove (lambda (c) (memv c (textual->list "aeiou"))) "And woman, that she may know number?")) .......... [PASS] 955. (result=? "iueaaaoi" (textual-filter (lambda (c) (memv c (textual->list "aeiou"))) (as-text "What is number, that man may know it?") 4)) .......... [PASS] 956. (result=? "mn, tht sh my knw nmbr?" (textual-remove (lambda (c) (memv c (textual->list "aeiou"))) "And woman, that she may know number?" 6)) .......... [PASS] 957. (result=? "aaao" (textual-filter (lambda (c) (memv c (textual->list "aeiou"))) (as-text "What is number, that man may know it?") 16 32)) .......... [PASS] 958. (result=? "And woman, that sh may know" (textual-remove (lambda (c) (memv c (textual->list "eiu"))) "And woman, that she may know number?" 0 28)) .......... [PASS] 959. (result=? "cdefabcdefabcd" (textual-replicate "abcdef" -4 10)) .......... [PASS] 960. (result=? "bcdefbcdefbcd" (textual-replicate "abcdef" 90 103 1)) .......... [PASS] 961. (result=? "ecdecdecde" (textual-replicate "abcdef" -13 -3 2 5)) .......... [PASS] 962. (not (equal? (quote ()) (map textual->string (textual-split "" "")))) .......... [PASS] 963. (not (equal? (quote ("a" "b" "c")) (map textual->string (textual-split "abc" "")))) .......... [PASS] 964. (not (equal? (quote ("too" "" "much" "" "data")) (map textual->string (textual-split "too much data" " ")))) .......... [PASS] 965. (not (equal? (quote ("" "there" "ya" "go" "")) (map textual->string (textual-split "***there***ya***go***" "***")))) .......... [PASS] 966. (not (equal? (quote ()) (map textual->string (textual-split "" "" (quote infix))))) .......... [PASS] 967. (not (equal? (quote ("a" "b" "c")) (map textual->string (textual-split "abc" "" (quote infix))))) .......... [PASS] 968. (not (equal? (quote ("too" "" "much" "" "data")) (map textual->string (textual-split "too much data" " " (quote infix))))) .......... [PASS] 969. (not (equal? (quote ("" "there" "ya" "go" "")) (map textual->string (textual-split "***there***ya***go***" "***" (quote infix))))) .......... [PASS] 970. (not (equal? (quote error) (guard (exn (else (quote error))) (map textual->string (textual-split "" "" (quote strict-infix)))))) .......... [PASS] 971. (not (equal? (quote ("a" "b" "c")) (map textual->string (textual-split "abc" "" (quote strict-infix))))) .......... [PASS] 972. (not (equal? (quote ("too" "" "much" "" "data")) (map textual->string (textual-split "too much data" " " (quote strict-infix))))) .......... [PASS] 973. (not (equal? (quote ("" "there" "ya" "go" "")) (map textual->string (textual-split "***there***ya***go***" "***" (quote strict-infix))))) .......... [PASS] 974. (not (equal? (quote ()) (map textual->string (textual-split "" "" (quote prefix))))) .......... [PASS] 975. (not (equal? (quote ("a" "b" "c")) (map textual->string (textual-split "abc" "" (quote prefix))))) .......... [PASS] 976. (not (equal? (quote ("too" "" "much" "" "data")) (map textual->string (textual-split "too much data" " " (quote prefix))))) .......... [PASS] 977. (not (equal? (quote ("there" "ya" "go" "")) (map textual->string (textual-split "***there***ya***go***" "***" (quote prefix))))) .......... [PASS] 978. (not (equal? (quote ()) (map textual->string (textual-split "" "" (quote suffix))))) .......... [PASS] 979. (not (equal? (quote ("a" "b" "c")) (map textual->string (textual-split "abc" "" (quote suffix))))) .......... [PASS] 980. (not (equal? (quote ("too" "" "much" "" "data")) (map textual->string (textual-split "too much data" " " (quote suffix))))) .......... [PASS] 981. (not (equal? (quote ("" "there" "ya" "go")) (map textual->string (textual-split "***there***ya***go***" "***" (quote suffix))))) .......... [PASS] 982. (not (equal? (quote ()) (map textual->string (textual-split "" "" (quote infix) #f)))) .......... [PASS] 983. (not (equal? (quote ("a" "b" "c")) (map textual->string (textual-split "abc" "" (quote infix) #f)))) .......... [PASS] 984. (not (equal? (quote ("too" "" "much" "" "data")) (map textual->string (textual-split "too much data" " " (quote infix) #f)))) .......... [PASS] 985. (not (equal? (quote ("" "there" "ya" "go" "")) (map textual->string (textual-split "***there***ya***go***" "***" (quote infix) #f)))) .......... [PASS] 986. (not (equal? (quote error) (guard (exn (else (quote error))) (map textual->string (textual-split "" "" (quote strict-infix) #f))))) .......... [PASS] 987. (not (equal? (quote ("a" "b" "c")) (map textual->string (textual-split "abc" "" (quote strict-infix) #f)))) .......... [PASS] 988. (not (equal? (quote ("too" "" "much" "" "data")) (map textual->string (textual-split "too much data" " " (quote strict-infix) #f)))) .......... [PASS] 989. (not (equal? (quote ("" "there" "ya" "go" "")) (map textual->string (textual-split "***there***ya***go***" "***" (quote strict-infix) #f)))) .......... [PASS] 990. (not (equal? (quote ()) (map textual->string (textual-split "" "" (quote prefix) #f)))) .......... [PASS] 991. (not (equal? (quote ("a" "b" "c")) (map textual->string (textual-split "abc" "" (quote prefix) #f)))) .......... [PASS] 992. (not (equal? (quote ("too" "" "much" "" "data")) (map textual->string (textual-split "too much data" " " (quote prefix) #f)))) .......... [PASS] 993. (not (equal? (quote ("there" "ya" "go" "")) (map textual->string (textual-split "***there***ya***go***" "***" (quote prefix) #f)))) .......... [PASS] 994. (not (equal? (quote ()) (map textual->string (textual-split "" "" (quote suffix) #f)))) .......... [PASS] 995. (not (equal? (quote ("a" "b" "c")) (map textual->string (textual-split "abc" "" (quote suffix) #f)))) .......... [PASS] 996. (not (equal? (quote ("too" "" "much" "" "data")) (map textual->string (textual-split "too much data" " " (quote suffix) #f)))) .......... [PASS] 997. (not (equal? (quote ("" "there" "ya" "go")) (map textual->string (textual-split "***there***ya***go***" "***" (quote suffix) #f)))) .......... [PASS] 998. (not (equal? (quote error) (guard (exn (else (quote error))) (map textual->string (textual-split "" "" (quote strict-infix) 3))))) .......... [PASS] 999. (not (equal? (quote ("a" "b" "c")) (map textual->string (textual-split "abc" "" (quote strict-infix) 3)))) .......... [PASS] 1000. (not (equal? (quote ("too" "" "much" " data")) (map textual->string (textual-split "too much data" " " (quote strict-infix) 3)))) .......... [PASS] 1001. (not (equal? (quote ("" "there" "ya" "go***")) (map textual->string (textual-split "***there***ya***go***" "***" (quote strict-infix) 3)))) .......... [PASS] 1002. (not (equal? (quote ()) (map textual->string (textual-split "" "" (quote prefix) 3)))) .......... [PASS] 1003. (not (equal? (quote ("a" "b" "c")) (map textual->string (textual-split "abc" "" (quote prefix) 3)))) .......... [PASS] 1004. (not (equal? (quote ("too" "" "much" " data")) (map textual->string (textual-split "too much data" " " (quote prefix) 3)))) .......... [PASS] 1005. (not (equal? (quote ("there" "ya" "go***")) (map textual->string (textual-split "***there***ya***go***" "***" (quote prefix) 3)))) .......... [PASS] 1006. (not (equal? (quote ()) (map textual->string (textual-split "" "" (quote suffix) 3)))) .......... [PASS] 1007. (not (equal? (quote ("a" "b" "c")) (map textual->string (textual-split "abc" "" (quote suffix) 3)))) .......... [PASS] 1008. (not (equal? (quote ("too" "" "much" " data")) (map textual->string (textual-split "too much data" " " (quote suffix) 3)))) .......... [PASS] 1009. (not (equal? (quote ("" "there" "ya" "go***")) (map textual->string (textual-split "***there***ya***go***" "***" (quote suffix) 3)))) .......... [PASS] 1010. (not (equal? (quote error) (guard (exn (else (quote error))) (map textual->string (textual-split "" "" (quote strict-infix) 3 0))))) .......... [PASS] 1011. (not (equal? (quote ("b" "c")) (map textual->string (textual-split "abc" "" (quote strict-infix) 3 1)))) .......... [PASS] 1012. (not (equal? (quote ("oo" "" "much" " data")) (map textual->string (textual-split "too much data" " " (quote strict-infix) 3 1)))) .......... [PASS] 1013. (not (equal? (quote ("**there" "ya" "go" "")) (map textual->string (textual-split "***there***ya***go***" "***" (quote strict-infix) 3 1)))) .......... [PASS] 1014. (not (equal? (quote ()) (map textual->string (textual-split "" "" (quote prefix) 3 0)))) .......... [PASS] 1015. (not (equal? (quote ("b" "c")) (map textual->string (textual-split "abc" "" (quote prefix) 3 1)))) .......... [PASS] 1016. (not (equal? (quote ("oo" "" "much" " data")) (map textual->string (textual-split "too much data" " " (quote prefix) 3 1)))) .......... [PASS] 1017. (not (equal? (quote ("**there" "ya" "go" "")) (map textual->string (textual-split "***there***ya***go***" "***" (quote prefix) 3 1)))) .......... [PASS] 1018. (not (equal? (quote ()) (map textual->string (textual-split "" "" (quote suffix) 3 0)))) .......... [PASS] 1019. (not (equal? (quote ("b" "c")) (map textual->string (textual-split "abc" "" (quote suffix) 3 1)))) .......... [PASS] 1020. (not (equal? (quote ("oo" "" "much" " data")) (map textual->string (textual-split "too much data" " " (quote suffix) 3 1)))) .......... [PASS] 1021. (not (equal? (quote ("**there" "ya" "go")) (map textual->string (textual-split "***there***ya***go***" "***" (quote suffix) 3 1)))) .......... [PASS] 1022. (not (equal? (quote error) (guard (exn (else (quote error))) (map textual->string (textual-split "" "" (quote strict-infix) 3 0 0))))) .......... [PASS] 1023. (not (equal? (quote ("b")) (map textual->string (textual-split "abc" "" (quote strict-infix) 3 1 2)))) .......... [PASS] 1024. (not (equal? (quote ("oo" "" "much" " ")) (map textual->string (textual-split "too much data" " " (quote strict-infix) 3 1 11)))) .......... [PASS] 1025. (not (equal? (quote ()) (map textual->string (textual-split "" "" (quote prefix) 3 0 0)))) .......... [PASS] 1026. (not (equal? (quote ("b")) (map textual->string (textual-split "abc" "" (quote prefix) 3 1 2)))) .......... [PASS] 1027. (not (equal? (quote ("oo" "" "much" " ")) (map textual->string (textual-split "too much data" " " (quote prefix) 3 1 11)))) .......... [PASS] 1028. (not (equal? (quote ()) (map textual->string (textual-split "" "" (quote suffix) 3 0 0)))) .......... [PASS] 1029. (not (equal? (quote ("b")) (map textual->string (textual-split "abc" "" (quote suffix) 3 1 2)))) .......... [PASS] 1030. (not (equal? (quote ("oo" "" "much" " ")) (map textual->string (textual-split "too much data" " " (quote suffix) 3 1 11)))) .......... [PASS] 1030 out of 1030 passed (100.00%) 1. (not (let () (define-record-type (make-record) record?) (record? (make-record)))) .......... [PASS] 2. (not (let () (define-record-type (make-record) record?) (not (vector? (make-record))))) .......... [PASS] 3. (let () (define-record-type (make-record foo baz) record? (foo foo) (bar bar set-bar!) (baz baz)) (define record (make-record 1 3)) (set-bar! record 2) (list (foo record) (bar record) (baz record))) .......... [PASS] 4. (let () (define-record-type (make-parent) parent?) (define-record-type ( ) (make-child) child?) (list (parent? (make-child)) (child? (make-parent)))) .......... [PASS] 5. (let () (define-record-type (make-parent foo) parent? (foo foo)) (define-record-type ( ) (make-child dummy bar) child? (bar bar)) (define child (make-child 1 2)) (list (foo child) (bar child))) .......... [PASS] 6. (let () (define-record-type (make-parent foo) #f (foo foo)) (define-record-type ( ) make-child child?) (define child (make-child 1)) (foo child)) .......... [PASS] 7. (let () (define-record-type (make-record) record? (#f foo set-foo!)) (define record (make-record)) (set-foo! record 1) (foo record)) .......... [PASS] 8. (not (let () (define-record-type ( #f) (make-record) record?) (record? (make-record)))) .......... [PASS] 9. (let () (define-record-type (make-record bar foo baz) record? (bar foo) (foo bar) (quux baz)) (define record (make-record 1 2 3)) (list (foo record) (bar record) (baz record))) .......... [PASS] 10. (let () (define-record-type (make-record foo) record? (foo foo)) (define record (make-record 1)) (define-syntax k (syntax-rules () ((k parent (field-name accessor-name . mutator-name*) ...) (values (quote field-name) ... accessor-name ...)))) (let-values (((field-symbol accessor) ( (k)))) (list field-symbol (accessor record)))) .......... [PASS] 11. (not (let () (define-record-type (make-foo) foo?) (record-type-descriptor? ()))) .......... [PASS] 12. (let () (define-record-type (make-foo) foo?) (list (record? (make-foo)) (record? (vector)))) .......... [PASS] 13. (not (let () (define-record-type (make-record) record?) (eq? (record-type-descriptor (make-record)) ()))) .......... [PASS] 14. (not (let () (define-record-type (make-record) record?) ((record-type-predicate ()) (make-record)))) .......... [PASS] 15. (let () (define-record-type (make-record) record?) (record-type-name ())) .......... [PASS] 16. (not (let () (define-record-type #f parent?) (define-record-type ( ) #f child?) (eq? (record-type-parent ()) ()))) .......... [PASS] 17. (let () (define-record-type (make-record foo) record? (foo foo) (bar bar set-bar!)) (define-values (field-foo field-bar) (apply values (record-type-fields ()))) (define record (make-record 1)) ((list-ref field-bar 2) record 2) (list (list-ref field-foo 0) (bar record))) .......... [PASS] 18. (let () (define-record-type #f parent? (bar bar)) (define child-rtd (make-record-type-descriptor (quote ) (quote ((mutable foo) qux (immutable baz))) ())) (define child (make-record child-rtd #(1 2))) (define foo (list-ref (car (record-type-fields child-rtd)) 1)) (define qux-field (list-ref (record-type-fields child-rtd) 1)) (define baz-field (list-ref (record-type-fields child-rtd) 2)) (list (parent? child) (bar child) (foo child) (procedure? (list-ref qux-field 2)) (not (list-ref baz-field 2)))) .......... [PASS] 19. (let () (define-record-type foo (make-foo a b) foo? (a foo-a) (b foo-b)) (define-record-type (bar foo) make-bar bar? (c bar-a) (d bar-b)) (define record (make-bar 1 2 3 4)) (list (bar? record) (bar-a record) (bar-b record))) .......... [PASS] 20. (not (let () (define-record-type (make-base) base?) (define-record-type ( ) #f middle? (a middle-a middle-a-set!) (b middle-b middle-b-set!)) (define-record-type ( ) (make-leaf d) leaf? (d leaf-d)) (quote ok))) .......... [PASS] 21. (not (let () (define-record-type #f simple? (#f foo set-foo!)) (quote ok))) .......... [PASS] 21 out of 21 passed (100.00%) 1. (let-values (((reia-payload make-reia reia? reia-ref make-reia-subtype) (make-type (quote reia)))) (reia-payload)) .......... [PASS] 2. (not (let-values (((reia-payload1 . reia1*) (make-type (quote reia))) ((reia-payload2 . reia2*) (make-type (quote reia)))) (not (eq? reia-payload1 reia-payload2)))) .......... [PASS] 3. (not (reia? (make-reia #f))) .......... [PASS] 4. (not (reia? (make-daughter #f))) .......... [PASS] 5. (not (not (daughter? (make-reia #f)))) .......... [PASS] 6. (not (not (son? (make-daughter #f)))) .......... [PASS] 7. (not (reia? (make-grand-daughter #f))) .......... [PASS] 8. (let-values (((reia-payload make-reia reia? reia-ref make-reia-subtype) (make-type (quote reia)))) (reia-ref (make-reia (quote payload)))) .......... [PASS] 8 out of 8 passed (100.00%) ------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 134: ./skint test/srfi/134.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 135: ./skint test/srfi/135.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 136: ./skint test/srfi/136.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 137: ./skint test/srfi/137.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 141: ./skint tes1. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 2. (floor-quotient a b) .......... [PASS] 3. (floor-remainder a b) .......... [PASS] 4. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 5. (ceiling-quotient a b) .......... [PASS] 6. (ceiling-remainder a b) .......... [PASS] 7. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 8. (truncate-quotient a b) .......... [PASS] 9. (truncate-remainder a b) .......... [PASS] 10. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 11. (round-quotient a b) .......... [PASS] 12. (round-remainder a b) .......... [PASS] 13. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 14. (euclidean-quotient a b) .......... [PASS] 15. (euclidean-remainder a b) .......... [PASS] 16. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 17. (balanced-quotient a b) .......... [PASS] 18. (balanced-remainder a b) .......... [PASS] 19. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 20. (floor-quotient a b) .......... [PASS] 21. (floor-remainder a b) .......... [PASS] 22. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 23. (ceiling-quotient a b) .......... [PASS] 24. (ceiling-remainder a b) .......... [PASS] 25. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 26. (truncate-quotient a b) .......... [PASS] 27. (truncate-remainder a b) .......... [PASS] 28. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 29. (round-quotient a b) .......... [PASS] 30. (round-remainder a b) .......... [PASS] 31. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 32. (euclidean-quotient a b) .......... [PASS] 33. (euclidean-remainder a b) .......... [PASS] 34. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 35. (balanced-quotient a b) .......... [PASS] 36. (balanced-remainder a b) .......... [PASS] 37. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 38. (floor-quotient a b) .......... [PASS] 39. (floor-remainder a b) .......... [PASS] 40. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 41. (ceiling-quotient a b) .......... [PASS] 42. (ceiling-remainder a b) .......... [PASS] 43. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 44. (truncate-quotient a b) .......... [PASS] 45. (truncate-remainder a b) .......... [PASS] 46. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 47. (round-quotient a b) .......... [PASS] 48. (round-remainder a b) .......... [PASS] 49. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 50. (euclidean-quotient a b) .......... [PASS] 51. (euclidean-remainder a b) .......... [PASS] 52. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 53. (balanced-quotient a b) .......... [PASS] 54. (balanced-remainder a b) .......... [PASS] 55. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 56. (floor-quotient a b) .......... [PASS] 57. (floor-remainder a b) .......... [PASS] 58. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 59. (ceiling-quotient a b) .......... [PASS] 60. (ceiling-remainder a b) .......... [PASS] 61. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 62. (truncate-quotient a b) .......... [PASS] 63. (truncate-remainder a b) .......... [PASS] 64. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 65. (round-quotient a b) .......... [PASS] 66. (round-remainder a b) .......... [PASS] 67. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 68. (euclidean-quotient a b) .......... [PASS] 69. (euclidean-remainder a b) .......... [PASS] 70. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 71. (balanced-quotient a b) .......... [PASS] 72. (balanced-remainder a b) .......... [PASS] 73. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 74. (floor-quotient a b) .......... [PASS] 75. (floor-remainder a b) .......... [PASS] 76. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 77. (ceiling-quotient a b) .......... [PASS] 78. (ceiling-remainder a b) .......... [PASS] 79. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 80. (truncate-quotient a b) .......... [PASS] 81. (truncate-remainder a b) .......... [PASS] 82. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 83. (round-quotient a b) .......... [PASS] 84. (round-remainder a b) .......... [PASS] 85. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 86. (euclidean-quotient a b) .......... [PASS] 87. (euclidean-remainder a b) .......... [PASS] 88. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 89. (balanced-quotient a b) .......... [PASS] 90. (balanced-remainder a b) .......... [PASS] 91. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 92. (floor-quotient a b) .......... [PASS] 93. (floor-remainder a b) .......... [PASS] 94. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 95. (ceiling-quotient a b) .......... [PASS] 96. (ceiling-remainder a b) .......... [PASS] 97. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 98. (truncate-quotient a b) .......... [PASS] 99. (truncate-remainder a b) .......... [PASS] 100. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 101. (round-quotient a b) .......... [PASS] 102. (round-remainder a b) .......... [PASS] 103. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 104. (euclidean-quotient a b) .......... [PASS] 105. (euclidean-remainder a b) .......... [PASS] 106. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 107. (balanced-quotient a b) .......... [PASS] 108. (balanced-remainder a b) .......... [PASS] 109. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 110. (floor-quotient a b) .......... [PASS] 111. (floor-remainder a b) .......... [PASS] 112. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 113. (ceiling-quotient a b) .......... [PASS] 114. (ceiling-remainder a b) .......... [PASS] 115. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 116. (truncate-quotient a b) .......... [PASS] 117. (truncate-remainder a b) .......... [PASS] 118. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 119. (round-quotient a b) .......... [PASS] 120. (round-remainder a b) .......... [PASS] 121. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 122. (euclidean-quotient a b) .......... [PASS] 123. (euclidean-remainder a b) .......... [PASS] 124. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 125. (balanced-quotient a b) .......... [PASS] 126. (balanced-remainder a b) .......... [PASS] 127. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 128. (floor-quotient a b) .......... [PASS] 129. (floor-remainder a b) .......... [PASS] 130. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 131. (ceiling-quotient a b) .......... [PASS] 132. (ceiling-remainder a b) .......... [PASS] 133. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 134. (truncate-quotient a b) .......... [PASS] 135. (truncate-remainder a b) .......... [PASS] 136. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 137. (round-quotient a b) .......... [PASS] 138. (round-remainder a b) .......... [PASS] 139. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 140. (euclidean-quotient a b) .......... [PASS] 141. (euclidean-remainder a b) .......... [PASS] 142. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 143. (balanced-quotient a b) .......... [PASS] 144. (balanced-remainder a b) .......... [PASS] 145. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 146. (floor-quotient a b) .......... [PASS] 147. (floor-remainder a b) .......... [PASS] 148. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 149. (ceiling-quotient a b) .......... [PASS] 150. (ceiling-remainder a b) .......... [PASS] 151. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 152. (truncate-quotient a b) .......... [PASS] 153. (truncate-remainder a b) .......... [PASS] 154. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 155. (round-quotient a b) .......... [PASS] 156. (round-remainder a b) .......... [PASS] 157. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 158. (euclidean-quotient a b) .......... [PASS] 159. (euclidean-remainder a b) .......... [PASS] 160. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 161. (balanced-quotient a b) .......... [PASS] 162. (balanced-remainder a b) .......... [PASS] 163. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 164. (floor-quotient a b) .......... [PASS] 165. (floor-remainder a b) .......... [PASS] 166. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 167. (ceiling-quotient a b) .......... [PASS] 168. (ceiling-remainder a b) .......... [PASS] 169. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 170. (truncate-quotient a b) .......... [PASS] 171. (truncate-remainder a b) .......... [PASS] 172. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 173. (round-quotient a b) .......... [PASS] 174. (round-remainder a b) .......... [PASS] 175. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 176. (euclidean-quotient a b) .......... [PASS] 177. (euclidean-remainder a b) .......... [PASS] 178. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 179. (balanced-quotient a b) .......... [PASS] 180. (balanced-remainder a b) .......... [PASS] 181. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 182. (floor-quotient a b) .......... [PASS] 183. (floor-remainder a b) .......... [PASS] 184. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 185. (ceiling-quotient a b) .......... [PASS] 186. (ceiling-remainder a b) .......... [PASS] 187. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 188. (truncate-quotient a b) .......... [PASS] 189. (truncate-remainder a b) .......... [PASS] 190. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 191. (round-quotient a b) .......... [PASS] 192. (round-remainder a b) .......... [PASS] 193. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 194. (euclidean-quotient a b) .......... [PASS] 195. (euclidean-remainder a b) .......... [PASS] 196. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 197. (balanced-quotient a b) .......... [PASS] 198. (balanced-remainder a b) .......... [PASS] 199. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 200. (floor-quotient a b) .......... [PASS] 201. (floor-remainder a b) .......... [PASS] 202. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 203. (ceiling-quotient a b) .......... [PASS] 204. (ceiling-remainder a b) .......... [PASS] 205. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 206. (truncate-quotient a b) .......... [PASS] 207. (truncate-remainder a b) .......... [PASS] 208. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 209. (round-quotient a b) .......... [PASS] 210. (round-remainder a b) .......... [PASS] 211. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 212. (euclidean-quotient a b) .......... [PASS] 213. (euclidean-remainder a b) .......... [PASS] 214. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 215. (balanced-quotient a b) .......... [PASS] 216. (balanced-remainder a b) .......... [PASS] 217. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 218. (floor-quotient a b) .......... [PASS] 219. (floor-remainder a b) .......... [PASS] 220. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 221. (ceiling-quotient a b) .......... [PASS] 222. (ceiling-remainder a b) .......... [PASS] 223. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 224. (truncate-quotient a b) .......... [PASS] 225. (truncate-remainder a b) .......... [PASS] 226. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 227. (round-quotient a b) .......... [PASS] 228. (round-remainder a b) .......... [PASS] 229. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 230. (euclidean-quotient a b) .......... [PASS] 231. (euclidean-remainder a b) .......... [PASS] 232. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 233. (balanced-quotient a b) .......... [PASS] 234. (balanced-remainder a b) .......... [PASS] 235. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 236. (floor-quotient a b) .......... [PASS] 237. (floor-remainder a b) .......... [PASS] 238. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 239. (ceiling-quotient a b) .......... [PASS] 240. (ceiling-remainder a b) .......... [PASS] 241. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 242. (truncate-quotient a b) .......... [PASS] 243. (truncate-remainder a b) .......... [PASS] 244. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 245. (round-quotient a b) .......... [PASS] 246. (round-remainder a b) .......... [PASS] 247. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 248. (euclidean-quotient a b) .......... [PASS] 249. (euclidean-remainder a b) .......... [PASS] 250. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 251. (balanced-quotient a b) .......... [PASS] 252. (balanced-remainder a b) .......... [PASS] 253. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 254. (floor-quotient a b) .......... [PASS] 255. (floor-remainder a b) .......... [PASS] 256. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 257. (ceiling-quotient a b) .......... [PASS] 258. (ceiling-remainder a b) .......... [PASS] 259. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 260. (truncate-quotient a b) .......... [PASS] 261. (truncate-remainder a b) .......... [PASS] 262. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 263. (round-quotient a b) .......... [PASS] 264. (round-remainder a b) .......... [PASS] 265. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 266. (euclidean-quotient a b) .......... [PASS] 267. (euclidean-remainder a b) .......... [PASS] 268. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 269. (balanced-quotient a b) .......... [PASS] 270. (balanced-remainder a b) .......... [PASS] 271. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 272. (floor-quotient a b) .......... [PASS] 273. (floor-remainder a b) .......... [PASS] 274. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 275. (ceiling-quotient a b) .......... [PASS] 276. (ceiling-remainder a b) .......... [PASS] 277. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 278. (truncate-quotient a b) .......... [PASS] 279. (truncate-remainder a b) .......... [PASS] 280. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 281. (round-quotient a b) .......... [PASS] 282. (round-remainder a b) .......... [PASS] 283. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 284. (euclidean-quotient a b) .......... [PASS] 285. (euclidean-remainder a b) .......... [PASS] 286. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 287. (balanced-quotient a b) .......... [PASS] 288. (balanced-remainder a b) .......... [PASS] 289. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 290. (floor-quotient a b) .......... [PASS] 291. (floor-remainder a b) .......... [PASS] 292. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 293. (ceiling-quotient a b) .......... [PASS] 294. (ceiling-remainder a b) .......... [PASS] 295. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 296. (truncate-quotient a b) .......... [PASS] 297. (truncate-remainder a b) .......... [PASS] 298. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 299. (round-quotient a b) .......... [PASS] 300. (round-remainder a b) .......... [PASS] 301. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 302. (euclidean-quotient a b) .......... [PASS] 303. (euclidean-remainder a b) .......... [PASS] 304. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 305. (balanced-quotient a b) .......... [PASS] 306. (balanced-remainder a b) .......... [PASS] 307. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 308. (floor-quotient a b) .......... [PASS] 309. (floor-remainder a b) .......... [PASS] 310. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 311. (ceiling-quotient a b) .......... [PASS] 312. (ceiling-remainder a b) .......... [PASS] 313. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 314. (truncate-quotient a b) .......... [PASS] 315. (truncate-remainder a b) .......... [PASS] 316. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 317. (round-quotient a b) .......... [PASS] 318. (round-remainder a b) .......... [PASS] 319. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 320. (euclidean-quotient a b) .......... [PASS] 321. (euclidean-remainder a b) .......... [PASS] 322. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 323. (balanced-quotient a b) .......... [PASS] 324. (balanced-remainder a b) .......... [PASS] 325. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 326. (floor-quotient a b) .......... [PASS] 327. (floor-remainder a b) .......... [PASS] 328. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 329. (ceiling-quotient a b) .......... [PASS] 330. (ceiling-remainder a b) .......... [PASS] 331. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 332. (truncate-quotient a b) .......... [PASS] 333. (truncate-remainder a b) .......... [PASS] 334. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 335. (round-quotient a b) .......... [PASS] 336. (round-remainder a b) .......... [PASS] 337. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 338. (euclidean-quotient a b) .......... [PASS] 339. (euclidean-remainder a b) .......... [PASS] 340. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 341. (balanced-quotient a b) .......... [PASS] 342. (balanced-remainder a b) .......... [PASS] 343. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 344. (floor-quotient a b) .......... [PASS] 345. (floor-remainder a b) .......... [PASS] 346. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 347. (ceiling-quotient a b) .......... [PASS] 348. (ceiling-remainder a b) .......... [PASS] 349. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 350. (truncate-quotient a b) .......... [PASS] 351. (truncate-remainder a b) .......... [PASS] 352. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 353. (round-quotient a b) .......... [PASS] 354. (round-remainder a b) .......... [PASS] 355. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 356. (euclidean-quotient a b) .......... [PASS] 357. (euclidean-remainder a b) .......... [PASS] 358. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 359. (balanced-quotient a b) .......... [PASS] 360. (balanced-remainder a b) .......... [PASS] 361. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 362. (floor-quotient a b) .......... [PASS] 363. (floor-remainder a b) .......... [PASS] 364. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 365. (ceiling-quotient a b) .......... [PASS] 366. (ceiling-remainder a b) .......... [PASS] 367. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 368. (truncate-quotient a b) .......... [PASS] 369. (truncate-remainder a b) .......... [PASS] 370. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 371. (round-quotient a b) .......... [PASS] 372. (round-remainder a b) .......... [PASS] 373. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 374. (euclidean-quotient a b) .......... [PASS] 375. (euclidean-remainder a b) .......... [PASS] 376. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 377. (balanced-quotient a b) .......... [PASS] 378. (balanced-remainder a b) .......... [PASS] 379. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 380. (floor-quotient a b) .......... [PASS] 381. (floor-remainder a b) .......... [PASS] 382. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 383. (ceiling-quotient a b) .......... [PASS] 384. (ceiling-remainder a b) .......... [PASS] 385. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 386. (truncate-quotient a b) .......... [PASS] 387. (truncate-remainder a b) .......... [PASS] 388. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 389. (round-quotient a b) .......... [PASS] 390. (round-remainder a b) .......... [PASS] 391. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 392. (euclidean-quotient a b) .......... [PASS] 393. (euclidean-remainder a b) .......... [PASS] 394. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 395. (balanced-quotient a b) .......... [PASS] 396. (balanced-remainder a b) .......... [PASS] 397. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 398. (floor-quotient a b) .......... [PASS] 399. (floor-remainder a b) .......... [PASS] 400. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 401. (ceiling-quotient a b) .......... [PASS] 402. (ceiling-remainder a b) .......... [PASS] 403. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 404. (truncate-quotient a b) .......... [PASS] 405. (truncate-remainder a b) .......... [PASS] 406. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 407. (round-quotient a b) .......... [PASS] 408. (round-remainder a b) .......... [PASS] 409. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 410. (euclidean-quotient a b) .......... [PASS] 411. (euclidean-remainder a b) .......... [PASS] 412. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 413. (balanced-quotient a b) .......... [PASS] 414. (balanced-remainder a b) .......... [PASS] 415. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 416. (floor-quotient a b) .......... [PASS] 417. (floor-remainder a b) .......... [PASS] 418. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 419. (ceiling-quotient a b) .......... [PASS] 420. (ceiling-remainder a b) .......... [PASS] 421. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 422. (truncate-quotient a b) .......... [PASS] 423. (truncate-remainder a b) .......... [PASS] 424. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 425. (round-quotient a b) .......... [PASS] 426. (round-remainder a b) .......... [PASS] 427. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 428. (euclidean-quotient a b) .......... [PASS] 429. (euclidean-remainder a b) .......... [PASS] 430. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 431. (balanced-quotient a b) .......... [PASS] 432. (balanced-remainder a b) .......... [PASS] 433. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 434. (floor-quotient a b) .......... [PASS] 435. (floor-remainder a b) .......... [PASS] 436. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 437. (ceiling-quotient a b) .......... [PASS] 438. (ceiling-remainder a b) .......... [PASS] 439. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 440. (truncate-quotient a b) .......... [PASS] 441. (truncate-remainder a b) .......... [PASS] 442. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 443. (round-quotient a b) .......... [PASS] 444. (round-remainder a b) .......... [PASS] 445. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 446. (euclidean-quotient a b) .......... [PASS] 447. (euclidean-remainder a b) .......... [PASS] 448. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 449. (balanced-quotient a b) .......... [PASS] 450. (balanced-remainder a b) .......... [PASS] 451. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 452. (floor-quotient a b) .......... [PASS] 453. (floor-remainder a b) .......... [PASS] 454. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 455. (ceiling-quotient a b) .......... [PASS] 456. (ceiling-remainder a b) .......... [PASS] 457. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 458. (truncate-quotient a b) .......... [PASS] 459. (truncate-remainder a b) .......... [PASS] 460. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 461. (round-quotient a b) .......... [PASS] 462. (round-remainder a b) .......... [PASS] 463. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 464. (euclidean-quotient a b) .......... [PASS] 465. (euclidean-remainder a b) .......... [PASS] 466. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 467. (balanced-quotient a b) .......... [PASS] 468. (balanced-remainder a b) .......... [PASS] 469. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 470. (floor-quotient a b) .......... [PASS] 471. (floor-remainder a b) .......... [PASS] 472. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 473. (ceiling-quotient a b) .......... [PASS] 474. (ceiling-remainder a b) .......... [PASS] 475. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 476. (truncate-quotient a b) .......... [PASS] 477. (truncate-remainder a b) .......... [PASS] 478. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 479. (round-quotient a b) .......... [PASS] 480. (round-remainder a b) .......... [PASS] 481. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 482. (euclidean-quotient a b) .......... [PASS] 483. (euclidean-remainder a b) .......... [PASS] 484. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 485. (balanced-quotient a b) .......... [PASS] 486. (balanced-remainder a b) .......... [PASS] 487. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 488. (floor-quotient a b) .......... [PASS] 489. (floor-remainder a b) .......... [PASS] 490. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 491. (ceiling-quotient a b) .......... [PASS] 492. (ceiling-remainder a b) .......... [PASS] 493. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 494. (truncate-quotient a b) .......... [PASS] 495. (truncate-remainder a b) .......... [PASS] 496. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 497. (round-quotient a b) .......... [PASS] 498. (round-remainder a b) .......... [PASS] 499. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 500. (euclidean-quotient a b) .......... [PASS] 501. (euclidean-remainder a b) .......... [PASS] 502. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 503. (balanced-quotient a b) .......... [PASS] 504. (balanced-remainder a b) .......... [PASS] 505. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 506. (floor-quotient a b) .......... [PASS] 507. (floor-remainder a b) .......... [PASS] 508. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 509. (ceiling-quotient a b) .......... [PASS] 510. (ceiling-remainder a b) .......... [PASS] 511. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 512. (truncate-quotient a b) .......... [PASS] 513. (truncate-remainder a b) .......... [PASS] 514. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 515. (round-quotient a b) .......... [PASS] 516. (round-remainder a b) .......... [PASS] 517. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 518. (euclidean-quotient a b) .......... [PASS] 519. (euclidean-remainder a b) .......... [PASS] 520. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 521. (balanced-quotient a b) .......... [PASS] 522. (balanced-remainder a b) .......... [PASS] 523. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 524. (floor-quotient a b) .......... [PASS] 525. (floor-remainder a b) .......... [PASS] 526. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 527. (ceiling-quotient a b) .......... [PASS] 528. (ceiling-remainder a b) .......... [PASS] 529. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 530. (truncate-quotient a b) .......... [PASS] 531. (truncate-remainder a b) .......... [PASS] 532. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 533. (round-quotient a b) .......... [PASS] 534. (round-remainder a b) .......... [PASS] 535. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 536. (euclidean-quotient a b) .......... [PASS] 537. (euclidean-remainder a b) .......... [PASS] 538. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 539. (balanced-quotient a b) .......... [PASS] 540. (balanced-remainder a b) .......... [PASS] 541. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 542. (floor-quotient a b) .......... [PASS] 543. (floor-remainder a b) .......... [PASS] 544. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 545. (ceiling-quotient a b) .......... [PASS] 546. (ceiling-remainder a b) .......... [PASS] 547. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 548. (truncate-quotient a b) .......... [PASS] 549. (truncate-remainder a b) .......... [PASS] 550. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 551. (round-quotient a b) .......... [PASS] 552. (round-remainder a b) .......... [PASS] 553. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 554. (euclidean-quotient a b) .......... [PASS] 555. (euclidean-remainder a b) .......... [PASS] 556. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 557. (balanced-quotient a b) .......... [PASS] 558. (balanced-remainder a b) .......... [PASS] 559. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 560. (floor-quotient a b) .......... [PASS] 561. (floor-remainder a b) .......... [PASS] 562. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 563. (ceiling-quotient a b) .......... [PASS] 564. (ceiling-remainder a b) .......... [PASS] 565. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 566. (truncate-quotient a b) .......... [PASS] 567. (truncate-remainder a b) .......... [PASS] 568. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 569. (round-quotient a b) .......... [PASS] 570. (round-remainder a b) .......... [PASS] 571. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 572. (euclidean-quotient a b) .......... [PASS] 573. (euclidean-remainder a b) .......... [PASS] 574. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 575. (balanced-quotient a b) .......... [PASS] 576. (balanced-remainder a b) .......... [PASS] 577. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 578. (floor-quotient a b) .......... [PASS] 579. (floor-remainder a b) .......... [PASS] 580. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 581. (ceiling-quotient a b) .......... [PASS] 582. (ceiling-remainder a b) .......... [PASS] 583. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 584. (truncate-quotient a b) .......... [PASS] 585. (truncate-remainder a b) .......... [PASS] 586. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 587. (round-quotient a b) .......... [PASS] 588. (round-remainder a b) .......... [PASS] 589. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 590. (euclidean-quotient a b) .......... [PASS] 591. (euclidean-remainder a b) .......... [PASS] 592. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 593. (balanced-quotient a b) .......... [PASS] 594. (balanced-remainder a b) .......... [PASS] 595. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 596. (floor-quotient a b) .......... [PASS] 597. (floor-remainder a b) .......... [PASS] 598. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 599. (ceiling-quotient a b) .......... [PASS] 600. (ceiling-remainder a b) .......... [PASS] 601. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 602. (truncate-quotient a b) .......... [PASS] 603. (truncate-remainder a b) .......... [PASS] 604. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 605. (round-quotient a b) .......... [PASS] 606. (round-remainder a b) .......... [PASS] 607. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 608. (euclidean-quotient a b) .......... [PASS] 609. (euclidean-remainder a b) .......... [PASS] 610. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 611. (balanced-quotient a b) .......... [PASS] 612. (balanced-remainder a b) .......... [PASS] 613. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 614. (floor-quotient a b) .......... [PASS] 615. (floor-remainder a b) .......... [PASS] 616. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 617. (ceiling-quotient a b) .......... [PASS] 618. (ceiling-remainder a b) .......... [PASS] 619. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 620. (truncate-quotient a b) .......... [PASS] 621. (truncate-remainder a b) .......... [PASS] 622. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 623. (round-quotient a b) .......... [PASS] 624. (round-remainder a b) .......... [PASS] 625. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 626. (euclidean-quotient a b) .......... [PASS] 627. (euclidean-remainder a b) .......... [PASS] 628. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 629. (balanced-quotient a b) .......... [PASS] 630. (balanced-remainder a b) .......... [PASS] 631. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 632. (floor-quotient a b) .......... [PASS] 633. (floor-remainder a b) .......... [PASS] 634. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 635. (ceiling-quotient a b) .......... [PASS] 636. (ceiling-remainder a b) .......... [PASS] 637. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 638. (truncate-quotient a b) .......... [PASS] 639. (truncate-remainder a b) .......... [PASS] 640. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 641. (round-quotient a b) .......... [PASS] 642. (round-remainder a b) .......... [PASS] 643. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 644. (euclidean-quotient a b) .......... [PASS] 645. (euclidean-remainder a b) .......... [PASS] 646. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 647. (balanced-quotient a b) .......... [PASS] 648. (balanced-remainder a b) .......... [PASS] 649. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 650. (floor-quotient a b) .......... [PASS] 651. (floor-remainder a b) .......... [PASS] 652. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 653. (ceiling-quotient a b) .......... [PASS] 654. (ceiling-remainder a b) .......... [PASS] 655. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 656. (truncate-quotient a b) .......... [PASS] 657. (truncate-remainder a b) .......... [PASS] 658. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 659. (round-quotient a b) .......... [PASS] 660. (round-remainder a b) .......... [PASS] 661. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 662. (euclidean-quotient a b) .......... [PASS] 663. (euclidean-remainder a b) .......... [PASS] 664. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 665. (balanced-quotient a b) .......... [PASS] 666. (balanced-remainder a b) .......... [PASS] 667. (call-with-values (lambda () (floor/ a b)) list) .......... [PASS] 668. (floor-quotient a b) .......... [PASS] 669. (floor-remainder a b) .......... [PASS] 670. (call-with-values (lambda () (ceiling/ a b)) list) .......... [PASS] 671. (ceiling-quotient a b) .......... [PASS] 672. (ceiling-remainder a b) .......... [PASS] 673. (call-with-values (lambda () (truncate/ a b)) list) .......... [PASS] 674. (truncate-quotient a b) .......... [PASS] 675. (truncate-remainder a b) .......... [PASS] 676. (call-with-values (lambda () (round/ a b)) list) .......... [PASS] 677. (round-quotient a b) .......... [PASS] 678. (round-remainder a b) .......... [PASS] 679. (call-with-values (lambda () (euclidean/ a b)) list) .......... [PASS] 680. (euclidean-quotient a b) .......... [PASS] 681. (euclidean-remainder a b) .......... [PASS] 682. (call-with-values (lambda () (balanced/ a b)) list) .......... [PASS] 683. (balanced-quotient a b) .......... [PASS] 684. (balanced-remainder a b) .......... [PASS] 684 out of 684 passed (100.00%) 1. (fxlength fx-least) .......... [PASS] 2. (fxlength fx-greatest) .......... [PASS] 3. (fxlength 0) .......... [PASS] 4. (fxlength 1) .......... [PASS] 5. (fxlength -1) .......... [PASS] 6. (fxlength 7) .......... [PASS] 7. (fxlength -7) .......... [PASS] 8. (fxlength 8) .......... [PASS] 9. (fxlength -8) .......... [PASS] 10. (call-with-values (lambda () (fx+/carry 536870911 536870911 536870911)) list) .......... [PASS] 11. (call-with-values (lambda () (fx+/carry -536870912 -536870912 -536870912)) list) .......... [PASS] 12. (call-with-values (lambda () (fx+/carry -536870911 -42 -1)) list) .......... [PASS] 13. (call-with-values (lambda () (fx+/carry -42 -536870911 1)) list) .......... [PASS] 14. (call-with-values (lambda () (fx+/carry 1 -536870912 1)) list) .......... [PASS] 15. (call-with-values (lambda () (fx+/carry -42 -536870912 -42)) list) .......... [PASS] 16. (call-with-values (lambda () (fx+/carry -268435456 0 -536870912)) list) .......... [PASS] 17. (call-with-values (lambda () (fx+/carry 0 0 0)) list) .......... [PASS] 18. (call-with-values (lambda () (fx+/carry 268435455 536870910 -268435456)) list) .......... [PASS] 19. (call-with-values (lambda () (fx+/carry -268435456 -42 1)) list) .......... [PASS] 20. (call-with-values (lambda () (fx+/carry 1 42 1)) list) .......... [PASS] 21. (call-with-values (lambda () (fx+/carry 0 1 0)) list) .......... [PASS] 22. (call-with-values (lambda () (fx+/carry -536870911 -536870912 -1)) list) .......... [PASS] 23. (call-with-values (lambda () (fx+/carry 536870910 -42 536870910)) list) .......... [PASS] 24. (call-with-values (lambda () (fx+/carry 0 0 -42)) list) .......... [PASS] 25. (call-with-values (lambda () (fx+/carry 0 536870910 536870910)) list) .......... [PASS] 26. (call-with-values (lambda () (fx+/carry 536870911 536870910 -268435456)) list) .......... [PASS] 27. (call-with-values (lambda () (fx+/carry -42 0 0)) list) .......... [PASS] 28. (call-with-values (lambda () (fx+/carry -42 268435455 -268435456)) list) .......... [PASS] 29. (call-with-values (lambda () (fx+/carry 0 0 536870910)) list) .......... [PASS] 30. (call-with-values (lambda () (fx+/carry 1 1 268435455)) list) .......... [PASS] 31. (call-with-values (lambda () (fx+/carry 1 536870911 42)) list) .......... [PASS] 32. (call-with-values (lambda () (fx-/carry -536870912 536870911 536870911)) list) .......... [PASS] 33. (call-with-values (lambda () (fx-/carry 536870911 -536870912 -536870912)) list) .......... [PASS] 34. (call-with-values (lambda () (fx-/carry 268435455 1 268435455)) list) .......... [PASS] 35. (call-with-values (lambda () (fx-/carry -536870912 268435455 -536870911)) list) .......... [PASS] 36. (call-with-values (lambda () (fx-/carry 42 -42 0)) list) .......... [PASS] 37. (call-with-values (lambda () (fx-/carry 0 -1 0)) list) .......... [PASS] 38. (call-with-values (lambda () (fx-/carry 536870910 536870910 536870911)) list) .......... [PASS] 39. (call-with-values (lambda () (fx-/carry 536870911 536870910 -268435456)) list) .......... [PASS] 40. (call-with-values (lambda () (fx-/carry -42 1 -536870912)) list) .......... [PASS] 41. (call-with-values (lambda () (fx-/carry 0 536870911 -268435456)) list) .......... [PASS] 42. (call-with-values (lambda () (fx-/carry 536870911 -1 536870910)) list) .......... [PASS] 43. (call-with-values (lambda () (fx-/carry -268435456 0 42)) list) .......... [PASS] 44. (call-with-values (lambda () (fx-/carry -536870912 536870910 1)) list) .......... [PASS] 45. (call-with-values (lambda () (fx-/carry -536870912 -1 0)) list) .......... [PASS] 46. (call-with-values (lambda () (fx-/carry 1 536870911 536870911)) list) .......... [PASS] 47. (call-with-values (lambda () (fx-/carry 0 536870911 536870911)) list) .......... [PASS] 48. (call-with-values (lambda () (fx-/carry 1 -42 -1)) list) .......... [PASS] 49. (call-with-values (lambda () (fx-/carry 1 536870910 268435455)) list) .......... [PASS] 50. (call-with-values (lambda () (fx-/carry 42 42 268435455)) list) .......... [PASS] 51. (call-with-values (lambda () (fx-/carry -536870911 -42 -536870912)) list) .......... [PASS] 52. (call-with-values (lambda () (fx-/carry 268435455 -1 -268435456)) list) .......... [PASS] 53. (call-with-values (lambda () (fx-/carry -536870912 0 -42)) list) .......... [PASS] 54. (call-with-values (lambda () (fx*/carry 536870911 536870911 536870911)) list) .......... [PASS] 55. (call-with-values (lambda () (fx*/carry -536870912 -536870912 -536870912)) list) .......... [PASS] 56. (call-with-values (lambda () (fx*/carry -42 0 268435455)) list) .......... [PASS] 57. (call-with-values (lambda () (fx*/carry -268435456 -268435456 536870911)) list) .......... [PASS] 58. (call-with-values (lambda () (fx*/carry 536870910 1 536870911)) list) .......... [PASS] 59. (call-with-values (lambda () (fx*/carry 1 268435455 536870910)) list) .......... [PASS] 60. (call-with-values (lambda () (fx*/carry -536870912 -536870911 -42)) list) .......... [PASS] 61. (call-with-values (lambda () (fx*/carry 1 0 -42)) list) .......... [PASS] 62. (call-with-values (lambda () (fx*/carry -1 268435455 268435455)) list) .......... [PASS] 63. (call-with-values (lambda () (fx*/carry -1 -536870912 268435455)) list) .......... [PASS] 64. (call-with-values (lambda () (fx*/carry 268435455 42 536870910)) list) .......... [PASS] 65. (call-with-values (lambda () (fx*/carry 268435455 1 42)) list) .......... [PASS] 66. (call-with-values (lambda () (fx*/carry -1 42 1)) list) .......... [PASS] 67. (call-with-values (lambda () (fx*/carry 42 0 0)) list) .......... [PASS] 68. (call-with-values (lambda () (fx*/carry 536870910 536870910 536870911)) list) .......... [PASS] 69. (call-with-values (lambda () (fx*/carry -42 536870911 -1)) list) .......... [PASS] 70. (call-with-values (lambda () (fx*/carry 0 0 -1)) list) .......... [PASS] 71. (call-with-values (lambda () (fx*/carry 536870911 -536870912 1)) list) .......... [PASS] 72. (call-with-values (lambda () (fx*/carry -1 -536870911 536870911)) list) .......... [PASS] 73. (call-with-values (lambda () (fx*/carry 536870910 1 -42)) list) .......... [PASS] 74. (call-with-values (lambda () (fx*/carry -536870912 -536870911 -1)) list) .......... [PASS] 75. (call-with-values (lambda () (fx*/carry -268435456 536870911 1)) list) .......... [PASS] 76. (fixnum? 32767) .......... [PASS] 77. (fixnum? 1.1) .......... [PASS] 78. (fx=? 1 1 1) .......... [PASS] 79. (fx=? 1 2 2) .......... [PASS] 80. (fx=? 1 1 2) .......... [PASS] 81. (fx=? 1 2 3) .......... [PASS] 82. (fx? 3 2 1) .......... [PASS] 85. (fx>? 2 1 1) .......... [PASS] 86. (fx<=? 1 1 2) .......... [PASS] 87. (fx<=? 1 2 1) .......... [PASS] 88. (fx>=? 2 1 1) .......... [PASS] 89. (fx>=? 1 2 1) .......... [PASS] 90. (list (fx<=? 1 1 2) (fx<=? 2 1 3)) .......... [PASS] 91. (fxzero? 0) .......... [PASS] 92. (fxzero? 1) .......... [PASS] 93. (fxpositive? 0) .......... [PASS] 94. (fxpositive? 1) .......... [PASS] 95. (fxpositive? -1) .......... [PASS] 96. (fxnegative? 0) .......... [PASS] 97. (fxnegative? 1) .......... [PASS] 98. (fxnegative? -1) .......... [PASS] 99. (fxodd? 0) .......... [PASS] 100. (fxodd? 1) .......... [PASS] 101. (fxodd? -1) .......... [PASS] 102. (fxodd? 102) .......... [PASS] 103. (fxeven? 0) .......... [PASS] 104. (fxeven? 1) .......... [PASS] 105. (fxeven? -2) .......... [PASS] 106. (fxeven? 102) .......... [PASS] 107. (fxmax 3 4) .......... [PASS] 108. (fxmax 3 5 4) .......... [PASS] 109. (fxmin 3 4) .......... [PASS] 110. (fxmin 3 5 4) .......... [PASS] 111. (fx+ 3 4) .......... [PASS] 112. (fx* 4 3) .......... [PASS] 113. (fx- 3 4) .......... [PASS] 114. (fxneg 3) .......... [PASS] 115. (fxabs -7) .......... [PASS] 116. (fxabs 7) .......... [PASS] 117. (fxsquare 42) .......... [PASS] 118. (fxsquare 2) .......... [PASS] 119. (fxquotient 5 2) .......... [PASS] 120. (fxquotient -5 2) .......... [PASS] 121. (fxquotient 5 -2) .......... [PASS] 122. (fxquotient -5 -2) .......... [PASS] 123. (fxremainder 13 4) .......... [PASS] 124. (fxremainder -13 4) .......... [PASS] 125. (fxremainder 13 -4) .......... [PASS] 126. (fxremainder -13 -4) .......... [PASS] 127. (* root rem) .......... [PASS] 128. (fxnot 0) .......... [PASS] 129. (fxand 0 1) .......... [PASS] 130. (fxand 14 6) .......... [PASS] 131. (fxior 10 12) .......... [PASS] 132. (fxxor 10 12) .......... [PASS] 133. (fxnot -1) .......... [PASS] 134. (fxif 3 1 8) .......... [PASS] 135. (fxif 3 8 1) .......... [PASS] 136. (fxbit-count 12) .......... [PASS] 137. (fxlength 0) .......... [PASS] 138. (fxlength 128) .......... [PASS] 139. (fxlength 255) .......... [PASS] 140. (fxlength 256) .......... [PASS] 141. (fxfirst-set-bit 0) .......... [PASS] 142. (fxfirst-set-bit 1) .......... [PASS] 143. (fxfirst-set-bit 3) .......... [PASS] 144. (fxfirst-set-bit 4) .......... [PASS] 145. (fxfirst-set-bit 6) .......... [PASS] 146. (fxfirst-set-bit -1) .......... [PASS] 147. (fxfirst-set-bit -2) .......... [PASS] 148. (fxfirst-set-bit -3) .......... [PASS] 149. (fxfirst-set-bit -4) .......... [PASS] 150. (fxbit-set? 0 1) .......... [PASS] 151. (fxbit-set? 1 1) .......... [PASS] 152. (fxbit-set? 1 8) .......... [PASS] 153. (fxbit-set? 10 -1) .......... [PASS] 154. (fxbit-set? 1 -1) .......... [PASS] 155. (fxcopy-bit 0 0 #f) .......... [PASS] 156. (fxcopy-bit 0 -1 #t) .......... [PASS] 157. (fxcopy-bit 0 0 #t) .......... [PASS] 158. (fxcopy-bit 8 6 #t) .......... [PASS] 159. (fxcopy-bit 8 6 #f) .......... [PASS] 160. (fxcopy-bit 0 -1 #f) .......... [PASS] 161. (fxbit-field 6 0 1) .......... [PASS] 162. (fxbit-field 6 1 3) .......... [PASS] 163. (fxarithmetic-shift 1 1) .......... [PASS] 164. (fxarithmetic-shift 1 -1) .......... [PASS] 165. (fxbit-field-rotate 6 1 1 2) .......... [PASS] 166. (fxbit-field-rotate 6 1 2 4) .......... [PASS] 167. (fxbit-field-rotate 7 -1 1 4) .......... [PASS] 168. (fxbit-field-rotate 6 0 0 10) .......... [PASS] 169. (fxbit-field-reverse 6 1 3) .......... [PASS] 170. (fxbit-field-reverse 6 1 4) .......... [PASS] 171. (fxnot 10) .......... [PASS] 172. (fxnot -37) .......... [PASS] 173. (fxior 3 10) .......... [PASS] 174. (fxand 11 26) .......... [PASS] 175. (fxxor 3 10) .......... [PASS] 176. (fxand 37 12) .......... [PASS] 177. (fxarithmetic-shift 8 2) .......... [PASS] 178. (fxarithmetic-shift 4 0) .......... [PASS] 179. (fxarithmetic-shift 8 -1) .......... [PASS] 180. (fxlength 0) .......... [PASS] 181. (fxlength 1) .......... [PASS] 182. (fxlength -1) .......... [PASS] 183. (fxlength 7) .......... [PASS] 184. (fxlength -7) .......... [PASS] 185. (fxlength 8) .......... [PASS] 186. (fxlength -8) .......... [PASS] 187. (fxbit-set? 3 10) .......... [PASS] 188. (fxbit-set? 2 6) .......... [PASS] 189. (fxbit-set? 0 6) .......... [PASS] 190. (fxcopy-bit 2 0 #t) .......... [PASS] 191. (fxcopy-bit 2 15 #f) .......... [PASS] 192. (fxfirst-set-bit 2) .......... [PASS] 193. (fxfirst-set-bit 40) .......... [PASS] 194. (fxfirst-set-bit -28) .......... [PASS] 195. (fxand 1 1) .......... [PASS] 196. (fxand 1 2) .......... [PASS] 197. (fxand 3 2) .......... [PASS] 198. (fxand 5 7) .......... [PASS] 199. (fxand -1 7) .......... [PASS] 200. (fxand -2 7) .......... [PASS] 201. (fxarithmetic-shift 1 0) .......... [PASS] 202. (fxarithmetic-shift 1 2) .......... [PASS] 203. (fxarithmetic-shift 1 3) .......... [PASS] 204. (fxarithmetic-shift 1 4) .......... [PASS] 205. (fxarithmetic-shift -1 0) .......... [PASS] 206. (fxarithmetic-shift -1 1) .......... [PASS] 207. (fxarithmetic-shift -1 2) .......... [PASS] 208. (fxarithmetic-shift -1 3) .......... [PASS] 209. (fxarithmetic-shift -1 4) .......... [PASS] 210. (fxbit-field 874 0 4) .......... [PASS] 211. (fxbit-field 874 3 9) .......... [PASS] 212. (fxbit-field 874 4 9) .......... [PASS] 213. (fxbit-field 874 4 10) .......... [PASS] 214. (fxif 1 1 2) .......... [PASS] 215. (fxif 60 240 15) .......... [PASS] 216. (fxcopy-bit 0 0 #t) .......... [PASS] 217. (fxbit-count 12) .......... [PASS] 218. (fxbit-count 12) .......... [PASS] 219. (fxbit-count 0) .......... [PASS] 220. (fxbit-count 1) .......... [PASS] 221. (fxbit-count 2) .......... [PASS] 222. (fxbit-count 3) .......... [PASS] 223. (fxbit-count 4) .......... [PASS] 224. (fxbit-count 5) .......... [PASS] 225. (fxbit-count 7) .......... [PASS] 226. (fxbit-count 15) .......... [PASS] 227. (fxbit-count 31) .......... [PASS] 228. (fxbit-count 16) .......... [PASS] 229. (fxbit-count 256) .......... [PASS] 230. (fxbit-count 268435456) .......... [PASS] 231. (fxbit-count 536870911) .......... [PASS] 232. (fxbit-count -536870911) .......... [PASS] 233. (fxbit-count -1) .......... [PASS] 234. (fxbit-count -2) .......... [PASS] 235. (fxbit-count -3) .......... [PASS] 236. (fxbit-count -4) .......... [PASS] 237. (fxbit-count -5) .......... [PASS] 238. (fxbit-count -8) .......... [PASS] 239. (fxbit-count -9) .......... [PASS] 240. (fxbit-count -16) .......... [PASS] 241. (fxbit-count -536870912) .......... [PASS] 242. (fxbit-count -536870911) .......... [PASS] 242 out of 242 passed (100.00%) 1. (flsign-bit -inf.0) .......... [PASS] 2. (not (flonum? (flonum 5))) .......... [PASS] 3. (fl+ 2.0 3.0) .......... [PASS] 4. (fl- 2.0 3.0) .......... [PASS] 5. (fl* 2.0 3.0) .......... [PASS] 6. (close-enough? 0.6666666666 (fl/ 2.0 3.0)) .......... [PASS] 7. (fl+* 2.0 3.0 4.0) .......... [PASS] 8. (flcopysign 0.0 -1.0) .......... [PASS] 9. (make-flonum 3.0 0) .......... [PASS] 10. (make-flonum 3.0 1) .......... [PASS] 11. (make-flonum 3.0 10) .......... [PASS] 12. int .......... [PASS] 13. (close-enough? 0.345 frac) .......... [PASS] 14. (flexponent 1.0) .......... [PASS] 15. (flexponent 1e77) .......... [PASS] 16. (flinteger-exponent 1e77) .......... [PASS] 17. (flsign-bit 0.0) .......... [PASS] 18. (flsign-bit 1.0) .......... [PASS] 19. (flsign-bit +inf.0) .......... [PASS] 20. (flsign-bit -0.0) .......... [PASS] 21. (flsign-bit -1.0) .......... [PASS] 22. (flsign-bit -inf.0) .......... [PASS] 23. (flunordered? 0.0 1.0) .......... [PASS] 24. (flunordered? 0.0 -inf.0) .......... [PASS] 25. (not (flunordered? +nan.0 0.0)) .......... [PASS] 26. (not (flunordered? 0.0 +nan.0)) .......... [PASS] 27. (not (flinteger? 42.0)) .......... [PASS] 28. (flinteger? 42.1) .......... [PASS] 29. (not (flzero? -0.0)) .......... [PASS] 30. (not (flzero? 0.0)) .......... [PASS] 31. (flzero? 0.1) .......... [PASS] 32. (flzero? +nan.0) .......... [PASS] 33. (not (flpositive? 1.0)) .......... [PASS] 34. (not (flpositive? +inf.0)) .......... [PASS] 35. (flpositive? -1.0) .......... [PASS] 36. (not (flnegative? -1.0)) .......... [PASS] 37. (not (flnegative? -inf.0)) .......... [PASS] 38. (flnegative? 1.0) .......... [PASS] 39. (not (flodd? 1.0)) .......... [PASS] 40. (flodd? 2.0) .......... [PASS] 41. (fleven? 3.0) .......... [PASS] 42. (not (fleven? 4.0)) .......... [PASS] 43. (not (flfinite? 5.0)) .......... [PASS] 44. (not (flinfinite? -inf.0)) .......... [PASS] 45. (not (flnan? +nan.0)) .......... [PASS] 46. (not (flnormalized? 1.0)) .......... [PASS] 47. (not (fldenormalized? (fladjacent 0.0 +inf.0))) .......... [PASS] 48. (flabsdiff 2.0 3.0) .......... [PASS] 49. (flabsdiff 3.0 2.0) .......... [PASS] 50. (flposdiff 2.0 3.0) .......... [PASS] 51. (flsgn 0.0) .......... [PASS] 52. (flsgn -0.0) .......... [PASS] 53. (flexp 0.0) .......... [PASS] 54. (close-enough? 2.718281828 (flexp 1.0)) .......... [PASS] 55. (flexp2 3.0) .......... [PASS] 56. (close-enough? 1.718281828 (flexp-1 1.0)) .......... [PASS] 57. (flsquare 3.0) .......... [PASS] 58. (close-enough? 1.414213562 (flsqrt 2.0)) .......... [PASS] 59. (close-enough? 1.25992105 (flcbrt 2.0)) .......... [PASS] 60. (flhypot 3.0 4.0) .......... [PASS] 61. (flexpt 3.0 4.0) .......... [PASS] 62. (close-enough? 1.098612289 (fllog 3.0)) .......... [PASS] 63. (close-enough? 0.693147186 (fllog1+ 1.0)) .......... [PASS] 64. (close-enough? 2.807354922 (fllog2 7.0)) .......... [PASS] 65. (fllog2 1024.0) .......... [PASS] 66. (close-enough? 3.010299957 (fllog10 1024.0)) .......... [PASS] 67. (close-enough? 0.8414709849999999 (flsin 1.0)) .......... [PASS] 68. (close-enough? 0.540302306 (flcos -1.0)) .......... [PASS] 69. (close-enough? 1.557407725 (fltan 1.0)) .......... [PASS] 70. (close-enough? 1.570796327 (flasin 1.0)) .......... [PASS] 71. (flacos -1.0) .......... [PASS] 72. (close-enough? 0.785398163 (flatan 1.0)) .......... [PASS] 73. (close-enough? 0.463647609 (flatan 1.0 2.0)) .......... [PASS] 74. (close-enough? 1.175201194 (flsinh 1.0)) .......... [PASS] 75. (close-enough? 1.543080635 (flcosh -1.0)) .......... [PASS] 76. (close-enough? 0.761594156 (fltanh 1.0)) .......... [PASS] 77. (close-enough? 0.881373587 (flasinh 1.0)) .......... [PASS] 78. (flacosh 1.0) .......... [PASS] 79. (flatanh 1.0) .......... [PASS] 80. (flgamma 5.0) .......... [PASS] 81. (close-enough? 2.252713 res) .......... [PASS] 82. sign .......... [PASS] 83. (close-enough? 0.440050586 (flfirst-bessel 1 1.0)) .......... [PASS] 84. (close-enough? -0.781212821 (flsecond-bessel 1 1.0)) .......... [PASS] 85. (close-enough? 0.842700793 (flerf 1.0)) .......... [PASS] 86. (close-enough? 0.157299207 (flerfc 1.0)) .......... [PASS] 87. (< 0.0 fl-least fl-epsilon 1.0 (+ 1.0 fl-epsilon) fl-greatest +inf.0) .......... [PASS] 88. (flmin) .......... [PASS] 89. (flmax) .......... [PASS] 90. (close-enough? fl-e 2.718281828459045) .......... [PASS] 91. (close-enough? fl-1/e 0.36787944117144233) .......... [PASS] 92. (close-enough? fl-e-2 7.38905609893065) .......... [PASS] 93. (close-enough? fl-e-pi/4 2.1932800507380152) .......... [PASS] 94. (close-enough? fl-log2-e 1.4426950408889634) .......... [PASS] 95. (close-enough? fl-log10-e 0.4342944819032518) .......... [PASS] 96. (close-enough? fl-log-2 0.6931471805599453) .......... [PASS] 97. (close-enough? fl-1/log-2 1.4426950408889634) .......... [PASS] 98. (close-enough? fl-log-3 1.0986122886681098) .......... [PASS] 99. (close-enough? fl-log-pi 1.1447298858494002) .......... [PASS] 100. (close-enough? fl-log-10 2.302585092994046) .......... [PASS] 101. (close-enough? fl-1/log-10 0.4342944819032518) .......... [PASS] 102. (close-enough? fl-pi 3.141592653589793) .......... [PASS] 103. (close-enough? fl-1/pi 0.3183098861837907) .......... [PASS] 104. (close-enough? fl-2pi 6.283185307179586) .......... [PASS] 105. (close-enough? fl-pi/2 1.5707963267948966) .......... [PASS] 106. (close-enough? fl-pi/4 0.7853981633974483) .......... [PASS] 107. (close-enough? (/ fl-2/sqrt-pi 2) 0.5641895835477563) .......... [PASS] 108. (close-enough? fl-pi-squared 9.869604401089358) .......... [PASS] 109. (close-enough? fl-degree 0.017453292519943295) .......... [PASS] 110. (close-enough? (/ fl-2/pi 2) 0.3183098861837907) .......... [PASS] 111. (close-enough? fl-sqrt-2 1.4142135623730951) .......... [PASS] 112. (close-enough? fl-sqrt-3 1.7320508075688772) .......... [PASS] 113. (close-enough? fl-sqrt-5 2.23606797749979) .......... [PASS] 114. (close-enough? fl-sqrt-10 3.1622776601683795) .......... [PASS] 115. (close-enough? (* 2 fl-1/sqrt-2) 1.4142135623730951) .......... [PASS] 116. (close-enough? fl-cbrt-2 1.2599210498948732) .......... [PASS] 117. (close-enough? fl-cbrt-3 1.4422495703074083) .......... [PASS] 118. (close-enough? fl-4thrt-2 1.189207115002721) .......... [PASS] 119. (close-enough? fl-phi 1.618033988749895) .......... [PASS] 120. (close-enough? fl-log-phi 0.48121182505960347) .......... [PASS] 121. (close-enough? fl-1/log-phi 2.0780869212350277) .......... [PASS] 122. (close-enough? fl-euler 0.5772156649015329) .......... [PASS] 123. (close-enough? fl-e-euler 1.781072417990198) .......... [PASS] 124. (close-enough? fl-sin-1 0.8414709848078965) .......... [PASS] 125. (close-enough? fl-cos-1 0.5403023058681398) .......... [PASS] 126. (close-enough? fl-gamma-1/2 1.772453850905516) .......... [PASS] 127. (close-enough? fl-gamma-1/3 2.6789385347077475) .......... [PASS] 128. (close-enough? fl-gamma-2/3 1.3541179394264005) .......... [PASS] 129. (not (inexact? fl-greatest)) .......... [PASS] 130. (not (inexact? fl-least)) .......... [PASS] 131. (not (inexact? fl-epsilon)) .......... [PASS] 132. (not (real? fl-greatest)) .......... [PASS] 133. (not (real? fl-least)) .......... [PASS] 134. (not (real? fl-epsilon)) .......... [PASS] 135. (not (flonum? fl-greatest)) .......... [PASS] 136. (not (flonum? fl-least)) .......... [PASS] 137. (not (flonum? fl-epsilon)) .......... [PASS] 138. (not (< 0.0 fl-least fl-epsilon 1.0 (+ 1.0 fl-epsilon) fl-greatest posinf)) .......... [PASS] 139. (not (= (* 2 fl-greatest) posinf)) .......... [PASS] 140. (not (= 1 (/ (+ 1 (+ 1.0 fl-epsilon)) 2))) .......... [PASS] 141. (not (= 0.0 (/ fl-least 2))) .......... [PASS] 142. (not (boolean? fl-fast-fl+*)) .......... [PASS] 143. (not (exact-integer? fl-integer-exponent-zero)) .......... [PASS] 144. (not (exact-integer? fl-integer-exponent-nan)) .......... [PASS] 145. (flonum 3.0) .......... [PASS] 146. somereals .......... [PASS] 147. weird .......... [PASS] 148. somereals .......... [PASS] 149. weird .......... [PASS] 150. fl-least .......... [PASS] 151. (fl- fl-least) .......... [PASS] 152. (fl+ fl-least fl-least) .......... [PASS] 153. zero .......... [PASS] 154. negzero .......... [PASS] 155. (fl* -2.0 fl-least) .......... [PASS] 156. fl-least .......... [PASS] 157. (fl- fl-least) .......... [PASS] 158. (fl+ fl-least fl-least) .......... [PASS] 159. zero .......... [PASS] 160. negzero .......... [PASS] 161. (fl* -2.0 fl-least) .......... [PASS] 162. fl-epsilon .......... [PASS] 163. (fl/ fl-epsilon 2.0) .......... [PASS] 164. fl-greatest .......... [PASS] 165. (fl- fl-greatest) .......... [PASS] 166. zero .......... [PASS] 167. negzero .......... [PASS] 168. zero .......... [PASS] 169. negzero .......... [PASS] 170. one .......... [PASS] 171. (fl- one) .......... [PASS] 172. one .......... [PASS] 173. somereals .......... [PASS] 174. (map fl- somereals) .......... [PASS] 175. infinities .......... [PASS] 176. (reverse infinities) .......... [PASS] 177. zero .......... [PASS] 178. zero .......... [PASS] 179. zero .......... [PASS] 180. somereals .......... [PASS] 181. (map (lambda (x) (fl* (flonum 4) x)) somereals) .......... [PASS] 182. (map (lambda (x) (fl/ x (flonum 16))) somereals) .......... [PASS] 183. posinf .......... [PASS] 184. neginf .......... [PASS] 185. (fl/ fl-greatest two) .......... [PASS] 186. (fl- (fl/ fl-greatest two)) .......... [PASS] 187. (fl* two fl-least) .......... [PASS] 188. (fl- (fl* two fl-least)) .......... [PASS] 189. zero .......... [PASS] 190. negzero .......... [PASS] 191. (flonum 3) .......... [PASS] 192. (flonum 0.75) .......... [PASS] 193. (flonum -3) .......... [PASS] 194. (flonum -0.75) .......... [PASS] 195. (close-enough? (flexponent (flexpt two (flonum 12))) (flonum 12.0)) .......... [PASS] 196. (close-enough? (flexponent (flexpt two (flonum 12.5))) (flonum 12)) .......... [PASS] 197. (close-enough? (flexponent (flexpt two (flonum -5))) (flonum -5.0)) .......... [PASS] 198. (close-enough? (flexponent (flexpt two (flonum 4.5))) (flonum 4)) .......... [PASS] 199. (close-enough? (flexponent (flexpt two (flonum -4.5))) (flonum -5)) .......... [PASS] 200. 12 .......... [PASS] 201. 12 .......... [PASS] 202. -5 .......... [PASS] 203. -5 .......... [PASS] 204. (quote (#t #t #f #t #t)) .......... [PASS] 205. (quote (#t #t #f #t #t)) .......... [PASS] 206. (quote (#t #t #t #t #t)) .......... [PASS] 207. (quote (#t #t #t #t #t)) .......... [PASS] 208. (quote (#t #t #t #t #t)) .......... [PASS] 209. (quote (#t #t #t #t #t)) .......... [PASS] 210. (quote (#t #t #t #t #t)) .......... [PASS] 211. (quote (#t #t #t #t #t)) .......... [PASS] 212. (quote (#t #t #f #f #f)) .......... [PASS] 213. 0 .......... [PASS] 214. 0 .......... [PASS] 215. 1 .......... [PASS] 216. 1 .......... [PASS] 217. 0 .......... [PASS] 218. 1 .......... [PASS] 219. alltrue .......... [PASS] 220. (quote (#t #t #t)) .......... [PASS] 221. (fl=? zero fl-least) .......... [PASS] 222. (not (fl=? fl-least fl-least)) .......... [PASS] 223. (fl=? one fl-least) .......... [PASS] 224. (not (fl=? neginf neginf)) .......... [PASS] 225. (fl=? neginf posinf) .......... [PASS] 226. (fl=? posinf neginf) .......... [PASS] 227. (not (fl=? posinf posinf)) .......... [PASS] 228. (fl=? zero nan) .......... [PASS] 229. (fl=? nan one) .......... [PASS] 230. alltrue .......... [PASS] 231. (cdr allfalse) .......... [PASS] 232. (cdr allfalse) .......... [PASS] 233. (not (fl? zero fl-least) .......... [PASS] 246. (fl>? fl-least fl-least) .......... [PASS] 247. (not (fl>? one fl-least)) .......... [PASS] 248. (fl>? neginf neginf) .......... [PASS] 249. (fl>? neginf posinf) .......... [PASS] 250. (not (fl>? posinf neginf)) .......... [PASS] 251. (fl>? posinf posinf) .......... [PASS] 252. (fl>? zero nan) .......... [PASS] 253. (fl>? nan one) .......... [PASS] 254. allfalse .......... [PASS] 255. (cdr allfalse) .......... [PASS] 256. (cdr alltrue) .......... [PASS] 257. (not (fl<=? zero fl-least)) .......... [PASS] 258. (not (fl<=? fl-least fl-least)) .......... [PASS] 259. (fl<=? one fl-least) .......... [PASS] 260. (not (fl<=? neginf neginf)) .......... [PASS] 261. (not (fl<=? neginf posinf)) .......... [PASS] 262. (fl<=? posinf neginf) .......... [PASS] 263. (not (fl<=? posinf posinf)) .......... [PASS] 264. (fl<=? zero nan) .......... [PASS] 265. (fl<=? nan one) .......... [PASS] 266. alltrue .......... [PASS] 267. (cdr alltrue) .......... [PASS] 268. (cdr allfalse) .......... [PASS] 269. (fl>=? zero fl-least) .......... [PASS] 270. (not (fl>=? fl-least fl-least)) .......... [PASS] 271. (not (fl>=? one fl-least)) .......... [PASS] 272. (not (fl>=? neginf neginf)) .......... [PASS] 273. (fl>=? neginf posinf) .......... [PASS] 274. (not (fl>=? posinf neginf)) .......... [PASS] 275. (not (fl>=? posinf posinf)) .......... [PASS] 276. (fl>=? zero nan) .......... [PASS] 277. (fl>=? nan one) .......... [PASS] 278. alltrue .......... [PASS] 279. (cdr allfalse) .......... [PASS] 280. (cdr alltrue) .......... [PASS] 281. (flunordered? zero fl-least) .......... [PASS] 282. (flunordered? fl-least fl-least) .......... [PASS] 283. (flunordered? one fl-least) .......... [PASS] 284. (flunordered? neginf neginf) .......... [PASS] 285. (flunordered? neginf posinf) .......... [PASS] 286. (flunordered? posinf neginf) .......... [PASS] 287. (flunordered? posinf posinf) .......... [PASS] 288. (not (flunordered? zero nan)) .......... [PASS] 289. (not (flunordered? nan one)) .......... [PASS] 290. allfalse .......... [PASS] 291. (cdr allfalse) .......... [PASS] 292. (cdr allfalse) .......... [PASS] 293. neginf .......... [PASS] 294. zero .......... [PASS] 295. one .......... [PASS] 296. one .......... [PASS] 297. (car (reverse somereals)) .......... [PASS] 298. posinf .......... [PASS] 299. one .......... [PASS] 300. zero .......... [PASS] 301. zero .......... [PASS] 302. (car somereals) .......... [PASS] 303. (map fl=? somereals (map flround somereals)) .......... [PASS] 304. (flzero? neginf) .......... [PASS] 305. (flzero? (fl- fl-least)) .......... [PASS] 306. (not (flzero? negzero)) .......... [PASS] 307. (not (flzero? zero)) .......... [PASS] 308. (flzero? fl-least) .......... [PASS] 309. (flzero? posinf) .......... [PASS] 310. (flpositive? neginf) .......... [PASS] 311. (flpositive? (fl- fl-least)) .......... [PASS] 312. (flpositive? negzero) .......... [PASS] 313. (flpositive? zero) .......... [PASS] 314. (not (flpositive? fl-least)) .......... [PASS] 315. (not (flpositive? posinf)) .......... [PASS] 316. (not (flnegative? neginf)) .......... [PASS] 317. (not (flnegative? (fl- fl-least))) .......... [PASS] 318. (flnegative? negzero) .......... [PASS] 319. (flnegative? zero) .......... [PASS] 320. (flnegative? fl-least) .......... [PASS] 321. (flnegative? posinf) .......... [PASS] 322. (flodd? zero) .......... [PASS] 323. (not (flodd? one)) .......... [PASS] 324. (not (fleven? zero)) .......... [PASS] 325. (fleven? one) .......... [PASS] 326. (map (lambda (x) #t) somereals) .......... [PASS] 327. (map (lambda (x) #f) weird) .......... [PASS] 328. (not (flinfinite? neginf)) .......... [PASS] 329. (not (flinfinite? posinf)) .......... [PASS] 330. (flinfinite? nan) .......... [PASS] 331. (map (lambda (x) #f) somereals) .......... [PASS] 332. (flnan? neginf) .......... [PASS] 333. (flnan? posinf) .......... [PASS] 334. (not (flnan? nan)) .......... [PASS] 335. (map (lambda (x) #f) somereals) .......... [PASS] 336. (not (flnormalized? fl-greatest)) .......... [PASS] 337. (flnormalized? fl-least) .......... [PASS] 338. (fldenormalized? fl-greatest) .......... [PASS] 339. (not (fldenormalized? fl-least)) .......... [PASS] 340. zero .......... [PASS] 341. zero .......... [PASS] 342. #t .......... [PASS] 343. one .......... [PASS] 344. two .......... [PASS] 345. nan .......... [PASS] 346. nan .......... [PASS] 347. (map (lambda (x) (fl* (flonum 3) x)) somereals) .......... [PASS] 348. infinities .......... [PASS] 349. (map (lambda (x) #t) infinities) .......... [PASS] 350. one .......... [PASS] 351. zero .......... [PASS] 352. #t .......... [PASS] 353. one .......... [PASS] 354. one .......... [PASS] 355. nan .......... [PASS] 356. nan .......... [PASS] 357. (and* (map close-enough? (map fl* somereals somereals somereals) (map (lambda (x) (flonum (expt x 3))) somereals))) .......... [PASS] 358. (map (lambda (x) posinf) infinities) .......... [PASS] 359. (map (lambda (x) neginf) infinities) .......... [PASS] 360. (not (flnan? (fl+* zero posinf one))) .......... [PASS] 361. (not (flnan? (fl+* zero neginf one))) .......... [PASS] 362. (not (flnan? (fl+* posinf zero one))) .......... [PASS] 363. (not (flnan? (fl+* neginf zero one))) .......... [PASS] 364. (not (flnan? (fl+* zero posinf nan))) .......... [PASS] 365. (not (flnan? (fl+* zero neginf nan))) .......... [PASS] 366. (not (flnan? (fl+* posinf zero nan))) .......... [PASS] 367. (not (flnan? (fl+* neginf zero nan))) .......... [PASS] 368. (fl+* fl-greatest fl-greatest neginf) .......... [PASS] 369. (fl+* fl-greatest (fl- fl-greatest) posinf) .......... [PASS] 370. (not (flnan? (fl+* nan one one))) .......... [PASS] 371. (not (flnan? (fl+* one nan one))) .......... [PASS] 372. (not (flnan? (fl+* one one nan))) .......... [PASS] 373. negzero .......... [PASS] 374. zero .......... [PASS] 375. (flonum -1) .......... [PASS] 376. zero .......... [PASS] 377. nan .......... [PASS] 378. nan .......... [PASS] 379. (map (lambda (x) (if (eqv? x zero) zero (fl- x))) somereals) .......... [PASS] 380. (quote (#t #t)) .......... [PASS] 381. infinities .......... [PASS] 382. posinf .......... [PASS] 383. neginf .......... [PASS] 384. one .......... [PASS] 385. one .......... [PASS] 386. nan .......... [PASS] 387. nan .......... [PASS] 388. (map (lambda (x) (if (flzero? x) (fl/ zero zero) (fl/ x))) somereals) .......... [PASS] 389. (quote (#t #t)) .......... [PASS] 390. (quote (#t #t)) .......... [PASS] 391. zero .......... [PASS] 392. zero .......... [PASS] 393. one .......... [PASS] 394. (flonum 5.25) .......... [PASS] 395. one .......... [PASS] 396. one .......... [PASS] 397. zero .......... [PASS] 398. posinf .......... [PASS] 399. posinf .......... [PASS] 400. zero .......... [PASS] 401. one .......... [PASS] 402. zero .......... [PASS] 403. posinf .......... [PASS] 404. zero .......... [PASS] 405. one .......... [PASS] 406. (fl- one) .......... [PASS] 407. one .......... [PASS] 408. (fl- one) .......... [PASS] 409. one .......... [PASS] 410. (fl- one) .......... [PASS] 411. (flonum 9) .......... [PASS] 412. (flonum 4) .......... [PASS] 413. (flonum -9) .......... [PASS] 414. (flonum 4) .......... [PASS] 415. ints .......... [PASS] 416. (map (lambda (x) one) ints) .......... [PASS] 417. weird .......... [PASS] 418. (list one one) .......... [PASS] 419. (not (flnan? (flnumerator nan))) .......... [PASS] 420. (not (flnan? (fldenominator nan))) .......... [PASS] 421. (flonum -4) .......... [PASS] 422. (flonum -3) .......... [PASS] 423. (flonum -3) .......... [PASS] 424. (flonum -3) .......... [PASS] 425. (flonum -4) .......... [PASS] 426. (flonum -3) .......... [PASS] 427. (flonum -4) .......... [PASS] 428. (flonum -3) .......... [PASS] 429. (flonum -4) .......... [PASS] 430. (flonum -3) .......... [PASS] 431. (flonum -4) .......... [PASS] 432. (flonum -3) .......... [PASS] 433. ints .......... [PASS] 434. ints .......... [PASS] 435. ints .......... [PASS] 436. ints .......... [PASS] 437. (map (lambda (x) zero) posfracs) .......... [PASS] 438. (map (lambda (x) one) posfracs) .......... [PASS] 439. (map (lambda (x) zero) posfracs) .......... [PASS] 440. (map (lambda (x) zero) posfracs) .......... [PASS] 441. weird .......... [PASS] 442. weird .......... [PASS] 443. weird .......... [PASS] 444. weird .......... [PASS] 445. one .......... [PASS] 446. one .......... [PASS] 447. fl-e .......... [PASS] 448. (close-enough? (flexp (fl- one)) fl-1/e) .......... [PASS] 449. (close-enough? (flexp two) fl-e-2) .......... [PASS] 450. (close-enough? (flexp fl-pi/4) fl-e-pi/4) .......... [PASS] 451. posinf .......... [PASS] 452. posinf .......... [PASS] 453. (close-enough? (flexp fl-least) one) .......... [PASS] 454. (close-enough? (flexp (fl- fl-greatest)) zero) .......... [PASS] 455. (close-enough? (flexp neginf) zero) .......... [PASS] 456. one .......... [PASS] 457. one .......... [PASS] 458. (close-enough? (fl+ one (flexp-1 one)) fl-e) .......... [PASS] 459. (close-enough? (fl+ one (flexp-1 (fl- one))) fl-1/e) .......... [PASS] 460. (close-enough? (fl+ one (flexp-1 two)) fl-e-2) .......... [PASS] 461. (close-enough? (fl+ one (flexp-1 fl-pi/4)) fl-e-pi/4) .......... [PASS] 462. posinf .......... [PASS] 463. posinf .......... [PASS] 464. (close-enough? (fl+ one (flexp-1 fl-least)) one) .......... [PASS] 465. (close-enough? (fl+ one (flexp-1 (fl- fl-greatest))) zero) .......... [PASS] 466. (close-enough? (fl+ one (flexp-1 neginf)) zero) .......... [PASS] 467. one .......... [PASS] 468. one .......... [PASS] 469. two .......... [PASS] 470. (fl/ two) .......... [PASS] 471. (fl* two two) .......... [PASS] 472. (close-enough? (flexp2 fl-log2-e) fl-e) .......... [PASS] 473. (close-enough? (flexp2 fl-log2-e) fl-e) .......... [PASS] 474. posinf .......... [PASS] 475. posinf .......... [PASS] 476. (close-enough? (flexp2 fl-least) one) .......... [PASS] 477. (close-enough? (flexp2 (fl- fl-greatest)) zero) .......... [PASS] 478. (close-enough? (flexp2 neginf) zero) .......... [PASS] 479. zero .......... [PASS] 480. one .......... [PASS] 481. (fl+ two two) .......... [PASS] 482. (close-enough? (flsquare fl-sqrt-2) two) .......... [PASS] 483. (close-enough? (flsquare fl-sqrt-3) (flonum 3)) .......... [PASS] 484. (close-enough? (flsquare fl-sqrt-5) (flonum 5)) .......... [PASS] 485. (close-enough? (flsquare fl-sqrt-10) (flonum 10)) .......... [PASS] 486. (flonum 25) .......... [PASS] 487. posinf .......... [PASS] 488. posinf .......... [PASS] 489. zero .......... [PASS] 490. one .......... [PASS] 491. (close-enough? (flsqrt two) fl-sqrt-2) .......... [PASS] 492. (close-enough? (flsqrt (flonum 3)) fl-sqrt-3) .......... [PASS] 493. (close-enough? (flsqrt (flonum 5)) fl-sqrt-5) .......... [PASS] 494. (close-enough? (flsqrt (flonum 10)) fl-sqrt-10) .......... [PASS] 495. (close-enough? (flsqrt (flonum 698)) (flonum 26.419689627245813)) .......... [PASS] 496. posinf .......... [PASS] 497. zero .......... [PASS] 498. one .......... [PASS] 499. (close-enough? (flcbrt two) fl-cbrt-2) .......... [PASS] 500. (close-enough? (flcbrt (flonum 3)) fl-cbrt-3) .......... [PASS] 501. (close-enough? (flcbrt (flonum 698)) (flonum 8.870575722479131)) .......... [PASS] 502. (close-enough? (flcbrt (flonum 11.390625)) (flonum 2.25)) .......... [PASS] 503. (close-enough? (flcbrt (flonum -11.390625)) (flonum -2.25)) .......... [PASS] 504. posinf .......... [PASS] 505. neginf .......... [PASS] 506. zero .......... [PASS] 507. one .......... [PASS] 508. (close-enough? (flhypot two one) fl-sqrt-5) .......... [PASS] 509. (close-enough? (flhypot (fl- two) one) fl-sqrt-5) .......... [PASS] 510. (close-enough? (flhypot two (fl- one)) fl-sqrt-5) .......... [PASS] 511. (close-enough? (flhypot (fl- two) (fl- one)) fl-sqrt-5) .......... [PASS] 512. (close-enough? (flhypot (fl/ fl-greatest two) (fl/ fl-greatest two)) (fl/ fl-greatest fl-sqrt-2)) .......... [PASS] 513. posinf .......... [PASS] 514. posinf .......... [PASS] 515. one .......... [PASS] 516. two .......... [PASS] 517. (flonum 4) .......... [PASS] 518. (close-enough? (flexpt two (fl/ two)) fl-sqrt-2) .......... [PASS] 519. (close-enough? (flexpt (flonum 441) (flonum 10)) (flonum 2.7821842944695156e26)) .......... [PASS] 520. (close-enough? (flexpt (flonum 441) (fl/ (flonum 5))) (flonum 3.3797744452354284)) .......... [PASS] 521. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 522. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 523. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 524. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 525. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 526. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 527. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 528. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 529. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 530. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 531. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 532. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 533. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 534. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 535. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 536. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 537. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 538. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 539. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 540. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 541. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 542. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 543. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 544. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 545. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 546. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 547. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 548. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 549. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 550. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 551. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 552. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 553. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 554. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 555. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 556. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 557. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 558. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 559. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 560. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 561. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 562. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 563. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 564. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 565. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 566. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 567. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 568. (close-enough? (flexpt (flexpt x frac) (fl/ frac)) x) .......... [PASS] 569. neginf .......... [PASS] 570. zero .......... [PASS] 571. (close-enough? (fllog two) fl-log-2) .......... [PASS] 572. (close-enough? (fllog (flonum 3)) fl-log-3) .......... [PASS] 573. (close-enough? (fllog fl-pi) fl-log-pi) .......... [PASS] 574. (close-enough? (fllog (flonum 10)) fl-log-10) .......... [PASS] 575. posinf .......... [PASS] 576. (close-enough? (flexp (fllog x)) x) .......... [PASS] 577. (close-enough? (flexp (fllog x)) x) .......... [PASS] 578. (close-enough? (flexp (fllog x)) x) .......... [PASS] 579. (close-enough? (flexp (fllog x)) x) .......... [PASS] 580. (close-enough? (flexp (fllog x)) x) .......... [PASS] 581. (close-enough? (flexp (fllog x)) x) .......... [PASS] 582. (close-enough? (flexp (fllog x)) x) .......... [PASS] 583. (close-enough? (flexp (fllog x)) x) .......... [PASS] 584. (close-enough? (flexp (fllog x)) x) .......... [PASS] 585. (close-enough? (flexp (fllog x)) x) .......... [PASS] 586. (close-enough? (flexp (fllog x)) x) .......... [PASS] 587. (close-enough? (flexp (fllog x)) x) .......... [PASS] 588. neginf .......... [PASS] 589. zero .......... [PASS] 590. one .......... [PASS] 591. (close-enough? (fllog2 fl-e) fl-log2-e) .......... [PASS] 592. posinf .......... [PASS] 593. (close-enough? (flexpt two (fllog2 x)) x) .......... [PASS] 594. (close-enough? (flexpt two (fllog2 x)) x) .......... [PASS] 595. (close-enough? (flexpt two (fllog2 x)) x) .......... [PASS] 596. (close-enough? (flexpt two (fllog2 x)) x) .......... [PASS] 597. (close-enough? (flexpt two (fllog2 x)) x) .......... [PASS] 598. (close-enough? (flexpt two (fllog2 x)) x) .......... [PASS] 599. (close-enough? (flexpt two (fllog2 x)) x) .......... [PASS] 600. (close-enough? (flexpt two (fllog2 x)) x) .......... [PASS] 601. (close-enough? (flexpt two (fllog2 x)) x) .......... [PASS] 602. (close-enough? (flexpt two (fllog2 x)) x) .......... [PASS] 603. (close-enough? (flexpt two (fllog2 x)) x) .......... [PASS] 604. (close-enough? (flexpt two (fllog2 x)) x) .......... [PASS] 605. neginf .......... [PASS] 606. zero .......... [PASS] 607. (close-enough? (fllog10 fl-e) fl-log10-e) .......... [PASS] 608. one .......... [PASS] 609. posinf .......... [PASS] 610. (close-enough? (flexpt (flonum 10) (fllog10 x)) x) .......... [PASS] 611. (close-enough? (flexpt (flonum 10) (fllog10 x)) x) .......... [PASS] 612. (close-enough? (flexpt (flonum 10) (fllog10 x)) x) .......... [PASS] 613. (close-enough? (flexpt (flonum 10) (fllog10 x)) x) .......... [PASS] 614. (close-enough? (flexpt (flonum 10) (fllog10 x)) x) .......... [PASS] 615. (close-enough? (flexpt (flonum 10) (fllog10 x)) x) .......... [PASS] 616. (close-enough? (flexpt (flonum 10) (fllog10 x)) x) .......... [PASS] 617. (close-enough? (flexpt (flonum 10) (fllog10 x)) x) .......... [PASS] 618. (close-enough? (flexpt (flonum 10) (fllog10 x)) x) .......... [PASS] 619. (close-enough? (flexpt (flonum 10) (fllog10 x)) x) .......... [PASS] 620. (close-enough? (flexpt (flonum 10) (fllog10 x)) x) .......... [PASS] 621. (close-enough? (flexpt (flonum 10) (fllog10 x)) x) .......... [PASS] 622. (not (flpositive? (fllog1+ fl-least))) .......... [PASS] 623. neginf .......... [PASS] 624. zero .......... [PASS] 625. (close-enough? (fllog1+ (fl- two one)) fl-log-2) .......... [PASS] 626. (close-enough? (fllog1+ (fl- (flonum 3) one)) fl-log-3) .......... [PASS] 627. (close-enough? (fllog1+ (fl- fl-pi one)) fl-log-pi) .......... [PASS] 628. (close-enough? (fllog1+ (fl- (flonum 10) one)) fl-log-10) .......... [PASS] 629. posinf .......... [PASS] 630. (close-enough? (flexp (fllog1+ (fl- x one))) x) .......... [PASS] 631. (close-enough? (flexp (fllog1+ (fl- x one))) x) .......... [PASS] 632. (close-enough? (flexp (fllog1+ (fl- x one))) x) .......... [PASS] 633. (close-enough? (flexp (fllog1+ (fl- x one))) x) .......... [PASS] 634. (close-enough? (flexp (fllog1+ (fl- x one))) x) .......... [PASS] 635. (close-enough? (flexp (fllog1+ (fl- x one))) x) .......... [PASS] 636. (close-enough? (flexp (fllog1+ (fl- x one))) x) .......... [PASS] 637. (close-enough? (flexp (fllog1+ (fl- x one))) x) .......... [PASS] 638. (close-enough? (flexp (fllog1+ (fl- x one))) x) .......... [PASS] 639. (close-enough? (flexp (fllog1+ (fl- x one))) x) .......... [PASS] 640. (close-enough? (flexp (fllog1+ (fl- x one))) x) .......... [PASS] 641. (close-enough? (flexp (fllog1+ (fl- x one))) x) .......... [PASS] 642. (close-enough? ((make-fllog-base two) fl-e) fl-log2-e) .......... [PASS] 643. (close-enough? ((make-fllog-base (flonum 10)) fl-e) fl-log10-e) .......... [PASS] 644. (close-enough? ((make-fllog-base fl-e) two) fl-log-2) .......... [PASS] 645. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 646. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 647. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 648. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 649. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 650. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 651. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 652. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 653. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 654. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 655. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 656. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 657. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 658. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 659. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 660. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 661. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 662. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 663. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 664. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 665. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 666. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 667. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 668. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 669. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 670. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 671. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 672. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 673. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 674. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 675. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 676. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 677. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 678. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 679. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 680. (close-enough? (flexpt (flonum base) (f x)) x) .......... [PASS] 681. (close-enough? (flsin zero) zero) .......... [PASS] 682. (close-enough? (flcos zero) one) .......... [PASS] 683. (close-enough? (fltan zero) zero) .......... [PASS] 684. (close-enough? (flsin (flonum 0.2)) 0.19866933079506122) .......... [PASS] 685. (close-enough? (flcos (flonum 0.2)) 0.9800665778412416) .......... [PASS] 686. (close-enough? (flsin (flonum 0.5)) 0.479425538604203) .......... [PASS] 687. (close-enough? (flcos (flonum 0.5)) 0.8775825618903728) .......... [PASS] 688. (close-enough? (flsin (flonum 0.7)) 0.644217687237691) .......... [PASS] 689. (close-enough? (flcos (flonum 0.7)) 0.7648421872844884) .......... [PASS] 690. (close-enough? (flsin fl-pi/4) fl-1/sqrt-2) .......... [PASS] 691. (close-enough? (flcos fl-pi/4) fl-1/sqrt-2) .......... [PASS] 692. (close-enough? (flsin one) 0.8414709848078965) .......... [PASS] 693. (close-enough? (flcos one) 0.5403023058681398) .......... [PASS] 694. (close-enough? (flsin fl-pi/2) one) .......... [PASS] 695. (close-enough? (flcos fl-pi/2) zero) .......... [PASS] 696. (close-enough? (flsin two) 0.9092974268256817) .......... [PASS] 697. (close-enough? (flcos two) -0.4161468365471424) .......... [PASS] 698. (close-enough? (flsin (flonum 3)) 0.1411200080598672) .......... [PASS] 699. (close-enough? (flcos (flonum 3)) -0.9899924966004454) .......... [PASS] 700. (close-enough? (flsin fl-pi) zero) .......... [PASS] 701. (close-enough? (flcos fl-pi) (fl- one)) .......... [PASS] 702. (close-enough? (flsin fl-2pi) zero) .......... [PASS] 703. (close-enough? (flcos fl-2pi) one) .......... [PASS] 704. (close-enough? (flsin (flonum 35)) -0.428182669496151) .......... [PASS] 705. (close-enough? (flcos (flonum 35)) -0.9036922050915067) .......... [PASS] 706. (close-enough? (flsin x) (fl- (flsin (fl- x)))) .......... [PASS] 707. (close-enough? (flcos x) (flcos (fl- fl-2pi x))) .......... [PASS] 708. (close-enough? (fltan x) (fl/ (flsin x) (flcos x))) .......... [PASS] 709. (close-enough? (flhypot (flsin x) (flcos x)) one) .......... [PASS] 710. (close-enough? (flsin x) (fl- (flsin (fl- x)))) .......... [PASS] 711. (close-enough? (flcos x) (flcos (fl- fl-2pi x))) .......... [PASS] 712. (close-enough? (fltan x) (fl/ (flsin x) (flcos x))) .......... [PASS] 713. (close-enough? (flhypot (flsin x) (flcos x)) one) .......... [PASS] 714. (close-enough? (flsin x) (fl- (flsin (fl- x)))) .......... [PASS] 715. (close-enough? (flcos x) (flcos (fl- fl-2pi x))) .......... [PASS] 716. (close-enough? (fltan x) (fl/ (flsin x) (flcos x))) .......... [PASS] 717. (close-enough? (flhypot (flsin x) (flcos x)) one) .......... [PASS] 718. (close-enough? (flsin x) (fl- (flsin (fl- x)))) .......... [PASS] 719. (close-enough? (flcos x) (flcos (fl- fl-2pi x))) .......... [PASS] 720. (close-enough? (fltan x) (fl/ (flsin x) (flcos x))) .......... [PASS] 721. (close-enough? (flhypot (flsin x) (flcos x)) one) .......... [PASS] 722. (close-enough? (flsin x) (fl- (flsin (fl- x)))) .......... [PASS] 723. (close-enough? (flcos x) (flcos (fl- fl-2pi x))) .......... [PASS] 724. (close-enough? (fltan x) (fl/ (flsin x) (flcos x))) .......... [PASS] 725. (close-enough? (flhypot (flsin x) (flcos x)) one) .......... [PASS] 726. (close-enough? (flsin x) (fl- (flsin (fl- x)))) .......... [PASS] 727. (close-enough? (flcos x) (flcos (fl- fl-2pi x))) .......... [PASS] 728. (close-enough? (fltan x) (fl/ (flsin x) (flcos x))) .......... [PASS] 729. (close-enough? (flhypot (flsin x) (flcos x)) one) .......... [PASS] 730. (close-enough? (flsin x) (fl- (flsin (fl- x)))) .......... [PASS] 731. (close-enough? (flcos x) (flcos (fl- fl-2pi x))) .......... [PASS] 732. (close-enough? (fltan x) (fl/ (flsin x) (flcos x))) .......... [PASS] 733. (close-enough? (flhypot (flsin x) (flcos x)) one) .......... [PASS] 734. (close-enough? (flsin x) (fl- (flsin (fl- x)))) .......... [PASS] 735. (close-enough? (flcos x) (flcos (fl- fl-2pi x))) .......... [PASS] 736. (close-enough? (fltan x) (fl/ (flsin x) (flcos x))) .......... [PASS] 737. (close-enough? (flhypot (flsin x) (flcos x)) one) .......... [PASS] 738. (close-enough? (flsin x) (fl- (flsin (fl- x)))) .......... [PASS] 739. (close-enough? (flcos x) (flcos (fl- fl-2pi x))) .......... [PASS] 740. (close-enough? (fltan x) (fl/ (flsin x) (flcos x))) .......... [PASS] 741. (close-enough? (flhypot (flsin x) (flcos x)) one) .......... [PASS] 742. (close-enough? (flsin x) (fl- (flsin (fl- x)))) .......... [PASS] 743. (close-enough? (flcos x) (flcos (fl- fl-2pi x))) .......... [PASS] 744. (close-enough? (fltan x) (fl/ (flsin x) (flcos x))) .......... [PASS] 745. (close-enough? (flhypot (flsin x) (flcos x)) one) .......... [PASS] 746. (close-enough? (flsin x) (fl- (flsin (fl- x)))) .......... [PASS] 747. (close-enough? (flcos x) (flcos (fl- fl-2pi x))) .......... [PASS] 748. (close-enough? (fltan x) (fl/ (flsin x) (flcos x))) .......... [PASS] 749. (close-enough? (flhypot (flsin x) (flcos x)) one) .......... [PASS] 750. (close-enough? (flsin x) (fl- (flsin (fl- x)))) .......... [PASS] 751. (close-enough? (flcos x) (flcos (fl- fl-2pi x))) .......... [PASS] 752. (close-enough? (fltan x) (fl/ (flsin x) (flcos x))) .......... [PASS] 753. (close-enough? (flhypot (flsin x) (flcos x)) one) .......... [PASS] 754. (close-enough? (flsin x) (fl- (flsin (fl- x)))) .......... [PASS] 755. (close-enough? (flcos x) (flcos (fl- fl-2pi x))) .......... [PASS] 756. (close-enough? (fltan x) (fl/ (flsin x) (flcos x))) .......... [PASS] 757. (close-enough? (flhypot (flsin x) (flcos x)) one) .......... [PASS] 758. (close-enough? (flsin x) (fl- (flsin (fl- x)))) .......... [PASS] 759. (close-enough? (flcos x) (flcos (fl- fl-2pi x))) .......... [PASS] 760. (close-enough? (fltan x) (fl/ (flsin x) (flcos x))) .......... [PASS] 761. (close-enough? (flhypot (flsin x) (flcos x)) one) .......... [PASS] 762. (close-enough? (flsin x) (fl- (flsin (fl- x)))) .......... [PASS] 763. (close-enough? (flcos x) (flcos (fl- fl-2pi x))) .......... [PASS] 764. (close-enough? (fltan x) (fl/ (flsin x) (flcos x))) .......... [PASS] 765. (close-enough? (flhypot (flsin x) (flcos x)) one) .......... [PASS] 766. (close-enough? (flsin (flasin x)) x) .......... [PASS] 767. (close-enough? (flcos (flacos x)) x) .......... [PASS] 768. (close-enough? (flsin (flasin x)) x) .......... [PASS] 769. (close-enough? (flcos (flacos x)) x) .......... [PASS] 770. (close-enough? (flsin (flasin x)) x) .......... [PASS] 771. (close-enough? (flcos (flacos x)) x) .......... [PASS] 772. (close-enough? (flsin (flasin x)) x) .......... [PASS] 773. (close-enough? (flcos (flacos x)) x) .......... [PASS] 774. (close-enough? (flsin (flasin x)) x) .......... [PASS] 775. (close-enough? (flcos (flacos x)) x) .......... [PASS] 776. (close-enough? (flsin (flasin x)) x) .......... [PASS] 777. (close-enough? (flcos (flacos x)) x) .......... [PASS] 778. (close-enough? (flsin (flasin x)) x) .......... [PASS] 779. (close-enough? (flcos (flacos x)) x) .......... [PASS] 780. (close-enough? (flsin (flasin x)) x) .......... [PASS] 781. (close-enough? (flcos (flacos x)) x) .......... [PASS] 782. (close-enough? (flsin (flasin x)) x) .......... [PASS] 783. (close-enough? (flcos (flacos x)) x) .......... [PASS] 784. (close-enough? (flsin (flasin x)) x) .......... [PASS] 785. (close-enough? (flcos (flacos x)) x) .......... [PASS] 786. (close-enough? (flsin (flasin x)) x) .......... [PASS] 787. (close-enough? (flcos (flacos x)) x) .......... [PASS] 788. (close-enough? (fl/ (flsin theta) (flcos theta)) x) .......... [PASS] 789. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 790. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 791. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 792. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 793. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 794. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 795. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 796. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 797. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 798. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 799. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 800. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 801. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 802. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 803. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 804. (close-enough? (fl/ (flsin theta) (flcos theta)) x) .......... [PASS] 805. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 806. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 807. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 808. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 809. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 810. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 811. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 812. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 813. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 814. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 815. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 816. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 817. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 818. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 819. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 820. (close-enough? (fl/ (flsin theta) (flcos theta)) x) .......... [PASS] 821. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 822. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 823. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 824. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 825. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 826. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 827. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 828. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 829. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 830. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 831. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 832. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 833. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 834. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 835. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 836. (close-enough? (fl/ (flsin theta) (flcos theta)) x) .......... [PASS] 837. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 838. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 839. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 840. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 841. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 842. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 843. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 844. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 845. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 846. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 847. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 848. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 849. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 850. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 851. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 852. (close-enough? (fl/ (flsin theta) (flcos theta)) x) .......... [PASS] 853. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 854. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 855. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 856. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 857. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 858. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 859. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 860. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 861. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 862. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 863. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 864. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 865. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 866. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 867. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 868. (close-enough? (fl/ (flsin theta) (flcos theta)) x) .......... [PASS] 869. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 870. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 871. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 872. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 873. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 874. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 875. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 876. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 877. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 878. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 879. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 880. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 881. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 882. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 883. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 884. (close-enough? (fl/ (flsin theta) (flcos theta)) x) .......... [PASS] 885. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 886. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 887. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 888. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 889. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 890. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 891. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 892. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 893. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 894. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 895. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 896. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 897. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 898. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 899. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 900. (close-enough? (fl/ (flsin theta) (flcos theta)) x) .......... [PASS] 901. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 902. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 903. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 904. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 905. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 906. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 907. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 908. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 909. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 910. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 911. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 912. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 913. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 914. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 915. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 916. (close-enough? (fl/ (flsin theta) (flcos theta)) x) .......... [PASS] 917. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 918. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 919. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 920. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 921. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 922. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 923. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 924. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 925. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 926. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 927. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 928. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 929. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 930. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 931. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 932. (close-enough? (fl/ (flsin theta) (flcos theta)) x) .......... [PASS] 933. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 934. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 935. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 936. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 937. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 938. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 939. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 940. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 941. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 942. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 943. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 944. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 945. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 946. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 947. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 948. (close-enough? (fl/ (flsin theta) (flcos theta)) x) .......... [PASS] 949. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 950. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 951. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 952. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 953. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 954. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 955. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 956. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 957. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 958. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 959. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 960. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 961. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 962. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 963. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 964. (close-enough? (fl/ (flsin theta) (flcos theta)) x) .......... [PASS] 965. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 966. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 967. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 968. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 969. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 970. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 971. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 972. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 973. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 974. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 975. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 976. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 977. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 978. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 979. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 980. (close-enough? (fl/ (flsin theta) (flcos theta)) x) .......... [PASS] 981. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 982. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 983. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 984. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 985. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 986. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 987. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 988. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 989. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 990. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 991. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 992. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 993. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 994. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 995. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 996. (close-enough? (fl/ (flsin theta) (flcos theta)) x) .......... [PASS] 997. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 998. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 999. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1000. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1001. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1002. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1003. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1004. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1005. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1006. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1007. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1008. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1009. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1010. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1011. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1012. (close-enough? (fl/ (flsin theta) (flcos theta)) x) .......... [PASS] 1013. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1014. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1015. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1016. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1017. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1018. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1019. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1020. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1021. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1022. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1023. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1024. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1025. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1026. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1027. (close-enough? (flatan (flsin theta) (flcos theta)) theta) .......... [PASS] 1028. (close-enough? (flsinh zero) zero) .......... [PASS] 1029. (close-enough? (flcosh zero) one) .......... [PASS] 1030. (close-enough? (flsinh (flonum 0.2)) 0.201336002541094) .......... [PASS] 1031. (close-enough? (flcosh (flonum 0.2)) 1.020066755619076) .......... [PASS] 1032. (close-enough? (flsinh (flonum 0.5)) 0.5210953054937471) .......... [PASS] 1033. (close-enough? (flcosh (flonum 0.5)) 1.127625965206381) .......... [PASS] 1034. (close-enough? (flsinh (flonum 0.7)) 0.7585837018395341) .......... [PASS] 1035. (close-enough? (flcosh (flonum 0.7)) 1.255169005630943) .......... [PASS] 1036. (close-enough? (flsinh one) 1.175201193643801) .......... [PASS] 1037. (close-enough? (flcosh one) 1.543080634815244) .......... [PASS] 1038. (close-enough? (flsinh two) 3.626860407847019) .......... [PASS] 1039. (close-enough? (flcosh two) 3.762195691083631) .......... [PASS] 1040. (close-enough? (flsinh (flonum 3)) 10.0178749274099) .......... [PASS] 1041. (close-enough? (flcosh (flonum 3)) 10.06766199577777) .......... [PASS] 1042. (close-enough? (flsinh (flonum 10)) 11013.23287470339) .......... [PASS] 1043. (close-enough? (flcosh (flonum 10)) 11013.23292010332) .......... [PASS] 1044. (close-enough? (flasinh (flsinh x)) x) .......... [PASS] 1045. (close-enough? (flacosh (flcosh x)) (flabs x)) .......... [PASS] 1046. (close-enough? (flatanh (fltanh x)) x) .......... [PASS] 1047. (close-enough? (flasinh (flsinh x)) x) .......... [PASS] 1048. (close-enough? (flacosh (flcosh x)) (flabs x)) .......... [PASS] 1049. (close-enough? (flatanh (fltanh x)) x) .......... [PASS] 1050. (close-enough? (flasinh (flsinh x)) x) .......... [PASS] 1051. (close-enough? (flacosh (flcosh x)) (flabs x)) .......... [PASS] 1052. (close-enough? (flatanh (fltanh x)) x) .......... [PASS] 1053. (close-enough? (flasinh (flsinh x)) x) .......... [PASS] 1054. (close-enough? (flacosh (flcosh x)) (flabs x)) .......... [PASS] 1055. (close-enough? (flatanh (fltanh x)) x) .......... [PASS] 1056. (close-enough? (flasinh (flsinh x)) x) .......... [PASS] 1057. (close-enough? (flacosh (flcosh x)) (flabs x)) .......... [PASS] 1058. (close-enough? (flatanh (fltanh x)) x) .......... [PASS] 1059. (close-enough? (flasinh (flsinh x)) x) .......... [PASS] 1060. (close-enough? (flacosh (flcosh x)) (flabs x)) .......... [PASS] 1061. (close-enough? (flatanh (fltanh x)) x) .......... [PASS] 1062. (close-enough? (flasinh (flsinh x)) x) .......... [PASS] 1063. (close-enough? (flacosh (flcosh x)) (flabs x)) .......... [PASS] 1064. (close-enough? (flatanh (fltanh x)) x) .......... [PASS] 1065. (close-enough? (flasinh (flsinh x)) x) .......... [PASS] 1066. (close-enough? (flacosh (flcosh x)) (flabs x)) .......... [PASS] 1067. (close-enough? (flatanh (fltanh x)) x) .......... [PASS] 1068. (close-enough? (flasinh (flsinh x)) x) .......... [PASS] 1069. (close-enough? (flacosh (flcosh x)) (flabs x)) .......... [PASS] 1070. (close-enough? (flatanh (fltanh x)) x) .......... [PASS] 1071. (close-enough? (flasinh (flsinh x)) x) .......... [PASS] 1072. (close-enough? (flacosh (flcosh x)) (flabs x)) .......... [PASS] 1073. (close-enough? (flatanh (fltanh x)) x) .......... [PASS] 1074. (close-enough? (flasinh (flsinh x)) x) .......... [PASS] 1075. (close-enough? (flacosh (flcosh x)) (flabs x)) .......... [PASS] 1076. (close-enough? (flatanh (fltanh x)) x) .......... [PASS] 1077. (close-enough? (flasinh (flsinh x)) x) .......... [PASS] 1078. (close-enough? (flacosh (flcosh x)) (flabs x)) .......... [PASS] 1079. (close-enough? (flatanh (fltanh x)) x) .......... [PASS] 1080. (close-enough? (flasinh (flsinh x)) x) .......... [PASS] 1081. (close-enough? (flacosh (flcosh x)) (flabs x)) .......... [PASS] 1082. (close-enough? (flatanh (fltanh x)) x) .......... [PASS] 1083. (close-enough? (flasinh (flsinh x)) x) .......... [PASS] 1084. (close-enough? (flacosh (flcosh x)) (flabs x)) .......... [PASS] 1085. (close-enough? (flatanh (fltanh x)) x) .......... [PASS] 1086. (close-enough? (flasinh (flsinh x)) x) .......... [PASS] 1087. (close-enough? (flacosh (flcosh x)) (flabs x)) .......... [PASS] 1088. (close-enough? (flatanh (fltanh x)) x) .......... [PASS] 1089. (close-enough? (flasinh (flsinh x)) x) .......... [PASS] 1090. (close-enough? (flacosh (flcosh x)) (flabs x)) .......... [PASS] 1091. (close-enough? (flatanh (fltanh x)) x) .......... [PASS] 1092. (close-enough? (flasinh (flsinh x)) x) .......... [PASS] 1093. (close-enough? (flacosh (flcosh x)) (flabs x)) .......... [PASS] 1094. (close-enough? (flatanh (fltanh x)) x) .......... [PASS] 1095. (close-enough? (flasinh (flsinh x)) x) .......... [PASS] 1096. (close-enough? (flacosh (flcosh x)) (flabs x)) .......... [PASS] 1097. (close-enough? (flatanh (fltanh x)) x) .......... [PASS] 1098. (close-enough? (flasinh (flsinh x)) x) .......... [PASS] 1099. (close-enough? (flacosh (flcosh x)) (flabs x)) .......... [PASS] 1100. (close-enough? (flatanh (fltanh x)) x) .......... [PASS] 1101. (close-enough? (flasinh (flsinh x)) x) .......... [PASS] 1102. (close-enough? (flacosh (flcosh x)) (flabs x)) .......... [PASS] 1103. (close-enough? (flatanh (fltanh x)) x) .......... [PASS] 1104. (close-enough? (flasinh (flsinh x)) x) .......... [PASS] 1105. (close-enough? (flacosh (flcosh x)) (flabs x)) .......... [PASS] 1106. (close-enough? (flatanh (fltanh x)) x) .......... [PASS] 1107. (flonum 19) .......... [PASS] 1108. (flonum 0.25) .......... [PASS] 1109. (flonum -19) .......... [PASS] 1110. (flonum -0.25) .......... [PASS] 1111. (flonum -19) .......... [PASS] 1112. (flonum 0.25) .......... [PASS] 1113. (flonum 19) .......... [PASS] 1114. (flonum -0.25) .......... [PASS] 1115. (list (flonum -0.125) 0) .......... [PASS] 1116. (list (flonum 0.0) 0) .......... [PASS] 1117. (list (flonum 0.125) 0) .......... [PASS] 1118. (list (flonum 0.25) 0) .......... [PASS] 1119. (list (flonum -0.125) 2) .......... [PASS] 1120. (list (flonum 0.0) 2) .......... [PASS] 1121. (list (flonum 0.125) 2) .......... [PASS] 1122. (list (flonum 0.25) 2) .......... [PASS] 1123. (list (flonum -0.125) 4) .......... [PASS] 1124. (list (flonum 0.0) 4) .......... [PASS] 1125. (list (flonum 0.125) 4) .......... [PASS] 1126. (list (flonum 0.25) 4) .......... [PASS] 1127. (list (flonum -0.125) 6) .......... [PASS] 1128. (list (flonum 0.0) 6) .......... [PASS] 1129. (list (flonum 0.125) 6) .......... [PASS] 1130. (list (flonum 0.25) 6) .......... [PASS] 1131. (list (flonum -0.125) 7) .......... [PASS] 1132. (list (flonum 0.0) 1) .......... [PASS] 1133. (list (flonum 0.125) 1) .......... [PASS] 1134. (list (flonum -0.25) 2) .......... [PASS] 1135. (list (flonum -0.125) 1) .......... [PASS] 1136. (list (flonum 0.0) 3) .......... [PASS] 1137. (list (flonum 0.125) 3) .......... [PASS] 1138. (list (flonum -0.25) 4) .......... [PASS] 1139. (list (flonum -0.125) 3) .......... [PASS] 1140. (list (flonum 0.0) 5) .......... [PASS] 1141. (list (flonum 0.125) 5) .......... [PASS] 1142. (list (flonum -0.25) 6) .......... [PASS] 1143. (list (flonum -0.125) 5) .......... [PASS] 1144. (list (flonum 0.0) 7) .......... [PASS] 1145. (list (flonum 0.125) 7) .......... [PASS] 1146. (list (flonum -0.25) 0) .......... [PASS] 1147. (close-enough? (flgamma (flonum 0.5)) fl-gamma-1/2) .......... [PASS] 1148. (close-enough? (flgamma (fl/ 1.0 3.0)) fl-gamma-1/3) .......... [PASS] 1149. (close-enough? (flgamma (fl/ 2.0 3.0)) fl-gamma-2/3) .......... [PASS] 1150. (close-enough? (flgamma (flonum 0.75)) (flonum 1.225416702465178)) .......... [PASS] 1151. one .......... [PASS] 1152. (close-enough? (flgamma (flonum 1.25)) (flonum 0.9064024770554771)) .......... [PASS] 1153. (close-enough? (flgamma (flonum 1.38)) (flonum 0.888537149431357)) .......... [PASS] 1154. (close-enough? (flgamma (flonum 1.5)) (fl/ (flsqrt fl-pi) two)) .......... [PASS] 1155. one .......... [PASS] 1156. (close-enough? (flgamma (flonum 11)) (flonum 3628800)) .......... [PASS] 1157. (close-enough? (flgamma (flonum 11.5)) (* 10.5 9.5 8.5 7.5 6.5 5.5 4.5 3.5 2.5 1.5 0.5 fl-gamma-1/2)) .......... [PASS] 1158. (close-enough? (flgamma (flonum 1.3)) (* 0.3 -0.7 -1.7 -2.7 -3.7 -4.7 -5.7 -6.7 (flgamma (flonum -6.7)))) .......... [PASS] 1159. (close-enough? (flgamma (flonum 1.3)) (* 0.3 -0.7 -1.7 -2.7 -3.7 -4.7 -5.7 -6.7 -7.7 (flgamma (flonum -7.7)))) .......... [PASS] 1160. (close-enough? (flgamma (flonum 76.5)) (flonum 2.159256448318447e110)) .......... [PASS] 1161. (close-enough? (flgamma (flonum 100)) (flonum 9.332621544439443e155)) .......... [PASS] 1162. (close-enough? (g (flonum 0.5)) (log fl-gamma-1/2)) .......... [PASS] 1163. (close-enough? (g (fl/ 1.0 3.0)) (log fl-gamma-1/3)) .......... [PASS] 1164. (close-enough? (g (fl/ 2.0 3.0)) (log fl-gamma-2/3)) .......... [PASS] 1165. (close-enough? (g (flonum 0.75)) (log (flonum 1.225416702465178))) .......... [PASS] 1166. (close-enough? (g one) (log one)) .......... [PASS] 1167. (close-enough? (g (flonum 1.25)) (log (flonum 0.9064024770554771))) .......... [PASS] 1168. (close-enough? (g (flonum 1.38)) (log (flonum 0.888537149431357))) .......... [PASS] 1169. (close-enough? (g (flonum 1.5)) (log (fl/ (flsqrt fl-pi) two))) .......... [PASS] 1170. (close-enough? (g two) (log one)) .......... [PASS] 1171. (close-enough? (g (flonum 11)) (log (flonum 3628800))) .......... [PASS] 1172. (close-enough? (g (flonum 1000)) (apply + (map log (cdr (iota 1000))))) .......... [PASS] 1173. (close-enough? (g (flonum -0.5)) (log (flabs (flgamma (flonum -0.5))))) .......... [PASS] 1174. (close-enough? (g (flonum -49.2)) (log (flabs (flgamma (flonum -49.2))))) .......... [PASS] 1175. (close-enough? (g (flonum -50.3)) (log (flabs (flgamma (flonum -50.3))))) .......... [PASS] 1176. (close-enough? (g (flonum -100.5)) (log (flabs (flgamma (flonum -100.5))))) .......... [PASS] 1177. (close-enough? (g posinf) posinf) .......... [PASS] 1178. (not (flonum? (g neginf))) .......... [PASS] 1179. (not (flonum? (g zero))) .......... [PASS] 1180. (not (flonum? (g nan))) .......... [PASS] 1181. one .......... [PASS] 1182. one .......... [PASS] 1183. one .......... [PASS] 1184. one .......... [PASS] 1185. one .......... [PASS] 1186. one .......... [PASS] 1187. one .......... [PASS] 1188. one .......... [PASS] 1189. one .......... [PASS] 1190. one .......... [PASS] 1191. one .......... [PASS] 1192. (fl- one) .......... [PASS] 1193. one .......... [PASS] 1194. (fl- one) .......... [PASS] 1195. one .......... [PASS] 1196. (fl- one) .......... [PASS] 1197. one .......... [PASS] 1198. zero .......... [PASS] 1199. zero .......... [PASS] 1200. zero .......... [PASS] 1201. zero .......... [PASS] 1202. zero .......... [PASS] 1203. zero .......... [PASS] 1204. zero .......... [PASS] 1205. zero .......... [PASS] 1206. zero .......... [PASS] 1207. (close-enough? (flfirst-bessel 0 (flonum 0.4)) (flonum 0.960398226659563)) .......... [PASS] 1208. (close-enough? (flfirst-bessel 1 (flonum 0.4)) (flonum 0.196026577955319)) .......... [PASS] 1209. (close-enough? (flfirst-bessel 2 (flonum 0.4)) (flonum 0.01973466311703027)) .......... [PASS] 1210. (close-enough? (flfirst-bessel 3 (flonum 0.4)) (flonum 0.001320053214983958)) .......... [PASS] 1211. (close-enough? (flfirst-bessel 4 (flonum 0.4)) (flonum 6.613510772909676e-5)) .......... [PASS] 1212. (close-enough? (flfirst-bessel 5 (flonum 0.4)) (flonum 2.648939597977585e-6)) .......... [PASS] 1213. (close-enough? (flfirst-bessel 6 (flonum 0.4)) (flonum 8.838222034285578e-8)) .......... [PASS] 1214. (close-enough? (flfirst-bessel 7 (flonum 0.4)) (flonum 2.527012308088268e-9)) .......... [PASS] 1215. (close-enough? (flfirst-bessel 8 (flonum 0.4)) (flonum 6.321044023358773e-11)) .......... [PASS] 1216. (close-enough? (flfirst-bessel 9 (flonum 0.4)) (flonum 1.405301255241872e-12)) .......... [PASS] 1217. (close-enough? (flfirst-bessel 0 one) (flonum 0.765197686557967)) .......... [PASS] 1218. (close-enough? (flfirst-bessel 1 one) (flonum 0.440050585744934)) .......... [PASS] 1219. (close-enough? (flfirst-bessel 2 one) (flonum 0.1149034849319)) .......... [PASS] 1220. (close-enough? (flfirst-bessel 3 one) (flonum 0.01956335398266841)) .......... [PASS] 1221. (close-enough? (flfirst-bessel 4 one) (flonum 0.002476638964109955)) .......... [PASS] 1222. (close-enough? (flfirst-bessel 5 one) (flonum 0.0002497577302112344)) .......... [PASS] 1223. (close-enough? (flfirst-bessel 6 one) (flonum 2.093833800238927e-5)) .......... [PASS] 1224. (close-enough? (flfirst-bessel 7 one) (flonum 1.502325817436808e-6)) .......... [PASS] 1225. (close-enough? (flfirst-bessel 8 one) (flonum 9.422344172604501e-8)) .......... [PASS] 1226. (close-enough? (flfirst-bessel 9 one) (flonum 5.249250179911875e-9)) .......... [PASS] 1227. (close-enough? (flfirst-bessel 0 (flonum 17)) (flonum -0.1698542521511835)) .......... [PASS] 1228. (close-enough? (flfirst-bessel 1 (flonum 17)) (flonum -0.09766849275778065)) .......... [PASS] 1229. (close-enough? (flfirst-bessel 2 (flonum 17)) (flonum 0.1583638412385035)) .......... [PASS] 1230. (close-enough? (flfirst-bessel 3 (flonum 17)) (flonum 0.1349305730591932)) .......... [PASS] 1231. (close-enough? (flfirst-bessel 4 (flonum 17)) (flonum -0.1107412860446706)) .......... [PASS] 1232. (close-enough? (flfirst-bessel 5 (flonum 17)) (flonum -0.1870441194231559)) .......... [PASS] 1233. (close-enough? (flfirst-bessel 6 (flonum 17)) (flonum 0.0007153334428141831)) .......... [PASS] 1234. (close-enough? (flfirst-bessel 7 (flonum 17)) (flonum 0.187549060676907)) .......... [PASS] 1235. (close-enough? (flfirst-bessel 8 (flonum 17)) (flonum 0.1537368341734622)) .......... [PASS] 1236. (close-enough? (flfirst-bessel 9 (flonum 17)) (flonum -0.04285556969011908)) .......... [PASS] 1237. (close-enough? (flfirst-bessel 0 (flonum 50)) (flonum 0.05581232766925182)) .......... [PASS] 1238. (close-enough? (flfirst-bessel 1 (flonum 50)) (flonum -0.09751182812517514)) .......... [PASS] 1239. (close-enough? (flfirst-bessel 2 (flonum 50)) (flonum -0.05971280079425882)) .......... [PASS] 1240. (close-enough? (flfirst-bessel 3 (flonum 50)) (flonum 0.09273480406163442)) .......... [PASS] 1241. (close-enough? (flfirst-bessel 4 (flonum 50)) (flonum 0.07084097728165495)) .......... [PASS] 1242. (close-enough? (flfirst-bessel 5 (flonum 50)) (flonum -0.08140024769656964)) .......... [PASS] 1243. (close-enough? (flfirst-bessel 6 (flonum 50)) (flonum -0.08712102682096888)) .......... [PASS] 1244. (close-enough? (flfirst-bessel 7 (flonum 50)) (flonum 0.06049120125953711)) .......... [PASS] 1245. (close-enough? (flfirst-bessel 8 (flonum 50)) (flonum 0.1040585631736393)) .......... [PASS] 1246. (close-enough? (flfirst-bessel 9 (flonum 50)) (flonum -0.02719246104397254)) .......... [PASS] 1247. (close-enough? (fl/ (flfirst-bessel n x) y) (flexpt x (flonum n))) .......... [PASS] 1248. (close-enough? (fl/ (flfirst-bessel n x) y) (flexpt x (flonum n))) .......... [PASS] 1249. (close-enough? (fl/ (flfirst-bessel n x) y) (flexpt x (flonum n))) .......... [PASS] 1250. (close-enough? (fl/ (flfirst-bessel n x) y) (flexpt x (flonum n))) .......... [PASS] 1251. (close-enough? (flfirst-bessel 10 (flonum 10)) 0.2074861066333589) .......... [PASS] 1252. (close-enough? (flfirst-bessel 15 (flonum 10)) 0.004507973143721253) .......... [PASS] 1253. (close-enough? (flfirst-bessel 20 (flonum 10)) 1.15133692478134e-5) .......... [PASS] 1254. (close-enough? (flfirst-bessel 50 (flonum 10)) 1.784513607871595e-30) .......... [PASS] 1255. (close-enough? (flfirst-bessel 100 (flonum 10)) 6.597316064155382e-89) .......... [PASS] 1256. (close-enough? (flfirst-bessel 10 (flonum 100)) -0.05473217693547201) .......... [PASS] 1257. (close-enough? (flfirst-bessel 15 (flonum 100)) 0.01519812122392732) .......... [PASS] 1258. (close-enough? (flfirst-bessel 20 (flonum 100)) 0.06221745849833875) .......... [PASS] 1259. (close-enough? (flfirst-bessel 50 (flonum 100)) -0.03869833972852538) .......... [PASS] 1260. (close-enough? (flfirst-bessel 100 (flonum 100)) 0.09636667329586156) .......... [PASS] 1261. neginf .......... [PASS] 1262. (close-enough? (flsecond-bessel 0 (flonum 0.4)) (flonum -0.6060245684270096)) .......... [PASS] 1263. (close-enough? (flsecond-bessel 1 (flonum 0.4)) (flonum -1.780872044270051)) .......... [PASS] 1264. (close-enough? (flsecond-bessel 2 (flonum 0.4)) (flonum -8.298335652923248)) .......... [PASS] 1265. (close-enough? (flsecond-bessel 3 (flonum 0.4)) (flonum -81.20248448496243)) .......... [PASS] 1266. (close-enough? (flsecond-bessel 4 (flonum 0.4)) (flonum -1209.738931621513)) .......... [PASS] 1267. (close-enough? (flsecond-bessel 5 (flonum 0.4)) (flonum -24113.5761479453)) .......... [PASS] 1268. (close-enough? (flsecond-bessel 6 (flonum 0.4)) (flonum -601629.664767011)) .......... [PASS] 1269. (close-enough? (flsecond-bessel 7 (flonum 0.4)) (flonum -18024776.36686238)) .......... [PASS] 1270. (close-enough? (flsecond-bessel 8 (flonum 0.4)) (flonum -630265543.1754164)) .......... [PASS] 1271. (close-enough? (flsecond-bessel 9 (flonum 0.4)) (flonum -25192596950.64979)) .......... [PASS] 1272. (close-enough? (flsecond-bessel 0 one) (flonum 0.08825696421567696)) .......... [PASS] 1273. (close-enough? (flsecond-bessel 1 one) (flonum -0.7812128213002887)) .......... [PASS] 1274. (close-enough? (flsecond-bessel 2 one) (flonum -1.650682606816254)) .......... [PASS] 1275. (close-enough? (flsecond-bessel 3 one) (flonum -5.821517605964729)) .......... [PASS] 1276. (close-enough? (flsecond-bessel 4 one) (flonum -33.27842302897212)) .......... [PASS] 1277. (close-enough? (flsecond-bessel 5 one) (flonum -260.4058666258122)) .......... [PASS] 1278. (close-enough? (flsecond-bessel 6 one) (flonum -2570.78024322915)) .......... [PASS] 1279. (close-enough? (flsecond-bessel 7 one) (flonum -30588.95705212399)) .......... [PASS] 1280. (close-enough? (flsecond-bessel 8 one) (flonum -425674.6184865067)) .......... [PASS] 1281. (close-enough? (flsecond-bessel 9 one) (flonum -6780204.938731983)) .......... [PASS] 1282. (close-enough? (flsecond-bessel 0 (flonum 17)) (flonum -0.0926371984423237)) .......... [PASS] 1283. (close-enough? (flsecond-bessel 1 (flonum 17)) (flonum 0.1672050360772337)) .......... [PASS] 1284. (close-enough? (flsecond-bessel 2 (flonum 17)) (flonum 0.1123083791572924)) .......... [PASS] 1285. (close-enough? (flsecond-bessel 3 (flonum 17)) (flonum -0.1407795350990472)) .......... [PASS] 1286. (close-enough? (flsecond-bessel 4 (flonum 17)) (flonum -0.1619952738981326)) .......... [PASS] 1287. (close-enough? (flsecond-bessel 5 (flonum 17)) (flonum 0.06454646502933781)) .......... [PASS] 1288. (close-enough? (flsecond-bessel 6 (flonum 17)) (flonum 0.1999637827389195)) .......... [PASS] 1289. (close-enough? (flsecond-bessel 7 (flonum 17)) (flonum 0.07660444043342891)) .......... [PASS] 1290. (close-enough? (flsecond-bessel 8 (flonum 17)) (flonum -0.1368777729702134)) .......... [PASS] 1291. (close-enough? (flsecond-bessel 9 (flonum 17)) (flonum -0.2054305796995121)) .......... [PASS] 1292. (close-enough? (flsecond-bessel 0 (flonum 50)) (flonum -0.09806499547007708)) .......... [PASS] 1293. (close-enough? (flsecond-bessel 1 (flonum 50)) (flonum -0.05679566856201477)) .......... [PASS] 1294. (close-enough? (flsecond-bessel 2 (flonum 50)) (flonum 0.09579316872759649)) .......... [PASS] 1295. (close-enough? (flsecond-bessel 3 (flonum 50)) (flonum 0.06445912206022249)) .......... [PASS] 1296. (close-enough? (flsecond-bessel 4 (flonum 50)) (flonum -0.08805807408036979)) .......... [PASS] 1297. (close-enough? (flsecond-bessel 5 (flonum 50)) (flonum -0.07854841391308165)) .......... [PASS] 1298. (close-enough? (flsecond-bessel 6 (flonum 50)) (flonum 0.07234839129775346)) .......... [PASS] 1299. (close-enough? (flsecond-bessel 7 (flonum 50)) (flonum 0.09591202782454249)) .......... [PASS] 1300. (close-enough? (flsecond-bessel 8 (flonum 50)) (flonum -0.04549302350688156)) .......... [PASS] 1301. (close-enough? (flsecond-bessel 9 (flonum 50)) (flonum -0.1104697953467446)) .......... [PASS] 1302. (close-enough? (fl/ (flsecond-bessel n x) y) (flexpt x (flonum (- n)))) .......... [PASS] 1303. (close-enough? (fl/ (flsecond-bessel n x) y) (flexpt x (flonum (- n)))) .......... [PASS] 1304. (close-enough? (flsecond-bessel 10 (flonum 10)) -0.3598141521834027) .......... [PASS] 1305. (close-enough? (flsecond-bessel 15 (flonum 10)) -6.364745876939129) .......... [PASS] 1306. (close-enough? (flsecond-bessel 20 (flonum 10)) -1597.483848269626) .......... [PASS] 1307. (close-enough? (flsecond-bessel 50 (flonum 10)) -3.64106650180074e27) .......... [PASS] 1308. (close-enough? (flsecond-bessel 100 (flonum 10)) -4.849148271180607e85) .......... [PASS] 1309. (close-enough? (flsecond-bessel 10 (flonum 100)) 0.05833157423641493) .......... [PASS] 1310. (close-enough? (flsecond-bessel 15 (flonum 100)) 0.07879068694670284) .......... [PASS] 1311. (close-enough? (flsecond-bessel 20 (flonum 100)) 0.05124797307618842) .......... [PASS] 1312. (close-enough? (flsecond-bessel 50 (flonum 100)) 0.07650526394480305) .......... [PASS] 1313. (close-enough? (flsecond-bessel 100 (flonum 100)) -0.1669214114175765) .......... [PASS] 1314. zero .......... [PASS] 1315. one .......... [PASS] 1316. (fl- one) .......... [PASS] 1317. (close-enough? (flerf (flonum -0.5)) -0.5204998778130465) .......... [PASS] 1318. (close-enough? (flerf (flonum -1.0)) -0.8427007929497149) .......... [PASS] 1319. (close-enough? (flerf (flonum -1.5)) -0.9661051464753106) .......... [PASS] 1320. (close-enough? (flerf (flonum -2.0)) -0.9953222650189527) .......... [PASS] 1321. (close-enough? (flerf (flonum 0.25)) 0.2763263901682369) .......... [PASS] 1322. (close-enough? (flerf (flonum 0.5)) 0.5204998778130465) .......... [PASS] 1323. (close-enough? (flerf (flonum 0.75)) 0.7111556336535151) .......... [PASS] 1324. (close-enough? (flerf (flonum 1.0)) 0.8427007929497149) .......... [PASS] 1325. (close-enough? (flerf (flonum 1.25)) 0.9229001282564582) .......... [PASS] 1326. (close-enough? (flerf (flonum 1.5)) 0.9661051464753106) .......... [PASS] 1327. (close-enough? (flerf (flonum 1.75)) 0.9866716712191824) .......... [PASS] 1328. (close-enough? (flerf (flonum 2.0)) 0.9953222650189527) .......... [PASS] 1329. one .......... [PASS] 1330. zero .......... [PASS] 1331. two .......... [PASS] 1332. (close-enough? (flerfc (flonum -0.5)) 1.520499877813047) .......... [PASS] 1333. (close-enough? (flerfc (flonum -1.0)) 1.842700792949715) .......... [PASS] 1334. (close-enough? (flerfc (flonum -1.5)) 1.96610514647531) .......... [PASS] 1335. (close-enough? (flerfc (flonum -2.0)) 1.995322265018953) .......... [PASS] 1336. (close-enough? (flerfc (flonum 0.25)) (- 1.0 0.2763263901682369)) .......... [PASS] 1337. (close-enough? (flerfc (flonum 0.5)) (- 1.0 0.5204998778130465)) .......... [PASS] 1338. (close-enough? (flerfc (flonum 0.75)) (- 1.0 0.7111556336535151)) .......... [PASS] 1339. (close-enough? (flerfc (flonum 1.0)) (- 1.0 0.8427007929497149)) .......... [PASS] 1340. (close-enough? (flerfc (flonum 1.25)) (- 1.0 0.9229001282564582)) .......... [PASS] 1341. (close-enough? (flerfc (flonum 1.5)) (- 1.0 0.9661051464753106)) .......... [PASS] 1342. (close-enough? (flerfc (flonum 1.75)) (- 1.0 0.9866716712191824)) .......... [PASS] 1343. (close-enough? (flerfc (flonum 2.0)) (- 1.0 0.9953222650189527)) .......... [PASS] 1344. (close-enough? (fl* x (flexp (flsquare x)) (flerfc x)) y) .......... [PASS] 1345. (close-enough? (fl* x (flexp (flsquare x)) (flerfc x)) y) .......... [PASS] 1346. (close-enough? (fl* x (flexp (flsquare x)) (flerfc x)) y) .......... [PASS] 1347. (close-enough? (fl* x (flexp (flsquare x)) (flerfc x)) y) .......... [PASS] 1348. (close-enough? (fl* x (flexp (flsquare x)) (flerfc x)) y) .......... [PASS] 1349. (close-enough? (fl* x (flexp (flsquare x)) (flerfc x)) y) .......... [PASS] 1350. (close-enough? (fl* x (flexp (flsquare x)) (flerfc x)) y) .......... [PASS] 1351. (close-enough? (fl* x (flexp (flsquare x)) (flerfc x)) y) .......... [PASS] 1352. (close-enough? (fl* x (flexp (flsquare x)) (flerfc x)) y) .......... [PASS] 1353. (close-enough? (fl* x (flexp (flsquare x)) (flerfc x)) y) .......... [PASS] 1354. (fl+* (flx "1.000006") (flx "1.000000018") (flx "-1.0000060180001")) .......... [PASS] 1355. (fl+* (flx "1.000000000006") (flx "1.0000000000018") (flx "-1.0000000000078")) .......... [PASS] 1356. (fl+* (flx "1.00000004") (flx "1.000000018") (flx "-1.000000058")) .......... [PASS] 1357. (fl+* (flx "1.000000000008") (flx "1.0000000000C") (flx "-1.0000000000C8")) .......... [PASS] 1358. (fl+* (flx "1.0000000002") (flx "1.000000000002") (flx "-1.000000000202")) .......... [PASS] 1359. (fl+* (flx "1.00000000001") (flx "1.0000000002") (flx "-1.00000000021")) .......... [PASS] 1360. (fl+* (flx "1.0000000000003") (flx "1.0000C") (flx "-1.0000C00000003")) .......... [PASS] 1361. (fl+* (flx "1.0000000000002") (flx "1.00001") (flx "-1.0000100000002")) .......... [PASS] 1362. (fl+* (flx "1.000000000008") (flx "1.000000000C") (flx "-1.000000000C08")) .......... [PASS] 1363. (fl+* (flx "1.8") (flx "1.0000000000001") (flx "-1.8000000000002")) .......... [PASS] 1364. (fl+* (flx "1.0000000000001") (flx "1.0003") (flx "-1.0003000000001")) .......... [PASS] 1365. (fl+* (flx "1.00002") (flx "1.000000000008") (flx "-1.000020000008")) .......... [PASS] 1366. (fl+* (flx "1.0018") (flx "1.0000000000004") (flx "-1.0018000000004")) .......... [PASS] 1367. (fl+* (flx "1.00000000002") (flx "1.000000000008") (flx "-1.000000000028")) .......... [PASS] 1368. (fl+* (flx "1.00000000008") (flx "1.000000000000C") (flx "-1.000000000080C")) .......... [PASS] 1369. (fl+* (flx "1.000000000018") (flx "1.00000000006") (flx "-1.000000000078")) .......... [PASS] 1370. (fl+* (flx "1.000000000000C") (flx "1.0004") (flx "-1.000400000000C")) .......... [PASS] 1371. (fl+* (flx "1.001") (flx "1.0000000000C") (flx "-1.0010000000C01")) .......... [PASS] 1372. (fl+* (flx "1.000003") (flx "1.0000000002") (flx "-1.0000030002")) .......... [PASS] 1373. (fl+* (flx "1.00000000003") (flx "1.0000000000018") (flx "-1.0000000000318")) .......... [PASS] 1374. (fl+* (flx "1.000000018") (flx "1.00000018") (flx "-1.000000198")) .......... [PASS] 1375. (fl+* (flx "1.0000000000004") (flx "1.000000000C") (flx "-1.000000000C004")) .......... [PASS] 1376. (fl+* (flx "1.000000000001") (flx "1.0000006") (flx "-1.000000600001")) .......... [PASS] 1377. (fl+* (flx "1.00000C") (flx "1.000000003") (flx "-1.00000C003")) .......... [PASS] 1378. (fl+* (flx "1.00000002") (flx "1.0000000000002") (flx "-1.0000000200002")) .......... [PASS] 1379. (fl+* (flx "1.000000000000C") (flx "1.000000018") (flx "-1.000000018000C")) .......... [PASS] 1380. (fl+* (flx "1.00000000000C") (flx "1.004") (flx "-1.00400000000C")) .......... [PASS] 1381. (fl+* (flx "1.00000004") (flx "1.000000004") (flx "-1.000000044")) .......... [PASS] 1382. (fl+* (flx "1.0000000000003") (flx "1.000000008") (flx "-1.0000000080003")) .......... [PASS] 1383. (fl+* (flx "1.00000008") (flx "1.000000000008") (flx "-1.000000080008")) .......... [PASS] 1384. (fl+* (flx "1.000000004") (flx "1.000018") (flx "-1.000018004")) .......... [PASS] 1385. (fl+* (flx "1.0003") (flx "1.00000000001") (flx "-1.00030000001")) .......... [PASS] 1386. (fl+* (flx "1.00000000004") (flx "1.00000004") (flx "-1.00000004004")) .......... [PASS] 1387. (fl+* (flx "1.00000006") (flx "1.00000000018") (flx "-1.00000006018")) .......... [PASS] 1388. (fl+* (flx "1.02") (flx "1.000000000001") (flx "-1.020000000001")) .......... [PASS] 1389. (fl+* (flx "1.001") (flx "1.0000000000001") (flx "-1.0010000000001")) .......... [PASS] 1390. (fl+* (flx "1.00002") (flx "1.0000000000006") (flx "-1.0000200000006")) .......... [PASS] 1391. (fl+* (flx "1.00000000002") (flx "1.00000C") (flx "-1.00000C00002")) .......... [PASS] 1392. (fl+* (flx "1.01") (flx "1.000000000003") (flx "-1.010000000003")) .......... [PASS] 1393. (fl+* (flx "1.0000008") (flx "1.0000000000001") (flx "-1.0000008000001")) .......... [PASS] 1394. (fl+* (flx "1.000000003") (flx "1.00000000006") (flx "-1.00000000306")) .......... [PASS] 1395. (fl+* (flx "1.00000000002") (flx "1.000000006") (flx "-1.00000000602")) .......... [PASS] 1396. (fl+* (flx "1.0000000000C") (flx "1.000000000004") (flx "-1.0000000000C4")) .......... [PASS] 1397. (fl+* (flx "1.000000000002") (flx "1.000000004") (flx "-1.000000004002")) .......... [PASS] 1398. (fl+* (flx "1.00000004") (flx "1.0000004") (flx "-1.00000044")) .......... [PASS] 1399. (fl+* (flx "1.00004") (flx "1.0000000000006") (flx "-1.0000400000006")) .......... [PASS] 1400. (fl+* (flx "1.0002") (flx "1.000000000000C") (flx "-1.000200000000C")) .......... [PASS] 1401. (fl+* (flx "1.000000000004") (flx "1.000002") (flx "-1.000002000004")) .......... [PASS] 1402. (fl+* (flx "1.00000000006") (flx "1.00004") (flx "-1.00004000006")) .......... [PASS] 1403. (fl+* (flx "1.00000000006") (flx "1.0000000000006") (flx "-1.0000000000606")) .......... [PASS] 1404. (fl+* (flx "1.0018") (flx "1.0000000000001") (flx "-1.0018000000001")) .......... [PASS] 1405. (fl+* (flx "1.0000000003") (flx "1.00000018") (flx "-1.0000001803")) .......... [PASS] 1406. (fl+* (flx "1.002") (flx "1.0000000000002") (flx "-1.0020000000002")) .......... [PASS] 1407. (fl+* (flx "1.000000000C") (flx "1.0000000000001") (flx "-1.000000000C001")) .......... [PASS] 1408. (fl+* (flx "1.02") (flx "1.0000000000008") (flx "-1.0200000000008")) .......... [PASS] 1409. (fl+* (flx "1.000000002") (flx "1.0000000000004") (flx "-1.0000000020004")) .......... [PASS] 1410. (fl+* (flx "1.0000000004") (flx "1.00000000001") (flx "-1.00000000041")) .......... [PASS] 1411. (fl+* (flx "1.0000000006") (flx "1.000002") (flx "-1.0000020006")) .......... [PASS] 1412. (fl+* (flx "1.0000008") (flx "1.0000000000006") (flx "-1.0000008000006")) .......... [PASS] 1413. (fl+* (flx "1.000000000001") (flx "1.000008") (flx "-1.000008000001")) .......... [PASS] 1414. (fl+* (flx "1.0000000008") (flx "1.00004") (flx "-1.0000400008")) .......... [PASS] 1415. (fl+* (flx "1.0000004") (flx "1.0000000003") (flx "-1.0000004003")) .......... [PASS] 1416. (fl+* (flx "1.0000006") (flx "1.0000004") (flx "-1.000000A000002")) .......... [PASS] 1417. (fl+* (flx "1.0C") (flx "1.000000000001") (flx "-1.0C00000000011")) .......... [PASS] 1418. (fl+* (flx "1.00000000006") (flx "1.000000018") (flx "-1.00000001806")) .......... [PASS] 1419. (fl+* (flx "1.000000000006") (flx "1.00000000018") (flx "-1.000000000186")) .......... [PASS] 1420. (fl+* (flx "1.0000000000006") (flx "1.000018") (flx "-1.0000180000006")) .......... [PASS] 1421. (fl+* (flx "1.0000004") (flx "1.00000000003") (flx "-1.00000040003")) .......... [PASS] 1422. (fl+* (flx "1.0000000000018") (flx "1.0000000000004") (flx "-1.000000000001C")) .......... [PASS] 1423. (fl+* (flx "1.00000018") (flx "1.0000018") (flx "-1.0000019800002")) .......... [PASS] 1424. (fl+* (flx "1.000000018") (flx "1.0000000000002") (flx "-1.0000000180002")) .......... [PASS] 1425. (fl+* (flx "1.00000000018") (flx "1.000003") (flx "-1.00000300018")) .......... [PASS] 1426. (fl+* (flx "1.0000000018") (flx "1.0000008") (flx "-1.0000008018")) .......... [PASS] 1427. (fl+* (flx "1.000003") (flx "1.000000000001") (flx "-1.000003000001")) .......... [PASS] 1428. (fl+* (flx "1.00000018") (flx "1.000000000006") (flx "-1.000000180006")) .......... [PASS] 1429. (fl+* (flx "1.000C") (flx "1.000000000018") (flx "-1.000C00000018")) .......... [PASS] 1430. (fl+* (flx "1.0000000003") (flx "1.00000000004") (flx "-1.00000000034")) .......... [PASS] 1431. (fl+* (flx "1.00002") (flx "1.0000000000001") (flx "-1.0000200000001")) .......... [PASS] 1432. (fl+* (flx "1.00000000003") (flx "1.00000000018") (flx "-1.0000000001B")) .......... [PASS] 1433. (fl+* (flx "1.0000000000004") (flx "1.08") (flx "-1.0800000000004")) .......... [PASS] 1434. (fl+* (flx "1.000000000001") (flx "1.01") (flx "-1.010000000001")) .......... [PASS] 1435. (fl+* (flx "1.0000000002") (flx "1.000000003") (flx "-1.0000000032")) .......... [PASS] 1436. (fl+* (flx "1.0000002") (flx "1.00000008") (flx "-1.00000028")) .......... [PASS] 1437. (fl+* (flx "1.00000000C") (flx "1.00000008") (flx "-1.00000008C")) .......... [PASS] 1438. (fl+* (flx "1.0000000000003") (flx "1.00002") (flx "-1.0000200000003")) .......... [PASS] 1439. (fl+* (flx "1.0000000000002") (flx "1.0000000000003") (flx "-1.0000000000005")) .......... [PASS] 1440. (fl+* (flx "1.04") (flx "1.000000000002") (flx "-1.040000000002")) .......... [PASS] 1441. (fl+* (flx "1.000000008") (flx "1.0000000003") (flx "-1.0000000083")) .......... [PASS] 1442. (fl+* (flx "1.0000000000003") (flx "1.1") (flx "-1.1000000000003")) .......... [PASS] 1443. (fl+* (flx "1.0000000004") (flx "1.000002") (flx "-1.0000020004")) .......... [PASS] 1444. (fl+* (flx "1.000000000008") (flx "1.00000006") (flx "-1.000000060008")) .......... [PASS] 1444 out of 1444 passed (100.00%) Done. 1. (not (mapping? (mapping comparator))) .......... [PASS] 2. (not (not (mapping? (list 1 2 3)))) .......... [PASS] 3. (not (mapping-empty? mapping0)) .......... [PASS] 4. (not (not (mapping-empty? mapping1))) .......... [PASS] 5. (not (mapping-contains? mapping1 (quote b))) .......... [PASS] 6. (not (not (mapping-contains? mapping1 (quote 2)))) .......... [PASS] 7. (not (mapping-disjoint? mapping1 mapping3)) .......... [PASS] 8. (not (not (mapping-disjoint? mapping1 mapping2))) .......... [PASS] 9. (mapping-ref mapping1 (quote b)) .......... [PASS] 10. (mapping-ref mapping1 (quote d) (lambda () 42)) .......... [PASS] 11. (quote (mapping-ref mapping1 (quote d))) .......... [PASS] 12. (mapping-ref mapping1 (quote b) (lambda () #f) (lambda (x) (* x x))) .......... [PASS] 13. (mapping-ref/default mapping1 (quote c) 42) .......... [PASS] 14. (mapping-ref/default mapping1 (quote d) 42) .......... [PASS] 15. (mapping-key-comparator mapping1) .......... [PASS] 16. (mapping-ref mapping5 (quote c)) .......... [PASS] 17. (mapping-ref mapping5 (quote d)) .......... [PASS] 18. (mapping-ref mapping2 (quote c)) .......... [PASS] 19. (mapping-ref mapping2 (quote d)) .......... [PASS] 20. (mapping-ref/default (mapping-replace mapping1 (quote d) 4) (quote d) #f) .......... [PASS] 21. (mapping-ref (mapping-replace mapping1 (quote c) 6) (quote c)) .......... [PASS] 22. (mapping-ref/default (mapping-delete mapping1 (quote b)) (quote b) 42) .......... [PASS] 23. (mapping-ref/default (mapping-delete-all mapping1 (quote (a b))) (quote b) 42) .......... [PASS] 24. (receive result (mapping-intern mapping1 (quote b) (lambda () (error "should not have been invoked"))) result) .......... [PASS] 25. (receive (mapping value) (mapping-intern mapping1 (quote d) (lambda () 42)) (list value (mapping-ref mapping (quote d)))) .......... [PASS] 26. (mapping-ref mapping3 (quote b)) .......... [PASS] 27. (mapping-ref mapping4 (quote d)) .......... [PASS] 28. (mapping-pop mapping0 (lambda () (quote empty))) .......... [PASS] 29. (receive (mapping key value) (mapping-pop mapping1) (list (mapping-size mapping) key value)) .......... [PASS] 30. (mapping-size mapping0) .......... [PASS] 31. (mapping-size mapping1) .......... [PASS] 32. (receive result (mapping-find (lambda (key value) (and (eq? key (quote b)) (= value 2))) mapping1 (lambda () (error "should not have been called"))) result) .......... [PASS] 33. (receive result (mapping-find (lambda (key value) (eq? key (quote d))) mapping1 (lambda () 42)) result) .......... [PASS] 34. (mapping-count (lambda (key value) (>= value 2)) mapping1) .......... [PASS] 35. (not (mapping-any? (lambda (key value) (= value 3)) mapping1)) .......... [PASS] 36. (not (not (mapping-any? (lambda (key value) (= value 4)) mapping1))) .......... [PASS] 37. (not (mapping-every? (lambda (key value) (<= value 3)) mapping1)) .......... [PASS] 38. (not (not (mapping-every? (lambda (key value) (<= value 2)) mapping1))) .......... [PASS] 39. (length (mapping-keys mapping1)) .......... [PASS] 40. (fold + 0 (mapping-values mapping1)) .......... [PASS] 41. (receive (keys values) (mapping-entries mapping1) (list (length keys) (fold + 0 values))) .......... [PASS] 42. (mapping-ref mapping2 "b") .......... [PASS] 43. (let ((counter 0)) (mapping-for-each (lambda (key value) (set! counter (+ counter value))) mapping1) counter) .......... [PASS] 44. (mapping-fold (lambda (key value acc) (+ value acc)) 0 mapping1) .......... [PASS] 45. (fold + 0 (mapping-map->list (lambda (key value) (* value value)) mapping1)) .......... [PASS] 46. (mapping-size (mapping-filter (lambda (key value) (<= value 2)) mapping1)) .......... [PASS] 47. (mapping-size (mapping-remove (lambda (key value) (<= value 2)) mapping1)) .......... [PASS] 48. (receive result (mapping-partition (lambda (key value) (eq? (quote b) key)) mapping1) (map mapping-size result)) .......... [PASS] 49. (mapping-size (mapping-copy mapping1)) .......... [PASS] 50. (mapping-key-comparator (mapping-copy mapping1)) .......... [PASS] 51. (assq (quote b) (mapping->alist mapping1)) .......... [PASS] 52. (mapping-ref mapping2 (quote b)) .......... [PASS] 53. (mapping-ref mapping3 (quote d)) .......... [PASS] 54. (mapping-ref mapping3 (quote c)) .......... [PASS] 55. (not (mapping=? comparator mapping1 mapping2)) .......... [PASS] 56. (not (not (mapping=? comparator mapping1 mapping4))) .......... [PASS] 57. (not (not (mapping=? comparator mapping1 mapping6))) .......... [PASS] 58. (not (mapping? comparator mapping2 mapping3)) .......... [PASS] 61. (not (not (mapping>? comparator mapping1 mapping2 mapping3))) .......... [PASS] 62. (not (mapping<=? comparator mapping3 mapping2 mapping1)) .......... [PASS] 63. (not (not (mapping<=? comparator mapping3 mapping5))) .......... [PASS] 64. (not (not (mapping<=? comparator mapping2 mapping4))) .......... [PASS] 65. (not (mapping>=? comparator mapping4 mapping3)) .......... [PASS] 66. (not (not (mapping>=? comparator mapping5 mapping3))) .......... [PASS] 67. (mapping-ref (mapping-union mapping1 mapping2) (quote d)) .......... [PASS] 68. (mapping-ref (mapping-union mapping1 mapping4) (quote c)) .......... [PASS] 69. (mapping-size (mapping-union mapping1 mapping2 mapping6)) .......... [PASS] 70. (mapping-ref (mapping-intersection mapping1 mapping4) (quote c)) .......... [PASS] 71. (mapping-ref/default (mapping-intersection mapping1 mapping5) (quote b) 42) .......... [PASS] 72. (mapping-size (mapping-difference mapping2 mapping6)) .......... [PASS] 73. (mapping-size (mapping-xor mapping2 mapping6)) .......... [PASS] 74. (map mapping-min-key (list mapping1 mapping2 mapping3 mapping4)) .......... [PASS] 75. (map mapping-max-key (list mapping1 mapping2 mapping3 mapping4)) .......... [PASS] 76. (map mapping-min-value (list mapping1 mapping2 mapping3 mapping4)) .......... [PASS] 77. (map mapping-max-value (list mapping1 mapping2 mapping3 mapping4)) .......... [PASS] 78. (map (lambda (mapping) (mapping-key-predecessor mapping "e" (lambda () #f))) (list mapping1 mapping2 mapping3 mapping4)) .......... [PASS] 79. (map (lambda (mapping) (mapping-key-successor mapping "d" (lambda () #f))) (list mapping1 mapping2 mapping3 mapping4)) .......... [PASS] 80. (mapping-values (mapping-range= mapping4 "d")) .......... [PASS] 81. (mapping-values (mapping-range= mapping4 "z")) .......... [PASS] 82. (mapping-values (mapping-range< mapping4 "d")) .......... [PASS] 83. (mapping-values (mapping-range<= mapping4 "d")) .......... [PASS] 84. (mapping-values (mapping-range> mapping4 "d")) .......... [PASS] 85. (mapping-values (mapping-range>= mapping4 "d")) .......... [PASS] 86. (receive mappings (mapping-split mapping4 "d") (map mapping-values mappings)) .......... [PASS] 87. (mapping->alist (mapping-catenate comparator mapping2 "e" 5 mapping5)) .......... [PASS] 88. (mapping->alist (mapping-map/monotone (lambda (key value) (values value (* value value))) comparator mapping1)) .......... [PASS] 89. (mapping-fold/reverse (lambda (key value acc) (cons value acc)) (quote ()) mapping1) .......... [PASS] 90. (not (comparator? mapping-comparator)) .......... [PASS] 91. (list (mapping-ref mapping0 mapping1) (mapping-ref mapping0 mapping2) (mapping-ref mapping0 mapping3) (mapping-ref mapping0 mapping4) (mapping-ref mapping0 mapping5)) .......... [PASS] 92. (not (=? comparator mapping1 mapping2)) .......... [PASS] 93. (not (not (=? comparator mapping1 mapping4))) .......... [PASS] 94. (not (= value 2)) hashmap1) .......... [PASS] 131. (not (hashmap-any? (lambda (key value) (= value 3)) hashmap1)) .......... [PASS] 132. (not (not (hashmap-any? (lambda (key value) (= value 4)) hashmap1))) .......... [PASS] 133. (not (hashmap-every? (lambda (key value) (<= value 3)) hashmap1)) .......... [PASS] 134. (not (not (hashmap-every? (lambda (key value) (<= value 2)) hashmap1))) .......... [PASS] 135. (length (hashmap-keys hashmap1)) .......... [PASS] 136. (fold + 0 (hashmap-values hashmap1)) .......... [PASS] 137. (receive (keys values) (hashmap-entries hashmap1) (list (length keys) (fold + 0 values))) .......... [PASS] 138. (hashmap-ref hashmap2 "b") .......... [PASS] 139. (let ((counter 0)) (hashmap-for-each (lambda (key value) (set! counter (+ counter value))) hashmap1) counter) .......... [PASS] 140. (hashmap-fold (lambda (key value acc) (+ value acc)) 0 hashmap1) .......... [PASS] 141. (fold + 0 (hashmap-map->list (lambda (key value) (* value value)) hashmap1)) .......... [PASS] 142. (hashmap-size (hashmap-filter (lambda (key value) (<= value 2)) hashmap1)) .......... [PASS] 143. (hashmap-size (hashmap-remove (lambda (key value) (<= value 2)) hashmap1)) .......... [PASS] 144. (receive result (hashmap-partition (lambda (key value) (eq? (quote b) key)) hashmap1) (map hashmap-size result)) .......... [PASS] 145. (hashmap-size (hashmap-copy hashmap1)) .......... [PASS] 146. (hashmap-key-comparator (hashmap-copy hashmap1)) .......... [PASS] 147. (assq (quote b) (hashmap->alist hashmap1)) .......... [PASS] 148. (hashmap-ref hashmap2 (quote b)) .......... [PASS] 149. (hashmap-ref hashmap3 (quote d)) .......... [PASS] 150. (hashmap-ref hashmap3 (quote c)) .......... [PASS] 151. (not (hashmap=? comparator hashmap1 hashmap2)) .......... [PASS] 152. (not (not (hashmap=? comparator hashmap1 hashmap4))) .......... [PASS] 153. (not (not (hashmap=? comparator hashmap1 hashmap6))) .......... [PASS] 154. (not (hashmap? comparator hashmap2 hashmap3)) .......... [PASS] 157. (not (not (hashmap>? comparator hashmap1 hashmap2 hashmap3))) .......... [PASS] 158. (not (hashmap<=? comparator hashmap3 hashmap2 hashmap1)) .......... [PASS] 159. (not (not (hashmap<=? comparator hashmap3 hashmap5))) .......... [PASS] 160. (not (not (hashmap<=? comparator hashmap2 hashmap4))) .......... [PASS] 161. (not (hashmap>=? comparator hashmap4 hashmap3)) .......... [PASS] 162. (not (not (hashmap>=? comparator hashmap5 hashmap3))) .......... [PASS] 163. (hashmap-ref (hashmap-union hashmap1 hashmap2) (quote d)) .......... [PASS] 164. (hashmap-ref (hashmap-union hashmap1 hashmap4) (quote c)) .......... [PASS] 165. (hashmap-size (hashmap-union hashmap1 hashmap2 hashmap6)) .......... [PASS] 166. (hashmap-ref (hashmap-intersection hashmap1 hashmap4) (quote c)) .......... [PASS] 167. (hashmap-ref/default (hashmap-intersection hashmap1 hashmap5) (quote b) 42) .......... [PASS] 168. (hashmap-size (hashmap-difference hashmap2 hashmap6)) .......... [PASS] 169. (hashmap-size (hashmap-xor hashmap2 hashmap6)) .......... [PASS] 170. (not (comparator? hashmap-comparator)) .......... [PASS] 171. (list (hashmap-ref hashmap0 hashmap1) (hashmap-ref hashmap0 hashmap2) (hashmap-ref hashmap0 hashmap3) (hashmap-ref hashmap0 hashmap4) (hashmap-ref hashmap0 hashmap5)) .......... [PASS] 172. (not (=? comparator hashmap1 hashmap2)) .......... [PASS] 173. (not (not (=? comparator hashmap1 hashmap4))) .......... [PASS] 173 out of 173 passed (100.00%) t/srfi/141.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 143: ./skint test/srfi/143.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 144: ./skint test/srfi/144.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 145: ./skint test/srfi/145.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 146: ./skint test/srfi/146.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TE1. (bitwise-ior 3 10) .......... [PASS] 2. (bitwise-and 11 26) .......... [PASS] 3. (bitwise-xor 3 10) .......... [PASS] 4. (bitwise-eqv 37 12) .......... [PASS] 5. (bitwise-and 37 12) .......... [PASS] 6. (bitwise-nand 11 26) .......... [PASS] 7. (bitwise-nor 11 26) .......... [PASS] 8. (bitwise-andc1 11 26) .......... [PASS] 9. (bitwise-andc2 11 26) .......... [PASS] 10. (bitwise-orc1 11 26) .......... [PASS] 11. (bitwise-orc2 11 26) .......... [PASS] 12. (arithmetic-shift 8 2) .......... [PASS] 13. (bit-count 0) .......... [PASS] 14. (bit-count -1) .......... [PASS] 15. (bit-count 7) .......... [PASS] 16. (bit-count 13) .......... [PASS] 17. (bit-count -13) .......... [PASS] 18. (bit-count 30) .......... [PASS] 19. (bit-count -30) .......... [PASS] 20. (bit-count (expt 2 10)) .......... [PASS] 21. (bit-count (- (expt 2 10))) .......... [PASS] 22. (bit-count (- (+ 1 (expt 2 10)))) .......... [PASS] 23. (integer-length 0) .......... [PASS] 24. (integer-length 1) .......... [PASS] 25. (integer-length -1) .......... [PASS] 26. (integer-length 7) .......... [PASS] 27. (integer-length -7) .......... [PASS] 28. (integer-length 8) .......... [PASS] 29. (integer-length -8) .......... [PASS] 30. (bitwise-if 3 1 8) .......... [PASS] 31. (bitwise-if 3 8 1) .......... [PASS] 32. (bitwise-if 1 1 2) .......... [PASS] 33. (bitwise-if 60 240 15) .......... [PASS] 34. (bit-set? 1 1) .......... [PASS] 35. (bit-set? 0 1) .......... [PASS] 36. (bit-set? 3 10) .......... [PASS] 37. (bit-set? 1000000 -1) .......... [PASS] 38. (bit-set? 2 6) .......... [PASS] 39. (bit-set? 0 6) .......... [PASS] 40. (copy-bit 0 0 #t) .......... [PASS] 41. (copy-bit 2 0 #t) .......... [PASS] 42. (copy-bit 2 15 #f) .......... [PASS] 43. (bit-swap 0 2 4) .......... [PASS] 44. (first-set-bit 1) .......... [PASS] 45. (first-set-bit 2) .......... [PASS] 46. (first-set-bit 0) .......... [PASS] 47. (first-set-bit 40) .......... [PASS] 48. (first-set-bit -28) .......... [PASS] 49. (first-set-bit (expt 2 19)) .......... [PASS] 50. (first-set-bit (expt -2 19)) .......... [PASS] 51. (bit-field 874 0 4) .......... [PASS] 52. (bit-field 874 3 9) .......... [PASS] 53. (bit-field 874 4 9) .......... [PASS] 54. (bit-field 874 4 10) .......... [PASS] 55. (bit-field 6 0 1) .......... [PASS] 56. (bit-field 6 1 3) .......... [PASS] 57. (bit-field 6 2 999) .......... [PASS] 58. (bit-field 16777216 24 25) .......... [PASS] 59. (bit-field-any? 73 1 6) .......... [PASS] 60. (bit-field-any? 65 1 6) .......... [PASS] 61. (bit-field-every? 94 1 5) .......... [PASS] 62. (bit-field-every? 90 1 5) .......... [PASS] 63. (bit-field-clear 42 1 4) .......... [PASS] 64. (bit-field-set 42 1 4) .......... [PASS] 65. (bit-field-replace 42 2 1 4) .......... [PASS] 66. (bit-field-replace 6 1 0 1) .......... [PASS] 67. (bit-field-replace 6 1 1 2) .......... [PASS] 68. (bit-field-replace-same 15 0 1 3) .......... [PASS] 69. (bit-field-rotate 6 0 0 10) .......... [PASS] 70. (bit-field-rotate 6 0 0 256) .......... [PASS] 71. (bit-field-rotate 6 1 1 2) .......... [PASS] 72. (bit-field-rotate 6 1 2 4) .......... [PASS] 73. (bit-field-rotate 7 -1 1 4) .......... [PASS] 74. (bit-field-reverse 6 1 3) .......... [PASS] 75. (bit-field-reverse 6 1 4) .......... [PASS] 76. (bit-field-reverse 1 0 16) .......... [PASS] 77. (bit-field-reverse 1 0 15) .......... [PASS] 78. (bit-field-reverse 1 0 14) .......... [PASS] 79. (bits->list 117) .......... [PASS] 80. (bits->list 3 5) .......... [PASS] 81. (bits->list 6 4) .......... [PASS] 82. (bits->vector 117) .......... [PASS] 83. (list->bits (quote (#t #f #t #f #t #t #t))) .......... [PASS] 84. (list->bits (quote (#f #f #t #f #t #f #t #t #t))) .......... [PASS] 85. (list->bits (quote (#f #t #t))) .......... [PASS] 86. (list->bits (quote (#f #t #t #f))) .......... [PASS] 87. (list->bits (quote (#f #f #t #t))) .......... [PASS] 88. (vector->bits (quote #(#t #f #t #f #t #t #t))) .......... [PASS] 89. (vector->bits (quote #(#f #f #t #f #t #f #t #t #t))) .......... [PASS] 90. (vector->bits (quote #(#f #t #t))) .......... [PASS] 91. (vector->bits (quote #(#f #t #t #f))) .......... [PASS] 92. (vector->bits (quote #(#f #f #t #t))) .......... [PASS] 93. (bits #t #f #t #f #t #t #t) .......... [PASS] 94. (bits #f #f #t #f #t #f #t #t #t) .......... [PASS] 95. (bitwise-fold cons (quote ()) 87) .......... [PASS] 96. (g) .......... [PASS] 97. (g) .......... [PASS] 98. (g) .......... [PASS] 99. (g) .......... [PASS] 100. (bit-set? 1000000 -1) .......... [PASS] 101. (bit-set? 1000000 1) .......... [PASS] 102. (copy-bit 1000000 -1 #t) .......... [PASS] 103. (copy-bit 1000000 1 #f) .......... [PASS] 104. (arithmetic-shift -42 -1000000) .......... [PASS] 105. (arithmetic-shift 42 -1000000) .......... [PASS] 106. (arithmetic-shift 0 1000000) .......... [PASS] 107. (inexact? (arithmetic-shift -42 1000000)) .......... [PASS] 108. (inexact? (arithmetic-shift 42 1000000)) .......... [PASS] 109. (bit-field 42 1000000 1000100) .......... [PASS] 110. (bit-field-any? -42 1000000 1000100) .......... [PASS] 111. (bit-field-every? -42 1000000 1000100) .......... [PASS] 112. (bit-field-any? 42 1000000 1000100) .......... [PASS] 113. (bit-field-every? 42 1000000 1000100) .......... [PASS] 114. (bit-field-replace -42 -1 1000000 1000100) .......... [PASS] 115. (bit-field-replace 42 0 1000000 1000100) .......... [PASS] 116. (quote (bit-field-replace -42 0 1000000 1000100)) .......... [PASS] 117. (quote (bit-field-replace 42 -1 1000000 1000100)) .......... [PASS] 118. (bit-field-replace-same -42 -1 1000000 1000100) .......... [PASS] 119. (bit-field-replace-same 42 1 1000000 1000100) .......... [PASS] 120. (quote (bit-field-replace-same -42 0 1000000 1000100)) .......... [PASS] 121. (quote (bit-field-replace-same 42 -1 1000000 1000100)) .......... [PASS] 122. (bit-field-set -42 1000000 1000100) .......... [PASS] 123. (bit-field-clear 42 1000000 1000100) .......... [PASS] 124. (quote (bit-field-set 42 1000000 1000100)) .......... [PASS] 125. (quote (bit-field-clear -42 1000000 1000100)) .......... [PASS] 126. (bit-swap 1000000 1000100 -42) .......... [PASS] 127. (bit-swap 1000000 1000100 42) .......... [PASS] 128. (bit-swap 1000000 0 -1) .......... [PASS] 129. (bit-swap 1000000 0 0) .......... [PASS] 130. (quote (bit-swap 1000000 0 1)) .......... [PASS] 131. (bit-field-rotate -42 123 1000000 1000100) .......... [PASS] 132. (bit-field-rotate 42 123 1000000 1000100) .......... [PASS] 133. (bit-field-reverse -42 1000000 1000100) .......... [PASS] 134. (bit-field-reverse 42 1000000 1000100) .......... [PASS] 135. (integer-length 0) .......... [PASS] 136. (integer-length 1) .......... [PASS] 137. (integer-length 2) .......... [PASS] 138. (integer-length 4) .......... [PASS] 139. (integer-length 8) .......... [PASS] 140. (integer-length 16) .......... [PASS] 141. (integer-length 48) .......... [PASS] 142. (bitwise-and 0 1) .......... [PASS] 143. (bitwise-and 1 1) .......... [PASS] 144. (bitwise-and 1 2) .......... [PASS] 145. (bitwise-and 3 2) .......... [PASS] 146. (bitwise-and 5 7) .......... [PASS] 147. (bitwise-and -1 7) .......... [PASS] 148. (bitwise-and -2 7) .......... [PASS] 149. (arithmetic-shift 1 0) .......... [PASS] 150. (arithmetic-shift 1 1) .......... [PASS] 151. (arithmetic-shift 1 2) .......... [PASS] 152. (arithmetic-shift 1 3) .......... [PASS] 153. (arithmetic-shift 1 4) .......... [PASS] 154. (arithmetic-shift 1 21) .......... [PASS] 155. (arithmetic-shift 1 22) .......... [PASS] 156. (arithmetic-shift 1 23) .......... [PASS] 157. (arithmetic-shift -1 0) .......... [PASS] 158. (arithmetic-shift -1 1) .......... [PASS] 159. (arithmetic-shift -1 2) .......... [PASS] 160. (arithmetic-shift -1 3) .......... [PASS] 161. (arithmetic-shift -1 4) .......... [PASS] 162. (arithmetic-shift -1 21) .......... [PASS] 163. (arithmetic-shift -1 22) .......... [PASS] 164. (arithmetic-shift -1 23) .......... [PASS] 165. (arithmetic-shift 1 -31) .......... [PASS] 166. (arithmetic-shift 7988640 -8) .......... [PASS] 167. (bit-set? 14 1) .......... [PASS] 168. (not (bit-set? 16 65536)) .......... [PASS] 169. (not (bit-set? 1000000 -1)) .......... [PASS] 170. (not (bit-set? 1000 -1)) .......... [PASS] 171. (bit-field 874 0 4) .......... [PASS] 172. (bit-field 874 3 9) .......... [PASS] 173. (bit-field 874 4 9) .......... [PASS] 174. (bit-field 874 4 10) .......... [PASS] 175. (bitwise-if 1 2 1) .......... [PASS] 176. (bitwise-if 1 1 2) .......... [PASS] 177. (bitwise-if 3 1 8) .......... [PASS] 178. (bitwise-if 3 8 1) .......... [PASS] 179. (bitwise-if 60 240 15) .......... [PASS] 180. (copy-bit 0 0 #t) .......... [PASS] 181. (copy-bit 2 0 #t) .......... [PASS] 182. (copy-bit 2 15 #f) .......... [PASS] 183. (bit-swap 0 1 13) .......... [PASS] 184. (bit-swap 1 2 13) .......... [PASS] 185. (bit-swap 2 1 13) .......... [PASS] 186. (bit-swap 3 10 13) .......... [PASS] 187. (bits->list 87) .......... [PASS] 188. (bits->list 87 5) .......... [PASS] 189. (bits->list 87 9) .......... [PASS] 190. (bits->vector 87) .......... [PASS] 191. (bits->vector 87 9) .......... [PASS] 192. (list->bits (quote (#t #t #t #f #t #f #t))) .......... [PASS] 193. (list->bits (quote (#t #t #t #f #t #f #t #f #f))) .......... [PASS] 194. (vector->bits (quote #(#t #t #t #f #t #f #t))) .......... [PASS] 195. (vector->bits (quote #(#t #t #t #f #t #f #t #f #f))) .......... [PASS] 196. (bits #t #t #t #f #t #f #t) .......... [PASS] 197. (bits #t #t #t #f #t #f #t #f #f) .......... [PASS] 198. (first-set-bit 1) .......... [PASS] 199. (first-set-bit 2) .......... [PASS] 200. (first-set-bit 0) .......... [PASS] 201. (first-set-bit 40) .......... [PASS] 202. (first-set-bit -28) .......... [PASS] 203. (first-set-bit (expt 2 19)) .......... [PASS] 204. (first-set-bit (expt -2 19)) .......... [PASS] 205. (bitwise-fold cons (quote ()) 87) .......... [PASS] 206. (let ((count 0)) (bitwise-for-each (lambda (b) (if b (set! count (+ count 1)))) 87) count) .......... [PASS] 207. (bitwise-unfold (lambda (i) (= i 10)) even? (lambda (i) (+ i 1)) 0) .......... [PASS] 208. (bit-field-rotate 6 1 1 2) .......... [PASS] 209. (bit-field-rotate 6 1 2 4) .......... [PASS] 210. (bit-field-rotate 7 -1 1 4) .......... [PASS] 211. (bit-field-rotate 0 128 0 256) .......... [PASS] 212. (bit-field-rotate 1 128 1 256) .......... [PASS] 213. (bit-field-rotate 6 0 0 10) .......... [PASS] 214. (bit-field-rotate 6 0 0 256) .......... [PASS] 215. (bit-field-reverse 6 1 3) .......... [PASS] 216. (bit-field-reverse 6 1 4) .......... [PASS] 217. (bit-field-reverse 1 0 16) .......... [PASS] 218. (bit-field-reverse 1 0 15) .......... [PASS] 219. (bit-field-reverse 1 0 14) .......... [PASS] 220. (bit-field-reverse -2 0 11) .......... [PASS] 221. (bit-field-reverse -2 0 12) .......... [PASS] 222. (bit-field-reverse -2 0 13) .......... [PASS] 223. (bit-field-reverse -2 0 14) .......... [PASS] 224. (bit-field-reverse -2 0 15) .......... [PASS] 225. (bit-field-reverse -2 0 16) .......... [PASS] 226. (not (bit-field-any? 73 1 6)) .......... [PASS] 227. (bit-field-any? 65 1 6) .......... [PASS] 228. (not (bit-field-every? 45 2 4)) .......... [PASS] 229. (not (bit-field-every? 45 0 1)) .......... [PASS] 230. (not (bit-field-every? 94 1 5)) .......... [PASS] 231. (bit-field-every? 90 1 5) .......... [PASS] 231 out of 231 passed (100.00%) 1. (string-null? "abc") .......... [PASS] 2. (string-null? "") .......... [PASS] 3. (string-every char-is-a? "") .......... [PASS] 4. (string-every char-is-a? "aaaa") .......... [PASS] 5. (string-every char-is-a? "aaba") .......... [PASS] 6. (string-every char-lower-case? "aaba") .......... [PASS] 7. (string-every char-lower-case? "aAba") .......... [PASS] 8. (string-every char-lower-case? "") .......... [PASS] 9. (string-every (lambda (x) (char-ci=? x #\a)) "aAaA") .......... [PASS] 10. (string-every (lambda (x) (char-ci=? x #\a)) "aAbA") .......... [PASS] 11. (string-every (lambda (x) (char->integer x)) "aAbA") .......... [PASS] 12. (string-every (lambda (x) (error "hoge")) "") .......... [PASS] 13. (string-any char-is-a? "aaaa") .......... [PASS] 14. (string-any char-is-a? "Abcd") .......... [PASS] 15. (string-any #\a "") .......... [PASS] 16. (string-any char-lower-case? "ABcD") .......... [PASS] 17. (string-any char-lower-case? "ABCD") .......... [PASS] 18. (string-any char-lower-case? "") .......... [PASS] 19. (string-any (lambda (x) (char-ci=? x #\a)) "CAaA") .......... [PASS] 20. (string-any (lambda (x) (char-ci=? x #\a)) "ZBRC") .......... [PASS] 21. (string-any (lambda (x) (char-ci=? x #\a)) "") .......... [PASS] 22. (string-any (lambda (x) (char->integer x)) "aAbA") .......... [PASS] 23. (string-tabulate (lambda (code) (integer->char (+ code (char->integer #\0)))) 10) .......... [PASS] 24. (string-tabulate (lambda (code) (integer->char (+ code (char->integer #\0)))) 0) .......... [PASS] 25. (reverse-list->string (quote (#\a #\B #\c))) .......... [PASS] 26. (reverse-list->string (quote ())) .......... [PASS] 27. (string-join (quote ("foo" "bar" "baz")) "+") .......... [PASS] 28. (string-join (quote ("foo" "bar" "baz"))) .......... [PASS] 29. (string-join (quote ("foo" "bar" "baz")) "/" (quote prefix)) .......... [PASS] 30. (string-join (quote ("foo" "bar" "baz")) ";" (quote suffix)) .......... [PASS] 31. (substring "abcde" 2 5) .......... [PASS] 32. (substring "abcde" 2 4) .......... [PASS] 33. (let ((x (string-copy "abcdefg"))) (string-copy! x 2 "CDE") x) .......... [PASS] 34. (let ((x (string-copy "abcdefg"))) (string-copy! x 2 "ZABCDE" 3) x) .......... [PASS] 35. (let ((x (string-copy "abcdefg"))) (string-copy! x 2 "ZABCDEFG" 3 6) x) .......... [PASS] 36. (string-take "Pete Szilagyi" 6) .......... [PASS] 37. (string-take "Pete Szilagyi" 0) .......... [PASS] 38. (string-take "Pete Szilagyi" 13) .......... [PASS] 39. (string-drop "Pete Szilagyi" 6) .......... [PASS] 40. (string-drop "Pete Szilagyi" 0) .......... [PASS] 41. (string-drop "Pete Szilagyi" 13) .......... [PASS] 42. (string-take-right "Beta rules" 5) .......... [PASS] 43. (string-take-right "Beta rules" 0) .......... [PASS] 44. (string-take-right "Beta rules" 10) .......... [PASS] 45. (string-drop-right "Beta rules" 5) .......... [PASS] 46. (string-drop-right "Beta rules" 0) .......... [PASS] 47. (string-drop-right "Beta rules" 10) .......... [PASS] 48. (string-pad "325" 5) .......... [PASS] 49. (string-pad "71325" 5) .......... [PASS] 50. (string-pad "8871325" 5) .......... [PASS] 51. (string-pad "325" 5 #\~) .......... [PASS] 52. (string-pad "325" 5 #\~ 1) .......... [PASS] 53. (string-pad "325" 5 #\~ 1 2) .......... [PASS] 54. (string-pad-right "325" 5) .......... [PASS] 55. (string-pad-right "71325" 5) .......... [PASS] 56. (string-pad-right "8871325" 5) .......... [PASS] 57. (string-pad-right "325" 5 #\~) .......... [PASS] 58. (string-pad-right "325" 5 #\~ 1) .......... [PASS] 59. (string-pad-right "325" 5 #\~ 1 2) .......... [PASS] 60. (string-trim " \t a b c d \n") .......... [PASS] 61. (string-trim " \t a b c d \n" char-is-space?) .......... [PASS] 62. (string-trim "4358948a b c d \n" char-numeric?) .......... [PASS] 63. (string-trim-right " \t a b c d \n") .......... [PASS] 64. (string-trim-right " \t a b c d \n" char-newline?) .......... [PASS] 65. (string-trim-right "349853a b c d03490" char-numeric?) .......... [PASS] 66. (string-trim-both " \t a b c d \n") .......... [PASS] 67. (string-trim-both " \t a b c d \n" char-newline?) .......... [PASS] 68. (string-trim-both "349853a b c d03490" char-numeric?) .......... [PASS] 69. (string-replace "-abcdefghi" "01234" 3 3) .......... [PASS] 70. (string-replace "-abcdefghi" "01234" 3 3 0 3) .......... [PASS] 71. (string-replace "-abcdefghi" "01234" 3 6) .......... [PASS] 72. (string-replace "-abcdefghi" "01234" 3 6 3 5) .......... [PASS] 73. (string-replace "abcdefghi" "XYZ" 4 6) .......... [PASS] 74. (string-replace "abcdefghi" "XYZ" 4 6 2) .......... [PASS] 75. (string-replace "abcdefghi" "XYZ" 4 4 2) .......... [PASS] 76. (string-replace "abcdefghi" "XYZ" 4 4 1 1) .......... [PASS] 77. (string-replace "abcdefghi" "" 4 7) .......... [PASS] 78. (map (lambda (f) (and (f) (f "foo"))) (list string=? string? string<=? string>=? string-ci=? string-ci? string-ci<=? string-ci>=?)) .......... [PASS] 79. (string=? "foo" "foo") .......... [PASS] 80. (string<=? "fol" "foo") .......... [PASS] 81. (string=? "foo" "fol") .......... [PASS] 83. (string>? "foo" "fol") .......... [PASS] 84. (string-ci=? "Foo" "foO") .......... [PASS] 85. (string-ci<=? "FOL" "foo") .......... [PASS] 86. (string-ci=? "FOO" "fol") .......... [PASS] 88. (string-ci>? "FOO" "fol") .......... [PASS] 89. (string=? "abcd" (string-append "a" "b" "c" "d")) .......... [PASS] 90. (string-prefix-length "cancaNCAM" "cancancan") .......... [PASS] 91. (string-suffix-length "CanCan" "cankancan") .......... [PASS] 92. (string-prefix? "abcd" "abcdefg") .......... [PASS] 93. (string-prefix? "abcf" "abcdefg") .......... [PASS] 94. (string-suffix? "defg" "abcdefg") .......... [PASS] 95. (string-suffix? "aefg" "abcdefg") .......... [PASS] 96. (string-index "abcd:efgh:ijkl" char-is-colon?) .......... [PASS] 97. (string-index "abcd:efgh;ijkl" (complement char-alphabetic?)) .......... [PASS] 98. (string-index "abcd:efgh;ijkl" char-numeric?) .......... [PASS] 99. (string-index "abcd:efgh:ijkl" char-is-colon? 5) .......... [PASS] 100. (string-index-right "abcd:efgh;ijkl" char-is-colon?) .......... [PASS] 101. (string-index-right "abcd:efgh;ijkl" (complement char-alphabetic?)) .......... [PASS] 102. (string-index-right "abcd:efgh;ijkl" char-numeric?) .......... [PASS] 103. (string-index-right "abcd:efgh;ijkl" (complement char-alphabetic?) 2 5) .......... [PASS] 104. (string-contains "Ma mere l'oye" "mer") .......... [PASS] 105. (string-contains "Ma mere l'oye" "Mer") .......... [PASS] 106. (let ((s "test")) (eq? s (string-append s))) .......... [PASS] 107. (let ((s "test")) (eq? s (string-concatenate (list s)))) .......... [PASS] 108. (string-concatenate (quote ("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z" "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"))) .......... [PASS] 109. (string-concatenate-reverse (quote ("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z" "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"))) .......... [PASS] 110. (let ((s "test")) (eq? s (string-concatenate-reverse (list s)))) .......... [PASS] 111. (string-map (lambda (c) (integer->char (- 219 (char->integer c)))) "hello") .......... [PASS] 112. (string-fold cons #t "hello") .......... [PASS] 113. (string-fold cons #t "hello" 1 3) .......... [PASS] 114. (string-fold-right cons #t "hello") .......... [PASS] 115. (string-fold-right cons #t "hello" 1 3) .......... [PASS] 116. (string-unfold null? car cdr (quote (#\h #\e #\l #\l #\o))) .......... [PASS] 117. (string-unfold null? car cdr (quote (#\h #\e #\l #\l #\o)) "hi ") .......... [PASS] 118. (string-unfold null? car cdr (quote (#\h #\e #\l #\l #\o)) "hi " (lambda (x) " ho")) .......... [PASS] 119. (string-unfold-right null? car cdr (quote (#\h #\e #\l #\l #\o))) .......... [PASS] 120. (string-unfold-right null? car cdr (quote (#\h #\e #\l #\l #\o)) " hi") .......... [PASS] 121. (string-unfold-right null? car cdr (quote (#\h #\e #\l #\l #\o)) " hi" (lambda (x) "ho ")) .......... [PASS] 122. (let ((out (open-output-string)) (prev #f)) (string-for-each (lambda (c) (if (or (not prev) (char-whitespace? prev)) (write-char c out)) (set! prev c)) "Common Lisp, the Language") (get-output-string out)) .......... [PASS] 123. (string-count "abc def\tghi jkl" char-is-space?) .......... [PASS] 124. (string-count "abc def\tghi jkl" char-whitespace?) .......... [PASS] 125. (string-count "abc def\tghi jkl" char-whitespace? 4) .......... [PASS] 126. (string-count "abc def\tghi jkl" char-whitespace? 4 9) .......... [PASS] 127. (string-filter char-is-r? "Help make programs run, run, RUN!") .......... [PASS] 128. (string-filter char-alphabetic? "Help make programs run, run, RUN!") .......... [PASS] 129. (string-filter (lambda (c) (char-lower-case? c)) "Help make programs run, run, RUN!" 10) .......... [PASS] 130. (string-filter (lambda (c) (char-lower-case? c)) "") .......... [PASS] 131. (string-remove char-is-r? "Help make programs run, run, RUN!") .......... [PASS] 132. (string-remove char-alphabetic? "Help make programs run, run, RUN!") .......... [PASS] 133. (string-remove (lambda (c) (char-lower-case? c)) "Help make programs run, run, RUN!" 10) .......... [PASS] 134. (string-remove (lambda (c) (char-lower-case? c)) "") .......... [PASS] 135. (string-replicate "abcdef" 2 8) .......... [PASS] 136. (string-replicate "abcdef" -2 4) .......... [PASS] 137. (string-replicate "abc" 0 7) .......... [PASS] 138. (string-replicate "abcdefg" 0 7 3 6) .......... [PASS] 139. (string-replicate "abcdefg" 9 9 3 6) .......... [PASS] 140. (string-segment "abcdef" 2) .......... [PASS] 141. (string-segment "abcdefg" 2) .......... [PASS] 142. (string-segment "" 2) .......... [PASS] 143. (string-split "Help make programs run, run, RUN!" " ") .......... [PASS] 144. (string-split "Help make programs run, run, RUN!" " " (quote infix) 2) .......... [PASS] 145. (string-split "/usr/local/bin" "/" (quote prefix)) .......... [PASS] 146. (string-split "be(); here(); now(); " "; " (quote suffix)) .......... [PASS] 147. (string-contains "aabc" "ab") .......... [PASS] 148. (string-contains "ababdabdabxxas" "abdabx") .......... [PASS] 149. (string-contains "ab" "ab") .......... [PASS] 150. (string-filter char-upper-case? "abrAcaDabRa") .......... [PASS] 151. (string-remove char-upper-case? "abrAcaDabRa") .......... [PASS] 152. (not (string-null? "")) .......... [PASS] 153. (not (not (string-null? "abc"))) .......... [PASS] 154. (string-every (lambda (c) (if (char? c) c #f)) "") .......... [PASS] 155. (string-every (lambda (c) (if (char? c) c #f)) "abc") .......... [PASS] 156. (string-every (lambda (c) (if (char>? c #\b) c #f)) "abc") .......... [PASS] 157. (string-every (lambda (c) (if (char>? c #\b) c #f)) "abc" 2) .......... [PASS] 158. (string-every (lambda (c) (if (char>? c #\b) c #f)) "abc" 1 1) .......... [PASS] 159. (string-any (lambda (c) (if (char? c) c #f)) "") .......... [PASS] 160. (string-any (lambda (c) (if (char? c) c #f)) "abc") .......... [PASS] 161. (string-any (lambda (c) (if (char>? c #\b) c #f)) "abc") .......... [PASS] 162. (string-any (lambda (c) (if (char>? c #\b) c #f)) "abc" 2) .......... [PASS] 163. (string-any (lambda (c) (if (char>? c #\b) c #f)) "abc" 0 2) .......... [PASS] 164. (string-tabulate (lambda (i) (integer->char (+ i (char->integer #\a)))) 0) .......... [PASS] 165. (string-tabulate (lambda (i) (integer->char (+ i (char->integer #\a)))) 3) .......... [PASS] 166. (let ((p (open-input-string "abc"))) (string-unfold eof-object? values (lambda (x) (read-char p)) (read-char p))) .......... [PASS] 167. (string-unfold null? car cdr (quote ())) .......... [PASS] 168. (string-unfold null? car cdr (string->list "abc")) .......... [PASS] 169. (string-unfold null? car cdr (quote ()) "def") .......... [PASS] 170. (string-unfold null? car cdr (string->list "abc") "def" (lambda (x) (and (null? x) "G"))) .......... [PASS] 171. (string-unfold-right null? car cdr (quote ())) .......... [PASS] 172. (string-unfold-right null? car cdr (string->list "abc")) .......... [PASS] 173. (string-unfold-right null? car cdr (quote ()) "def") .......... [PASS] 174. (string-unfold-right null? car cdr (string->list "abc") "def" (lambda (x) (and (null? x) "G"))) .......... [PASS] 175. (string->list "") .......... [PASS] 176. (string->list "" 0) .......... [PASS] 177. (string->list "" 0 0) .......... [PASS] 178. (string->list "abc") .......... [PASS] 179. (string->list "abc" 3) .......... [PASS] 180. (string->list "abc" 1 3) .......... [PASS] 181. (string->list "abc" (dummy-index "abc" 1) (dummy-index "abc" 3)) .......... [PASS] 182. (string->vector "") .......... [PASS] 183. (string->vector "" 0) .......... [PASS] 184. (string->vector "" 0 0) .......... [PASS] 185. (string->vector "abc") .......... [PASS] 186. (string->vector "abc" 3) .......... [PASS] 187. (string->vector "abc" 1 3) .......... [PASS] 188. (string->vector "abc" (dummy-index "abc" 1) (dummy-index "abc" 3)) .......... [PASS] 189. (reverse-list->string (quote ())) .......... [PASS] 190. (reverse-list->string (quote (#\a #\b #\c))) .......... [PASS] 191. (string-join (quote ())) .......... [PASS] 192. (string-join (quote ("" "ab" "cd" "" "e" "f" ""))) .......... [PASS] 193. (string-join (quote ()) "") .......... [PASS] 194. (string-join (quote ("" "ab" "cd" "" "e" "f" "")) "") .......... [PASS] 195. (string-join (quote ()) "xyz") .......... [PASS] 196. (string-join (quote ("" "ab" "cd" "" "e" "f" "")) "xyz") .......... [PASS] 197. (string-join (quote ()) "" (quote infix)) .......... [PASS] 198. (string-join (quote ("" "ab" "cd" "" "e" "f" "")) "" (quote infix)) .......... [PASS] 199. (string-join (quote ()) "xyz" (quote infix)) .......... [PASS] 200. (string-join (quote ("" "ab" "cd" "" "e" "f" "")) "xyz" (quote infix)) .......... [PASS] 201. (quote (string-join (quote ()) "" (quote strict-infix))) .......... [PASS] 202. (string-join (quote ("" "ab" "cd" "" "e" "f" "")) "" (quote strict-infix)) .......... [PASS] 203. (quote (string-join (quote ()) "xyz" (quote strict-infix))) .......... [PASS] 204. (string-join (quote ("" "ab" "cd" "" "e" "f" "")) "xyz" (quote strict-infix)) .......... [PASS] 205. (string-join (quote ()) "" (quote suffix)) .......... [PASS] 206. (string-join (quote ("" "ab" "cd" "" "e" "f" "")) "" (quote suffix)) .......... [PASS] 207. (string-join (quote ()) "xyz" (quote suffix)) .......... [PASS] 208. (string-join (quote ("" "ab" "cd" "" "e" "f" "")) "xyz" (quote suffix)) .......... [PASS] 209. (string-join (quote ()) "" (quote prefix)) .......... [PASS] 210. (string-join (quote ("" "ab" "cd" "" "e" "f" "")) "" (quote prefix)) .......... [PASS] 211. (string-join (quote ()) "xyz" (quote prefix)) .......... [PASS] 212. (string-join (quote ("" "ab" "cd" "" "e" "f" "")) "xyz" (quote prefix)) .......... [PASS] 213. (string-ref "abc" 0) .......... [PASS] 214. (string-ref "abc" 2) .......... [PASS] 215. (string-ref "abc" (dummy-index "abc" 0)) .......... [PASS] 216. (string-ref "abc" (dummy-index "abc" 2)) .......... [PASS] 217. (substring "" 0 0) .......... [PASS] 218. (substring "abc" 0 0) .......... [PASS] 219. (substring "abc" 3 3) .......... [PASS] 220. (substring ABC 0 3) .......... [PASS] 221. (substring "abc" 1 2) .......... [PASS] 222. (string-copy "") .......... [PASS] 223. (string-copy "abc") .......... [PASS] 224. (string-copy "abc" 3) .......... [PASS] 225. (string-copy "abc" 2) .......... [PASS] 226. (string-copy "abc" 0) .......... [PASS] 227. (string-copy "abc" 1 2) .......... [PASS] 228. (string-copy "" 0 0) .......... [PASS] 229. (string-copy "abc" 0 0) .......... [PASS] 230. (string-copy "abc" 3 3) .......... [PASS] 231. (string-copy "abc" 0 3) .......... [PASS] 232. (string-copy "abc" 1 2) .......... [PASS] 233. (string-take "" 0) .......... [PASS] 234. (string-take "abcdef" 0) .......... [PASS] 235. (string-take "abcdef" 2) .......... [PASS] 236. (string-drop "" 0) .......... [PASS] 237. (string-drop "abcdef" 0) .......... [PASS] 238. (string-drop "abcdef" 2) .......... [PASS] 239. (string-take-right "" 0) .......... [PASS] 240. (string-take-right "abcdef" 0) .......... [PASS] 241. (string-take-right "abcdef" 2) .......... [PASS] 242. (string-drop-right "" 0) .......... [PASS] 243. (string-drop-right "abcdef" 0) .......... [PASS] 244. (string-drop-right "abcdef" 2) .......... [PASS] 245. (string-pad "" 0) .......... [PASS] 246. (string-pad "" 5) .......... [PASS] 247. (string-pad "325" 5) .......... [PASS] 248. (string-pad "71325" 5) .......... [PASS] 249. (string-pad "8871325" 5) .......... [PASS] 250. (string-pad "" 0 #\*) .......... [PASS] 251. (string-pad "" 5 #\*) .......... [PASS] 252. (string-pad "325" 5 #\*) .......... [PASS] 253. (string-pad "71325" 5 #\*) .......... [PASS] 254. (string-pad "8871325" 5 #\*) .......... [PASS] 255. (string-pad "" 0 #\* 0) .......... [PASS] 256. (string-pad "" 5 #\* 0) .......... [PASS] 257. (string-pad "325" 5 #\* 0) .......... [PASS] 258. (string-pad "71325" 5 #\* 0) .......... [PASS] 259. (string-pad "8871325" 5 #\* 0) .......... [PASS] 260. (string-pad "325" 5 #\* 1) .......... [PASS] 261. (string-pad "71325" 5 #\* 1) .......... [PASS] 262. (string-pad "8871325" 5 #\* 1) .......... [PASS] 263. (string-pad "" 0 #\* 0 0) .......... [PASS] 264. (string-pad "" 5 #\* 0 0) .......... [PASS] 265. (string-pad "325" 5 #\* 0 3) .......... [PASS] 266. (string-pad "71325" 5 #\* 0 3) .......... [PASS] 267. (string-pad "8871325" 5 #\* 0 3) .......... [PASS] 268. (string-pad "325" 5 #\* 1 3) .......... [PASS] 269. (string-pad "71325" 5 #\* 1 4) .......... [PASS] 270. (string-pad "8871325" 5 #\* 1 5) .......... [PASS] 271. (string-pad-right "" 0) .......... [PASS] 272. (string-pad-right "" 5) .......... [PASS] 273. (string-pad-right "325" 5) .......... [PASS] 274. (string-pad-right "71325" 5) .......... [PASS] 275. (string-pad-right "8871325" 5) .......... [PASS] 276. (string-pad-right "" 0 #\*) .......... [PASS] 277. (string-pad-right "" 5 #\*) .......... [PASS] 278. (string-pad-right "325" 5 #\*) .......... [PASS] 279. (string-pad-right "71325" 5 #\*) .......... [PASS] 280. (string-pad-right "8871325" 5 #\*) .......... [PASS] 281. (string-pad-right "" 0 #\* 0) .......... [PASS] 282. (string-pad-right "" 5 #\* 0) .......... [PASS] 283. (string-pad-right "325" 5 #\* 0) .......... [PASS] 284. (string-pad-right "71325" 5 #\* 0) .......... [PASS] 285. (string-pad-right "8871325" 5 #\* 0) .......... [PASS] 286. (string-pad-right "325" 5 #\* 1) .......... [PASS] 287. (string-pad-right "71325" 5 #\* 1) .......... [PASS] 288. (string-pad-right "8871325" 5 #\* 1) .......... [PASS] 289. (string-pad-right "" 0 #\* 0 0) .......... [PASS] 290. (string-pad-right "" 5 #\* 0 0) .......... [PASS] 291. (string-pad-right "325" 5 #\* 0 3) .......... [PASS] 292. (string-pad-right "71325" 5 #\* 0 3) .......... [PASS] 293. (string-pad-right "8871325" 5 #\* 0 3) .......... [PASS] 294. (string-pad-right "325" 5 #\* 1 3) .......... [PASS] 295. (string-pad-right "71325" 5 #\* 1 4) .......... [PASS] 296. (string-pad-right "8871325" 5 #\* 1 5) .......... [PASS] 297. (string-trim "") .......... [PASS] 298. (string-trim " a b c ") .......... [PASS] 299. (string-trim "" char-whitespace?) .......... [PASS] 300. (string-trim " a b c " char-whitespace?) .......... [PASS] 301. (string-trim " a b c " char?) .......... [PASS] 302. (string-trim "" char-whitespace? 0) .......... [PASS] 303. (string-trim " a b c " char-whitespace? 0) .......... [PASS] 304. (string-trim " a b c " char? 0) .......... [PASS] 305. (string-trim " a b c " char-whitespace? 3) .......... [PASS] 306. (string-trim " a b c " char? 3) .......... [PASS] 307. (string-trim " a b c " char? 0 11) .......... [PASS] 308. (string-trim " a b c " char-whitespace? 3 11) .......... [PASS] 309. (string-trim " a b c " char? 3 11) .......... [PASS] 310. (string-trim " a b c " char? 0 8) .......... [PASS] 311. (string-trim " a b c " char-whitespace? 3 8) .......... [PASS] 312. (string-trim " a b c " char? 3 8) .......... [PASS] 313. (string-trim-right "") .......... [PASS] 314. (string-trim-right " a b c ") .......... [PASS] 315. (string-trim-right "" char-whitespace?) .......... [PASS] 316. (string-trim-right " a b c " char-whitespace?) .......... [PASS] 317. (string-trim-right " a b c " char?) .......... [PASS] 318. (string-trim-right "" char-whitespace? 0) .......... [PASS] 319. (string-trim-right " a b c " char-whitespace? 0) .......... [PASS] 320. (string-trim-right " a b c " char? 0) .......... [PASS] 321. (string-trim-right " a b c " char-whitespace? 3) .......... [PASS] 322. (string-trim-right " a b c " char? 3) .......... [PASS] 323. (string-trim-right " a b c " char? 0 11) .......... [PASS] 324. (string-trim-right " a b c " char-whitespace? 3 11) .......... [PASS] 325. (string-trim-right " a b c " char? 3 11) .......... [PASS] 326. (string-trim-right " a b c " char? 0 8) .......... [PASS] 327. (string-trim-right " a b c " char-whitespace? 3 8) .......... [PASS] 328. (string-trim-right " a b c " char? 3 8) .......... [PASS] 329. (string-trim-both "") .......... [PASS] 330. (string-trim-both " a b c ") .......... [PASS] 331. (string-trim-both "" char-whitespace?) .......... [PASS] 332. (string-trim-both " a b c " char-whitespace?) .......... [PASS] 333. (string-trim-both " a b c " char?) .......... [PASS] 334. (string-trim-both "" char-whitespace? 0) .......... [PASS] 335. (string-trim-both " a b c " char-whitespace? 0) .......... [PASS] 336. (string-trim-both " a b c " char? 0) .......... [PASS] 337. (string-trim-both " a b c " char-whitespace? 3) .......... [PASS] 338. (string-trim-both " a b c " char? 3) .......... [PASS] 339. (string-trim-both " a b c " char? 0 11) .......... [PASS] 340. (string-trim-both " a b c " char-whitespace? 3 11) .......... [PASS] 341. (string-trim-both " a b c " char? 3 11) .......... [PASS] 342. (string-trim-both " a b c " char? 0 8) .......... [PASS] 343. (string-trim-both " a b c " char-whitespace? 3 8) .......... [PASS] 344. (string-trim-both " a b c " char? 3 8) .......... [PASS] 345. (string-prefix-length "" "") .......... [PASS] 346. (string-prefix-length "" "aabbccddee") .......... [PASS] 347. (string-prefix-length "aisle" "") .......... [PASS] 348. (string-prefix-length "" "aabbccddee") .......... [PASS] 349. (string-prefix-length "aisle" "aabbccddee") .......... [PASS] 350. (string-prefix-length "bail" "aabbccddee") .......... [PASS] 351. (string-prefix-length "prefix" "preface") .......... [PASS] 352. (string-prefix-length "" "" 0) .......... [PASS] 353. (string-prefix-length "" "aabbccddee" 0) .......... [PASS] 354. (string-prefix-length "aisle" "" 0) .......... [PASS] 355. (string-prefix-length "aisle" "aabbccddee" 0) .......... [PASS] 356. (string-prefix-length "bail" "aabbccddee" 0) .......... [PASS] 357. (string-prefix-length "prefix" "preface" 0) .......... [PASS] 358. (string-prefix-length "aisle" "" 1) .......... [PASS] 359. (string-prefix-length "aisle" "aabbccddee" 1) .......... [PASS] 360. (string-prefix-length "bail" "aabbccddee" 1) .......... [PASS] 361. (string-prefix-length "prefix" "preface" 1) .......... [PASS] 362. (string-prefix-length "" "" 0 0) .......... [PASS] 363. (string-prefix-length "" "aabbccddee" 0 0) .......... [PASS] 364. (string-prefix-length "aisle" "" 0 4) .......... [PASS] 365. (string-prefix-length "aisle" "aabbccddee" 0 4) .......... [PASS] 366. (string-prefix-length "bail" "aabbccddee" 0 1) .......... [PASS] 367. (string-prefix-length "aisle" "" 1 4) .......... [PASS] 368. (string-prefix-length "aisle" "aabbccddee" 1 4) .......... [PASS] 369. (string-prefix-length "bail" "aabbccddee" 1 4) .......... [PASS] 370. (string-prefix-length "prefix" "preface" 1 5) .......... [PASS] 371. (string-prefix-length "" "" 0 0 0) .......... [PASS] 372. (string-prefix-length "" "aabbccddee" 0 0 0) .......... [PASS] 373. (string-prefix-length "aisle" "" 0 4 0) .......... [PASS] 374. (string-prefix-length "aisle" "aabbccddee" 0 4 2) .......... [PASS] 375. (string-prefix-length "bail" "aabbccddee" 0 1 2) .......... [PASS] 376. (string-prefix-length "prefix" "preface" 0 5 1) .......... [PASS] 377. (string-prefix-length "aisle" "" 1 4 0) .......... [PASS] 378. (string-prefix-length "aisle" "aabbccddee" 1 4 3) .......... [PASS] 379. (string-prefix-length "bail" "aabbccddee" 1 4 3) .......... [PASS] 380. (string-prefix-length "prefix" "preface" 1 5 1) .......... [PASS] 381. (string-prefix-length "" "" 0 0 0 0) .......... [PASS] 382. (string-prefix-length "" "aabbccddee" 0 0 0 0) .......... [PASS] 383. (string-prefix-length "aisle" "" 0 4 0 0) .......... [PASS] 384. (string-prefix-length "aisle" "aabbccddee" 0 4 2 10) .......... [PASS] 385. (string-prefix-length "bail" "aabbccddee" 0 1 2 10) .......... [PASS] 386. (string-prefix-length "prefix" "preface" 0 5 1 6) .......... [PASS] 387. (string-prefix-length "aisle" "" 1 4 0 0) .......... [PASS] 388. (string-prefix-length "aisle" "aabbccddee" 1 4 3 3) .......... [PASS] 389. (string-prefix-length "bail" "aabbccddee" 1 4 3 6) .......... [PASS] 390. (string-prefix-length "prefix" "preface" 1 5 1 7) .......... [PASS] 391. (string-suffix-length "" "") .......... [PASS] 392. (string-suffix-length "" "aabbccddee") .......... [PASS] 393. (string-suffix-length "aisle" "") .......... [PASS] 394. (string-suffix-length "" "aabbccddee") .......... [PASS] 395. (string-suffix-length "aisle" "aabbccddee") .......... [PASS] 396. (string-suffix-length "bail" "aabbccddee") .......... [PASS] 397. (string-suffix-length "place" "preface") .......... [PASS] 398. (string-suffix-length "" "" 0) .......... [PASS] 399. (string-suffix-length "" "aabbccddee" 0) .......... [PASS] 400. (string-suffix-length "aisle" "" 0) .......... [PASS] 401. (string-suffix-length "aisle" "aabbccddee" 0) .......... [PASS] 402. (string-suffix-length "bail" "aabbccddee" 0) .......... [PASS] 403. (string-suffix-length "place" "preface" 0) .......... [PASS] 404. (string-suffix-length "aisle" "" 1) .......... [PASS] 405. (string-suffix-length "aisle" "aabbccddee" 1) .......... [PASS] 406. (string-suffix-length "bail" "aabbccddee" 1) .......... [PASS] 407. (string-suffix-length "place" "preface" 1) .......... [PASS] 408. (string-suffix-length "" "" 0 0) .......... [PASS] 409. (string-suffix-length "" "aabbccddee" 0 0) .......... [PASS] 410. (string-suffix-length "aisle" "" 0 4) .......... [PASS] 411. (string-suffix-length "aisle" "aabbccddee" 0 4) .......... [PASS] 412. (string-suffix-length "bail" "aabbccddee" 0 1) .......... [PASS] 413. (string-suffix-length "aisle" "" 1 4) .......... [PASS] 414. (string-suffix-length "aisle" "aabbccddee" 1 4) .......... [PASS] 415. (string-suffix-length "aisle" "aabbccddee" 1 5) .......... [PASS] 416. (string-suffix-length "bail" "aabbccddee" 1 4) .......... [PASS] 417. (string-suffix-length "place" "preface" 1 5) .......... [PASS] 418. (string-suffix-length "" "" 0 0 0) .......... [PASS] 419. (string-suffix-length "" "aabbccddee" 0 0 0) .......... [PASS] 420. (string-suffix-length "aisle" "" 0 4 0) .......... [PASS] 421. (string-suffix-length "aisle" "aabbccddee" 0 4 2) .......... [PASS] 422. (string-suffix-length "bail" "aabbccddee" 0 1 2) .......... [PASS] 423. (string-suffix-length "place" "preface" 0 5 1) .......... [PASS] 424. (string-suffix-length "aisle" "" 1 4 0) .......... [PASS] 425. (string-suffix-length "aisle" "aabbccddee" 1 4 3) .......... [PASS] 426. (string-suffix-length "bail" "aabbccddee" 1 4 3) .......... [PASS] 427. (string-suffix-length "place" "preface" 1 5 1) .......... [PASS] 428. (string-suffix-length "" "" 0 0 0 0) .......... [PASS] 429. (string-suffix-length "" "aabbccddee" 0 0 0 0) .......... [PASS] 430. (string-suffix-length "aisle" "" 0 4 0 0) .......... [PASS] 431. (string-suffix-length "aisle" "aabbccddee" 0 5 2 10) .......... [PASS] 432. (string-suffix-length "bail" "aabbccddee" 0 1 2 4) .......... [PASS] 433. (string-suffix-length "place" "preface" 0 5 1 6) .......... [PASS] 434. (string-suffix-length "place" "preface" 0 4 1 6) .......... [PASS] 435. (string-suffix-length "aisle" "" 1 4 0 0) .......... [PASS] 436. (string-suffix-length "aisle" "aabbccddee" 1 4 3 3) .......... [PASS] 437. (string-suffix-length "bail" "aabbccddee" 1 4 3 6) .......... [PASS] 438. (string-suffix-length "place" "preface" 1 5 1 7) .......... [PASS] 439. (string-prefix? "" "") .......... [PASS] 440. (string-prefix? "" "abc") .......... [PASS] 441. (string-prefix? "a" "abc") .......... [PASS] 442. (string-prefix? "c" "abc") .......... [PASS] 443. (string-prefix? "ab" "abc") .......... [PASS] 444. (string-prefix? "ac" "abc") .......... [PASS] 445. (string-prefix? "abc" "abc") .......... [PASS] 446. (string-suffix? "" "") .......... [PASS] 447. (string-suffix? "" "abc") .......... [PASS] 448. (string-suffix? "a" "abc") .......... [PASS] 449. (string-suffix? "c" "abc") .......... [PASS] 450. (string-suffix? "ac" "abc") .......... [PASS] 451. (string-suffix? "bc" "abc") .......... [PASS] 452. (string-suffix? "abc" "abc") .......... [PASS] 453. (string-prefix? "" "" 0) .......... [PASS] 454. (string-prefix? "" "abc" 0) .......... [PASS] 455. (string-prefix? "a" "abc" 0) .......... [PASS] 456. (string-prefix? "c" "abc" 0) .......... [PASS] 457. (string-prefix? "ab" "abc" 0) .......... [PASS] 458. (string-prefix? "ac" "abc" 0) .......... [PASS] 459. (string-prefix? "abc" "abc" 0) .......... [PASS] 460. (string-suffix? "" "" 0) .......... [PASS] 461. (string-suffix? "" "abc" 0) .......... [PASS] 462. (string-suffix? "a" "abc" 0) .......... [PASS] 463. (string-suffix? "c" "abc" 0) .......... [PASS] 464. (string-suffix? "ac" "abc" 0) .......... [PASS] 465. (string-suffix? "bc" "abc" 0) .......... [PASS] 466. (string-suffix? "abc" "abc" 0) .......... [PASS] 467. (string-prefix? "ab" "abc" 2) .......... [PASS] 468. (string-prefix? "ac" "abc" 2) .......... [PASS] 469. (string-prefix? "abc" "abc" 2) .......... [PASS] 470. (string-suffix? "ac" "abc" 2) .......... [PASS] 471. (string-suffix? "bc" "abc" 2) .......... [PASS] 472. (string-suffix? "abc" "abc" 2) .......... [PASS] 473. (string-prefix? "" "" 0 0) .......... [PASS] 474. (string-prefix? "" "abc" 0 0) .......... [PASS] 475. (string-prefix? "a" "abc" 0 0) .......... [PASS] 476. (string-prefix? "c" "abc" 0 1) .......... [PASS] 477. (string-prefix? "ab" "abc" 0 1) .......... [PASS] 478. (string-prefix? "ab" "abc" 0 2) .......... [PASS] 479. (string-prefix? "ac" "abc" 0 2) .......... [PASS] 480. (string-prefix? "abc" "abc" 0 3) .......... [PASS] 481. (string-suffix? "" "" 0 0) .......... [PASS] 482. (string-suffix? "" "abc" 0 0) .......... [PASS] 483. (string-suffix? "a" "abc" 0 1) .......... [PASS] 484. (string-suffix? "c" "abc" 0 1) .......... [PASS] 485. (string-suffix? "ac" "abc" 1 2) .......... [PASS] 486. (string-suffix? "ac" "abc" 0 2) .......... [PASS] 487. (string-suffix? "bc" "abc" 0 2) .......... [PASS] 488. (string-suffix? "abc" "abc" 0 3) .......... [PASS] 489. (string-prefix? "ab" "abc" 2 2) .......... [PASS] 490. (string-prefix? "ac" "abc" 2 2) .......... [PASS] 491. (string-prefix? "abc" "abc" 2 3) .......... [PASS] 492. (string-suffix? "ac" "abc" 2 2) .......... [PASS] 493. (string-suffix? "bc" "abc" 2 2) .......... [PASS] 494. (string-suffix? "abc" "abc" 2 3) .......... [PASS] 495. (string-prefix? "" "" 0 0 0) .......... [PASS] 496. (string-prefix? "" "abc" 0 0 0) .......... [PASS] 497. (string-prefix? "a" "abc" 0 0 0) .......... [PASS] 498. (string-prefix? "c" "abc" 0 1 0) .......... [PASS] 499. (string-prefix? "ab" "abc" 0 1 0) .......... [PASS] 500. (string-prefix? "ab" "abc" 0 2 0) .......... [PASS] 501. (string-prefix? "ac" "abc" 0 2 0) .......... [PASS] 502. (string-prefix? "abc" "abc" 0 3 0) .......... [PASS] 503. (string-suffix? "" "" 0 0 0) .......... [PASS] 504. (string-suffix? "" "abc" 0 0 0) .......... [PASS] 505. (string-suffix? "a" "abc" 0 1 0) .......... [PASS] 506. (string-suffix? "c" "abc" 0 1 0) .......... [PASS] 507. (string-suffix? "ac" "abc" 1 2 0) .......... [PASS] 508. (string-suffix? "ac" "abc" 0 2 0) .......... [PASS] 509. (string-suffix? "bc" "abc" 0 2 0) .......... [PASS] 510. (string-suffix? "abc" "abc" 0 3 0) .......... [PASS] 511. (string-prefix? "ab" "abc" 2 2 0) .......... [PASS] 512. (string-prefix? "ac" "abc" 2 2 0) .......... [PASS] 513. (string-prefix? "abc" "abc" 2 3 0) .......... [PASS] 514. (string-suffix? "ac" "abc" 2 2 0) .......... [PASS] 515. (string-suffix? "bc" "abc" 2 2 0) .......... [PASS] 516. (string-suffix? "abc" "abc" 2 3 0) .......... [PASS] 517. (string-prefix? "" "abc" 0 0 1) .......... [PASS] 518. (string-prefix? "a" "abc" 0 0 1) .......... [PASS] 519. (string-prefix? "c" "abc" 0 1 2) .......... [PASS] 520. (string-prefix? "ab" "abc" 0 1 2) .......... [PASS] 521. (string-prefix? "ab" "abc" 0 2 1) .......... [PASS] 522. (string-prefix? "ac" "abc" 0 2 1) .......... [PASS] 523. (string-prefix? "abc" "abc" 0 3 1) .......... [PASS] 524. (string-suffix? "a" "abc" 0 1 2) .......... [PASS] 525. (string-suffix? "c" "abc" 0 1 1) .......... [PASS] 526. (string-suffix? "ac" "abc" 1 2 2) .......... [PASS] 527. (string-suffix? "bc" "abc" 0 2 1) .......... [PASS] 528. (string-suffix? "bc" "abc" 0 2 2) .......... [PASS] 529. (string-prefix? "" "" 0 0 0 0) .......... [PASS] 530. (string-prefix? "" "abc" 0 0 0 3) .......... [PASS] 531. (string-prefix? "a" "abc" 0 0 0 3) .......... [PASS] 532. (string-prefix? "c" "abc" 0 1 0 3) .......... [PASS] 533. (string-prefix? "ab" "abc" 0 1 0 3) .......... [PASS] 534. (string-prefix? "ab" "abc" 0 2 0 3) .......... [PASS] 535. (string-prefix? "ac" "abc" 0 2 0 3) .......... [PASS] 536. (string-prefix? "abc" "abc" 0 3 0 3) .......... [PASS] 537. (string-suffix? "" "abc" 0 0 0 3) .......... [PASS] 538. (string-suffix? "a" "abc" 0 1 0 3) .......... [PASS] 539. (string-suffix? "c" "abc" 0 1 0 3) .......... [PASS] 540. (string-suffix? "ac" "abc" 1 2 0 3) .......... [PASS] 541. (string-suffix? "ac" "abc" 0 2 0 3) .......... [PASS] 542. (string-suffix? "bc" "abc" 0 2 0 3) .......... [PASS] 543. (string-suffix? "abc" "abc" 0 3 0 3) .......... [PASS] 544. (string-prefix? "ab" "abc" 2 2 0 3) .......... [PASS] 545. (string-prefix? "ac" "abc" 2 2 0 3) .......... [PASS] 546. (string-prefix? "abc" "abc" 2 3 0 3) .......... [PASS] 547. (string-suffix? "ac" "abc" 2 2 0 3) .......... [PASS] 548. (string-suffix? "bc" "abc" 2 2 0 3) .......... [PASS] 549. (string-suffix? "abc" "abc" 2 3 0 3) .......... [PASS] 550. (string-prefix? "" "abc" 0 0 1 3) .......... [PASS] 551. (string-prefix? "a" "abc" 0 0 1 3) .......... [PASS] 552. (string-prefix? "c" "abc" 0 1 2 3) .......... [PASS] 553. (string-prefix? "ab" "abc" 0 1 2 3) .......... [PASS] 554. (string-prefix? "ab" "abc" 0 2 1 3) .......... [PASS] 555. (string-prefix? "ac" "abc" 0 2 1 3) .......... [PASS] 556. (string-prefix? "abc" "abc" 0 3 1 3) .......... [PASS] 557. (string-suffix? "a" "abc" 0 1 2 3) .......... [PASS] 558. (string-suffix? "c" "abc" 0 1 1 3) .......... [PASS] 559. (string-suffix? "ac" "abc" 1 2 2 3) .......... [PASS] 560. (string-suffix? "bc" "abc" 0 2 1 3) .......... [PASS] 561. (string-suffix? "bc" "abc" 0 2 2 3) .......... [PASS] 562. (string-prefix? "" "abc" 0 0 0 2) .......... [PASS] 563. (string-prefix? "a" "abc" 0 0 0 2) .......... [PASS] 564. (string-prefix? "c" "abc" 0 1 0 2) .......... [PASS] 565. (string-prefix? "ab" "abc" 0 1 0 2) .......... [PASS] 566. (string-prefix? "abc" "abc" 0 3 0 2) .......... [PASS] 567. (string-suffix? "" "abc" 0 0 0 2) .......... [PASS] 568. (string-suffix? "c" "abc" 0 1 0 2) .......... [PASS] 569. (string-suffix? "ac" "abc" 1 2 0 2) .......... [PASS] 570. (dummy-index "" (string-index "" char?)) .......... [PASS] 571. (dummy-index "abcdef" (string-index "abcdef" char?)) .......... [PASS] 572. (dummy-index "abcdef" (string-index "abcdef" (lambda (c) (char>? c #\d)))) .......... [PASS] 573. (dummy-index "abcdef" (string-index "abcdef" char-whitespace?)) .......... [PASS] 574. (dummy-index "abcdef" (string-index-right "" char?)) .......... [PASS] 575. (dummy-index "abcdef" (string-index-right "abcdef" char?)) .......... [PASS] 576. (dummy-index "abcdef" (string-index-right "abcdef" (lambda (c) (char>? c #\d)))) .......... [PASS] 577. (dummy-index "abcdef" (string-index-right "abcdef" char-whitespace?)) .......... [PASS] 578. (dummy-index "" (string-skip "" string?)) .......... [PASS] 579. (dummy-index "abcdef" (string-skip "abcdef" string?)) .......... [PASS] 580. (dummy-index "abcdef" (string-skip "abcdef" (lambda (c) (char<=? c #\d)))) .......... [PASS] 581. (dummy-index "abcdef" (string-skip "abcdef" char?)) .......... [PASS] 582. (dummy-index "" (string-skip-right "" string?)) .......... [PASS] 583. (dummy-index "abcdef" (string-skip-right "abcdef" string?)) .......... [PASS] 584. (dummy-index "abcdef" (string-skip-right "abcdef" (lambda (c) (char<=? c #\d)))) .......... [PASS] 585. (dummy-index "abcdef" (string-skip-right "abcdef" char?)) .......... [PASS] 586. (dummy-index "abcdef" (string-index "abcdef" char? 2)) .......... [PASS] 587. (dummy-index "abcdef" (string-index "abcdef" (lambda (c) (char>? c #\d)) 2)) .......... [PASS] 588. (dummy-index "abcdef" (string-index "abcdef" char-whitespace? 2)) .......... [PASS] 589. (dummy-index "abcdef" (string-index-right "abcdef" char? 2)) .......... [PASS] 590. (dummy-index "abcdef" (string-index-right "abcdef" (lambda (c) (char>? c #\d)) 2)) .......... [PASS] 591. (dummy-index "abcdef" (string-index-right "abcdef" char-whitespace? 2)) .......... [PASS] 592. (dummy-index "abcdef" (string-skip "abcdef" string? 2)) .......... [PASS] 593. (dummy-index "abcdef" (string-skip "abcdef" (lambda (c) (char<=? c #\d)) 2)) .......... [PASS] 594. (dummy-index "abcdef" (string-skip "abcdef" char? 2)) .......... [PASS] 595. (dummy-index "abcdef" (string-skip-right "abcdef" string? 2)) .......... [PASS] 596. (dummy-index "abcdef" (string-skip-right "abcdef" (lambda (c) (char<=? c #\d)) 2)) .......... [PASS] 597. (dummy-index "abcdef" (string-skip-right "abcdef" char? 2)) .......... [PASS] 598. (dummy-index "abcdef" (string-index "abcdef" char? 2 5)) .......... [PASS] 599. (dummy-index "abcdef" (string-index "abcdef" (lambda (c) (char>? c #\d)) 2 5)) .......... [PASS] 600. (dummy-index "abcdef" (string-index "abcdef" char-whitespace? 2 5)) .......... [PASS] 601. (dummy-index "abcdef" (string-index-right "abcdef" char? 2 5)) .......... [PASS] 602. (dummy-index "abcdef" (string-index-right "abcdef" (lambda (c) (char>? c #\d)) 2 5)) .......... [PASS] 603. (dummy-index "abcdef" (string-index-right "abcdef" char-whitespace? 2 5)) .......... [PASS] 604. (dummy-index "abcdef" (string-skip "abcdef" string? 2 5)) .......... [PASS] 605. (dummy-index "abcdef" (string-skip "abcdef" (lambda (c) (char<=? c #\d)) 2 5)) .......... [PASS] 606. (dummy-index "abcdef" (string-skip "abcdef" char? 2 5)) .......... [PASS] 607. (dummy-index "abcdef" (string-skip-right "abcdef" string? 2 5)) .......... [PASS] 608. (dummy-index "abcdef" (string-skip-right "abcdef" (lambda (c) (char<=? c #\d)) 2 5)) .......... [PASS] 609. (dummy-index "abcdef" (string-skip-right "abcdef" char? 2 5)) .......... [PASS] 610. (dummy-index "" (string-contains "" "")) .......... [PASS] 611. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "")) .......... [PASS] 612. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "a")) .......... [PASS] 613. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "ff")) .......... [PASS] 614. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "eff")) .......... [PASS] 615. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "foo")) .......... [PASS] 616. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "efffoo")) .......... [PASS] 617. (dummy-index "" (string-contains-right "" "")) .......... [PASS] 618. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "")) .......... [PASS] 619. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "a")) .......... [PASS] 620. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "ff")) .......... [PASS] 621. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "eff")) .......... [PASS] 622. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "foo")) .......... [PASS] 623. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "efffoo")) .......... [PASS] 624. (dummy-index "" (string-contains "" "" 0)) .......... [PASS] 625. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "" 2)) .......... [PASS] 626. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "a" 2)) .......... [PASS] 627. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "ff" 2)) .......... [PASS] 628. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "eff" 2)) .......... [PASS] 629. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "foo" 2)) .......... [PASS] 630. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "efffoo" 2)) .......... [PASS] 631. (dummy-index "" (string-contains-right "" "" 0)) .......... [PASS] 632. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "" 2)) .......... [PASS] 633. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "a" 2)) .......... [PASS] 634. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "ff" 2)) .......... [PASS] 635. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "eff" 2)) .......... [PASS] 636. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "foo" 2)) .......... [PASS] 637. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "efffoo" 2)) .......... [PASS] 638. (dummy-index "" (string-contains "" "" 0 0)) .......... [PASS] 639. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "" 2 10)) .......... [PASS] 640. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "a" 2 10)) .......... [PASS] 641. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "ff" 2 10)) .......... [PASS] 642. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "eff" 2 10)) .......... [PASS] 643. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "foo" 2 10)) .......... [PASS] 644. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "efffoo" 2 10)) .......... [PASS] 645. (dummy-index "" (string-contains-right "" "" 0 0)) .......... [PASS] 646. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "" 2 10)) .......... [PASS] 647. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "a" 2 10)) .......... [PASS] 648. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "ff" 2 10)) .......... [PASS] 649. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "eff" 2 10)) .......... [PASS] 650. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "foo" 2 10)) .......... [PASS] 651. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "efffoo" 2 10)) .......... [PASS] 652. (dummy-index "" (string-contains "" "" 0 0 0)) .......... [PASS] 653. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "" 2 10 0)) .......... [PASS] 654. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "a" 2 10 1)) .......... [PASS] 655. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "ff" 2 10 1)) .......... [PASS] 656. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "eff" 2 10 1)) .......... [PASS] 657. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "foo" 2 10 1)) .......... [PASS] 658. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "efffoo" 2 10 1)) .......... [PASS] 659. (dummy-index "" (string-contains-right "" "" 0 0 0)) .......... [PASS] 660. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "" 2 10 0)) .......... [PASS] 661. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "a" 2 10 1)) .......... [PASS] 662. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "ff" 2 10 1)) .......... [PASS] 663. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "eff" 2 10 1)) .......... [PASS] 664. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "foo" 2 10 1)) .......... [PASS] 665. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "efffoo" 2 10 1)) .......... [PASS] 666. (dummy-index "" (string-contains "" "" 0 0 0 0)) .......... [PASS] 667. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "" 2 10 0 0)) .......... [PASS] 668. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "a" 2 10 1 1)) .......... [PASS] 669. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "ff" 2 10 1 2)) .......... [PASS] 670. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "eff" 2 10 1 2)) .......... [PASS] 671. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "foo" 2 10 1 2)) .......... [PASS] 672. (dummy-index "abcdeffffoo" (string-contains "abcdeffffoo" "efffoo" 2 10 0 2)) .......... [PASS] 673. (dummy-index "" (string-contains-right "" "" 0 0 0 0)) .......... [PASS] 674. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "" 2 10 0 0)) .......... [PASS] 675. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "a" 2 10 1 1)) .......... [PASS] 676. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "ff" 2 10 1 2)) .......... [PASS] 677. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "eff" 2 10 1 2)) .......... [PASS] 678. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "foo" 2 10 1 2)) .......... [PASS] 679. (dummy-index "abcdeffffoo" (string-contains-right "abcdeffffoo" "efffoo" 2 10 1 3)) .......... [PASS] 680. (string-concatenate (quote ())) .......... [PASS] 681. (string-concatenate (quote ("" "a" "bcd" "" "ef" "" ""))) .......... [PASS] 682. (string-concatenate-reverse (quote ())) .......... [PASS] 683. (string-concatenate-reverse (quote ("" "a" "bcd" "" "ef" "" ""))) .......... [PASS] 684. (string-concatenate-reverse (quote ()) "huh?") .......... [PASS] 685. (string-concatenate-reverse (quote ("" "a" "bcd" "" "ef" "" "")) "xy") .......... [PASS] 686. (string-concatenate-reverse (quote ()) "huh?" 3) .......... [PASS] 687. (string-concatenate-reverse (quote ("" "a" "bcd" "" "ef" "" "")) "x" 1) .......... [PASS] 688. (string-fold (lambda (c count) (if (char-whitespace? c) (+ count 1) count)) 0 " ...a couple of spaces in this one... ") .......... [PASS] 689. (string-fold (lambda (c count) (if (char-whitespace? c) (+ count 1) count)) 0 " ...a couple of spaces in this one... " 1) .......... [PASS] 690. (string-fold (lambda (c count) (if (char-whitespace? c) (+ count 1) count)) 0 " ...a couple of spaces in this one... " 1 32) .......... [PASS] 691. (string-fold-right cons (quote ()) "abcdef") .......... [PASS] 692. (string-fold-right cons (quote ()) "abcdef" 3) .......... [PASS] 693. (string-fold-right cons (quote ()) "abcdef" 2 5) .......... [PASS] 694. (let* ((s "abracadabra") (ans-len (string-fold (lambda (c sum) (+ sum (if (char=? c #\a) 2 1))) 0 s)) (ans (make-string ans-len))) (string-fold (lambda (c i) (let ((i (if (char=? c #\a) (begin (string-set! ans i #\a) (+ i 1)) i))) (string-set! ans i c) (+ i 1))) 0 s) ans) .......... [PASS] 695. (let ((s "abcde") (v (quote ()))) (string-for-each (lambda (char) (set! v (cons (char->integer char) v))) s) v) .......... [PASS] 696. (string-replicate "abcdef" -4 10) .......... [PASS] 697. (string-replicate "abcdef" 90 103 1) .......... [PASS] 698. (string-replicate "abcdef" -13 -3 2 5) .......... [PASS] 699. (string-count "abcdef" char?) .......... [PASS] 700. (string-count "counting whitespace, again " char-whitespace? 5) .......... [PASS] 701. (string-count "abcdefwxyz" (lambda (c) (odd? (char->integer c))) 2 8) .......... [PASS] 702. (string-replace "It's easy to code it up in Scheme." "lots of fun" 5 9) .......... [PASS] 703. (string-replace "The TCL programmer endured daily ridicule." "another miserable perl drone" 4 7 8 22) .......... [PASS] 704. (string-replace "It's easy to code it up in Scheme." "really " 5 5) .......... [PASS] 705. (not (null? (string-split "" ""))) .......... [PASS] 706. (string-split "abc" "") .......... [PASS] 707. (string-split "" "" (quote infix)) .......... [PASS] 708. (string-split "abc" "" (quote infix)) .......... [PASS] 709. (string-split "abc" "" (quote strict-infix)) .......... [PASS] 710. (string-split "" "" (quote prefix)) .......... [PASS] 711. (string-split "abc" "" (quote prefix)) .......... [PASS] 712. (string-split "" "" (quote suffix)) .......... [PASS] 713. (string-split "abc" "" (quote suffix)) .......... [PASS] 714. (string-split "" "" (quote infix) #f) .......... [PASS] 715. (string-split "abc" "" (quote infix) #f) .......... [PASS] 716. (quote (string-split "" "" (quote strict-infix))) .......... [PASS] 717. (string-split "abc" "" (quote strict-infix) 3) .......... [PASS] 718. (string-split "" "" (quote prefix) 3) .......... [PASS] 719. (string-split "abc" "" (quote prefix) 3) .......... [PASS] 720. (string-split "" "" (quote suffix) 3) .......... [PASS] 721. (string-split "abc" "" (quote suffix) 3) .......... [PASS] 722. (string-split "abc" "" (quote strict-infix) 3 1) .......... [PASS] 723. (string-split "" "" (quote prefix) 3 0) .......... [PASS] 724. (string-split "abc" "" (quote prefix) 3 1) .......... [PASS] 725. (string-split "abc" "" (quote strict-infix) 3 1 2) .......... [PASS] 726. (string-split "" "" (quote prefix) 3 0 0) .......... [PASS] 727. (string-split "abc" "" (quote prefix) 3 1 2) .......... [PASS] 728. (string-split "" "" (quote suffix) 3 0 0) .......... [PASS] 729. (string-split "abc" "" (quote suffix) 3 1 2) .......... [PASS] 730. (string-filter (lambda (c) (memv c (string->list "aeiou"))) "What is number, that man may know it?") .......... [PASS] 731. (string-remove (lambda (c) (memv c (string->list "aeiou"))) "And woman, that she may know number?") .......... [PASS] 732. (string-filter (lambda (c) (memv c (string->list "aeiou"))) "What is number, that man may know it?" 4) .......... [PASS] 733. (string-remove (lambda (c) (memv c (string->list "aeiou"))) "And woman, that she may know number?" 6) .......... [PASS] 734. (string-filter (lambda (c) (memv c (string->list "aeiou"))) "What is number, that man may know it?" 16 32) .......... [PASS] 735. (string-remove (lambda (c) (memv c (string->list "eiu"))) "And woman, that she may know number?" 0 28) .......... [PASS] 736. (string? "abc") .......... [PASS] 737. (string? 32) .......... [PASS] 738. (make-string 3 #\$) .......... [PASS] 739. (string #\$ #\$ #\$) .......... [PASS] 740. (string->list "abcde" 1 3) .......... [PASS] 741. (list->string (quote (#\a #\b #\c #\d #\e))) .......... [PASS] 742. (vector->string (quote #(#\a #\b #\c #\d #\e))) .......... [PASS] 743. (call-with-values (lambda () (string-span "12345abcde" char-numeric?)) list) .......... [PASS] 744. (call-with-values (lambda () (string-break "12345abcde" char-alphabetic?)) list) .......... [PASS] 745. (string-take-while "abcde12345" char-alphabetic?) .......... [PASS] 746. (string-take-while-right "12345abcde" char-alphabetic?) .......... [PASS] 747. (string-drop-while " abcde" char-whitespace?) .......... [PASS] 748. (string-drop-while-right "abcde " char-whitespace?) .......... [PASS] 749. (string-length "abcde") .......... [PASS] 750. (let ((abc (string-copy "abc"))) (string-set! abc 2 #\!) abc) .......... [PASS] 751. (let ((abc (string-copy "abc"))) (string-set! abc 2 #\!) abc) .......... [PASS] 752. (let ((abc (string-copy "abc"))) (string-fill! abc #\!) abc) .......... [PASS] 753. (let ((abc (string-copy "abc"))) (string-fill! abc #\! 1 2) abc) .......... [PASS] 753 out of 753 passed (100.00%) 1. (not (oset-contains? oset1 1)) .......... [PASS] 2. (not (oset-contains? oset1 2)) .......... [PASS] 3. (not (oset-contains? oset1 3)) .......... [PASS] 4. (not (oset-contains? oset1 4)) .......... [PASS] 5. (not (oset-contains? oset1 5)) .......... [PASS] 6. (oset-size oset1) .......... [PASS] 7. (not (oset-contains? oset2 1)) .......... [PASS] 8. (not (oset-contains? oset2 2)) .......... [PASS] 9. (not (oset-contains? oset2 3)) .......... [PASS] 10. (not (oset-contains? oset2 4)) .......... [PASS] 11. (not (oset-contains? oset2 5)) .......... [PASS] 12. (oset-size oset2) .......... [PASS] 13. (oset number-comparator 100 200 300 400 500) .......... [PASS] 14. (oset number-comparator 100 200 300 400 500) .......... [PASS] 15. (not (oset-contains? oset5 "a")) .......... [PASS] 16. (not (oset-contains? oset5 "A")) .......... [PASS] 17. (oset-size oset8) .......... [PASS] 18. (oset-accumulate (lambda (terminate i) (if (> i 500) (terminate) (values i (+ i 100)))) number-comparator 100) .......... [PASS] 19. (not (let-values (((set last) (oset-accumulate (lambda (terminate i) (if (< i 1) (terminate i) (values (* i 100) (- i 1)))) number-comparator 5))) (and (oset=? set oset4) (zero? last)))) .......... [PASS] 20. (not (oset? oset1)) .......... [PASS] 21. (not (oset? oset2)) .......... [PASS] 22. (not (oset? oset3)) .......... [PASS] 23. (not (oset? oset4)) .......... [PASS] 24. (not (oset? oset5)) .......... [PASS] 25. (not (oset-contains? oset1 3)) .......... [PASS] 26. (oset-contains? oset1 10) .......... [PASS] 27. (not (oset-empty? oset0)) .......... [PASS] 28. (oset-empty? oset1) .......... [PASS] 29. (oset-disjoint? oset1 oset2) .......... [PASS] 30. (oset-disjoint? oset1 oset2) .......... [PASS] 31. (oset-member oset1 1 (failure)) .......... [PASS] 32. (oset-member oset1 100 (failure)) .......... [PASS] 33. (string-ci=? "a" (oset-member oset5 "A" (failure))) .......... [PASS] 34. (oset-member oset5 "z" (failure)) .......... [PASS] 35. (eq? number-comparator (oset-element-comparator oset4)) .......... [PASS] 36. (oset-adjoin oset1 6 7) .......... [PASS] 37. (oset number-comparator 1 2 3 4 5 6 7) .......... [PASS] 38. (oset-adjoin oset5 "A") .......... [PASS] 39. (oset-adjoin/replace oset5 "A") .......... [PASS] 40. (oset-adjoin/replace oset5 "A" "Z") .......... [PASS] 41. (oset string-ci-comparator "A" "b" "c" "d" "e") .......... [PASS] 42. (oset-delete oset1 4 5) .......... [PASS] 43. (oset-delete-all oset1 (list 4 5)) .......... [PASS] 44. (oset number-comparator 1 2 3 4) .......... [PASS] 45. (oset number-comparator 1 2 3) .......... [PASS] 46. (oset-pop oset0 failure) .......... [PASS] 47. (oset-pop/reverse oset0 failure) .......... [PASS] 48. (not (let-values (((o x) (oset-pop oset2 failure))) (and (oset=? o (oset number-comparator 2 3 4 5 6 7)) (= x 1)))) .......... [PASS] 49. (not (let-values (((o x) (oset-pop/reverse oset2 failure))) (and (oset=? o (oset number-comparator 1 2 3 4 5 6)) (= x 7)))) .......... [PASS] 50. (oset number-comparator 2 3 4 5 6 7) .......... [PASS] 51. (cadr vlist) .......... [PASS] 52. (oset-size oset6) .......... [PASS] 53. (oset-find odd? oset6 failure) .......... [PASS] 54. (oset-find zero? oset6 failure) .......... [PASS] 55. (oset-count even? oset6) .......... [PASS] 56. (oset-count zero? oset6) .......... [PASS] 57. (not (oset-any? odd? (oset number-comparator 1 2 4 6 8))) .......... [PASS] 58. (not (oset-every? even? (oset number-comparator 2 4 6 8))) .......... [PASS] 59. (let ((r (quote ()))) (oset-for-each (lambda (i) (set! r (cons i r))) oset6) r) .......... [PASS] 60. (oset-fold + 0 oset6) .......... [PASS] 61. (oset-fold - 0 oset9) .......... [PASS] 62. (oset-fold/reverse - 0 oset9) .......... [PASS] 63. (oset-fold string-append "" oset7) .......... [PASS] 64. (oset-filter number? oset8) .......... [PASS] 65. (oset-remove number? oset8) .......... [PASS] 66. (not (and (oset=? (car vlist) oset6) (oset=? (cadr vlist) oset7))) .......... [PASS] 67. (oset->list oset3) .......... [PASS] 68. (list->oset number-comparator (quote (100 200 300 400 500))) .......... [PASS] 69. (list->oset/ordered number-comparator (quote (100 200 300 400 500))) .......... [PASS] 70. (not (oset=? oset6 oset6)) .......... [PASS] 71. (not (oset? oset6 oset6l)) .......... [PASS] 73. (not (oset<=? oset6s oset6)) .......... [PASS] 74. (not (oset<=? oset6s oset6s)) .......... [PASS] 75. (not (oset>=? oset6 oset6l)) .......... [PASS] 76. (not (oset>=? oset6l oset6l)) .......... [PASS] 77. (oset-union oset6e oset6o) .......... [PASS] 78. (oset-intersection oset6e oset6o) .......... [PASS] 79. (oset-difference oset6 oset6o) .......... [PASS] 80. (oset-xor (oset number-comparator 1 2 3 4) (oset number-comparator 1 2 5 6)) .......... [PASS] 81. (oset-min-element oset6) .......... [PASS] 82. (oset-max-element oset6) .......... [PASS] 83. (oset-element-predecessor oset6 2 failure) .......... [PASS] 84. (oset-element-predecessor oset6 1 failure) .......... [PASS] 85. (oset-element-successor oset6 4 failure) .......... [PASS] 86. (oset-element-successor oset6 5 failure) .......... [PASS] 87. (oset-range< oset6 3) .......... [PASS] 88. (oset-range= oset6 3) .......... [PASS] 89. (oset-range> oset6 3) .......... [PASS] 90. (oset-range<= oset6 3) .......... [PASS] 91. (oset-range>= oset6 3) .......... [PASS] 91 out of 91 passed (100.00%) 1. (not (is 1 odd?)) .......... [PASS] 2. (not (isnt 2 odd?)) .......... [PASS] 3. (not (is (quote ()) null?)) .......... [PASS] 4. (not (is procedure? procedure?)) .......... [PASS] 5. (not (isnt 5 procedure?)) .......... [PASS] 6. (not (is 1 < 2)) .......... [PASS] 7. (not (isnt 1 < 1)) .......... [PASS] 8. (not (is (+ 2 2) = 4)) .......... [PASS] 9. (not (is (quote x) eq? (quote x))) .......... [PASS] 10. (not (is procedure? eq? procedure?)) .......... [PASS] 11. (not (eq? (is eq? eq? eq?) (eq? eq? eq?))) .......... [PASS] 12. (not (is (is eq? eq? eq?) eq? (eq? eq? eq?))) .......... [PASS] 13. (not (is (quote y) memq (quote (x y z)))) .......... [PASS] 14. (not (is (quote (1)) member (quote (() (1) (2) (1 2))))) .......... [PASS] 15. (not (isnt (quote x) eq? (quote y))) .......... [PASS] 16. (not (is (quote (a b c)) equal? (quote (a b c)))) .......... [PASS] 17. (not (isnt (quote (a b c)) equal? (quote (c b a)))) .......... [PASS] 18. (not (is 0 = 0.0)) .......... [PASS] 19. (not (is 1.0 = 1)) .......... [PASS] 20. (not (isnt 1 = 0)) .......... [PASS] 21. (not (is 9 divisible-by? 3)) .......... [PASS] 22. (not (isnt 3 divisible-by? 9)) .......... [PASS] 23. (not (is 1 < 2 even?)) .......... [PASS] 24. (not (isnt 1 < 2 odd?)) .......... [PASS] 25. (not (isnt 2 < 1 even?)) .......... [PASS] 26. (not (is 0 = 0.0 zero?)) .......... [PASS] 27. (not (isnt 1.0 = 1 zero?)) .......... [PASS] 28. (not (is 1 < 2 <= 3)) .......... [PASS] 29. (not (isnt 1 <= 2 < 2)) .......... [PASS] 30. (not (is 1 < 2 > 1.5)) .......... [PASS] 31. (not (isnt 1 < 2 > 3)) .......... [PASS] 32. (not (isnt 3 < 2 < 1)) .......... [PASS] 33. (not (is (quote x) member (quote (x y)) member (quote ((x y) (y x))))) .......... [PASS] 34. (not (is -0.4 < -0.1 <= 0 = 0.0 < 0.1 < 0.4)) .......... [PASS] 35. (not (isnt -0.4 < -0.1 <= 0 = 0.0 < 0.1 < -0.1)) .......... [PASS] 36. (not (is -0.4 < -0.1 <= 0 <= 0.0 < 0.1 < 0.4 <= 2 even?)) .......... [PASS] 37. (not (isnt -0.4 < -0.1 <= 0 <= 0.0 < 0.1 < 0.4 <= 2 odd?)) .......... [PASS] 38. (not (equal? (filter (isnt _ even?) (quote (2 4 5 6 7 8))) (quote (5 7)))) .......... [PASS] 39. (not (equal? (filter (is _ < 2) (quote (1 3 2 0))) (quote (1 0)))) .......... [PASS] 40. (not (equal? (filter (is 1 < _) (quote (1 3 2 0))) (quote (3 2)))) .......... [PASS] 41. (not (equal? (filter (is 3 < _ <= 5) (quote (2 3 4 5 6 7))) (quote (4 5)))) .......... [PASS] 42. (not (equal? (filter (is (quote x) memq _) (quote ((a b) (x) (p q) (x y) (c d) (z x)))) (quote ((x) (x y) (z x))))) .......... [PASS] 43. (not (equal? (filter (isnt (quote x) memq _) (quote ((a b) (x) (p q) (x y) (c d) (z x)))) (quote ((a b) (p q) (c d))))) .......... [PASS] 44. (not (equal? (filter (isnt 3 < _ <= 5) (quote (2 3 4 5 6 7))) (quote (2 3 6 7)))) .......... [PASS] 45. (not (equal? (filter (is _ eq? (quote a)) (quote (m a m a))) (quote (a a)))) .......... [PASS] 46. (not (equal? (filter (isnt (quote a) eq? _) (quote (m a m a))) (quote (m m)))) .......... [PASS] 47. (not ((is _ < 2 < _) 1 3)) .......... [PASS] 48. (not ((isnt 1 < _ <= _ < 3) 2 4)) .......... [PASS] 49. (not ((is _ < _ even?) 1 2)) .......... [PASS] 50. (not ((isnt _ < _ odd?) 1 2)) .......... [PASS] 51. (not ((is 1 < _ <= 3 < _ <= 5 < _) 3 5 6)) .......... [PASS] 52. (not ((isnt 1 < _ <= 3 < _ <= 5 < _) 3 3 6)) .......... [PASS] 53. (not ((is 1 < _ <= 3 < _ <= 5 < _ even?) 3 5 6)) .......... [PASS] 54. (not ((isnt 1 < _ <= 3 < _ <= 5 < _ odd?) 3 5 6)) .......... [PASS] 54 out of 54 passed (100.00%) 1. (generator->list (generator)) .......... [PASS] 2. (generator->list (generator 1 2 3)) .......... [PASS] 3. (generator->list (circular-generator 1 2 3) 5) .......... [PASS] 4. (generator->list (make-iota-generator 3 8)) .......... [PASS] 5. (generator->list (make-iota-generator 3 8 2)) .......... [PASS] 6. (generator->list (make-range-generator 3) 4) .......... [PASS] 7. (generator->list (make-range-generator 3 8)) .......... [PASS] 8. (generator->list (make-range-generator 3 8 2)) .......... [PASS] 9. (generator->list g) .......... [PASS] 10. (generator->list (list->generator (quote (1 2 3 4 5)))) .......... [PASS] 11. (generator->list (vector->generator (quote #(1 2 3 4 5)))) .......... [PASS] 12. (let ((v (make-vector 5 0))) (generator->vector! v 2 (generator 1 2 4)) v) .......... [PASS] 13. (generator->list (reverse-vector->generator (quote #(1 2 3 4 5)))) .......... [PASS] 14. (generator->list (string->generator "abcde")) .......... [PASS] 15. (generator->list (bytevector->generator (bytevector 10 20 30))) .......... [PASS] 16. (generator->list (make-for-each-generator for-each-digit 12345)) .......... [PASS] 17. (generator->list (make-unfold-generator (lambda (s) (> s 5)) (lambda (s) (* s 2)) (lambda (s) (+ s 1)) 0)) .......... [PASS] 18. (generator->list (gcons* (quote a) (quote b) (make-range-generator 0 2))) .......... [PASS] 19. (generator->list (gappend (make-range-generator 0 3) (make-range-generator 0 2))) .......... [PASS] 20. (generator->list (gappend)) .......... [PASS] 21. (generator->list (gcombine proc 10 g1 g2)) .......... [PASS] 22. (generator->list (gfilter odd? (make-range-generator 1 11))) .......... [PASS] 23. (generator->list (gremove odd? (make-range-generator 1 11))) .......... [PASS] 24. (generator->list (gtake g 3)) .......... [PASS] 25. (generator->list g) .......... [PASS] 26. (generator->list (gtake (make-range-generator 1 3) 3)) .......... [PASS] 27. (generator->list (gtake (make-range-generator 1 3) 3 0)) .......... [PASS] 28. (generator->list (gdrop (make-range-generator 1 5) 2)) .......... [PASS] 29. (generator->list (gtake-while small? g)) .......... [PASS] 30. (generator->list (gdrop-while small? g)) .......... [PASS] 31. (generator->list (gdrop-while (lambda args #t) (generator 1 2 3))) .......... [PASS] 32. (generator->list (gdelete 1 (generator 0.0 1.0 0 1 2))) .......... [PASS] 33. (generator->list (gdelete 1 (generator 0.0 1.0 0 1 2) =)) .......... [PASS] 34. (generator->list (gindex (list->generator (quote (a b c d e f))) (list->generator (quote (0 2 4))))) .......... [PASS] 35. (generator->list (gselect (list->generator (quote (a b c d e f))) (list->generator (quote (#t #f #f #t #t #f))))) .......... [PASS] 36. (generator->list (gdelete-neighbor-dups (generator 1 1 2 3 3 3) =)) .......... [PASS] 37. (generator->list (gdelete-neighbor-dups (generator 1 2 3) (lambda args #t))) .......... [PASS] 38. (generator->list (gflatten (generator (quote (1 2 3)) (quote (a b c))))) .......... [PASS] 39. (generator->list (ggroup (generator 1 2 3 4 5 6 7 8) 3)) .......... [PASS] 40. (generator->list (ggroup (generator 1 2 3 4 5 6 7 8) 3 0)) .......... [PASS] 41. (generator->list (gmerge < (generator 1 2 3))) .......... [PASS] 42. (generator->list (gmerge < (generator 1 2 3) (generator 4 5 6))) .......... [PASS] 43. (generator->list (gmerge < (generator 1 2 4 6) (generator) (generator 3 4 5))) .......... [PASS] 44. (generator->list (gmerge < (generator 1 10 11) (generator 2 9 12) (generator 3 8 13) (generator 4 7 14) (generator 5 6 15))) .......... [PASS] 45. (generator->list (gmerge (lambda (x y) (< (car x) (car y))) (generator (quote (1 a)) (quote (1 e))) (generator (quote (1 b))) (generator (quote (1 c)) (quote (1 d))))) .......... [PASS] 46. (generator->list (gmap - (generator 1 2 3 4 5))) .......... [PASS] 47. (generator->list (gmap + (generator 1 2 3 4 5) (generator 6 7 8 9))) .......... [PASS] 48. (generator->list (gmap * (generator 1 2 3 4 5) (generator 6 7 8) (generator 9 10 11 12 13))) .......... [PASS] 49. (generator->list (gstate-filter (lambda (item state) (values (even? state) (+ 1 state))) 0 (generator (quote a) (quote b) (quote c) (quote d) (quote e) (quote f) (quote g) (quote h) (quote i) (quote j)))) .......... [PASS] 50. (generator->list (generator 1 2 3 4 5) 3) .......... [PASS] 51. (generator->reverse-list (generator 1 2 3 4 5)) .......... [PASS] 52. (generator->vector (generator 1 2 3 4 5)) .......... [PASS] 53. (generator->vector (generator 1 2 3 4 5) 3) .......... [PASS] 54. (generator->string (generator #\a #\b #\c)) .......... [PASS] 55. (with-input-from-string "a b c d e" (lambda () (generator-fold cons (quote z) read))) .......... [PASS] 56. n .......... [PASS] 57. (generator-map->list (lambda values (apply + values)) (generator 1 4) (generator 2 5) (generator 3 6)) .......... [PASS] 58. (generator-find (lambda (x) (> x 2)) (make-range-generator 1 5)) .......... [PASS] 59. (generator-find (lambda (x) (> x 10)) (make-range-generator 1 5)) .......... [PASS] 60. (generator-count odd? (make-range-generator 1 5)) .......... [PASS] 61. (generator-any odd? g) .......... [PASS] 62. (generator->list g) .......... [PASS] 63. (generator-any (lambda (x) (and (odd? x) x)) g) .......... [PASS] 64. (generator-every odd? g) .......... [PASS] 65. (generator->list g) .......... [PASS] 66. (generator-every (lambda (x) (and (> x 1) x)) g) .......... [PASS] 67. (generator->list g) .......... [PASS] 68. (generator-unfold (make-for-each-generator string-for-each "abc") unfold) .......... [PASS] 69. (let ((a (make-accumulator * 1 -))) (a 1) (a 2) (a 4) (a (eof-object))) .......... [PASS] 70. (let ((a (count-accumulator))) (a 1) (a 2) (a 4) (a (eof-object))) .......... [PASS] 71. (let ((a (list-accumulator))) (a 1) (a 2) (a 4) (a (eof-object))) .......... [PASS] 72. (let ((a (reverse-list-accumulator))) (a 1) (a 2) (a 4) (a (eof-object))) .......... [PASS] 73. (let ((a (vector-accumulator))) (a 1) (a 2) (a 4) (a (eof-object))) .......... [PASS] 74. (let* ((v (vector 0 0 0 0 0)) (a (vector-accumulator! v 2))) (a 1) (a 2) (a 4) (a (eof-object))) .......... [PASS] 75. (let* ((v (bytevector 0 0 0 0 0)) (a (bytevector-accumulator! v 2))) (a 1) (a 2) (a 4) (a (eof-object))) .......... [PASS] 76. (let ((a (reverse-vector-accumulator))) (a 1) (a 2) (a 4) (a (eof-object))) .......... [PASS] 77. (let ((a (string-accumulator))) (a #\a) (a #\b) (a #\c) (a (eof-object))) .......... [PASS] 78. (let ((a (bytevector-accumulator))) (a 1) (a 2) (a 4) (a (eof-object))) .......... [PASS] 79. (let ((a (sum-accumulator))) (a 1) (a 2) (a 4) (a (eof-object))) .......... [PASS] 80. (let ((a (product-accumulator))) (a 1) (a 2) (a 4) (a (eof-object))) .......... [PASS] 80 out of 80 passed (100.00%) STS FOR SRFI 151: ./skint test/srfi/151.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 152: ./skint test/srfi/152.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 153: ./skint test/srfi/153.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 156: ./skint test/srfi/156.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 158: ./skint test/srfi/158.scm ---------------------------------------------------------------------------- ---------------------------------------------------------1. (u8vector? #u8()) .......... [PASS] 2. (u8vector? #u8(0 1 2)) .......... [PASS] 3. (u8vector? #()) .......... [PASS] 4. (u8vector? #(0 1 2)) .......... [PASS] 5. (u8vector? (quote ())) .......... [PASS] 6. (u8vector? (make-u8vector 0)) .......... [PASS] 7. (u8vector-length (make-u8vector 0)) .......... [PASS] 8. (u8vector-length (make-u8vector 1024)) .......... [PASS] 9. (u8vector-length (make-u8vector 1024 255)) .......... [PASS] 10. (u8vector-length (u8vector 0 1 2)) .......... [PASS] 11. (u8vector-ref (u8vector 0 1 2) 0) .......... [PASS] 12. (u8vector-ref (u8vector 0 1 2) 1) .......... [PASS] 13. (u8vector-ref (u8vector 0 1 2) 2) .......... [PASS] 14. (let ((bv (u8vector 0 1 2))) (u8vector-set! bv 1 255) bv) .......... [PASS] 15. (u8vector->list #u8()) .......... [PASS] 16. (u8vector->list #u8(0 1 2)) .......... [PASS] 17. (u8vector->list #u8(0 1 2) 0) .......... [PASS] 18. (u8vector->list #u8(0 1 2) 0 3) .......... [PASS] 19. (u8vector->list #u8(0 1 2) 1) .......... [PASS] 20. (u8vector->list #u8(0 1 2) 1 2) .......... [PASS] 21. (u8vector->list #u8(0 1 2) 2 2) .......... [PASS] 22. (list->u8vector (quote ())) .......... [PASS] 23. (list->u8vector (quote (24 42))) .......... [PASS] 24. (s8vector? #s8()) .......... [PASS] 25. (s8vector? #s8(0 1 2)) .......... [PASS] 26. (s8vector? #()) .......... [PASS] 27. (s8vector? #(0 1 2)) .......... [PASS] 28. (s8vector? (quote ())) .......... [PASS] 29. (s8vector? (make-s8vector 0)) .......... [PASS] 30. (s8vector-length (make-s8vector 0)) .......... [PASS] 31. (s8vector-length (make-s8vector 1024)) .......... [PASS] 32. (s8vector-length (make-s8vector 1024 127)) .......... [PASS] 33. (s8vector-length (s8vector 0 1 2)) .......... [PASS] 34. (s8vector-ref (s8vector 0 1 2) 0) .......... [PASS] 35. (s8vector-ref (s8vector 0 1 2) 1) .......... [PASS] 36. (s8vector-ref (s8vector 0 1 2) 2) .......... [PASS] 37. (let ((bv (s8vector 0 1 2))) (s8vector-set! bv 1 -128) bv) .......... [PASS] 38. (s8vector->list #s8()) .......... [PASS] 39. (s8vector->list #s8(0 1 2)) .......... [PASS] 40. (s8vector->list #s8(0 1 2) 0) .......... [PASS] 41. (s8vector->list #s8(0 1 2) 0 3) .......... [PASS] 42. (s8vector->list #s8(0 1 2) 1) .......... [PASS] 43. (s8vector->list #s8(0 1 2) 1 2) .......... [PASS] 44. (s8vector->list #s8(0 1 2) 2 2) .......... [PASS] 45. (list->s8vector (quote ())) .......... [PASS] 46. (list->s8vector (quote (24 42))) .......... [PASS] 47. (u16vector? #u16()) .......... [PASS] 48. (u16vector? #u16(0 1 2)) .......... [PASS] 49. (u16vector? #()) .......... [PASS] 50. (u16vector? #(0 1 2)) .......... [PASS] 51. (u16vector? (quote ())) .......... [PASS] 52. (u16vector? (make-u16vector 0)) .......... [PASS] 53. (u16vector-length (make-u16vector 0)) .......... [PASS] 54. (u16vector-length (make-u16vector 1024)) .......... [PASS] 55. (u16vector-length (make-u16vector 1024 65535)) .......... [PASS] 56. (u16vector-length (u16vector 0 1 2)) .......... [PASS] 57. (u16vector-ref (u16vector 0 1 2) 0) .......... [PASS] 58. (u16vector-ref (u16vector 0 1 2) 1) .......... [PASS] 59. (u16vector-ref (u16vector 0 1 2) 2) .......... [PASS] 60. (let ((bv (u16vector 0 1 2))) (u16vector-set! bv 1 65535) bv) .......... [PASS] 61. (u16vector->list #u16()) .......... [PASS] 62. (u16vector->list #u16(0 1 2)) .......... [PASS] 63. (u16vector->list #u16(0 1 2) 0) .......... [PASS] 64. (u16vector->list #u16(0 1 2) 0 3) .......... [PASS] 65. (u16vector->list #u16(0 1 2) 1) .......... [PASS] 66. (u16vector->list #u16(0 1 2) 1 2) .......... [PASS] 67. (u16vector->list #u16(0 1 2) 2 2) .......... [PASS] 68. (list->u16vector (quote ())) .......... [PASS] 69. (list->u16vector (quote (24 42))) .......... [PASS] 70. (s16vector? #s16()) .......... [PASS] 71. (s16vector? #s16(0 1 2)) .......... [PASS] 72. (s16vector? #()) .......... [PASS] 73. (s16vector? #(0 1 2)) .......... [PASS] 74. (s16vector? (quote ())) .......... [PASS] 75. (s16vector? (make-s16vector 0)) .......... [PASS] 76. (s16vector-length (make-s16vector 0)) .......... [PASS] 77. (s16vector-length (make-s16vector 1024)) .......... [PASS] 78. (s16vector-length (make-s16vector 1024 -32768)) .......... [PASS] 79. (s16vector-length (s16vector 0 1 2)) .......... [PASS] 80. (s16vector-ref (s16vector 0 1 2) 0) .......... [PASS] 81. (s16vector-ref (s16vector 0 1 2) 1) .......... [PASS] 82. (s16vector-ref (s16vector 0 1 2) 2) .......... [PASS] 83. (let ((bv (s16vector 0 1 2))) (s16vector-set! bv 1 -32768) bv) .......... [PASS] 84. (s16vector->list #s16()) .......... [PASS] 85. (s16vector->list #s16(0 1 2)) .......... [PASS] 86. (s16vector->list #s16(0 1 2) 0) .......... [PASS] 87. (s16vector->list #s16(0 1 2) 0 3) .......... [PASS] 88. (s16vector->list #s16(0 1 2) 1) .......... [PASS] 89. (s16vector->list #s16(0 1 2) 1 2) .......... [PASS] 90. (s16vector->list #s16(0 1 2) 2 2) .......... [PASS] 91. (list->s16vector (quote ())) .......... [PASS] 92. (list->s16vector (quote (24 42))) .......... [PASS] 93. (f32vector? #f32()) .......... [PASS] 94. (f32vector? #f32(0 1 2)) .......... [PASS] 95. (f32vector? #()) .......... [PASS] 96. (f32vector? #(-inf.0 +inf.0 +nan.0)) .......... [PASS] 97. (f32vector? (quote ())) .......... [PASS] 98. (f32vector? (make-f32vector 0)) .......... [PASS] 99. (f32vector-length (make-f32vector 0)) .......... [PASS] 100. (f32vector-length (make-f32vector 1024)) .......... [PASS] 101. (f32vector-length (make-f32vector 1024 +inf.0)) .......... [PASS] 102. (f32vector-length (f32vector 0.0 1.0 2.0)) .......... [PASS] 103. (f32vector-ref (f32vector 0.0 1.0 2.0) 0) .......... [PASS] 104. (f32vector-ref (f32vector 0.0 1.0 2.0) 1) .......... [PASS] 105. (f32vector-ref (f32vector 0.0 1.0 2.0) 2) .......... [PASS] 106. (let ((bv (f32vector -0.0 1.0 -2.0))) (f32vector-set! bv 1 +inf.0) bv) .......... [PASS] 107. (f32vector->list #f32()) .......... [PASS] 108. (f32vector->list #f32(0 1 2)) .......... [PASS] 109. (f32vector->list #f32(0 1 2) 0) .......... [PASS] 110. (f32vector->list #f32(0 1 2) 0 3) .......... [PASS] 111. (f32vector->list #f32(0 1 2) 1) .......... [PASS] 112. (f32vector->list #f32(0 1 2) 1 2) .......... [PASS] 113. (f32vector->list #f32(0 1 2) 2 2) .......... [PASS] 114. (list->f32vector (quote ())) .......... [PASS] 115. (list->f32vector (quote (24.0 42.0))) .......... [PASS] 116. (f32vector-ref (f32vector -inf.0 +inf.0 +nan.0) 0) .......... [PASS] 117. (f32vector-ref (f32vector -inf.0 +inf.0 +nan.0) 1) .......... [PASS] 118. (f32vector-ref (f32vector -inf.0 +inf.0 +nan.0) 2) .......... [PASS] 119. (f32vector-ref #f32(2) 0) .......... [PASS] 120. (f32vector-ref #f32(+inf.0) 0) .......... [PASS] 121. (f32vector-ref #f32(-0) 0) .......... [PASS] 122. (f64vector? #f64()) .......... [PASS] 123. (f64vector? #f64(0.0 1.0 2.0)) .......... [PASS] 124. (f64vector? #()) .......... [PASS] 125. (f64vector? #(-inf.0 +inf.0 +nan.0)) .......... [PASS] 126. (f64vector? (quote ())) .......... [PASS] 127. (f64vector? (make-f64vector 0)) .......... [PASS] 128. (f64vector-length (make-f64vector 0)) .......... [PASS] 129. (f64vector-length (make-f64vector 1024)) .......... [PASS] 130. (f64vector-length (make-f64vector 1024 +inf.0)) .......... [PASS] 131. (f64vector-length (f64vector 0.0 1.0 2.0)) .......... [PASS] 132. (f64vector-ref (f64vector 0.0 1.0 2.0) 0) .......... [PASS] 133. (f64vector-ref (f64vector 0.0 1.0 2.0) 1) .......... [PASS] 134. (f64vector-ref (f64vector 0.0 1.0 2.0) 2) .......... [PASS] 135. (let ((bv (f64vector -0.0 1.0 -2.0))) (f64vector-set! bv 1 +inf.0) bv) .......... [PASS] 136. (f64vector->list #f64()) .......... [PASS] 137. (f64vector->list #f64(0.0 1.0 2.0)) .......... [PASS] 138. (f64vector->list #f64(0.0 1.0 2.0) 0) .......... [PASS] 139. (f64vector->list #f64(0.0 1.0 2.0) 0 3) .......... [PASS] 140. (f64vector->list #f64(0.0 1.0 2.0) 1) .......... [PASS] 141. (f64vector->list #f64(0.0 1.0 2.0) 1 2) .......... [PASS] 142. (f64vector->list #f64(0.0 1.0 2.0) 2 2) .......... [PASS] 143. (list->f64vector (quote ())) .......... [PASS] 144. (list->f64vector (quote (24.0 42.0))) .......... [PASS] 145. (f64vector-ref (f64vector -inf.0 +inf.0 +nan.0) 0) .......... [PASS] 146. (f64vector-ref (f64vector -inf.0 +inf.0 +nan.0) 1) .......... [PASS] 147. (f64vector-ref (f64vector -inf.0 +inf.0 +nan.0) 2) .......... [PASS] 148. (f64vector-ref #f64(2.0000000009) 0) .......... [PASS] 149. (f64vector-ref #f64(1.79769313486231e308) 0) .......... [PASS] 150. (f64vector-ref #f64(-2.225074e-308) 0) .......... [PASS] 151. (u8? (quote a)) .......... [PASS] 152. (u8? -1) .......... [PASS] 153. (u8? 1000) .......... [PASS] 154. (u8? 0) .......... [PASS] 155. (u8? 255) .......... [PASS] 156. (s8? (quote a)) .......... [PASS] 157. (s8? -128) .......... [PASS] 158. (s8? 255) .......... [PASS] 159. (s8? 127) .......... [PASS] 160. (s8? 0) .......... [PASS] 161. (u16? (quote a)) .......... [PASS] 162. (u16? -1) .......... [PASS] 163. (u16? 1000000) .......... [PASS] 164. (u16? 0) .......... [PASS] 165. (u16? 65535) .......... [PASS] 166. (s16? (quote a)) .......... [PASS] 167. (s16? -32768) .......... [PASS] 168. (s16? 65535) .......... [PASS] 169. (s16? 32767) .......... [PASS] 170. (s16? 0) .......... [PASS] 171. (f32? (quote a)) .......... [PASS] 172. (f32? -1) .......... [PASS] 173. (f32? 1000000) .......... [PASS] 174. (f32? 0.0) .......... [PASS] 175. (f32? -0.0) .......... [PASS] 176. (f32? -inf.0) .......... [PASS] 177. (f32? +inf.0) .......... [PASS] 178. (f32? +nan.0) .......... [PASS] 179. (f32? 1.79769313486231e308) .......... [PASS] 180. (f32? -2.225074e-308) .......... [PASS] 181. (f64? (quote a)) .......... [PASS] 182. (f64? -1) .......... [PASS] 183. (f64? 1000000) .......... [PASS] 184. (f64? 0.0) .......... [PASS] 185. (f64? -0.0) .......... [PASS] 186. (f64? -inf.0) .......... [PASS] 187. (f64? +inf.0) .......... [PASS] 188. (f64? +nan.0) .......... [PASS] 189. (f64? 1.79769313486231e308) .......... [PASS] 190. (f64? -2.225074e-308) .......... [PASS] 191. (u8vector 0 1 2 3 4) .......... [PASS] 192. (u16vector 0 1 2 3 4) .......... [PASS] 193. (u16vector-unfold (lambda (i x) (values x (+ x 1))) 10 0) .......... [PASS] 194. (u16vector-unfold values 7 #f) .......... [PASS] 195. (u16vector-copy a2i) .......... [PASS] 196. (not (not (eqv? a2i (u16vector-copy a2i)))) .......... [PASS] 197. (u16vector-copy a2i 6) .......... [PASS] 198. (u16vector-copy a2i 3 6) .......... [PASS] 199. (u16vector-reverse-copy (u16vector 1 3 4)) .......... [PASS] 200. (u16vector-reverse-copy (quote #u16(5 4 3 2 1 0)) 1 5) .......... [PASS] 201. (u16vector-segment #u16(1 2 3 4) 2) .......... [PASS] 202. (u16vector-append (quote #u16(0)) (quote #u16(1))) .......... [PASS] 203. (u16vector-append (quote #u16(0)) (quote #u16(1 2 3))) .......... [PASS] 204. (u16vector-append (quote #u16(0)) (quote #u16(1 2 3))) .......... [PASS] 205. (s16vector-append (quote #s16(0)) (quote #s16(-1 2 -3))) .......... [PASS] 206. (u16vector-concatenate (quote (#u16(0 1) #u16(2 3)))) .......... [PASS] 207. (u16vector-append-subvectors (quote #u16(0 1 2 3 4)) 0 2 (quote #u16(4 5 6 7 8)) 2 4) .......... [PASS] 208. (vector->u16vector (quote #(0 1 2 3)) 1 3) .......... [PASS] 209. (u16vector->vector (quote #u16(0 1 2 3)) 1 3) .......... [PASS] 210. (u16vector-empty? (quote #u16(0))) .......... [PASS] 211. (not (u16vector-empty? (quote #u16()))) .......... [PASS] 212. (not (u16vector= (quote #u16(0 1 2 3)) (quote #u16(0 1 2 3)))) .......... [PASS] 213. (u16vector= (quote #u16(0 1 2 3)) (quote #u16(0 1 2 3))) .......... [PASS] 214. (u16vector= (quote #u16(1 2 3 4 5)) (quote #u16(1 2 3 4))) .......... [PASS] 215. (not (u16vector=)) .......... [PASS] 216. (not (u16vector= (quote #u16(0)))) .......... [PASS] 217. (not (u16vector= (u16vector 0) (u16vector 0))) .......... [PASS] 218. (u16vector-fold (lambda (tail elt) (cons elt tail)) (quote ()) vec) .......... [PASS] 219. (u16vector-fold (lambda (ctr n) (if (even? n) (+ ctr 1) ctr)) 0 vec) .......... [PASS] 220. (u16vector-fold-right (lambda (tail elt) (cons elt tail)) (quote ()) (quote #u16(0 1 2 3))) .......... [PASS] 221. (u16vector-map square (quote #u16(1 2 3 4))) .......... [PASS] 222. (u16vector-map * (quote #u16(1 2 3 4 5)) (quote #u16(5 4 3 2 1))) .......... [PASS] 223. (u16vector-copy vec2) .......... [PASS] 224. (u16vector-copy vec2) .......... [PASS] 225. result .......... [PASS] 226. (u16vector-count even? (quote #u16(3 1 4 1 5 9 2 5 6))) .......... [PASS] 227. (u16vector-count < (quote #u16(1 3 6 9)) (quote #u16(2 4 6 8 10 12))) .......... [PASS] 228. (u16vector-cumulate + 0 (quote #u16(3 1 4 1 5 9 2 5 6))) .......... [PASS] 229. (u16vector-index even? (quote #u16(3 1 4 1 5 9 6))) .......... [PASS] 230. (u16vector-index-right odd? (quote #u16(3 1 4 1 5 9 6))) .......... [PASS] 231. (u16vector-skip odd? (quote #u16(1 3 2 5 7 1 1 8 9))) .......... [PASS] 232. (u16vector-skip-right odd? (quote #u16(1 3 2 5 7 1 1 8 9))) .......... [PASS] 233. (not (u16vector-any even? (quote #u16(1 2 3 4 5)))) .......... [PASS] 234. (not (u16vector-any < (quote #u16(1 2 3 4 5)) (quote #u16(2 1 3 4 5)))) .......... [PASS] 235. (u16vector-any odd? (quote #u16(2 4 6 8))) .......... [PASS] 236. (u16vector-any > (quote #u16(1 2 3 4 5)) (quote #u16(1 2 3 4 5))) .......... [PASS] 237. (u16vector-every odd? (quote #u16(1 2 3 4 5))) .......... [PASS] 238. (not (u16vector-every number? (quote #u16(1 2 3 4 5)))) .......... [PASS] 239. (u16vector-every < (quote #u16(1 2 3)) (quote #u16(2 3 3))) .......... [PASS] 240. (not (u16vector-every < (quote #u16(1 2 3)) (quote #u16(2 3 4)))) .......... [PASS] 241. (u16vector-any (lambda (x) (if (even? x) (quote yes) #f)) (quote #u16(1 3 2 5 7))) .......... [PASS] 242. (u16vector-copy new) .......... [PASS] 243. off .......... [PASS] 244. (u16vector-copy vs) .......... [PASS] 245. (u16vector-copy vf0) .......... [PASS] 246. (u16vector-copy vf1) .......... [PASS] 247. (u16vector-copy vf2) .......... [PASS] 248. (u16vector-copy vr0) .......... [PASS] 249. (u16vector-copy vr1) .......... [PASS] 250. (u16vector-copy vr2) .......... [PASS] 251. (u16vector-copy vc0) .......... [PASS] 252. (u16vector-copy vc1) .......... [PASS] 253. (u16vector-copy vc2) .......... [PASS] 254. (u16vector-copy vrc0) .......... [PASS] 255. (u16vector-copy vrc1) .......... [PASS] 256. (u16vector-copy vrc2) .......... [PASS] 257. uv .......... [PASS] 258. (u16vector->list (quote #u16(1 2 3))) .......... [PASS] 259. (u16vector->list (quote #u16(1 2 3)) 1) .......... [PASS] 260. (u16vector->list (quote #u16(1 2 3)) 0 2) .......... [PASS] 261. (list->u16vector (quote (1 2 3))) .......... [PASS] 262. (reverse-u16vector->list (quote #u16(1 2 3))) .......... [PASS] 263. (reverse-u16vector->list (quote #u16(1 2 3)) 1) .......... [PASS] 264. (reverse-u16vector->list (quote #u16(1 2 3)) 0 2) .......... [PASS] 265. (reverse-list->u16vector (quote (1 2 3))) .......... [PASS] 266. (make-s16vector 5 3) .......... [PASS] 267. (s16vector -2 -1 0 1 2) .......... [PASS] 268. (s16vector-unfold count-up 5 10) .......... [PASS] 269. (s16vector-unfold count-down 5 10) .......... [PASS] 270. (s16vector-unfold steady 5 10) .......... [PASS] 271. (s16vector-unfold-right count-up 5 10) .......... [PASS] 272. (s16vector-unfold-right count-down 5 10) .......... [PASS] 273. (s16vector-unfold-right steady 5 10) .......... [PASS] 274. (s16vector-copy s5) .......... [PASS] 275. (not (not (eqv? s5 (s16vector-copy s5)))) .......... [PASS] 276. (s16vector-copy s5 1 3) .......... [PASS] 277. (s16vector-reverse-copy s5) .......... [PASS] 278. (s16vector-append s5 s5) .......... [PASS] 279. (s16vector-concatenate (list s5 s5)) .......... [PASS] 280. (s16vector-append-subvectors s5 1 3 s5 1 3) .......... [PASS] 281. (not (s16? 5)) .......... [PASS] 282. (not (not (s16? 65536))) .......... [PASS] 283. (not (s16vector? s5)) .......... [PASS] 284. (not (not (s16vector? #t))) .......... [PASS] 285. (not (s16vector-empty? (s16vector))) .......... [PASS] 286. (not (not (s16vector-empty? s5))) .......... [PASS] 287. (not (s16vector= (s16vector 1 2 3) (s16vector 1 2 3))) .......... [PASS] 288. (not (s16vector= (s16vector 1 2 3) (s16vector 1 2 3) (s16vector 1 2 3))) .......... [PASS] 289. (not (not (s16vector= (s16vector 1 2 3) (s16vector 3 2 1)))) .......... [PASS] 290. (not (not (s16vector= (s16vector 1 2 3) (s16vector 1 2)))) .......... [PASS] 291. (not (not (s16vector= (s16vector 1 2 3) (s16vector 1 2 3) (s16vector 3 2 1)))) .......... [PASS] 292. (s16vector-ref (s16vector 1 2 3) 0) .......... [PASS] 293. (s16vector-length (s16vector 1 2 3)) .......... [PASS] 294. (s16vector-take s5 2) .......... [PASS] 295. (s16vector-take-right s5 2) .......... [PASS] 296. (s16vector-drop s5 2) .......... [PASS] 297. (s16vector-drop-right s5 2) .......... [PASS] 298. (s16vector-segment s5 3) .......... [PASS] 299. (s16vector-fold - 0 (s16vector 1 2 3)) .......... [PASS] 300. (s16vector-fold list 0 (s16vector 1 2 3) (s16vector 4 5 6)) .......... [PASS] 301. (s16vector-fold-right - 0 (s16vector 1 2 3)) .......... [PASS] 302. (s16vector-fold-right list 0 (s16vector 1 2 3) (s16vector 4 5 6)) .......... [PASS] 303. (s16vector-map - s5) .......... [PASS] 304. (s16vector-map - s5 s5 s5 s5) .......... [PASS] 305. v .......... [PASS] 306. v .......... [PASS] 307. (cons (car list) (cdr list)) .......... [PASS] 308. (cons (car list) (cdr list)) .......... [PASS] 309. (s16vector-count odd? s5) .......... [PASS] 310. (s16vector-count > s5 (s16vector 9 2 1 5 3)) .......... [PASS] 311. (s16vector-cumulate + 0 s5) .......... [PASS] 312. (s16vector-take-while odd? s5) .......... [PASS] 313. (s16vector-take-while-right odd? s5) .......... [PASS] 314. (s16vector-drop-while odd? s5) .......... [PASS] 315. (s16vector-drop-while-right odd? s5) .......... [PASS] 316. (s16vector-take-while inexact? s5) .......... [PASS] 317. (s16vector-take-while-right inexact? s5) .......... [PASS] 318. (s16vector-drop-while inexact? s5) .......... [PASS] 319. (s16vector-drop-while-right inexact? s5) .......... [PASS] 320. (s16vector-index even? s5) .......... [PASS] 321. (s16vector-index < s5 (s16vector 0 0 10 10 0)) .......... [PASS] 322. (s16vector-index-right even? s5) .......... [PASS] 323. (s16vector-index-right < s5 (s16vector 0 0 10 10 0)) .......... [PASS] 324. (s16vector-skip odd? s5) .......... [PASS] 325. (s16vector-skip > s5 (s16vector 0 0 10 10 0)) .......... [PASS] 326. (s16vector-skip-right odd? s5) .......... [PASS] 327. (s16vector-skip-right > s5 (s16vector 0 0 10 10 0)) .......... [PASS] 328. (s16vector-any (lambda (x) (and (even? x) (* x 2))) s5) .......... [PASS] 329. (not (not (s16vector-any inexact? s5))) .......... [PASS] 330. (s16vector-any odd+1 s5) .......... [PASS] 331. (not (s16vector-every exact? s5)) .......... [PASS] 332. (not (not (s16vector-every odd? s5))) .......... [PASS] 333. (not (not (s16vector-every odd+1 s5))) .......... [PASS] 334. (s16vector-any (lambda (x y) (and (even? x) (even? y) (+ x y))) s5 (s16vector 0 1 2 6 4)) .......... [PASS] 335. (s16vector-any (lambda (x y) (and (even? x) (even? y) (+ x y))) s5 (s16vector 0 1 2 5 4)) .......... [PASS] 336. (s16vector-every (lambda (x) (and (exact? x) (* x 2))) s5) .......... [PASS] 337. (s16vector-every (lambda (x y) (and (exact? x) (exact? y) (+ x y))) s5 s5) .......... [PASS] 338. (not (not (s16vector-every < s5 (s16vector 10 10 10 10 0)))) .......... [PASS] 339. (call-with-values (lambda () (s16vector-partition odd? s5)) (lambda (vec cnt) vec)) .......... [PASS] 340. (s16vector-filter odd? s5) .......... [PASS] 341. (s16vector-remove odd? s5) .......... [PASS] 342. v .......... [PASS] 343. v .......... [PASS] 344. v .......... [PASS] 345. v .......... [PASS] 346. v .......... [PASS] 347. v .......... [PASS] 348. v .......... [PASS] 349. v .......... [PASS] 350. v .......... [PASS] 351. v .......... [PASS] 352. (s16vector->list s5) .......... [PASS] 353. (s16vector->list s5 1) .......... [PASS] 354. (s16vector->list s5 1 4) .......... [PASS] 355. (s16vector->vector s5) .......... [PASS] 356. (s16vector->vector s5 1) .......... [PASS] 357. (s16vector->vector s5 1 4) .......... [PASS] 358. (list->s16vector (quote (1 2 3 4 5))) .......... [PASS] 359. (reverse-list->s16vector (quote (1 2 3 4 5))) .......... [PASS] 360. (vector->s16vector #(1 2 3 4 5)) .......... [PASS] 361. (vector->s16vector #(1 2 3 4 5) 1) .......... [PASS] 362. (vector->s16vector #(1 2 3 4 5) 1 4) .......... [PASS] 363. (get-output-string port) .......... [PASS] 364. (not (s16vector< s4 s5)) .......... [PASS] 365. (not (not (s16vector< s5 s4))) .......... [PASS] 366. (not (s16vector< s5 s5+)) .......... [PASS] 367. (not (not (s16vector< s5+ s5+))) .......... [PASS] 368. (not (s16vector= s5+ s5+)) .......... [PASS] 369. (not (fixnum? (s16vector-hash s5))) .......... [PASS] 370. (s16-g) .......... [PASS] 371. (s16-g) .......... [PASS] 372. (s16-g) .......... [PASS] 373. (s16-g) .......... [PASS] 374. (s16-g) .......... [PASS] 375. (not (eof-object? (s16-g))) .......... [PASS] 375 out of 375 passed (100.00%) 1. (vector-cdr (quote #(1 2 3 4))) .......... [PASS] 2. (vector-cdr (quote #(1))) .......... [PASS] 3. (not (comparator? real-comparator)) .......... [PASS] 4. (not (not (comparator? =))) .......... [PASS] 5. (not (comparator-ordered? real-comparator)) .......... [PASS] 6. (not (comparator-hashable? real-comparator)) .......... [PASS] 7. (not (not (comparator-ordered? degenerate-comparator))) .......... [PASS] 8. (not (not (comparator-hashable? degenerate-comparator))) .......... [PASS] 9. (not (=? boolean-comparator #t #t)) .......... [PASS] 10. (not (not (=? boolean-comparator #t #f))) .......... [PASS] 11. (not (? real-comparator 4.0 3.0 2)) .......... [PASS] 129. (not (<=? real-comparator 2.0 2 3.0)) .......... [PASS] 130. (not (>=? real-comparator 3 3.0 2)) .......... [PASS] 131. (not (not (=? real-comparator 1 2 3))) .......... [PASS] 132. (not (not (? real-comparator 1 2 3))) .......... [PASS] 134. (not (not (<=? real-comparator 4 3 3))) .......... [PASS] 135. (not (not (>=? real-comparator 3 4 4.0))) .......... [PASS] 136. (comparator-if<=> real-comparator 1 2 (quote less) (quote equal) (quote greater)) .......... [PASS] 137. (comparator-if<=> real-comparator 1 1 (quote less) (quote equal) (quote greater)) .......... [PASS] 138. (comparator-if<=> real-comparator 2 1 (quote less) (quote equal) (quote greater)) .......... [PASS] 139. (comparator-if<=> "1" "2" (quote less) (quote equal) (quote greater)) .......... [PASS] 140. (comparator-if<=> "1" "1" (quote less) (quote equal) (quote greater)) .......... [PASS] 141. (comparator-if<=> "2" "1" (quote less) (quote equal) (quote greater)) .......... [PASS] 142. (not (exact-integer? (hash-bound))) .......... [PASS] 143. (not (exact-integer? (hash-salt))) .......... [PASS] 144. (not (< (hash-salt) (hash-bound))) .......... [PASS] 145. (comparator-max real-comparator 1 5 3 2 -2) .......... [PASS] 146. (comparator-min real-comparator 1 5 3 2 -2) .......... [PASS] 147. (comparator-max-in-list real-comparator (quote (1 5 3 2 -2))) .......... [PASS] 148. (comparator-min-in-list real-comparator (quote (1 5 3 2 -2))) .......... [PASS] 149. (not (=? char-comparator #\C #\C)) .......... [PASS] 150. (not (=? char-ci-comparator #\c #\C)) .......... [PASS] 151. (not (=? string-comparator "ABC" "ABC")) .......... [PASS] 152. (not (=? string-ci-comparator "abc" "ABC")) .......... [PASS] 153. (not (=? eq-comparator 32 32)) .......... [PASS] 154. (not (=? eqv-comparator 32 32)) .......... [PASS] 155. (not (=? equal-comparator "ABC" "ABC")) .......... [PASS] 155 out of 155 passed (100.00%) 1. (not (not (eqv? (make-computation-environment-variable (quote x) #f #f) (make-computation-environment-variable (quote x) #f #f)))) .......... [PASS] 2. (not (make-computation-environment)) .......... [PASS] 3. (not (make-environment)) .......... [PASS] 4. (eqv? #f (let ((x (make-computation-environment-variable (quote x) #f #f))) (computation-environment-ref (make-computation-environment) x))) .......... [PASS] 5. (eqv? 42 (let ((x (make-computation-environment-variable (quote x) 42 #f))) (computation-environment-ref (make-computation-environment) x))) .......... [PASS] 6. (eqv? #f (computation-environment-ref (make-environment) z)) .......... [PASS] 7. (eqv? 42 (let ((x (make-computation-environment-variable (quote x) #f #f))) (computation-environment-ref (computation-environment-update (make-computation-environment) x 42) x))) .......... [PASS] 8. (eqv? 10 (let ((x (make-computation-environment-variable (quote x) #f #f)) (y (make-computation-environment-variable (quote y) #f #f))) (computation-environment-ref (computation-environment-update (make-computation-environment) x 42 y 10) y))) .......... [PASS] 9. (eqv? 42 (computation-environment-ref (computation-environment-update (make-environment) z 42) z)) .......... [PASS] 10. (eqv? #f (let ((x (make-computation-environment-variable (quote x) #f #f)) (y (make-computation-environment-variable (quote y) #f #f))) (computation-environment-ref (computation-environment-update (make-computation-environment) x 42) y))) .......... [PASS] 11. (eqv? #f (let ((y (make-computation-environment-variable (quote y) #f #f))) (computation-environment-ref (computation-environment-update (make-environment) z 42) y))) .......... [PASS] 12. (eqv? #f (let ((x (make-computation-environment-variable (quote x) #f #f)) (env (make-computation-environment))) (computation-environment-update env x 42) (computation-environment-ref env x))) .......... [PASS] 13. (eqv? 42 (let ((x (make-computation-environment-variable (quote x) #f #f)) (env (make-computation-environment))) (computation-environment-update! env x 42) (computation-environment-ref env x))) .......... [PASS] 14. (eqv? 42 (let ((env (make-environment))) (computation-environment-update! env z 42) (computation-environment-ref env z))) .......... [PASS] 15. (eqv? 42 (let ((x (make-computation-environment-variable (quote x) #f #f)) (env (make-computation-environment))) (computation-environment-update! env x 42) (computation-environment-update env x 10) (computation-environment-ref env x))) .......... [PASS] 16. (eqv? 42 (let ((env (make-environment))) (computation-environment-update! env z 42) (computation-environment-update env z 10) (computation-environment-ref env z))) .......... [PASS] 17. (eqv? #f (let ((x (make-computation-environment-variable (quote x) #f #f)) (env (make-computation-environment))) (computation-environment-update! (computation-environment-update env x 10) x 42) (computation-environment-ref env x))) .......... [PASS] 18. (eqv? #f (let ((env (make-environment))) (computation-environment-update! (computation-environment-update env z 10) z 42) (computation-environment-ref env z))) .......... [PASS] 19. (eqv? 42 (let ((x (make-computation-environment-variable (quote x) #f #f)) (y (make-computation-environment-variable (quote y) #f #f)) (env (make-computation-environment))) (computation-environment-update! (computation-environment-update env y 10) x 42) (computation-environment-ref env x))) .......... [PASS] 20. (eqv? 42 (let ((env (make-environment))) (computation-environment-update! (computation-environment-update env w 10) z 42) (computation-environment-ref env z))) .......... [PASS] 21. (eqv? 42 (let* ((x (make-computation-environment-variable (quote x) #f #f)) (env (computation-environment-update (make-computation-environment) x 42)) (copy (computation-environment-copy env))) (computation-environment-update! env x 10) (computation-environment-ref copy x))) .......... [PASS] 22. (eqv? 42 (let* ((env (computation-environment-update (make-environment) z 42)) (copy (computation-environment-copy env))) (computation-environment-update! env z 10) (computation-environment-ref copy z))) .......... [PASS] 23. (eqv? #f (let ((flag #f)) (make-computation (lambda (compute) (set! flag #t))) flag)) .......... [PASS] 24. (eqv? 42 (computation-run (make-computation (lambda (compute) 42)))) .......... [PASS] 25. (eqv? 42 (computation-run (make-computation (lambda (compute) (compute (computation-pure 42)))))) .......... [PASS] 26. (call-with-values (lambda () (computation-run (make-computation (lambda (compute) (compute (computation-pure 10 42)))))) list) .......... [PASS] 27. (let* ((acc (quote ())) (result (computation-run (computation-each (make-computation (lambda (compute) (set! acc (cons (quote a) acc)))) (make-computation (lambda (compute) (set! acc (cons (quote b) acc)) 42)))))) (list result acc)) .......... [PASS] 28. (let* ((acc (quote ())) (result (computation-run (computation-each-in-list (list (make-computation (lambda (compute) (set! acc (cons (quote a) acc)))) (make-computation (lambda (compute) (set! acc (cons (quote b) acc)) 42))))))) (list result acc)) .......... [PASS] 29. (computation-run (computation-bind (computation-pure 42) (lambda (x) (computation-pure (* x 2))) (lambda (x) (computation-pure (- x 1))))) .......... [PASS] 30. (computation-run (computation-sequence (list (computation-pure 42) (computation-pure 84)))) .......... [PASS] 31. (let ((x (make-computation-environment-variable (quote x) #f #f))) (computation-run (make-computation (lambda (compute) (let ((a (compute (computation-local (lambda (env) (computation-environment-update env x 42)) (computation-bind (computation-ask) (lambda (env) (computation-pure (computation-environment-ref env x)))))))) (list a (computation-environment-ref (compute (computation-ask)) x))))))) .......... [PASS] 32. (eqv? 42 (let ((x (make-computation-environment-variable (quote x) #f #f))) (computation-run (computation-with ((x 42)) (computation-fn ((y x)) (computation-pure y)))))) .......... [PASS] 33. (eqv? 42 (run (computation-with ((z 42)) (computation-fn ((y z)) (computation-pure y))))) .......... [PASS] 34. (eqv? 42 (let ((x (make-computation-environment-variable (quote x) #f #f))) (computation-run (computation-with ((x 42)) (computation-fn (x) (computation-pure x)))))) .......... [PASS] 35. (eqv? #f (let ((x (make-computation-environment-variable (quote x) #f #f))) (computation-run (computation-each (computation-with ((x 42)) (computation-fn ((y x)) (computation-pure y))) (computation-fn ((y x)) (computation-pure y)))))) .......... [PASS] 36. (eqv? 42 (let ((x (make-computation-environment-variable (quote x) #f #f))) (computation-run (computation-each (computation-with! (x 42)) (computation-fn ((y x)) (computation-pure y)))))) .......... [PASS] 37. (eqv? #f (let ((x (make-computation-environment-variable (quote x) #f #f))) (computation-run (computation-forked (computation-with! (x 42)) (computation-fn ((y x)) (computation-pure y)))))) .......... [PASS] 38. (let ((x (make-computation-environment-variable (quote x) #f #f))) (computation-run (computation-bind/forked (computation-each (computation-with! (x 42)) (computation-pure 2)) (lambda (z) (computation-fn ((y x)) (computation-pure (list y z))))))) .......... [PASS] 39. (eqv? 42 (computation-run (computation-with ((default-computation computation-pure)) 42))) .......... [PASS] 40. (eqv? 42 (let ((x (make-computation-environment-variable (quote x) #f #f))) (computation-run (computation-with ((x 10)) (computation-with ((x 42)) (computation-fn ((x x)) (computation-pure x))))))) .......... [PASS] 41. (let ((x (make-computation-environment-variable (quote x) #f #f)) (y (make-computation-environment-variable (quote y) #f #f))) (computation-run (computation-with ((x 10) (y 42)) (computation-fn (x y) (computation-pure (list x y)))))) .......... [PASS] 42. (run (computation-with ((z 10) (w 42)) (computation-fn (z w) (computation-pure (list z w))))) .......... [PASS] 43. (let () (define-computation-type make-environment run (x 10) (y 42 "immutable")) (run (computation-fn (x y) (computation-pure (list x y))))) .......... [PASS] 43 out of 43 passed (100.00%) 1. (show #f "hi") .......... [PASS] 2. (show #f (written "hi")) .......... [PASS] 3. (show #f (written "hi \"bob\"")) .......... [PASS] 4. (show #f (written "hello\nworld")) .......... [PASS] 5. (show #f (written (quote #(1 2 3)))) .......... [PASS] 6. (show #f (written (quote (1 2 3)))) .......... [PASS] 7. (show #f (written (quote (1 2 . 3)))) .......... [PASS] 8. (show #f (upcased "abc")) .......... [PASS] 9. (show #f (downcased "ABC")) .......... [PASS] 10. (show #f "a" (space-to 5) "b") .......... [PASS] 11. (show #f "abc" (tab-to) "def") .......... [PASS] 12. (show #f "abc" (tab-to 5) "def") .......... [PASS] 13. (show #f "abc" (tab-to 3) "def") .......... [PASS] 14. (show #f "abc" nl "def" nl) .......... [PASS] 15. (show #f "abc" fl "def" nl fl) .......... [PASS] 16. (show #f "abc" fl "def" fl fl) .......... [PASS] 17. (show #f "a" nothing "b") .......... [PASS] 18. (show #f -1) .......... [PASS] 19. (show #f 0) .......... [PASS] 20. (show #f 1) .......... [PASS] 21. (show #f 10) .......... [PASS] 22. (show #f 100) .......... [PASS] 23. (show #f (numeric -1)) .......... [PASS] 24. (show #f (numeric 0)) .......... [PASS] 25. (show #f (numeric 1)) .......... [PASS] 26. (show #f (numeric 10)) .......... [PASS] 27. (show #f (numeric 100)) .......... [PASS] 28. (show #f 57005) .......... [PASS] 29. (show #f (with ((radix 16)) 57005)) .......... [PASS] 30. (show #f (with ((radix 16)) 57005) 1234) .......... [PASS] 31. (show #f 3.14159) .......... [PASS] 32. (show #f (with ((precision 2)) 3.14159)) .......... [PASS] 33. (show #f (with ((precision 2)) 3.14)) .......... [PASS] 34. (show #f (with ((precision 2)) 3.0)) .......... [PASS] 35. (show #f (with ((precision 2)) 1.099)) .......... [PASS] 36. (show #f (with ((precision 2)) 1e-17)) .......... [PASS] 37. (show #f (with ((precision 10)) 1e-9)) .......... [PASS] 38. (show #f (with ((precision 10)) 1e-17)) .......... [PASS] 39. (show #f (with ((precision 6)) 4e-6)) .......... [PASS] 40. (show #f (with ((precision 7)) 4e-6)) .......... [PASS] 41. (show #f (with ((precision 8)) 4e-6)) .......... [PASS] 42. (show #f (with ((precision 4)) -6.0371e-6)) .......... [PASS] 43. (show #f (with ((precision 2)) 0.997554209949891)) .......... [PASS] 44. (show #f (with ((precision 2)) 0.9975541999999999)) .......... [PASS] 45. (show #f (with ((precision 2)) 0.99755)) .......... [PASS] 46. (show #f (with ((precision 2)) 0.997)) .......... [PASS] 47. (show #f (with ((precision 2)) 0.99)) .......... [PASS] 48. (show #f (with ((precision 0)) -14.99995999999362)) .......... [PASS] 49. (show #f (with ((decimal-align 5)) (numeric 3.14159))) .......... [PASS] 50. (show #f (with ((decimal-align 5)) (numeric 31.4159))) .......... [PASS] 51. (show #f (with ((decimal-align 5)) (numeric 314.159))) .......... [PASS] 52. (show #f (with ((decimal-align 5)) (numeric 3141.59))) .......... [PASS] 53. (show #f (with ((decimal-align 5)) (numeric 31415.9))) .......... [PASS] 54. (show #f (with ((decimal-align 5)) (numeric -3.14159))) .......... [PASS] 55. (show #f (with ((decimal-align 5)) (numeric -31.4159))) .......... [PASS] 56. (show #f (with ((decimal-align 5)) (numeric -314.159))) .......... [PASS] 57. (show #f (with ((decimal-align 5)) (numeric -3141.59))) .......... [PASS] 58. (show #f (with ((decimal-align 5)) (numeric -31415.9))) .......... [PASS] 59. (show #f +inf.0) .......... [PASS] 60. (show #f -inf.0) .......... [PASS] 61. (show #f +nan.0) .......... [PASS] 62. (show #f (numeric +inf.0)) .......... [PASS] 63. (show #f (numeric -inf.0)) .......... [PASS] 64. (show #f (numeric +nan.0)) .......... [PASS] 65. (show #f (with ((precision 2)) (/ 47 4))) .......... [PASS] 66. (show #f (with ((precision 2)) (/ -47 4))) .......... [PASS] 67. (show #f (with ((comma-rule 3)) 299792458)) .......... [PASS] 68. (show #f (with ((comma-rule 3)) (numeric 299792458))) .......... [PASS] 69. (show #f (with ((comma-rule (quote (3 2)))) (numeric -299792458))) .......... [PASS] 70. (show #f (with ((comma-rule 3) (comma-sep #\.)) (numeric 299792458))) .......... [PASS] 71. (show #f (with ((comma-rule 3) (decimal-sep #\,)) (numeric 299792458.0))) .......... [PASS] 72. (show #f (with ((comma-rule 3)) (numeric 100000))) .......... [PASS] 73. (show #f (with ((comma-rule 3) (precision 1)) (numeric 100000))) .......... [PASS] 74. (show #f (with ((comma-rule 3) (precision 2)) (numeric 100000))) .......... [PASS] 75. (show #f (numeric 0 2)) .......... [PASS] 76. (show #f (numeric 0 10)) .......... [PASS] 77. (show #f (numeric 0.0 10)) .......... [PASS] 78. (show #f (numeric 1 2)) .......... [PASS] 79. (show #f (numeric 1 10)) .......... [PASS] 80. (show #f (numeric 1.0 10)) .......... [PASS] 81. (show #f (numeric 0.0 10 0)) .......... [PASS] 82. (show #f (numeric 2 2)) .......... [PASS] 83. (show #f (with ((precision 1)) 0.999999999999876)) .......... [PASS] 84. (show #f (with ((precision 1)) 9.999999999999876)) .......... [PASS] 85. (show #f (numeric 9.999999999999876 10 1)) .......... [PASS] 86. (show #f (numeric 9.999999999999876 10 2)) .......... [PASS] 87. (show #f (numeric 1 10 #f #t)) .......... [PASS] 88. (show #f (with ((sign-rule #t)) (numeric 1))) .......... [PASS] 89. (show #f (with ((sign-rule (quote ("(" . ")")))) (numeric -1))) .......... [PASS] 90. (show #f (with ((sign-rule (quote ("-" . "")))) (numeric -1))) .......... [PASS] 91. (show #f (with ((sign-rule (quote ("−" . "")))) (numeric -1))) .......... [PASS] 92. (show #f (with ((sign-rule #t)) (numeric -0.0))) .......... [PASS] 93. (show #f (with ((sign-rule #t)) (numeric 0.0))) .......... [PASS] 94. (show #f (numeric 1234567 10 #f #f 3)) .......... [PASS] 95. (show #f (numeric 567 10 #f #f 3)) .......... [PASS] 96. (show #f (numeric 1234567 10 #f #f 2)) .......... [PASS] 97. (show #f (numeric 1234567 10 #f #f (quote (3 2)))) .......... [PASS] 98. (show #f (numeric 1234567 10 #f #f 3 #\|)) .......... [PASS] 99. (show #f (with ((comma-sep #\&)) (numeric 1234567 10 #f #f 3))) .......... [PASS] 100. (show #f (with ((comma-sep #\&)) (numeric 1234567 10 #f #f 3 #\*))) .......... [PASS] 101. (show #f (numeric 567 10 #f #f 3 #\|)) .......... [PASS] 102. (show #f (numeric 1234567 10 #f #f 2)) .......... [PASS] 103. (show #f (with ((decimal-sep #\_)) (numeric 1.5))) .......... [PASS] 104. (show #f (with ((comma-sep #\.)) (numeric 1.5))) .......... [PASS] 105. (show #f (numeric 1.5 10 #f #f #f #\.)) .......... [PASS] 106. (show #f (numeric 1.5 10 #f #f #f #\. #\%)) .......... [PASS] 107. (show #f (numeric/si 608)) .......... [PASS] 108. (show #f (numeric/si 608 1000 " ") "B") .......... [PASS] 109. (show #f (numeric/si 3986)) .......... [PASS] 110. (show #f (numeric/si 3986 1024)) .......... [PASS] 111. (show #f (numeric/si 3986 1000) "B") .......... [PASS] 112. (show #f (numeric/si 1230000.0 1000) "m") .......... [PASS] 113. (show #f (numeric/si 123000.0 1000) "m") .......... [PASS] 114. (show #f (numeric/si 12300.0 1000) "m") .......... [PASS] 115. (show #f (numeric/si 1230.0 1000) "m") .......... [PASS] 116. (show #f (numeric/si 123.0 1000) "m") .......... [PASS] 117. (show #f (numeric/si 12.3 1000) "m") .......... [PASS] 118. (show #f (numeric/si 1.23 1000) "m") .......... [PASS] 119. (show #f (numeric/si 1.23 1000 " ") "m") .......... [PASS] 120. (show #f (numeric/si 0.123 1000) "m") .......... [PASS] 121. (show #f (numeric/si 0.0123 1000) "m") .......... [PASS] 122. (show #f (numeric/si 0.00123 1000) "m") .......... [PASS] 123. (show #f (numeric/si 0.000123 1000) "m") .......... [PASS] 124. (show #f (numeric/si 1.23e-5 1000) "m") .......... [PASS] 125. (show #f (numeric/si 1.23e-6 1000) "m") .......... [PASS] 126. (show #f (numeric/si 1.23e-6 1000 " ") "m") .......... [PASS] 127. (show #f (numeric/si 0)) .......... [PASS] 128. (show #f (numeric/si -608)) .......... [PASS] 129. (show #f (numeric/si -3986)) .......... [PASS] 130. (show #f (numeric/comma 1234567)) .......... [PASS] 131. (show #f (numeric/comma 1234567 3)) .......... [PASS] 132. (show #f (numeric/comma 1234567 4)) .......... [PASS] 133. (show #f (numeric/fitted 4 1.2345 10 2)) .......... [PASS] 134. (show #f (numeric/fitted 4 1 10 2)) .......... [PASS] 135. (show #f (numeric/fitted 4 12.345 10 2)) .......... [PASS] 136. (show #f (numeric/fitted 1 12.345 10 0)) .......... [PASS] 137. (show #f (padded/right 5 "abc")) .......... [PASS] 138. (show #f (padded 5 "abc")) .......... [PASS] 139. (show #f (padded 5 "abcdefghi")) .......... [PASS] 140. (show #f (padded/both 5 "abc")) .......... [PASS] 141. (show #f (padded/both 6 "abc")) .......... [PASS] 142. (show #f (padded/right 5 "abcde")) .......... [PASS] 143. (show #f (padded/right 5 "abcdef")) .......... [PASS] 144. (show #f (trimmed/right 3 "abcde")) .......... [PASS] 145. (show #f (trimmed/right 3 "abcd")) .......... [PASS] 146. (show #f (trimmed/right 3 "abc")) .......... [PASS] 147. (show #f (trimmed/right 3 "ab")) .......... [PASS] 148. (show #f (trimmed/right 3 "a")) .......... [PASS] 149. (show #f (trimmed/right 5 "abcdef")) .......... [PASS] 150. (show #f (trimmed 5 "abcde")) .......... [PASS] 151. (show #f (trimmed 3 "abcde")) .......... [PASS] 152. (show #f (trimmed 5 "abcdef")) .......... [PASS] 153. (show #f (trimmed/both 3 "abcde")) .......... [PASS] 154. (show #f (trimmed/both 4 "abcde")) .......... [PASS] 155. (show #f (trimmed/both 5 "abcdef")) .......... [PASS] 156. (show #f (trimmed/both 4 "abcdef")) .......... [PASS] 157. (show #f (trimmed/both 5 "abcdefgh")) .......... [PASS] 158. (show #f (trimmed/lazy 3 "abcde")) .......... [PASS] 159. (show #f (trimmed/lazy 3 "abc\nde")) .......... [PASS] 160. (show #f "prefix: " (trimmed/right 3 "abcde")) .......... [PASS] 161. (show #f "prefix: " (trimmed 3 "abcde")) .......... [PASS] 162. (show #f "prefix: " (trimmed/both 3 "abcde")) .......... [PASS] 163. (show #f "prefix: " (trimmed/lazy 3 "abcde")) .......... [PASS] 164. (show #f "prefix: " (trimmed/lazy 3 "abc\nde")) .......... [PASS] 165. (show #f (trimmed/right 3 "abcde") " :suffix") .......... [PASS] 166. (show #f (trimmed 3 "abcde") " :suffix") .......... [PASS] 167. (show #f (trimmed/both 3 "abcde") " :suffix") .......... [PASS] 168. (show #f (trimmed/lazy 3 "abcde") " :suffix") .......... [PASS] 169. (show #f (trimmed/lazy 3 "abc\nde") " :suffix") .......... [PASS] 170. (show #f (trimmed/lazy 10 (trimmed/lazy 3 "abcdefghijklmnopqrstuvwxyz"))) .......... [PASS] 171. (show #f (trimmed/lazy 3 (trimmed/lazy 10 "abcdefghijklmnopqrstuvwxyz"))) .......... [PASS] 172. (show #f (with ((ellipsis "...")) (trimmed/right 5 "abcde"))) .......... [PASS] 173. (show #f (with ((ellipsis "...")) (trimmed/right 5 "abcdef"))) .......... [PASS] 174. (show #f (with ((ellipsis "...")) (trimmed/right 6 "abcdefg"))) .......... [PASS] 175. (show #f (with ((ellipsis "...")) (trimmed 5 "abcde"))) .......... [PASS] 176. (show #f (with ((ellipsis "...")) (trimmed 5 "abcdef"))) .......... [PASS] 177. (show #f (with ((ellipsis "...")) (trimmed 6 "abcdefg"))) .......... [PASS] 178. (show #f (with ((ellipsis "...")) (trimmed/both 7 "abcdefg"))) .......... [PASS] 179. (show #f (with ((ellipsis "...")) (trimmed/both 7 "abcdefgh"))) .......... [PASS] 180. (show #f (with ((ellipsis "...")) (trimmed/both 7 "abcdefghi"))) .......... [PASS] 181. (show #f (fitted/right 5 "abc")) .......... [PASS] 182. (show #f (fitted 5 "abc")) .......... [PASS] 183. (show #f (fitted/both 5 "abc")) .......... [PASS] 184. (show #f (fitted/right 5 "abcde")) .......... [PASS] 185. (show #f (fitted 5 "abcde")) .......... [PASS] 186. (show #f (fitted/both 5 "abcde")) .......... [PASS] 187. (show #f (fitted/right 5 "abcdefgh")) .......... [PASS] 188. (show #f (fitted 5 "abcdefgh")) .......... [PASS] 189. (show #f (fitted/both 5 "abcdefgh")) .......... [PASS] 190. (show #f "prefix: " (fitted/right 5 "abc") " :suffix") .......... [PASS] 191. (show #f "prefix: " (fitted 5 "abc") " :suffix") .......... [PASS] 192. (show #f "prefix: " (fitted/both 5 "abc") " :suffix") .......... [PASS] 193. (show #f "prefix: " (fitted/right 5 "abcde") " :suffix") .......... [PASS] 194. (show #f "prefix: " (fitted 5 "abcde") " :suffix") .......... [PASS] 195. (show #f "prefix: " (fitted/both 5 "abcde") " :suffix") .......... [PASS] 196. (show #f "prefix: " (fitted/right 5 "abcdefgh") " :suffix") .......... [PASS] 197. (show #f "prefix: " (fitted 5 "abcdefgh") " :suffix") .......... [PASS] 198. (show #f "prefix: " (fitted/both 5 "abcdefgh") " :suffix") .......... [PASS] 199. (show #f (joined each (quote (1 2 3)) " ")) .......... [PASS] 200. (show #f (joined/prefix (lambda (x) (trimmed/right 3 x)) (quote ("abcdef" "123456")) ":")) .......... [PASS] 201. (show #f (joined/suffix (lambda (x) (trimmed/right 3 x)) (quote ("abcdef" "123456")) nl)) .......... [PASS] 202. (show #f (joined/last each (lambda (x) (each "and " x)) (quote (lions tigers bears)) ", ")) .......... [PASS] 203. (show #f (joined/dot each (lambda (x) (each "or " x)) (quote (lions tigers . bears)) ", ")) .......... [PASS] 204. (show #f (escaped "hi, bob!")) .......... [PASS] 205. (show #f (escaped "hi, \"bob!\"")) .......... [PASS] 206. (show #f (escaped "hi, 'bob'" #\')) .......... [PASS] 207. (show #f (escaped "hi, 'bob'" #\' #\')) .......... [PASS] 208. (show #f (escaped "hi, 'bob'" #\' #f)) .......... [PASS] 209. (show #f (escaped "line1\nline2\nkapow\n" #\" #\\ (lambda (c) (case c ((#\newline) #\n) ((#\alarm) #\a) (else #f))))) .......... [PASS] 210. (show #f (maybe-escaped "bob" char-whitespace?)) .......... [PASS] 211. (show #f (maybe-escaped "hi, bob!" char-whitespace?)) .......... [PASS] 212. (show #f (maybe-escaped "foo\"bar\"baz" char-whitespace?)) .......... [PASS] 213. (show #f (maybe-escaped "hi, 'bob'" (lambda (c) #f) #\' #f)) .......... [PASS] 214. (show #f (maybe-escaped "\\" (lambda (c) #f) #\' #f)) .......... [PASS] 215. (show #f (maybe-escaped "'" (lambda (c) #f) #\' #f)) .......... [PASS] 216. (show #f (written (let ((ones (list 1))) (set-cdr! ones ones) ones))) .......... [PASS] 217. (show #f (written (let ((ones (list 1))) (set-cdr! ones ones) (cons 0 ones)))) .......... [PASS] 218. (show #f (written (let ((syms (list (quote sym)))) (set-cdr! syms syms) (cons (quote sym) syms)))) .......... [PASS] 219. (show #f (written (let ((ones (list 1)) (twos (list 2))) (set-cdr! ones ones) (set-cdr! twos twos) (list ones twos)))) .......... [PASS] 220. (show #f (written (let ((ones (list 1))) (set-cdr! ones ones) (list ones ones)))) .......... [PASS] 221. (show #f (written (let ((ones (list 1))) (list ones ones)))) .......... [PASS] 222. (show #f (written-shared (let ((ones (list 1))) (list ones ones)))) .......... [PASS] 223. (show #f (trimmed/lazy 10 (written-simply (let ((ones (list 1))) (set-cdr! ones ones) ones)))) .......... [PASS] 224. (show #f (trimmed/lazy 11 (written-simply (let ((ones (list 1))) (set-cdr! ones ones) ones)))) .......... [PASS] 225. (show #f (pretty (read (open-input-string str)))) .......... [PASS] 226. (show #f (pretty (read (open-input-string str)))) .......... [PASS] 227. (show #f (pretty (read (open-input-string str)))) .......... [PASS] 228. (show #f (pretty (read (open-input-string str)))) .......... [PASS] 229. (show #f (pretty (read (open-input-string str)))) .......... [PASS] 230. (show #f (pretty (read (open-input-string str)))) .......... [PASS] 231. (show #f (pretty (read (open-input-string str)))) .......... [PASS] 232. (show #f (pretty (read (open-input-string str)))) .......... [PASS] 233. (show #f (pretty (read (open-input-string str)))) .......... [PASS] 234. (show #f (pretty (read (open-input-string str)))) .......... [PASS] 235. (show #f (pretty (read (open-input-string str)))) .......... [PASS] 236. (show #f (pretty (read (open-input-string str)))) .......... [PASS] 237. (show #f (pretty (read (open-input-string str)))) .......... [PASS] 238. (show #f (pretty (read (open-input-string str)))) .......... [PASS] 239. (show #f (pretty (read (open-input-string str)))) .......... [PASS] 240. (show #f (pretty (let ((ones (list 1))) (set-cdr! ones ones) (quasiquote (let ((ones (quote (unquote ones)))) ones))))) .......... [PASS] 241. (show #f (trimmed/lazy 15 (pretty-simply (quote ((a b (a b (a b (a b))))))))) .......... [PASS] 242. (show #f (trimmed/lazy 15 (pretty-simply d))) .......... [PASS] 243. (show #f (trimmed/lazy 15 (pretty-simply (quasiquote (quote (unquote ca)))))) .......... [PASS] 244. (show #f (trimmed/lazy 15 (pretty-simply (quasiquote (foo (unquote ca)))))) .......... [PASS] 245. (show #f (trimmed/lazy 15 (pretty-simply (quasiquote (with-x (unquote ca)))))) .......... [PASS] 246. (show #f (wrapped " ")) .......... [PASS] 247. (show #f (with ((width 8)) (wrapped "hello world"))) .......... [PASS] 248. (show #f (with ((width 10)) (justified "The quick brown fox jumped over the lazy dog"))) .......... [PASS] 249. (show #f (with ((width 36)) (wrapped "The fundamental list iterator. Applies KONS to each element of LS and the result of the previous application, beginning with KNIL. With KONS as CONS and KNIL as '(), equivalent to REVERSE."))) .......... [PASS] 250. (show #f (with ((width 36)) (pretty (quote (define (fold kons knil ls) (let lp ((ls ls) (acc knil)) (if (null? ls) acc (lp (cdr ls) (kons (car ls) acc))))))))) .......... [PASS] 251. (show #f (columnar)) .......... [PASS] 252. (show #f (columnar "*")) .......... [PASS] 253. (show #f (columnar (each "*"))) .......... [PASS] 254. (show #f (wrapped "foo")) .......... [PASS] 255. (show #f (with ((width 76)) (columnar (pretty (quote (define (fold kons knil ls) (let lp ((ls ls) (acc knil)) (if (null? ls) acc (lp (cdr ls) (kons (car ls) acc))))))) " ; " (wrapped "The fundamental list iterator. Applies KONS to each element of LS and the result of the previous application, beginning with KNIL. With KONS as CONS and KNIL as '(), equivalent to REVERSE.")))) .......... [PASS] 256. (show #f (columnar 9 (each "- Item 1:") " " (with ((width 20)) (wrapped "The text here is indented according to the space \"Item 1\" takes, and one does not known what goes here.")))) .......... [PASS] 257. (show #f (columnar 9 (each "- Item 1:\n") " " (with ((width 20)) (wrapped "The text here is indented according to the space \"Item 1\" takes, and one does not known what goes here.")))) .......... [PASS] 258. (show #f (with ((pad-char #\-)) (columnar 9 (each "- Item 1:\n") " " (with ((width 20)) (wrapped "The text here is indented according to the space \"Item 1\" takes, and one does not known what goes here."))))) .......... [PASS] 259. (show #f (with ((width 20)) (tabular (each "a\nbc\ndef\n") " | " (each "123\n45\n6\n")))) .......... [PASS] 260. (show #f (as-red "red")) .......... [PASS] 261. (show #f (as-red "red" (as-blue "blue") "red")) .......... [PASS] 262. (show #f (terminal-aware (as-red "1234567") (fn (col) (each " col: " col)))) .......... [PASS] 263. (show #f (as-red (each (as-underline (as-bold "abc") "def") "ghi"))) .......... [PASS] 264. (show #f (on-blue (each (as-yellow "abc") "def"))) .......... [PASS] 265. (show #f (from-file tmp-file)) .......... [PASS] 266. (show #f (columnar 4 (quote right) (quote infinite) (line-numbers) " " (from-file tmp-file))) .......... [PASS] 266 out of 266 passed (100.00%) 1. (list-transduce (tmap add1) rcons numeric-list) .......... [PASS] 2. (list-transduce (tfilter even?) rcons numeric-list) .......... [PASS] 3. (list-transduce (compose (tfilter even?) (tmap add1)) rcons numeric-list) .......... [PASS] 4. (list-transduce (tfilter-map (lambda (x) (if (even? x) (+ x 1) #f))) rcons numeric-list) .......... [PASS] 5. (list-transduce (tmap char->integer) rcons list-of-chars) .......... [PASS] 6. (string-transduce (tfilter char-alphabetic?) rcount string) .......... [PASS] 7. (string-transduce (tremove char-alphabetic?) rcount string) .......... [PASS] 8. (list-transduce (treplace replace-alist) rcons (quote (1 2 3 4 5 4 r o c k s))) .......... [PASS] 9. (list-transduce (treplace replace-function) rcons (quote (1 2 3 4 5 4 r o c k s))) .......... [PASS] 10. (list-transduce (ttake 4) + numeric-list) .......... [PASS] 11. (list-transduce (tdrop 3) + numeric-list) .......... [PASS] 12. (list-transduce (tdrop-while (lambda (x) (< x 3))) rcons numeric-list) .......... [PASS] 13. (list-transduce (ttake-while (lambda (x) (< x 3))) rcons numeric-list) .......... [PASS] 14. (list-transduce tconcatenate rcons (quote ((0 1) (2 3) (4)))) .......... [PASS] 15. (list-transduce (tappend-map (lambda (x) (list x (* x 2)))) rcons (quote (1 2 3))) .......... [PASS] 16. (list-transduce (tdelete-neighbor-duplicates) rcons (quote (1 1 1 2 2 1 2 3 3))) .......... [PASS] 17. (list-transduce (tdelete-duplicates) rcons (quote (1 1 2 1 2 3 3 1 2 3 4 4))) .......... [PASS] 18. (list-transduce tflatten rcons (quote ((1 2) 3 (4 (5 6) 7) 8 (9)))) .......... [PASS] 19. (list-transduce (tpartition even?) rcons (quote (1 1 1 1 2 2 2 2 3 3 3 4 4 4 4))) .......... [PASS] 20. (vector-transduce (tsegment 2) rcons numeric-vec) .......... [PASS] 21. (list-transduce (tadd-between (quote and)) rcons numeric-list) .......... [PASS] 22. (list-transduce (tenumerate (- 1)) rcons numeric-list) .......... [PASS] 22 out of 22 passed (100.00%) ------------------- RUNNING TESTS FOR SRFI 160: ./skint test/srfi/160.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 162: ./skint test/srfi/162.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 165: ./skint test/srfi/165.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 166: ./skint test/srfi/166.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 171: ./skint test/srfi/171.scm ---------------------------------------------------------------------------- ---------------------------0 out of 0 passed (%) 1. (length (hook->list (make-hook 0))) .......... [PASS] 2. (let ((hook (make-hook 0)) (counter 0)) (hook-add! hook (lambda () (set! counter (+ counter 1)))) (length (hook->list hook))) .......... [PASS] 3. (let ((hook (make-hook 0)) (counter 0)) (let ((increment (lambda () (set! counter (+ counter 1))))) (hook-add! hook increment) (hook-delete! hook increment) (length (hook->list hook)))) .......... [PASS] 4. (let ((hook (make-hook 0)) (counter 0)) (let ((increment (lambda () (set! counter (+ counter 1)))) (decrement (lambda () (set! counter (- counter 1))))) (hook-add! hook increment) (hook-reset! hook) (length (hook->list hook)))) .......... [PASS] 5. (let ((hook (make-hook 0)) (counter 0)) (let ((increment (lambda () (set! counter (+ counter 1)))) (decrement (lambda () (set! counter (- counter 1))))) (hook-add! hook increment) (hook-add! hook decrement) (hook-run hook) counter)) .......... [PASS] 6. (let* ((counter 0) (increment (lambda () (set! counter (+ counter 1)))) (decrement (lambda () (set! counter (- counter 1))))) (let ((hook (list->hook 0 (list increment decrement)))) (hook-add! hook increment) (hook-add! hook decrement) (hook-run hook) counter)) .......... [PASS] 7. (let* ((counter 0) (increment (lambda () (set! counter (+ counter 1)))) (decrement (lambda () (set! counter (- counter 1)))) (hook (make-hook 0))) (list->hook! hook (list increment decrement)) (hook-add! hook increment) (hook-add! hook decrement) (hook-run hook) counter) .......... [PASS] 7 out of 7 passed (100.00%) 1. (ascii-codepoint? -1) .......... [PASS] 2. (ascii-codepoint? 0) .......... [PASS] 3. (ascii-codepoint? 127) .......... [PASS] 4. (ascii-codepoint? 128) .......... [PASS] 5. (ascii-codepoint? #\a) .......... [PASS] 6. (ascii-codepoint? (quote a)) .......... [PASS] 7. (ascii-char? (integer->char 0)) .......... [PASS] 8. (ascii-char? (integer->char 127)) .......... [PASS] 9. (ascii-char? (integer->char 128)) .......... [PASS] 10. (ascii-string? "") .......... [PASS] 11. (ascii-string? "a") .......... [PASS] 12. (ascii-string? "a b c") .......... [PASS] 13. (ascii-string? "å b o") .......... [PASS] 14. (ascii-string? (make-string 1 (integer->char 127))) .......... [PASS] 15. (ascii-string? (make-string 1 (integer->char 128))) .......... [PASS] 16. (ascii-bytevector? (string->utf8 "")) .......... [PASS] 17. (ascii-bytevector? (string->utf8 "a")) .......... [PASS] 18. (ascii-bytevector? (string->utf8 "a b c")) .......... [PASS] 19. (ascii-bytevector? (string->utf8 "å b o")) .......... [PASS] 20. (ascii-bytevector? (string->utf8 (make-string 1 (integer->char 127)))) .......... [PASS] 21. (ascii-bytevector? (string->utf8 (make-string 1 (integer->char 128)))) .......... [PASS] 22. (ascii-non-control? #\space) .......... [PASS] 23. (ascii-non-control? #\tab) .......... [PASS] 24. (ascii-non-control? #\newline) .......... [PASS] 25. (ascii-non-control? (integer->char 13)) .......... [PASS] 26. (ascii-space-or-tab? #\space) .......... [PASS] 27. (ascii-space-or-tab? #\tab) .......... [PASS] 28. (ascii-space-or-tab? #\newline) .......... [PASS] 29. (ascii-non-control? (integer->char 13)) .......... [PASS] 30. (ascii-non-control? (integer->char 0)) .......... [PASS] 31. (ascii-non-control? (integer->char 31)) .......... [PASS] 32. (ascii-non-control? (integer->char 32)) .......... [PASS] 33. (ascii-non-control? (integer->char 126)) .......... [PASS] 34. (ascii-non-control? (integer->char 127)) .......... [PASS] 35. (ascii-non-control? (integer->char 128)) .......... [PASS] 36. (ascii-upcase upper) .......... [PASS] 37. (ascii-upcase lower) .......... [PASS] 38. (ascii-downcase upper) .......... [PASS] 39. (ascii-downcase lower) .......... [PASS] 40. (ascii-upcase upper) .......... [PASS] 41. (ascii-upcase lower) .......... [PASS] 42. (ascii-downcase upper) .......... [PASS] 43. (ascii-downcase lower) .......... [PASS] 44. (ascii-upcase upper) .......... [PASS] 45. (ascii-upcase lower) .......... [PASS] 46. (ascii-downcase upper) .......... [PASS] 47. (ascii-downcase lower) .......... [PASS] 48. (ascii-upcase upper) .......... [PASS] 49. (ascii-upcase lower) .......... [PASS] 50. (ascii-downcase upper) .......... [PASS] 51. (ascii-downcase lower) .......... [PASS] 52. (ascii-upcase upper) .......... [PASS] 53. (ascii-upcase lower) .......... [PASS] 54. (ascii-downcase upper) .......... [PASS] 55. (ascii-downcase lower) .......... [PASS] 56. (ascii-upcase upper) .......... [PASS] 57. (ascii-upcase lower) .......... [PASS] 58. (ascii-downcase upper) .......... [PASS] 59. (ascii-downcase lower) .......... [PASS] 60. (ascii-upcase upper) .......... [PASS] 61. (ascii-upcase lower) .......... [PASS] 62. (ascii-downcase upper) .......... [PASS] 63. (ascii-downcase lower) .......... [PASS] 64. (ascii-upcase upper) .......... [PASS] 65. (ascii-upcase lower) .......... [PASS] 66. (ascii-downcase upper) .......... [PASS] 67. (ascii-downcase lower) .......... [PASS] 68. (ascii-upcase upper) .......... [PASS] 69. (ascii-upcase lower) .......... [PASS] 70. (ascii-downcase upper) .......... [PASS] 71. (ascii-downcase lower) .......... [PASS] 72. (ascii-upcase upper) .......... [PASS] 73. (ascii-upcase lower) .......... [PASS] 74. (ascii-downcase upper) .......... [PASS] 75. (ascii-downcase lower) .......... [PASS] 76. (ascii-upcase upper) .......... [PASS] 77. (ascii-upcase lower) .......... [PASS] 78. (ascii-downcase upper) .......... [PASS] 79. (ascii-downcase lower) .......... [PASS] 80. (ascii-upcase upper) .......... [PASS] 81. (ascii-upcase lower) .......... [PASS] 82. (ascii-downcase upper) .......... [PASS] 83. (ascii-downcase lower) .......... [PASS] 84. (ascii-upcase upper) .......... [PASS] 85. (ascii-upcase lower) .......... [PASS] 86. (ascii-downcase upper) .......... [PASS] 87. (ascii-downcase lower) .......... [PASS] 88. (ascii-upcase upper) .......... [PASS] 89. (ascii-upcase lower) .......... [PASS] 90. (ascii-downcase upper) .......... [PASS] 91. (ascii-downcase lower) .......... [PASS] 92. (ascii-upcase upper) .......... [PASS] 93. (ascii-upcase lower) .......... [PASS] 94. (ascii-downcase upper) .......... [PASS] 95. (ascii-downcase lower) .......... [PASS] 96. (ascii-upcase upper) .......... [PASS] 97. (ascii-upcase lower) .......... [PASS] 98. (ascii-downcase upper) .......... [PASS] 99. (ascii-downcase lower) .......... [PASS] 100. (ascii-upcase upper) .......... [PASS] 101. (ascii-upcase lower) .......... [PASS] 102. (ascii-downcase upper) .......... [PASS] 103. (ascii-downcase lower) .......... [PASS] 104. (ascii-upcase upper) .......... [PASS] 105. (ascii-upcase lower) .......... [PASS] 106. (ascii-downcase upper) .......... [PASS] 107. (ascii-downcase lower) .......... [PASS] 108. (ascii-upcase upper) .......... [PASS] 109. (ascii-upcase lower) .......... [PASS] 110. (ascii-downcase upper) .......... [PASS] 111. (ascii-downcase lower) .......... [PASS] 112. (ascii-upcase upper) .......... [PASS] 113. (ascii-upcase lower) .......... [PASS] 114. (ascii-downcase upper) .......... [PASS] 115. (ascii-downcase lower) .......... [PASS] 116. (ascii-upcase upper) .......... [PASS] 117. (ascii-upcase lower) .......... [PASS] 118. (ascii-downcase upper) .......... [PASS] 119. (ascii-downcase lower) .......... [PASS] 120. (ascii-upcase upper) .......... [PASS] 121. (ascii-upcase lower) .......... [PASS] 122. (ascii-downcase upper) .......... [PASS] 123. (ascii-downcase lower) .......... [PASS] 124. (ascii-upcase upper) .......... [PASS] 125. (ascii-upcase lower) .......... [PASS] 126. (ascii-downcase upper) .......... [PASS] 127. (ascii-downcase lower) .......... [PASS] 128. (ascii-upcase upper) .......... [PASS] 129. (ascii-upcase lower) .......... [PASS] 130. (ascii-downcase upper) .......... [PASS] 131. (ascii-downcase lower) .......... [PASS] 132. (ascii-upcase upper) .......... [PASS] 133. (ascii-upcase lower) .......... [PASS] 134. (ascii-downcase upper) .......... [PASS] 135. (ascii-downcase lower) .......... [PASS] 136. (ascii-upcase upper) .......... [PASS] 137. (ascii-upcase lower) .......... [PASS] 138. (ascii-downcase upper) .......... [PASS] 139. (ascii-downcase lower) .......... [PASS] 140. (ascii-upcase cc) .......... [PASS] 141. (ascii-downcase cc) .......... [PASS] 142. (ascii-upcase cc) .......... [PASS] 143. (ascii-downcase cc) .......... [PASS] 144. (ascii-upcase cc) .......... [PASS] 145. (ascii-downcase cc) .......... [PASS] 146. (ascii-upcase cc) .......... [PASS] 147. (ascii-downcase cc) .......... [PASS] 148. (ascii-upcase cc) .......... [PASS] 149. (ascii-downcase cc) .......... [PASS] 150. (ascii-upcase cc) .......... [PASS] 151. (ascii-downcase cc) .......... [PASS] 152. (ascii-upcase cc) .......... [PASS] 153. (ascii-downcase cc) .......... [PASS] 154. (ascii-upcase cc) .......... [PASS] 155. (ascii-downcase cc) .......... [PASS] 156. (ascii-upcase cc) .......... [PASS] 157. (ascii-downcase cc) .......... [PASS] 158. (ascii-upcase cc) .......... [PASS] 159. (ascii-downcase cc) .......... [PASS] 160. (ascii-upcase cc) .......... [PASS] 161. (ascii-downcase cc) .......... [PASS] 162. (ascii-upcase cc) .......... [PASS] 163. (ascii-downcase cc) .......... [PASS] 164. (ascii-upcase cc) .......... [PASS] 165. (ascii-downcase cc) .......... [PASS] 166. (ascii-upcase cc) .......... [PASS] 167. (ascii-downcase cc) .......... [PASS] 168. (ascii-upcase cc) .......... [PASS] 169. (ascii-downcase cc) .......... [PASS] 170. (ascii-upcase cc) .......... [PASS] 171. (ascii-downcase cc) .......... [PASS] 172. (ascii-upcase cc) .......... [PASS] 173. (ascii-downcase cc) .......... [PASS] 174. (ascii-upcase cc) .......... [PASS] 175. (ascii-downcase cc) .......... [PASS] 176. (ascii-upcase cc) .......... [PASS] 177. (ascii-downcase cc) .......... [PASS] 178. (ascii-upcase cc) .......... [PASS] 179. (ascii-downcase cc) .......... [PASS] 180. (ascii-upcase cc) .......... [PASS] 181. (ascii-downcase cc) .......... [PASS] 182. (ascii-upcase cc) .......... [PASS] 183. (ascii-downcase cc) .......... [PASS] 184. (ascii-upcase cc) .......... [PASS] 185. (ascii-downcase cc) .......... [PASS] 186. (ascii-upcase cc) .......... [PASS] 187. (ascii-downcase cc) .......... [PASS] 188. (ascii-upcase cc) .......... [PASS] 189. (ascii-downcase cc) .......... [PASS] 190. (ascii-upcase cc) .......... [PASS] 191. (ascii-downcase cc) .......... [PASS] 192. (ascii-upcase cc) .......... [PASS] 193. (ascii-downcase cc) .......... [PASS] 194. (ascii-upcase cc) .......... [PASS] 195. (ascii-downcase cc) .......... [PASS] 196. (ascii-upcase cc) .......... [PASS] 197. (ascii-downcase cc) .......... [PASS] 198. (ascii-upcase cc) .......... [PASS] 199. (ascii-downcase cc) .......... [PASS] 200. (ascii-upcase cc) .......... [PASS] 201. (ascii-downcase cc) .......... [PASS] 202. (ascii-upcase cc) .......... [PASS] 203. (ascii-downcase cc) .......... [PASS] 204. (ascii-upcase cc) .......... [PASS] 205. (ascii-downcase cc) .......... [PASS] 206. (ascii-upcase cc) .......... [PASS] 207. (ascii-downcase cc) .......... [PASS] 208. (ascii-upcase cc) .......... [PASS] 209. (ascii-downcase cc) .......... [PASS] 210. (ascii-upcase cc) .......... [PASS] 211. (ascii-downcase cc) .......... [PASS] 212. (ascii-upcase cc) .......... [PASS] 213. (ascii-downcase cc) .......... [PASS] 214. (ascii-upcase cc) .......... [PASS] 215. (ascii-downcase cc) .......... [PASS] 216. (ascii-upcase cc) .......... [PASS] 217. (ascii-downcase cc) .......... [PASS] 218. (ascii-upcase cc) .......... [PASS] 219. (ascii-downcase cc) .......... [PASS] 220. (ascii-upcase cc) .......... [PASS] 221. (ascii-downcase cc) .......... [PASS] 222. (ascii-upcase cc) .......... [PASS] 223. (ascii-downcase cc) .......... [PASS] 224. (ascii-upcase cc) .......... [PASS] 225. (ascii-downcase cc) .......... [PASS] 226. (ascii-upcase cc) .......... [PASS] 227. (ascii-downcase cc) .......... [PASS] 228. (ascii-upcase cc) .......... [PASS] 229. (ascii-downcase cc) .......... [PASS] 230. (ascii-upcase cc) .......... [PASS] 231. (ascii-downcase cc) .......... [PASS] 232. (ascii-upcase cc) .......... [PASS] 233. (ascii-downcase cc) .......... [PASS] 234. (ascii-upcase cc) .......... [PASS] 235. (ascii-downcase cc) .......... [PASS] 236. (ascii-upcase cc) .......... [PASS] 237. (ascii-downcase cc) .......... [PASS] 238. (ascii-upcase cc) .......... [PASS] 239. (ascii-downcase cc) .......... [PASS] 240. (ascii-upcase cc) .......... [PASS] 241. (ascii-downcase cc) .......... [PASS] 242. (ascii-upcase cc) .......... [PASS] 243. (ascii-downcase cc) .......... [PASS] 244. (ascii-upcase cc) .......... [PASS] 245. (ascii-downcase cc) .......... [PASS] 246. (ascii-upcase cc) .......... [PASS] 247. (ascii-downcase cc) .......... [PASS] 248. (ascii-upcase cc) .......... [PASS] 249. (ascii-downcase cc) .......... [PASS] 250. (ascii-upcase cc) .......... [PASS] 251. (ascii-downcase cc) .......... [PASS] 252. (ascii-upcase cc) .......... [PASS] 253. (ascii-downcase cc) .......... [PASS] 254. (ascii-upcase cc) .......... [PASS] 255. (ascii-downcase cc) .......... [PASS] 256. (ascii-upcase cc) .......... [PASS] 257. (ascii-downcase cc) .......... [PASS] 258. (ascii-upcase cc) .......... [PASS] 259. (ascii-downcase cc) .......... [PASS] 260. (ascii-upcase cc) .......... [PASS] 261. (ascii-downcase cc) .......... [PASS] 262. (ascii-upcase cc) .......... [PASS] 263. (ascii-downcase cc) .......... [PASS] 264. (ascii-upcase cc) .......... [PASS] 265. (ascii-downcase cc) .......... [PASS] 266. (ascii-upcase cc) .......... [PASS] 267. (ascii-downcase cc) .......... [PASS] 268. (ascii-upcase cc) .......... [PASS] 269. (ascii-downcase cc) .......... [PASS] 270. (ascii-upcase cc) .......... [PASS] 271. (ascii-downcase cc) .......... [PASS] 272. (ascii-upcase cc) .......... [PASS] 273. (ascii-downcase cc) .......... [PASS] 274. (ascii-upcase cc) .......... [PASS] 275. (ascii-downcase cc) .......... [PASS] 276. (ascii-upcase cc) .......... [PASS] 277. (ascii-downcase cc) .......... [PASS] 278. (ascii-upcase cc) .......... [PASS] 279. (ascii-downcase cc) .......... [PASS] 280. (ascii-upcase cc) .......... [PASS] 281. (ascii-downcase cc) .......... [PASS] 282. (ascii-upcase cc) .......... [PASS] 283. (ascii-downcase cc) .......... [PASS] 284. (ascii-upcase cc) .......... [PASS] 285. (ascii-downcase cc) .......... [PASS] 286. (ascii-upcase cc) .......... [PASS] 287. (ascii-downcase cc) .......... [PASS] 288. (ascii-upcase cc) .......... [PASS] 289. (ascii-downcase cc) .......... [PASS] 290. (ascii-upcase cc) .......... [PASS] 291. (ascii-downcase cc) .......... [PASS] 292. (ascii-char? cc) .......... [PASS] 293. (ascii-char? (integer->char cc)) .......... [PASS] 294. (ascii-non-control? cc) .......... [PASS] 295. (ascii-other-graphic? cc) .......... [PASS] 296. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 297. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 298. (ascii-char? cc) .......... [PASS] 299. (ascii-char? (integer->char cc)) .......... [PASS] 300. (ascii-non-control? cc) .......... [PASS] 301. (ascii-other-graphic? cc) .......... [PASS] 302. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 303. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 304. (ascii-char? cc) .......... [PASS] 305. (ascii-char? (integer->char cc)) .......... [PASS] 306. (ascii-non-control? cc) .......... [PASS] 307. (ascii-other-graphic? cc) .......... [PASS] 308. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 309. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 310. (ascii-char? cc) .......... [PASS] 311. (ascii-char? (integer->char cc)) .......... [PASS] 312. (ascii-non-control? cc) .......... [PASS] 313. (ascii-other-graphic? cc) .......... [PASS] 314. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 315. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 316. (ascii-char? cc) .......... [PASS] 317. (ascii-char? (integer->char cc)) .......... [PASS] 318. (ascii-non-control? cc) .......... [PASS] 319. (ascii-other-graphic? cc) .......... [PASS] 320. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 321. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 322. (ascii-char? cc) .......... [PASS] 323. (ascii-char? (integer->char cc)) .......... [PASS] 324. (ascii-non-control? cc) .......... [PASS] 325. (ascii-other-graphic? cc) .......... [PASS] 326. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 327. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 328. (ascii-char? cc) .......... [PASS] 329. (ascii-char? (integer->char cc)) .......... [PASS] 330. (ascii-non-control? cc) .......... [PASS] 331. (ascii-other-graphic? cc) .......... [PASS] 332. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 333. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 334. (ascii-char? cc) .......... [PASS] 335. (ascii-char? (integer->char cc)) .......... [PASS] 336. (ascii-non-control? cc) .......... [PASS] 337. (ascii-other-graphic? cc) .......... [PASS] 338. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 339. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 340. (ascii-char? cc) .......... [PASS] 341. (ascii-char? (integer->char cc)) .......... [PASS] 342. (ascii-non-control? cc) .......... [PASS] 343. (ascii-other-graphic? cc) .......... [PASS] 344. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 345. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 346. (ascii-char? cc) .......... [PASS] 347. (ascii-char? (integer->char cc)) .......... [PASS] 348. (ascii-non-control? cc) .......... [PASS] 349. (ascii-other-graphic? cc) .......... [PASS] 350. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 351. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 352. (ascii-char? cc) .......... [PASS] 353. (ascii-char? (integer->char cc)) .......... [PASS] 354. (ascii-non-control? cc) .......... [PASS] 355. (ascii-other-graphic? cc) .......... [PASS] 356. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 357. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 358. (ascii-char? cc) .......... [PASS] 359. (ascii-char? (integer->char cc)) .......... [PASS] 360. (ascii-non-control? cc) .......... [PASS] 361. (ascii-other-graphic? cc) .......... [PASS] 362. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 363. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 364. (ascii-char? cc) .......... [PASS] 365. (ascii-char? (integer->char cc)) .......... [PASS] 366. (ascii-non-control? cc) .......... [PASS] 367. (ascii-other-graphic? cc) .......... [PASS] 368. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 369. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 370. (ascii-char? cc) .......... [PASS] 371. (ascii-char? (integer->char cc)) .......... [PASS] 372. (ascii-non-control? cc) .......... [PASS] 373. (ascii-other-graphic? cc) .......... [PASS] 374. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 375. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 376. (ascii-char? cc) .......... [PASS] 377. (ascii-char? (integer->char cc)) .......... [PASS] 378. (ascii-non-control? cc) .......... [PASS] 379. (ascii-other-graphic? cc) .......... [PASS] 380. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 381. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 382. (ascii-char? cc) .......... [PASS] 383. (ascii-char? (integer->char cc)) .......... [PASS] 384. (ascii-non-control? cc) .......... [PASS] 385. (ascii-other-graphic? cc) .......... [PASS] 386. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 387. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 388. (ascii-char? cc) .......... [PASS] 389. (ascii-char? (integer->char cc)) .......... [PASS] 390. (ascii-non-control? cc) .......... [PASS] 391. (ascii-other-graphic? cc) .......... [PASS] 392. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 393. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 394. (ascii-char? cc) .......... [PASS] 395. (ascii-char? (integer->char cc)) .......... [PASS] 396. (ascii-non-control? cc) .......... [PASS] 397. (ascii-other-graphic? cc) .......... [PASS] 398. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 399. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 400. (ascii-char? cc) .......... [PASS] 401. (ascii-char? (integer->char cc)) .......... [PASS] 402. (ascii-non-control? cc) .......... [PASS] 403. (ascii-other-graphic? cc) .......... [PASS] 404. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 405. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 406. (ascii-char? cc) .......... [PASS] 407. (ascii-char? (integer->char cc)) .......... [PASS] 408. (ascii-non-control? cc) .......... [PASS] 409. (ascii-other-graphic? cc) .......... [PASS] 410. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 411. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 412. (ascii-char? cc) .......... [PASS] 413. (ascii-char? (integer->char cc)) .......... [PASS] 414. (ascii-non-control? cc) .......... [PASS] 415. (ascii-other-graphic? cc) .......... [PASS] 416. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 417. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 418. (ascii-char? cc) .......... [PASS] 419. (ascii-char? (integer->char cc)) .......... [PASS] 420. (ascii-non-control? cc) .......... [PASS] 421. (ascii-other-graphic? cc) .......... [PASS] 422. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 423. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 424. (ascii-char? cc) .......... [PASS] 425. (ascii-char? (integer->char cc)) .......... [PASS] 426. (ascii-non-control? cc) .......... [PASS] 427. (ascii-other-graphic? cc) .......... [PASS] 428. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 429. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 430. (ascii-char? cc) .......... [PASS] 431. (ascii-char? (integer->char cc)) .......... [PASS] 432. (ascii-non-control? cc) .......... [PASS] 433. (ascii-other-graphic? cc) .......... [PASS] 434. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 435. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 436. (ascii-char? cc) .......... [PASS] 437. (ascii-char? (integer->char cc)) .......... [PASS] 438. (ascii-non-control? cc) .......... [PASS] 439. (ascii-other-graphic? cc) .......... [PASS] 440. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 441. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 442. (ascii-char? cc) .......... [PASS] 443. (ascii-char? (integer->char cc)) .......... [PASS] 444. (ascii-non-control? cc) .......... [PASS] 445. (ascii-other-graphic? cc) .......... [PASS] 446. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 447. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 448. (ascii-char? cc) .......... [PASS] 449. (ascii-char? (integer->char cc)) .......... [PASS] 450. (ascii-non-control? cc) .......... [PASS] 451. (ascii-other-graphic? cc) .......... [PASS] 452. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 453. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 454. (ascii-char? cc) .......... [PASS] 455. (ascii-char? (integer->char cc)) .......... [PASS] 456. (ascii-non-control? cc) .......... [PASS] 457. (ascii-other-graphic? cc) .......... [PASS] 458. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 459. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 460. (ascii-char? cc) .......... [PASS] 461. (ascii-char? (integer->char cc)) .......... [PASS] 462. (ascii-non-control? cc) .......... [PASS] 463. (ascii-other-graphic? cc) .......... [PASS] 464. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 465. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 466. (ascii-char? cc) .......... [PASS] 467. (ascii-char? (integer->char cc)) .......... [PASS] 468. (ascii-non-control? cc) .......... [PASS] 469. (ascii-other-graphic? cc) .......... [PASS] 470. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 471. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 472. (ascii-char? cc) .......... [PASS] 473. (ascii-char? (integer->char cc)) .......... [PASS] 474. (ascii-non-control? cc) .......... [PASS] 475. (ascii-other-graphic? cc) .......... [PASS] 476. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 477. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 478. (ascii-char? cc) .......... [PASS] 479. (ascii-char? (integer->char cc)) .......... [PASS] 480. (ascii-non-control? cc) .......... [PASS] 481. (ascii-other-graphic? cc) .......... [PASS] 482. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 483. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 484. (ascii-char? cc) .......... [PASS] 485. (ascii-char? (integer->char cc)) .......... [PASS] 486. (ascii-char? cc) .......... [PASS] 487. (ascii-char? (integer->char cc)) .......... [PASS] 488. (ascii-char? cc) .......... [PASS] 489. (ascii-char? (integer->char cc)) .......... [PASS] 490. (ascii-char? cc) .......... [PASS] 491. (ascii-char? (integer->char cc)) .......... [PASS] 492. (ascii-char? cc) .......... [PASS] 493. (ascii-char? (integer->char cc)) .......... [PASS] 494. (ascii-char? cc) .......... [PASS] 495. (ascii-char? (integer->char cc)) .......... [PASS] 496. (ascii-char? cc) .......... [PASS] 497. (ascii-char? (integer->char cc)) .......... [PASS] 498. (ascii-char? cc) .......... [PASS] 499. (ascii-char? (integer->char cc)) .......... [PASS] 500. (ascii-char? cc) .......... [PASS] 501. (ascii-char? (integer->char cc)) .......... [PASS] 502. (ascii-char? cc) .......... [PASS] 503. (ascii-char? (integer->char cc)) .......... [PASS] 504. (ascii-char? cc) .......... [PASS] 505. (ascii-char? (integer->char cc)) .......... [PASS] 506. (ascii-char? cc) .......... [PASS] 507. (ascii-char? (integer->char cc)) .......... [PASS] 508. (ascii-char? cc) .......... [PASS] 509. (ascii-char? (integer->char cc)) .......... [PASS] 510. (ascii-char? cc) .......... [PASS] 511. (ascii-char? (integer->char cc)) .......... [PASS] 512. (ascii-char? cc) .......... [PASS] 513. (ascii-char? (integer->char cc)) .......... [PASS] 514. (ascii-char? cc) .......... [PASS] 515. (ascii-char? (integer->char cc)) .......... [PASS] 516. (ascii-char? cc) .......... [PASS] 517. (ascii-char? (integer->char cc)) .......... [PASS] 518. (ascii-char? cc) .......... [PASS] 519. (ascii-char? (integer->char cc)) .......... [PASS] 520. (ascii-char? cc) .......... [PASS] 521. (ascii-char? (integer->char cc)) .......... [PASS] 522. (ascii-char? cc) .......... [PASS] 523. (ascii-char? (integer->char cc)) .......... [PASS] 524. (ascii-char? cc) .......... [PASS] 525. (ascii-char? (integer->char cc)) .......... [PASS] 526. (ascii-char? cc) .......... [PASS] 527. (ascii-char? (integer->char cc)) .......... [PASS] 528. (ascii-char? cc) .......... [PASS] 529. (ascii-char? (integer->char cc)) .......... [PASS] 530. (ascii-char? cc) .......... [PASS] 531. (ascii-char? (integer->char cc)) .......... [PASS] 532. (ascii-char? cc) .......... [PASS] 533. (ascii-char? (integer->char cc)) .......... [PASS] 534. (ascii-char? cc) .......... [PASS] 535. (ascii-char? (integer->char cc)) .......... [PASS] 536. (ascii-char? cc) .......... [PASS] 537. (ascii-char? (integer->char cc)) .......... [PASS] 538. (ascii-char? cc) .......... [PASS] 539. (ascii-char? (integer->char cc)) .......... [PASS] 540. (ascii-char? cc) .......... [PASS] 541. (ascii-char? (integer->char cc)) .......... [PASS] 542. (ascii-char? cc) .......... [PASS] 543. (ascii-char? (integer->char cc)) .......... [PASS] 544. (ascii-char? cc) .......... [PASS] 545. (ascii-char? (integer->char cc)) .......... [PASS] 546. (ascii-char? cc) .......... [PASS] 547. (ascii-char? (integer->char cc)) .......... [PASS] 548. (ascii-char? cc) .......... [PASS] 549. (ascii-char? (integer->char cc)) .......... [PASS] 550. (ascii-char? cc) .......... [PASS] 551. (ascii-char? (integer->char cc)) .......... [PASS] 552. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 553. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 554. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 555. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 556. (ascii-alphanumeric? cc) .......... [PASS] 557. (ascii-non-control? cc) .......... [PASS] 558. (ascii-other-graphic? cc) .......... [PASS] 559. (ascii-control? cc) .......... [PASS] 560. (ascii-numeric? cc) .......... [PASS] 561. (ascii-whitespace? cc) .......... [PASS] 562. (ascii-space-or-tab? cc) .......... [PASS] 563. (ascii-char? cc) .......... [PASS] 564. (ascii-char? (integer->char cc)) .......... [PASS] 565. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 566. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 567. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 568. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 569. (ascii-alphanumeric? cc) .......... [PASS] 570. (ascii-non-control? cc) .......... [PASS] 571. (ascii-other-graphic? cc) .......... [PASS] 572. (ascii-control? cc) .......... [PASS] 573. (ascii-numeric? cc) .......... [PASS] 574. (ascii-whitespace? cc) .......... [PASS] 575. (ascii-space-or-tab? cc) .......... [PASS] 576. (ascii-char? cc) .......... [PASS] 577. (ascii-char? (integer->char cc)) .......... [PASS] 578. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 579. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 580. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 581. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 582. (ascii-alphanumeric? cc) .......... [PASS] 583. (ascii-non-control? cc) .......... [PASS] 584. (ascii-other-graphic? cc) .......... [PASS] 585. (ascii-control? cc) .......... [PASS] 586. (ascii-numeric? cc) .......... [PASS] 587. (ascii-whitespace? cc) .......... [PASS] 588. (ascii-space-or-tab? cc) .......... [PASS] 589. (ascii-char? cc) .......... [PASS] 590. (ascii-char? (integer->char cc)) .......... [PASS] 591. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 592. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 593. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 594. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 595. (ascii-alphanumeric? cc) .......... [PASS] 596. (ascii-non-control? cc) .......... [PASS] 597. (ascii-other-graphic? cc) .......... [PASS] 598. (ascii-control? cc) .......... [PASS] 599. (ascii-numeric? cc) .......... [PASS] 600. (ascii-whitespace? cc) .......... [PASS] 601. (ascii-space-or-tab? cc) .......... [PASS] 602. (ascii-char? cc) .......... [PASS] 603. (ascii-char? (integer->char cc)) .......... [PASS] 604. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 605. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 606. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 607. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 608. (ascii-alphanumeric? cc) .......... [PASS] 609. (ascii-non-control? cc) .......... [PASS] 610. (ascii-other-graphic? cc) .......... [PASS] 611. (ascii-control? cc) .......... [PASS] 612. (ascii-numeric? cc) .......... [PASS] 613. (ascii-whitespace? cc) .......... [PASS] 614. (ascii-space-or-tab? cc) .......... [PASS] 615. (ascii-char? cc) .......... [PASS] 616. (ascii-char? (integer->char cc)) .......... [PASS] 617. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 618. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 619. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 620. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 621. (ascii-alphanumeric? cc) .......... [PASS] 622. (ascii-non-control? cc) .......... [PASS] 623. (ascii-other-graphic? cc) .......... [PASS] 624. (ascii-control? cc) .......... [PASS] 625. (ascii-numeric? cc) .......... [PASS] 626. (ascii-whitespace? cc) .......... [PASS] 627. (ascii-space-or-tab? cc) .......... [PASS] 628. (ascii-char? cc) .......... [PASS] 629. (ascii-char? (integer->char cc)) .......... [PASS] 630. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 631. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 632. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 633. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 634. (ascii-alphanumeric? cc) .......... [PASS] 635. (ascii-non-control? cc) .......... [PASS] 636. (ascii-other-graphic? cc) .......... [PASS] 637. (ascii-control? cc) .......... [PASS] 638. (ascii-numeric? cc) .......... [PASS] 639. (ascii-whitespace? cc) .......... [PASS] 640. (ascii-space-or-tab? cc) .......... [PASS] 641. (ascii-char? cc) .......... [PASS] 642. (ascii-char? (integer->char cc)) .......... [PASS] 643. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 644. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 645. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 646. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 647. (ascii-alphanumeric? cc) .......... [PASS] 648. (ascii-non-control? cc) .......... [PASS] 649. (ascii-other-graphic? cc) .......... [PASS] 650. (ascii-control? cc) .......... [PASS] 651. (ascii-numeric? cc) .......... [PASS] 652. (ascii-whitespace? cc) .......... [PASS] 653. (ascii-space-or-tab? cc) .......... [PASS] 654. (ascii-char? cc) .......... [PASS] 655. (ascii-char? (integer->char cc)) .......... [PASS] 656. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 657. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 658. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 659. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 660. (ascii-alphanumeric? cc) .......... [PASS] 661. (ascii-non-control? cc) .......... [PASS] 662. (ascii-other-graphic? cc) .......... [PASS] 663. (ascii-control? cc) .......... [PASS] 664. (ascii-numeric? cc) .......... [PASS] 665. (ascii-whitespace? cc) .......... [PASS] 666. (ascii-space-or-tab? cc) .......... [PASS] 667. (ascii-char? cc) .......... [PASS] 668. (ascii-char? (integer->char cc)) .......... [PASS] 669. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 670. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 671. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 672. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 673. (ascii-alphanumeric? cc) .......... [PASS] 674. (ascii-non-control? cc) .......... [PASS] 675. (ascii-other-graphic? cc) .......... [PASS] 676. (ascii-control? cc) .......... [PASS] 677. (ascii-numeric? cc) .......... [PASS] 678. (ascii-whitespace? cc) .......... [PASS] 679. (ascii-space-or-tab? cc) .......... [PASS] 680. (ascii-char? cc) .......... [PASS] 681. (ascii-char? (integer->char cc)) .......... [PASS] 682. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 683. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 684. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 685. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 686. (ascii-alphanumeric? cc) .......... [PASS] 687. (ascii-non-control? cc) .......... [PASS] 688. (ascii-other-graphic? cc) .......... [PASS] 689. (ascii-control? cc) .......... [PASS] 690. (ascii-numeric? cc) .......... [PASS] 691. (ascii-whitespace? cc) .......... [PASS] 692. (ascii-space-or-tab? cc) .......... [PASS] 693. (ascii-char? cc) .......... [PASS] 694. (ascii-char? (integer->char cc)) .......... [PASS] 695. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 696. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 697. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 698. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 699. (ascii-alphanumeric? cc) .......... [PASS] 700. (ascii-non-control? cc) .......... [PASS] 701. (ascii-other-graphic? cc) .......... [PASS] 702. (ascii-control? cc) .......... [PASS] 703. (ascii-numeric? cc) .......... [PASS] 704. (ascii-whitespace? cc) .......... [PASS] 705. (ascii-space-or-tab? cc) .......... [PASS] 706. (ascii-char? cc) .......... [PASS] 707. (ascii-char? (integer->char cc)) .......... [PASS] 708. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 709. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 710. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 711. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 712. (ascii-alphanumeric? cc) .......... [PASS] 713. (ascii-non-control? cc) .......... [PASS] 714. (ascii-other-graphic? cc) .......... [PASS] 715. (ascii-control? cc) .......... [PASS] 716. (ascii-numeric? cc) .......... [PASS] 717. (ascii-whitespace? cc) .......... [PASS] 718. (ascii-space-or-tab? cc) .......... [PASS] 719. (ascii-char? cc) .......... [PASS] 720. (ascii-char? (integer->char cc)) .......... [PASS] 721. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 722. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 723. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 724. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 725. (ascii-alphanumeric? cc) .......... [PASS] 726. (ascii-non-control? cc) .......... [PASS] 727. (ascii-other-graphic? cc) .......... [PASS] 728. (ascii-control? cc) .......... [PASS] 729. (ascii-numeric? cc) .......... [PASS] 730. (ascii-whitespace? cc) .......... [PASS] 731. (ascii-space-or-tab? cc) .......... [PASS] 732. (ascii-char? cc) .......... [PASS] 733. (ascii-char? (integer->char cc)) .......... [PASS] 734. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 735. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 736. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 737. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 738. (ascii-alphanumeric? cc) .......... [PASS] 739. (ascii-non-control? cc) .......... [PASS] 740. (ascii-other-graphic? cc) .......... [PASS] 741. (ascii-control? cc) .......... [PASS] 742. (ascii-numeric? cc) .......... [PASS] 743. (ascii-whitespace? cc) .......... [PASS] 744. (ascii-space-or-tab? cc) .......... [PASS] 745. (ascii-char? cc) .......... [PASS] 746. (ascii-char? (integer->char cc)) .......... [PASS] 747. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 748. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 749. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 750. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 751. (ascii-alphanumeric? cc) .......... [PASS] 752. (ascii-non-control? cc) .......... [PASS] 753. (ascii-other-graphic? cc) .......... [PASS] 754. (ascii-control? cc) .......... [PASS] 755. (ascii-numeric? cc) .......... [PASS] 756. (ascii-whitespace? cc) .......... [PASS] 757. (ascii-space-or-tab? cc) .......... [PASS] 758. (ascii-char? cc) .......... [PASS] 759. (ascii-char? (integer->char cc)) .......... [PASS] 760. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 761. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 762. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 763. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 764. (ascii-alphanumeric? cc) .......... [PASS] 765. (ascii-non-control? cc) .......... [PASS] 766. (ascii-other-graphic? cc) .......... [PASS] 767. (ascii-control? cc) .......... [PASS] 768. (ascii-numeric? cc) .......... [PASS] 769. (ascii-whitespace? cc) .......... [PASS] 770. (ascii-space-or-tab? cc) .......... [PASS] 771. (ascii-char? cc) .......... [PASS] 772. (ascii-char? (integer->char cc)) .......... [PASS] 773. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 774. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 775. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 776. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 777. (ascii-alphanumeric? cc) .......... [PASS] 778. (ascii-non-control? cc) .......... [PASS] 779. (ascii-other-graphic? cc) .......... [PASS] 780. (ascii-control? cc) .......... [PASS] 781. (ascii-numeric? cc) .......... [PASS] 782. (ascii-whitespace? cc) .......... [PASS] 783. (ascii-space-or-tab? cc) .......... [PASS] 784. (ascii-char? cc) .......... [PASS] 785. (ascii-char? (integer->char cc)) .......... [PASS] 786. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 787. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 788. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 789. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 790. (ascii-alphanumeric? cc) .......... [PASS] 791. (ascii-non-control? cc) .......... [PASS] 792. (ascii-other-graphic? cc) .......... [PASS] 793. (ascii-control? cc) .......... [PASS] 794. (ascii-numeric? cc) .......... [PASS] 795. (ascii-whitespace? cc) .......... [PASS] 796. (ascii-space-or-tab? cc) .......... [PASS] 797. (ascii-char? cc) .......... [PASS] 798. (ascii-char? (integer->char cc)) .......... [PASS] 799. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 800. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 801. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 802. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 803. (ascii-alphanumeric? cc) .......... [PASS] 804. (ascii-non-control? cc) .......... [PASS] 805. (ascii-other-graphic? cc) .......... [PASS] 806. (ascii-control? cc) .......... [PASS] 807. (ascii-numeric? cc) .......... [PASS] 808. (ascii-whitespace? cc) .......... [PASS] 809. (ascii-space-or-tab? cc) .......... [PASS] 810. (ascii-char? cc) .......... [PASS] 811. (ascii-char? (integer->char cc)) .......... [PASS] 812. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 813. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 814. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 815. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 816. (ascii-alphanumeric? cc) .......... [PASS] 817. (ascii-non-control? cc) .......... [PASS] 818. (ascii-other-graphic? cc) .......... [PASS] 819. (ascii-control? cc) .......... [PASS] 820. (ascii-numeric? cc) .......... [PASS] 821. (ascii-whitespace? cc) .......... [PASS] 822. (ascii-space-or-tab? cc) .......... [PASS] 823. (ascii-char? cc) .......... [PASS] 824. (ascii-char? (integer->char cc)) .......... [PASS] 825. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 826. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 827. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 828. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 829. (ascii-alphanumeric? cc) .......... [PASS] 830. (ascii-non-control? cc) .......... [PASS] 831. (ascii-other-graphic? cc) .......... [PASS] 832. (ascii-control? cc) .......... [PASS] 833. (ascii-numeric? cc) .......... [PASS] 834. (ascii-whitespace? cc) .......... [PASS] 835. (ascii-space-or-tab? cc) .......... [PASS] 836. (ascii-char? cc) .......... [PASS] 837. (ascii-char? (integer->char cc)) .......... [PASS] 838. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 839. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 840. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 841. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 842. (ascii-alphanumeric? cc) .......... [PASS] 843. (ascii-non-control? cc) .......... [PASS] 844. (ascii-other-graphic? cc) .......... [PASS] 845. (ascii-control? cc) .......... [PASS] 846. (ascii-numeric? cc) .......... [PASS] 847. (ascii-whitespace? cc) .......... [PASS] 848. (ascii-space-or-tab? cc) .......... [PASS] 849. (ascii-char? cc) .......... [PASS] 850. (ascii-char? (integer->char cc)) .......... [PASS] 851. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 852. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 853. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 854. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 855. (ascii-alphanumeric? cc) .......... [PASS] 856. (ascii-non-control? cc) .......... [PASS] 857. (ascii-other-graphic? cc) .......... [PASS] 858. (ascii-control? cc) .......... [PASS] 859. (ascii-numeric? cc) .......... [PASS] 860. (ascii-whitespace? cc) .......... [PASS] 861. (ascii-space-or-tab? cc) .......... [PASS] 862. (ascii-char? cc) .......... [PASS] 863. (ascii-char? (integer->char cc)) .......... [PASS] 864. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 865. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 866. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 867. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 868. (ascii-alphanumeric? cc) .......... [PASS] 869. (ascii-non-control? cc) .......... [PASS] 870. (ascii-other-graphic? cc) .......... [PASS] 871. (ascii-control? cc) .......... [PASS] 872. (ascii-numeric? cc) .......... [PASS] 873. (ascii-whitespace? cc) .......... [PASS] 874. (ascii-space-or-tab? cc) .......... [PASS] 875. (ascii-char? cc) .......... [PASS] 876. (ascii-char? (integer->char cc)) .......... [PASS] 877. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 878. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 879. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 880. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 881. (ascii-alphanumeric? cc) .......... [PASS] 882. (ascii-non-control? cc) .......... [PASS] 883. (ascii-other-graphic? cc) .......... [PASS] 884. (ascii-control? cc) .......... [PASS] 885. (ascii-numeric? cc) .......... [PASS] 886. (ascii-whitespace? cc) .......... [PASS] 887. (ascii-space-or-tab? cc) .......... [PASS] 888. (ascii-char? cc) .......... [PASS] 889. (ascii-char? (integer->char cc)) .......... [PASS] 890. (ascii-char? cc) .......... [PASS] 891. (ascii-char? (integer->char cc)) .......... [PASS] 892. (ascii-char? cc) .......... [PASS] 893. (ascii-char? (integer->char cc)) .......... [PASS] 894. (ascii-char? cc) .......... [PASS] 895. (ascii-char? (integer->char cc)) .......... [PASS] 896. (ascii-char? cc) .......... [PASS] 897. (ascii-char? (integer->char cc)) .......... [PASS] 898. (ascii-char? cc) .......... [PASS] 899. (ascii-char? (integer->char cc)) .......... [PASS] 900. (ascii-char? cc) .......... [PASS] 901. (ascii-char? (integer->char cc)) .......... [PASS] 902. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 903. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 904. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 905. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 906. (ascii-alphanumeric? cc) .......... [PASS] 907. (ascii-non-control? cc) .......... [PASS] 908. (ascii-other-graphic? cc) .......... [PASS] 909. (ascii-control? cc) .......... [PASS] 910. (ascii-numeric? cc) .......... [PASS] 911. (ascii-whitespace? cc) .......... [PASS] 912. (ascii-space-or-tab? cc) .......... [PASS] 913. (ascii-char? cc) .......... [PASS] 914. (ascii-char? (integer->char cc)) .......... [PASS] 915. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 916. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 917. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 918. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 919. (ascii-alphanumeric? cc) .......... [PASS] 920. (ascii-non-control? cc) .......... [PASS] 921. (ascii-other-graphic? cc) .......... [PASS] 922. (ascii-control? cc) .......... [PASS] 923. (ascii-numeric? cc) .......... [PASS] 924. (ascii-whitespace? cc) .......... [PASS] 925. (ascii-space-or-tab? cc) .......... [PASS] 926. (ascii-char? cc) .......... [PASS] 927. (ascii-char? (integer->char cc)) .......... [PASS] 928. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 929. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 930. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 931. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 932. (ascii-alphanumeric? cc) .......... [PASS] 933. (ascii-non-control? cc) .......... [PASS] 934. (ascii-other-graphic? cc) .......... [PASS] 935. (ascii-control? cc) .......... [PASS] 936. (ascii-numeric? cc) .......... [PASS] 937. (ascii-whitespace? cc) .......... [PASS] 938. (ascii-space-or-tab? cc) .......... [PASS] 939. (ascii-char? cc) .......... [PASS] 940. (ascii-char? (integer->char cc)) .......... [PASS] 941. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 942. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 943. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 944. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 945. (ascii-alphanumeric? cc) .......... [PASS] 946. (ascii-non-control? cc) .......... [PASS] 947. (ascii-other-graphic? cc) .......... [PASS] 948. (ascii-control? cc) .......... [PASS] 949. (ascii-numeric? cc) .......... [PASS] 950. (ascii-whitespace? cc) .......... [PASS] 951. (ascii-space-or-tab? cc) .......... [PASS] 952. (ascii-char? cc) .......... [PASS] 953. (ascii-char? (integer->char cc)) .......... [PASS] 954. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 955. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 956. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 957. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 958. (ascii-alphanumeric? cc) .......... [PASS] 959. (ascii-non-control? cc) .......... [PASS] 960. (ascii-other-graphic? cc) .......... [PASS] 961. (ascii-control? cc) .......... [PASS] 962. (ascii-numeric? cc) .......... [PASS] 963. (ascii-whitespace? cc) .......... [PASS] 964. (ascii-space-or-tab? cc) .......... [PASS] 965. (ascii-char? cc) .......... [PASS] 966. (ascii-char? (integer->char cc)) .......... [PASS] 967. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 968. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 969. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 970. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 971. (ascii-alphanumeric? cc) .......... [PASS] 972. (ascii-non-control? cc) .......... [PASS] 973. (ascii-other-graphic? cc) .......... [PASS] 974. (ascii-control? cc) .......... [PASS] 975. (ascii-numeric? cc) .......... [PASS] 976. (ascii-whitespace? cc) .......... [PASS] 977. (ascii-space-or-tab? cc) .......... [PASS] 978. (ascii-char? cc) .......... [PASS] 979. (ascii-char? (integer->char cc)) .......... [PASS] 980. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 981. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 982. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 983. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 984. (ascii-alphanumeric? cc) .......... [PASS] 985. (ascii-non-control? cc) .......... [PASS] 986. (ascii-other-graphic? cc) .......... [PASS] 987. (ascii-control? cc) .......... [PASS] 988. (ascii-numeric? cc) .......... [PASS] 989. (ascii-whitespace? cc) .......... [PASS] 990. (ascii-space-or-tab? cc) .......... [PASS] 991. (ascii-char? cc) .......... [PASS] 992. (ascii-char? (integer->char cc)) .......... [PASS] 993. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 994. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 995. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 996. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 997. (ascii-alphanumeric? cc) .......... [PASS] 998. (ascii-non-control? cc) .......... [PASS] 999. (ascii-other-graphic? cc) .......... [PASS] 1000. (ascii-control? cc) .......... [PASS] 1001. (ascii-numeric? cc) .......... [PASS] 1002. (ascii-whitespace? cc) .......... [PASS] 1003. (ascii-space-or-tab? cc) .......... [PASS] 1004. (ascii-char? cc) .......... [PASS] 1005. (ascii-char? (integer->char cc)) .......... [PASS] 1006. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 1007. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 1008. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 1009. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 1010. (ascii-alphanumeric? cc) .......... [PASS] 1011. (ascii-non-control? cc) .......... [PASS] 1012. (ascii-other-graphic? cc) .......... [PASS] 1013. (ascii-control? cc) .......... [PASS] 1014. (ascii-numeric? cc) .......... [PASS] 1015. (ascii-whitespace? cc) .......... [PASS] 1016. (ascii-space-or-tab? cc) .......... [PASS] 1017. (ascii-char? cc) .......... [PASS] 1018. (ascii-char? (integer->char cc)) .......... [PASS] 1019. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 1020. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 1021. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 1022. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 1023. (ascii-alphanumeric? cc) .......... [PASS] 1024. (ascii-non-control? cc) .......... [PASS] 1025. (ascii-other-graphic? cc) .......... [PASS] 1026. (ascii-control? cc) .......... [PASS] 1027. (ascii-numeric? cc) .......... [PASS] 1028. (ascii-whitespace? cc) .......... [PASS] 1029. (ascii-space-or-tab? cc) .......... [PASS] 1030. (ascii-char? cc) .......... [PASS] 1031. (ascii-char? (integer->char cc)) .......... [PASS] 1032. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 1033. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 1034. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 1035. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 1036. (ascii-alphanumeric? cc) .......... [PASS] 1037. (ascii-non-control? cc) .......... [PASS] 1038. (ascii-other-graphic? cc) .......... [PASS] 1039. (ascii-control? cc) .......... [PASS] 1040. (ascii-numeric? cc) .......... [PASS] 1041. (ascii-whitespace? cc) .......... [PASS] 1042. (ascii-space-or-tab? cc) .......... [PASS] 1043. (ascii-char? cc) .......... [PASS] 1044. (ascii-char? (integer->char cc)) .......... [PASS] 1045. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 1046. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 1047. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 1048. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 1049. (ascii-alphanumeric? cc) .......... [PASS] 1050. (ascii-non-control? cc) .......... [PASS] 1051. (ascii-other-graphic? cc) .......... [PASS] 1052. (ascii-control? cc) .......... [PASS] 1053. (ascii-numeric? cc) .......... [PASS] 1054. (ascii-whitespace? cc) .......... [PASS] 1055. (ascii-space-or-tab? cc) .......... [PASS] 1056. (ascii-char? cc) .......... [PASS] 1057. (ascii-char? (integer->char cc)) .......... [PASS] 1058. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 1059. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 1060. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 1061. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 1062. (ascii-alphanumeric? cc) .......... [PASS] 1063. (ascii-non-control? cc) .......... [PASS] 1064. (ascii-other-graphic? cc) .......... [PASS] 1065. (ascii-control? cc) .......... [PASS] 1066. (ascii-numeric? cc) .......... [PASS] 1067. (ascii-whitespace? cc) .......... [PASS] 1068. (ascii-space-or-tab? cc) .......... [PASS] 1069. (ascii-char? cc) .......... [PASS] 1070. (ascii-char? (integer->char cc)) .......... [PASS] 1071. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 1072. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 1073. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 1074. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 1075. (ascii-alphanumeric? cc) .......... [PASS] 1076. (ascii-non-control? cc) .......... [PASS] 1077. (ascii-other-graphic? cc) .......... [PASS] 1078. (ascii-control? cc) .......... [PASS] 1079. (ascii-numeric? cc) .......... [PASS] 1080. (ascii-whitespace? cc) .......... [PASS] 1081. (ascii-space-or-tab? cc) .......... [PASS] 1082. (ascii-char? cc) .......... [PASS] 1083. (ascii-char? (integer->char cc)) .......... [PASS] 1084. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 1085. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 1086. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 1087. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 1088. (ascii-alphanumeric? cc) .......... [PASS] 1089. (ascii-non-control? cc) .......... [PASS] 1090. (ascii-other-graphic? cc) .......... [PASS] 1091. (ascii-control? cc) .......... [PASS] 1092. (ascii-numeric? cc) .......... [PASS] 1093. (ascii-whitespace? cc) .......... [PASS] 1094. (ascii-space-or-tab? cc) .......... [PASS] 1095. (ascii-char? cc) .......... [PASS] 1096. (ascii-char? (integer->char cc)) .......... [PASS] 1097. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 1098. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 1099. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 1100. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 1101. (ascii-alphanumeric? cc) .......... [PASS] 1102. (ascii-non-control? cc) .......... [PASS] 1103. (ascii-other-graphic? cc) .......... [PASS] 1104. (ascii-control? cc) .......... [PASS] 1105. (ascii-numeric? cc) .......... [PASS] 1106. (ascii-whitespace? cc) .......... [PASS] 1107. (ascii-space-or-tab? cc) .......... [PASS] 1108. (ascii-char? cc) .......... [PASS] 1109. (ascii-char? (integer->char cc)) .......... [PASS] 1110. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 1111. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 1112. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 1113. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 1114. (ascii-alphanumeric? cc) .......... [PASS] 1115. (ascii-non-control? cc) .......... [PASS] 1116. (ascii-other-graphic? cc) .......... [PASS] 1117. (ascii-control? cc) .......... [PASS] 1118. (ascii-numeric? cc) .......... [PASS] 1119. (ascii-whitespace? cc) .......... [PASS] 1120. (ascii-space-or-tab? cc) .......... [PASS] 1121. (ascii-char? cc) .......... [PASS] 1122. (ascii-char? (integer->char cc)) .......... [PASS] 1123. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 1124. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 1125. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 1126. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 1127. (ascii-alphanumeric? cc) .......... [PASS] 1128. (ascii-non-control? cc) .......... [PASS] 1129. (ascii-other-graphic? cc) .......... [PASS] 1130. (ascii-control? cc) .......... [PASS] 1131. (ascii-numeric? cc) .......... [PASS] 1132. (ascii-whitespace? cc) .......... [PASS] 1133. (ascii-space-or-tab? cc) .......... [PASS] 1134. (ascii-char? cc) .......... [PASS] 1135. (ascii-char? (integer->char cc)) .......... [PASS] 1136. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 1137. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 1138. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 1139. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 1140. (ascii-alphanumeric? cc) .......... [PASS] 1141. (ascii-non-control? cc) .......... [PASS] 1142. (ascii-other-graphic? cc) .......... [PASS] 1143. (ascii-control? cc) .......... [PASS] 1144. (ascii-numeric? cc) .......... [PASS] 1145. (ascii-whitespace? cc) .......... [PASS] 1146. (ascii-space-or-tab? cc) .......... [PASS] 1147. (ascii-char? cc) .......... [PASS] 1148. (ascii-char? (integer->char cc)) .......... [PASS] 1149. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 1150. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 1151. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 1152. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 1153. (ascii-alphanumeric? cc) .......... [PASS] 1154. (ascii-non-control? cc) .......... [PASS] 1155. (ascii-other-graphic? cc) .......... [PASS] 1156. (ascii-control? cc) .......... [PASS] 1157. (ascii-numeric? cc) .......... [PASS] 1158. (ascii-whitespace? cc) .......... [PASS] 1159. (ascii-space-or-tab? cc) .......... [PASS] 1160. (ascii-char? cc) .......... [PASS] 1161. (ascii-char? (integer->char cc)) .......... [PASS] 1162. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 1163. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 1164. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 1165. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 1166. (ascii-alphanumeric? cc) .......... [PASS] 1167. (ascii-non-control? cc) .......... [PASS] 1168. (ascii-other-graphic? cc) .......... [PASS] 1169. (ascii-control? cc) .......... [PASS] 1170. (ascii-numeric? cc) .......... [PASS] 1171. (ascii-whitespace? cc) .......... [PASS] 1172. (ascii-space-or-tab? cc) .......... [PASS] 1173. (ascii-char? cc) .......... [PASS] 1174. (ascii-char? (integer->char cc)) .......... [PASS] 1175. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 1176. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 1177. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 1178. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 1179. (ascii-alphanumeric? cc) .......... [PASS] 1180. (ascii-non-control? cc) .......... [PASS] 1181. (ascii-other-graphic? cc) .......... [PASS] 1182. (ascii-control? cc) .......... [PASS] 1183. (ascii-numeric? cc) .......... [PASS] 1184. (ascii-whitespace? cc) .......... [PASS] 1185. (ascii-space-or-tab? cc) .......... [PASS] 1186. (ascii-char? cc) .......... [PASS] 1187. (ascii-char? (integer->char cc)) .......... [PASS] 1188. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 1189. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 1190. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 1191. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 1192. (ascii-alphanumeric? cc) .......... [PASS] 1193. (ascii-non-control? cc) .......... [PASS] 1194. (ascii-other-graphic? cc) .......... [PASS] 1195. (ascii-control? cc) .......... [PASS] 1196. (ascii-numeric? cc) .......... [PASS] 1197. (ascii-whitespace? cc) .......... [PASS] 1198. (ascii-space-or-tab? cc) .......... [PASS] 1199. (ascii-char? cc) .......... [PASS] 1200. (ascii-char? (integer->char cc)) .......... [PASS] 1201. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 1202. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 1203. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 1204. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 1205. (ascii-alphanumeric? cc) .......... [PASS] 1206. (ascii-non-control? cc) .......... [PASS] 1207. (ascii-other-graphic? cc) .......... [PASS] 1208. (ascii-control? cc) .......... [PASS] 1209. (ascii-numeric? cc) .......... [PASS] 1210. (ascii-whitespace? cc) .......... [PASS] 1211. (ascii-space-or-tab? cc) .......... [PASS] 1212. (ascii-char? cc) .......... [PASS] 1213. (ascii-char? (integer->char cc)) .......... [PASS] 1214. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 1215. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 1216. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 1217. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 1218. (ascii-alphanumeric? cc) .......... [PASS] 1219. (ascii-non-control? cc) .......... [PASS] 1220. (ascii-other-graphic? cc) .......... [PASS] 1221. (ascii-control? cc) .......... [PASS] 1222. (ascii-numeric? cc) .......... [PASS] 1223. (ascii-whitespace? cc) .......... [PASS] 1224. (ascii-space-or-tab? cc) .......... [PASS] 1225. (ascii-char? cc) .......... [PASS] 1226. (ascii-char? (integer->char cc)) .......... [PASS] 1227. (ascii-upper-case? (ascii-upcase cc)) .......... [PASS] 1228. (ascii-lower-case? (ascii-downcase cc)) .......... [PASS] 1229. (ascii-lower-case? (ascii-upcase cc)) .......... [PASS] 1230. (ascii-upper-case? (ascii-downcase cc)) .......... [PASS] 1231. (ascii-alphanumeric? cc) .......... [PASS] 1232. (ascii-non-control? cc) .......... [PASS] 1233. (ascii-other-graphic? cc) .......... [PASS] 1234. (ascii-control? cc) .......... [PASS] 1235. (ascii-numeric? cc) .......... [PASS] 1236. (ascii-whitespace? cc) .......... [PASS] 1237. (ascii-space-or-tab? cc) .......... [PASS] 1238. (ascii-char? cc) .......... [PASS] 1239. (ascii-char? (integer->char cc)) .......... [PASS] 1240. (ascii-char? cc) .......... [PASS] 1241. (ascii-char? (integer->char cc)) .......... [PASS] 1242. (ascii-char? cc) .......... [PASS] 1243. (ascii-char? (integer->char cc)) .......... [PASS] 1244. (ascii-char? cc) .......... [PASS] 1245. (ascii-char? (integer->char cc)) .......... [PASS] 1246. (ascii-char? cc) .......... [PASS] 1247. (ascii-char? (integer->char cc)) .......... [PASS] 1248. (ascii-non-control? cc) .......... [PASS] 1249. (ascii-other-graphic? cc) .......... [PASS] 1250. (ascii-graphic->control (ascii-control->graphic cc)) .......... [PASS] 1251. (ascii-graphic->control (ascii-control->graphic (integer->char cc))) .......... [PASS] 1252. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1253. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1256. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1257. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1258. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1261. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1262. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1263. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1266. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1267. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1268. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1271. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1272. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1273. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1276. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1277. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1278. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1281. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1282. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1283. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1286. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1287. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1288. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1291. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1292. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1293. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1296. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1297. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1298. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1301. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1302. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1303. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1306. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1307. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1308. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1311. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1312. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1313. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1316. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1317. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1318. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1321. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1322. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1323. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1326. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1327. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1328. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1331. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1332. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1333. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1336. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1337. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1338. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1341. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1342. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1343. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1346. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1347. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1348. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1351. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1352. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1353. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1356. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1357. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1358. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1361. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1362. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1363. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1366. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1367. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1368. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1371. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1372. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1373. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1376. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1377. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1378. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1381. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1382. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1383. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1386. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1387. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1388. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1391. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1392. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1393. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1396. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1397. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1398. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1401. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1402. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1403. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1406. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1407. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1408. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1411. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1412. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1413. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1416. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1417. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1418. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1421. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1422. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1423. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1426. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1427. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1428. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1431. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1432. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1433. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1436. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1437. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1438. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1441. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1442. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1443. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1446. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1447. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1448. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1451. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1452. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1453. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1456. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1457. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1458. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1461. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1462. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1463. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1466. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1467. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1468. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1471. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1472. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1473. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1476. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1477. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1478. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1481. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1482. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1483. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1486. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1487. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1488. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1491. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1492. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1493. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1496. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1497. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1498. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1501. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1502. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1503. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1506. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1507. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1508. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1511. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1512. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1513. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1516. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1517. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1518. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1521. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1522. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1523. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1526. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1527. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1528. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1531. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1532. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1533. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1536. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1537. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1538. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1541. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1542. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1543. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1546. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1547. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1548. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1551. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1552. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1553. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1556. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1557. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1558. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1561. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1562. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1563. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1566. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1567. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1568. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1571. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1572. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1573. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1576. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1577. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1578. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1581. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1582. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1583. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1586. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1587. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1588. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1591. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1592. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1593. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1596. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1597. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1598. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1601. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1602. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1603. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1606. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1607. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1608. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1611. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1612. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1613. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1616. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1617. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1618. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1621. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1622. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1623. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1626. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1627. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1628. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1631. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1632. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1633. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1636. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1637. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1638. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1641. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1642. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1643. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1646. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1647. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1648. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1651. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1652. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1653. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1656. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1657. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1658. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1661. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1662. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1663. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1666. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1667. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1668. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1671. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1672. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1673. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1676. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1677. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1678. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1681. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1682. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1683. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1686. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1687. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1688. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1691. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1692. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1693. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1696. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1697. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1698. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1701. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1702. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1703. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1706. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1707. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1708. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1711. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1712. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1713. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1716. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1717. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1718. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1721. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1722. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1723. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1726. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1727. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1728. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1731. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1732. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1733. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1736. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1737. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1738. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1741. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1742. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1743. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1746. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1747. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1748. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1751. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1752. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1753. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1756. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1757. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1758. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1761. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1762. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1763. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1766. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1767. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1768. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1771. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1772. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1773. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1776. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1777. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1778. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1781. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1782. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1783. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1786. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1787. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1788. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1791. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1792. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1793. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1796. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1797. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1798. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1801. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1802. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1803. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1806. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1807. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1808. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1811. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1812. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1813. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1816. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1817. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1818. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1821. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1822. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1823. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1826. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1827. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1828. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1831. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1832. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1833. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1836. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1837. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1838. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1841. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1842. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1843. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1846. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1847. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1848. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1851. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1852. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1853. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1856. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1857. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1858. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1861. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1862. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1863. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1866. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1867. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1868. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1871. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1872. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1873. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1876. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1877. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1878. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1881. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1882. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1883. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1886. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1887. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1888. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1891. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1892. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1893. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1896. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1897. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1898. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1901. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1902. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1903. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1906. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1907. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1908. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1911. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1912. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1913. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1916. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1917. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1918. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1921. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1922. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1923. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1926. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1927. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1928. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1931. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1932. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1933. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1936. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1937. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1938. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1941. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1942. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1943. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1946. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1947. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1948. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1951. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1952. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1953. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1956. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1957. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1958. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1961. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1962. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1963. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1966. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1967. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1968. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1971. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1972. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1973. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1976. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1977. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1978. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1981. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1982. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1983. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1986. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1987. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1988. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1991. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1992. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1993. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1996. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1997. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 1998. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2001. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2002. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2003. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2006. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2007. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2008. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2011. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2012. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2013. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2016. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2017. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2018. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2021. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2022. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2023. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2026. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2027. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2028. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2031. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2032. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2033. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2036. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2037. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2038. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2041. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2042. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2043. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2046. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2047. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2048. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2051. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2052. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2053. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2056. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2057. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2058. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2061. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2062. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2063. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2066. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2067. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2068. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2071. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2072. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2073. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2076. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2077. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2078. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2081. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2082. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2083. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2086. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2087. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2088. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2091. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2092. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2093. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2096. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2097. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2098. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2101. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2102. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2103. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2106. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2107. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2108. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2111. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2112. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2113. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2116. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2117. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2118. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2121. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2122. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2123. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2126. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2127. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2128. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2131. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2132. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2133. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2136. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2137. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2138. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2141. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2142. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2143. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2146. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2147. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2148. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2151. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2152. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2153. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2156. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2157. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2158. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2161. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2162. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2163. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2166. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2167. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2168. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2171. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2172. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2173. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2176. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2177. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2178. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2181. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2182. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2183. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2186. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2187. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2188. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2191. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2192. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2193. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2196. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2197. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2198. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2201. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2202. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2203. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2206. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2207. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2208. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2211. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2212. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2213. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2216. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2217. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2218. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2221. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2222. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2223. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2226. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2227. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2228. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2231. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2232. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2233. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2236. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2237. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2238. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2241. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2242. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2243. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2246. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2247. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2248. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2251. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2252. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2253. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2256. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2257. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2258. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2261. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2262. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2263. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2266. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2267. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2268. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2271. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2272. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2273. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2276. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2277. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2278. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2281. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2282. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2283. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2286. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2287. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2288. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2291. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2292. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2293. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2296. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2297. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2298. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2301. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2302. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2303. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2306. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2307. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2308. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2311. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2312. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2313. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2316. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2317. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2318. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2321. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2322. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2323. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2326. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2327. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2328. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2331. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2332. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2333. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2336. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2337. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2338. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2341. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2342. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2343. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2346. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2347. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2348. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2351. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2352. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2353. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2356. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2357. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2358. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2361. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2362. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2363. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2366. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2367. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2368. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2371. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2372. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2373. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2376. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2377. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2378. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2381. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2382. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2383. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2386. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2387. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2388. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2391. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2392. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2393. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2396. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2397. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2398. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2401. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2402. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2403. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2406. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2407. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2408. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2411. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2412. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2413. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2416. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2417. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2418. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2421. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2422. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2423. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2426. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2427. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2428. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2431. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2432. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2433. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2436. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2437. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2438. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2441. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2442. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2443. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2446. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2447. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2448. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2451. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2452. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2453. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2456. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2457. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2458. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2461. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2462. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2463. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2466. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2467. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2468. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2471. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2472. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2473. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2476. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2477. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2478. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2481. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2482. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2483. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2486. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2487. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2488. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2491. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2492. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2493. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2496. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2497. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2498. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2501. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2502. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2503. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2506. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2507. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2508. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2511. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2512. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2513. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2516. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2517. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2518. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2521. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2522. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2523. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2526. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2527. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2528. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2531. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2532. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2533. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2536. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2537. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2538. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2541. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2542. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2543. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2546. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2547. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2548. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2551. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2552. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2553. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2556. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2557. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2558. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2561. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2562. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2563. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2566. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2567. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2568. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2571. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2572. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2573. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2576. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2577. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2578. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2581. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2582. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2583. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2586. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2587. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2588. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2591. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2592. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2593. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2596. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2597. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2598. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2601. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2602. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2603. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2606. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2607. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2608. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2611. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2612. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2613. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2616. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2617. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2618. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2621. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2622. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2623. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2626. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2627. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2628. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2631. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2632. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2633. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2636. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2637. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2638. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2641. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2642. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2643. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2646. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2647. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2648. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2651. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2652. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2653. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2656. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2657. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2658. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2661. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2662. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2663. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2666. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2667. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2668. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2671. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2672. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2673. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2676. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2677. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2678. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2681. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2682. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2683. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2686. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2687. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2688. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2691. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2692. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2693. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2696. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2697. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2698. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2701. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2702. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2703. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2706. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2707. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2708. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2711. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2712. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2713. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2716. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2717. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2718. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2721. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2722. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2723. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2726. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2727. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2728. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2731. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2732. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2733. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2736. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2737. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2738. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2741. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2742. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2743. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2746. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2747. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2748. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2751. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2752. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2753. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2756. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2757. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2758. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2761. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2762. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2763. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2766. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2767. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2768. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2771. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2772. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2773. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2776. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2777. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2778. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2781. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2782. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2783. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2786. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2787. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2788. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2791. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2792. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2793. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2796. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2797. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2798. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2801. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2802. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2803. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2806. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2807. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2808. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2811. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2812. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2813. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2816. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2817. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2818. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2821. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2822. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2823. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2826. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2827. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2828. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2831. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2832. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2833. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2836. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2837. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2838. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2841. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2842. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2843. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2846. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2847. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2848. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2851. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2852. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2853. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2856. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2857. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2858. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2861. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2862. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2863. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2866. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2867. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2868. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2871. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2872. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2873. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2876. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2877. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2878. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2881. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2882. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2883. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2886. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2887. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2888. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2891. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2892. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2893. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2896. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2897. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2898. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2901. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2902. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2903. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2906. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2907. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2908. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2911. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2912. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2913. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2916. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2917. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2918. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2921. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2922. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2923. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2926. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2927. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2928. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2931. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2932. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2933. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2936. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2937. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2938. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2941. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2942. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2943. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2946. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2947. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2948. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2951. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2952. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2953. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2956. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2957. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2958. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2961. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2962. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2963. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2966. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2967. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2968. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2971. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2972. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2973. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2976. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2977. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2978. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2981. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2982. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2983. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2986. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2987. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2988. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2991. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2992. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2993. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2996. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2997. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 2998. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3001. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3002. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3003. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3006. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3007. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3008. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3011. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3012. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3013. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3016. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3017. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3018. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3021. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3022. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3023. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3026. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3027. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3028. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3031. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3032. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3033. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3036. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3037. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3038. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3041. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3042. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3043. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3046. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3047. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3048. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3051. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3052. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3053. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3056. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3057. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3058. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3061. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3062. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3063. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3066. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3067. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3068. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3071. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3072. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3073. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3076. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3077. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3078. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3081. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3082. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3083. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3086. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3087. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3088. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3091. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3092. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3093. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3096. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3097. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3098. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3101. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3102. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3103. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3106. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3107. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3108. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3111. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3112. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3113. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3116. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3117. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3118. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3121. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3122. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3123. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3126. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3127. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3128. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3131. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3132. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3133. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3136. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3137. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3138. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3141. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3142. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3143. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3146. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3147. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3148. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3151. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3152. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3153. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3156. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3157. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3158. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3161. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3162. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3163. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3166. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3167. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3168. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3171. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3172. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3173. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3176. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3177. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3178. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3181. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3182. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3183. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3186. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3187. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3188. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3191. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3192. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3193. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3196. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3197. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3198. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3201. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3202. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3203. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3206. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3207. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3208. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3211. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3212. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3213. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3216. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3217. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3218. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3221. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3222. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3223. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3226. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3227. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3228. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3231. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3232. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3233. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3236. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3237. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3238. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3241. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3242. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3243. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3246. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3247. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3248. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3251. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3252. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3253. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3256. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3257. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3258. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3261. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3262. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3263. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3266. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3267. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3268. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3271. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3272. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3273. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3276. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3277. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3278. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3281. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3282. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3283. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3286. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3287. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3288. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3291. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3292. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3293. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3296. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3297. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3298. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3301. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3302. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3303. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3306. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3307. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3308. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3311. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3312. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3313. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3316. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3317. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3318. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3321. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3322. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3323. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3326. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3327. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3328. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3331. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3332. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3333. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3336. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3337. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3338. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3341. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3342. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3343. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3346. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3347. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3348. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3351. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3352. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3353. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3356. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3357. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3358. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3361. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3362. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3363. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3366. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3367. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3368. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3371. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3372. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3373. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3376. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3377. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3378. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3381. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3382. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3383. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3386. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3387. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3388. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3391. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3392. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3393. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3396. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3397. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3398. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3401. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3402. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3403. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3406. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3407. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3408. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3411. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3412. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3413. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3416. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3417. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3418. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3421. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3422. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3423. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3426. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3427. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3428. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3431. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3432. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3433. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3436. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3437. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3438. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3441. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3442. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3443. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3446. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3447. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3448. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3451. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3452. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3453. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3456. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3457. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3458. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3461. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3462. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3463. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3466. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3467. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3468. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3471. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3472. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3473. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3476. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3477. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3478. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3481. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3482. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3483. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3486. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3487. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3488. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3491. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3492. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3493. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3496. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3497. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3498. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3501. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3502. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3503. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3506. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3507. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3508. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3511. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3512. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3513. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3516. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3517. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3518. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3521. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3522. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3523. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3526. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3527. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3528. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3531. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3532. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3533. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3536. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3537. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3538. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3541. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3542. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3543. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3546. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3547. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3548. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3551. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3552. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3553. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3556. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3557. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3558. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3561. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3562. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3563. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3566. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3567. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3568. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3571. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3572. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3573. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3576. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3577. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3578. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3581. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3582. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3583. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3586. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3587. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3588. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3591. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3592. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3593. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3596. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3597. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3598. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3601. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3602. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3603. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3606. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3607. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3608. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3611. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3612. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3613. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3616. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3617. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3618. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3621. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3622. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3623. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3626. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3627. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3628. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3631. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3632. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3633. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3636. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3637. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3638. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3641. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3642. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3643. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3646. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3647. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3648. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3651. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3652. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3653. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3656. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3657. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3658. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3661. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3662. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3663. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3666. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3667. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3668. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3671. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3672. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3673. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3676. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3677. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3678. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3681. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3682. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3683. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3686. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3687. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3688. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3691. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3692. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3693. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3696. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3697. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3698. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3701. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3702. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3703. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3706. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3707. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3708. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3711. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3712. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3713. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3716. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3717. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3718. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3721. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3722. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3723. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3726. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3727. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3728. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3731. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3732. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3733. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3736. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3737. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3738. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3741. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3742. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3743. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3746. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3747. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3748. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3751. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3752. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3753. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3756. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3757. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3758. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3761. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3762. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3763. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3766. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3767. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3768. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3771. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3772. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3773. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3776. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3777. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3778. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3781. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3782. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3783. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3786. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3787. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3788. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3791. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3792. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3793. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3796. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3797. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3798. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3801. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3802. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3803. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3806. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3807. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3808. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3811. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3812. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3813. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3816. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3817. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3818. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3821. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3822. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3823. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3826. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3827. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3828. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3831. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3832. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3833. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3836. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3837. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3838. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3841. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3842. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3843. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3846. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3847. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3848. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3851. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3852. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3853. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3856. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3857. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3858. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3861. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3862. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3863. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3866. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3867. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3868. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3871. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3872. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3873. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3876. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3877. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3878. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3881. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3882. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3883. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3886. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3887. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3888. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3891. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3892. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3893. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3896. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3897. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3898. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3901. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3902. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3903. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3906. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3907. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3908. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3911. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3912. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3913. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3916. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3917. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3918. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3921. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3922. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3923. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3926. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3927. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3928. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3931. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3932. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3933. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3936. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3937. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3938. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3941. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3942. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3943. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3946. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3947. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3948. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3951. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3952. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3953. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3956. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3957. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3958. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3961. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3962. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3963. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3966. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3967. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3968. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3971. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3972. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3973. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3976. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3977. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3978. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3981. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3982. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3983. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3986. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3987. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3988. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3991. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3992. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3993. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3996. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3997. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 3998. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4001. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4002. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4003. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4006. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4007. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4008. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4011. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4012. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4013. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4016. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4017. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4018. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4021. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4022. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4023. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4026. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4027. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4028. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4031. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4032. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4033. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4036. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4037. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4038. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4041. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4042. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4043. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4046. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4047. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4048. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4051. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4052. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4053. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4056. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4057. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4058. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4061. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4062. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4063. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4066. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4067. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4068. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4071. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4072. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4073. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4076. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4077. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4078. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4081. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4082. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4083. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4086. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4087. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4088. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4091. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4092. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4093. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4096. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4097. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4098. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4101. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4102. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4103. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4106. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4107. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4108. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4111. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4112. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4113. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4116. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4117. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4118. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4121. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4122. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4123. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4126. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4127. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4128. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4131. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4132. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4133. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4136. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4137. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4138. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4141. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4142. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4143. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4146. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4147. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4148. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4151. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4152. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4153. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4156. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4157. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4158. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4161. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4162. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4163. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4166. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4167. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4168. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4171. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4172. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4173. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4176. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4177. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4178. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4181. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4182. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4183. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4186. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4187. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4188. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4191. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4192. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4193. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4196. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4197. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4198. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4201. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4202. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4203. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4206. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4207. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4208. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4211. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4212. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4213. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4216. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4217. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4218. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4221. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4222. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4223. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4226. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4227. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4228. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4231. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4232. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4233. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4236. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4237. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4238. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4241. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4242. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4243. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4246. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4247. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4248. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4251. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4252. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4253. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4256. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4257. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4258. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4261. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4262. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4263. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4266. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4267. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4268. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4271. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4272. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4273. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4276. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4277. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4278. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4281. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4282. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4283. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4286. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4287. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4288. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4291. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4292. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4293. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4296. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4297. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4298. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4301. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4302. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4303. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4306. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4307. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4308. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4311. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4312. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4313. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4316. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4317. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4318. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4321. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4322. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4323. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4326. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4327. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4328. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4331. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4332. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4333. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4336. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4337. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4338. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4341. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4342. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4343. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4346. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4347. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4348. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4351. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4352. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4353. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4356. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4357. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4358. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4361. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4362. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4363. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4366. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4367. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4368. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4371. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4372. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4373. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4376. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4377. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4378. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4381. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4382. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4383. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4386. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4387. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4388. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4391. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4392. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4393. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4396. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4397. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4398. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4401. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4402. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4403. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4406. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4407. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4408. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4411. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4412. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4413. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4416. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4417. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4418. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4421. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4422. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4423. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4426. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4427. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4428. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4431. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4432. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4433. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4436. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4437. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4438. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4441. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4442. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4443. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4446. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4447. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4448. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4451. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4452. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4453. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4456. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4457. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4458. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4461. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4462. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4463. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4466. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4467. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4468. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4471. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4472. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4473. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4476. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4477. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4478. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4481. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4482. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4483. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4486. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4487. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4488. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4491. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4492. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4493. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4496. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4497. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4498. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4501. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4502. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4503. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4506. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4507. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4508. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4511. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4512. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4513. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4516. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4517. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4518. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4521. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4522. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4523. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4526. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4527. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4528. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4531. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4532. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4533. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4536. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4537. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4538. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4541. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4542. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4543. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4546. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4547. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4548. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4551. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4552. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4553. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4556. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4557. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4558. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4561. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4562. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4563. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4566. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4567. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4568. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4571. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4572. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4573. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4576. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4577. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4578. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4581. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4582. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4583. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4586. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4587. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4588. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4591. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4592. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4593. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4596. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4597. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4598. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4601. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4602. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4603. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4606. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4607. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4608. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4611. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4612. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4613. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4616. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4617. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4618. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4621. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4622. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4623. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4626. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4627. (ascii-ci=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4628. (ascii-ci? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4631. (ascii-ci>=? (ascii-nth-lower-case a) (ascii-nth-upper-case b)) .......... [PASS] 4632. (ascii-char? -1) .......... [PASS] 4633. (ascii-char? 128) .......... [PASS] 4634. (ascii-char? (integer->char 128)) .......... [PASS] 4635. (ascii-control? -1) .......... [PASS] 4636. (ascii-control? 0) .......... [PASS] 4637. (ascii-control? 31) .......... [PASS] 4638. (ascii-control? 32) .......... [PASS] 4639. (ascii-control? 126) .......... [PASS] 4640. (ascii-control? 127) .......... [PASS] 4641. (ascii-control? 128) .......... [PASS] 4642. (ascii-digit-value #\0 10) .......... [PASS] 4643. (ascii-digit-value #\0 1) .......... [PASS] 4644. (ascii-digit-value #\0 0) .......... [PASS] 4645. (ascii-digit-value #\0 -1) .......... [PASS] 4646. (ascii-digit-value #\7 8) .......... [PASS] 4647. (ascii-digit-value #\7 7) .......... [PASS] 4648. (ascii-digit-value #\: 10) .......... [PASS] 4649. (ascii-upper-case-value #\A 0 26) .......... [PASS] 4650. (ascii-upper-case-value #\Z 0 26) .......... [PASS] 4651. (ascii-upper-case-value #\Z 0 25) .......... [PASS] 4652. (ascii-lower-case-value #\a 0 26) .......... [PASS] 4653. (ascii-lower-case-value #\z 0 26) .......... [PASS] 4654. (ascii-lower-case-value #\z 0 25) .......... [PASS] 4655. (ascii-lower-case-value #\a 0 1) .......... [PASS] 4656. (ascii-lower-case-value #\a 0 0) .......... [PASS] 4657. (ascii-lower-case-value #\a 0 -1) .......... [PASS] 4658. (ascii-lower-case-value #\b 9000 2) .......... [PASS] 4659. (ascii-nth-digit -1) .......... [PASS] 4660. (ascii-nth-digit 0) .......... [PASS] 4661. (ascii-nth-digit 9) .......... [PASS] 4662. (ascii-nth-digit 10) .......... [PASS] 4663. (ascii-nth-upper-case -1) .......... [PASS] 4664. (ascii-nth-upper-case 0) .......... [PASS] 4665. (ascii-nth-upper-case 25) .......... [PASS] 4666. (ascii-nth-upper-case 26) .......... [PASS] 4667. (ascii-nth-lower-case -1) .......... [PASS] 4668. (ascii-nth-lower-case 0) .......... [PASS] 4669. (ascii-nth-lower-case 25) .......... [PASS] 4670. (ascii-nth-lower-case 26) .......... [PASS] 4671. (union? ascii-alphanumeric? ascii-alphabetic? ascii-numeric?) .......... [PASS] 4672. (union? ascii-alphabetic? ascii-upper-case? ascii-lower-case?) .......... [PASS] 4673. (subset? ascii-space-or-tab? ascii-whitespace?) .......... [PASS] 4674. (subset? ascii-other-graphic? ascii-non-control?) .......... [PASS] 4675. (subset? ascii-upper-case? ascii-alphabetic? ascii-non-control?) .......... [PASS] 4676. (subset? ascii-lower-case? ascii-alphabetic? ascii-non-control?) .......... [PASS] 4677. (subset? ascii-alphabetic? ascii-alphanumeric? ascii-non-control?) .......... [PASS] 4678. (subset? ascii-numeric? ascii-alphanumeric? ascii-non-control?) .......... [PASS] 4679. (subset? ascii-alphanumeric? ascii-non-control?) .......... [PASS] 4680. (disjoint? ascii-control? ascii-non-control?) .......... [PASS] 4681. (disjoint? ascii-whitespace? ascii-other-graphic? ascii-upper-case? ascii-lower-case? ascii-numeric?) .......... [PASS] 4682. (disjoint? ascii-control? ascii-other-graphic? ascii-upper-case? ascii-lower-case? ascii-numeric?) .......... [PASS] 4683. (ascii-string-ci=? a b) .......... [PASS] 4684. (ascii-string-ci? a b) .......... [PASS] 4686. (ascii-string-ci<=? a b) .......... [PASS] 4687. (ascii-string-ci>=? a b) .......... [PASS] 4688. (ascii-string-ci=? a b) .......... [PASS] 4689. (ascii-string-ci? a b) .......... [PASS] 4691. (ascii-string-ci<=? a b) .......... [PASS] 4692. (ascii-string-ci>=? a b) .......... [PASS] 4693. (ascii-string-ci=? a b) .......... [PASS] 4694. (ascii-string-ci? a b) .......... [PASS] 4696. (ascii-string-ci<=? a b) .......... [PASS] 4697. (ascii-string-ci>=? a b) .......... [PASS] 4698. (ascii-string-ci=? a b) .......... [PASS] 4699. (ascii-string-ci? a b) .......... [PASS] 4701. (ascii-string-ci<=? a b) .......... [PASS] 4702. (ascii-string-ci>=? a b) .......... [PASS] 4703. (ascii-string-ci=? a b) .......... [PASS] 4704. (ascii-string-ci? a b) .......... [PASS] 4706. (ascii-string-ci<=? a b) .......... [PASS] 4707. (ascii-string-ci>=? a b) .......... [PASS] 4708. (ascii-string-ci=? a b) .......... [PASS] 4709. (ascii-string-ci? a b) .......... [PASS] 4711. (ascii-string-ci<=? a b) .......... [PASS] 4712. (ascii-string-ci>=? a b) .......... [PASS] 4713. (ascii-string-ci=? a b) .......... [PASS] 4714. (ascii-string-ci? a b) .......... [PASS] 4716. (ascii-string-ci<=? a b) .......... [PASS] 4717. (ascii-string-ci>=? a b) .......... [PASS] 4718. (ascii-string-ci=? a b) .......... [PASS] 4719. (ascii-string-ci? a b) .......... [PASS] 4721. (ascii-string-ci<=? a b) .......... [PASS] 4722. (ascii-string-ci>=? a b) .......... [PASS] 4723. (ascii-string-ci=? a b) .......... [PASS] 4724. (ascii-string-ci? a b) .......... [PASS] 4726. (ascii-string-ci<=? a b) .......... [PASS] 4727. (ascii-string-ci>=? a b) .......... [PASS] 4728. (ascii-string-ci=? a b) .......... [PASS] 4729. (ascii-string-ci? a b) .......... [PASS] 4731. (ascii-string-ci<=? a b) .......... [PASS] 4732. (ascii-string-ci>=? a b) .......... [PASS] 4733. (ascii-string-ci=? a b) .......... [PASS] 4734. (ascii-string-ci? a b) .......... [PASS] 4736. (ascii-string-ci<=? a b) .......... [PASS] 4737. (ascii-string-ci>=? a b) .......... [PASS] 4738. (ascii-string-ci=? a b) .......... [PASS] 4739. (ascii-string-ci? a b) .......... [PASS] 4741. (ascii-string-ci<=? a b) .......... [PASS] 4742. (ascii-string-ci>=? a b) .......... [PASS] 4743. (ascii-string-ci=? a b) .......... [PASS] 4744. (ascii-string-ci? a b) .......... [PASS] 4746. (ascii-string-ci<=? a b) .......... [PASS] 4747. (ascii-string-ci>=? a b) .......... [PASS] 4747 out of 4747 passed (100.00%) 1. (not (version-alist-valid? (version-alist))) .......... [PASS] 1 out of 1 passed (100.00%) ------------------------------------------------- RUNNING TESTS FOR SRFI 172: ./skint test/srfi/172.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 173: ./skint test/srfi/173.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 175: ./skint test/srfi/175.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 176: ./skint test/srfi/176.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 178: ./skint test/srfi/178.scm ---------------------------------------------------------------------------- ;;; Checking predicates... 1. (bitvector? (bitvector)) .......... [PASS] 2. (bitvector? (make-bitvector 1)) .......... [PASS] 3. (bitvector-empty? (bitvector)) .......... [PASS] 4. (bitvector-empty? (bitvector 1)) .......... [PASS] 5. (bitvector= (bitvector) (bitvector)) .......... [PASS] 6. (bitvector= (bitvector 1 0 0) (bitvector 1 0 0)) .......... [PASS] 7. (bitvector= (bitvector 1 0 0) (bitvector 1 0 1)) .......... [PASS] 8. (bitvector= (bitvector 1 0 0) (bitvector 1 0)) .......... [PASS] 9. (bitvector= (bitvector 1 0 0) (bitvector 1 0 0) (bitvector 1 0 0)) .......... [PASS] 10. (bitvector= (bitvector 1 0 0) (bitvector 1 0 1) (bitvector 1 0 0)) .......... [PASS] ;;; Checking bitvector conversions... 11. (bitvector->list/int (bitvector)) .......... [PASS] 12. (bitvector->list/int (bitvector 1 0 1 0)) .......... [PASS] 13. (bitvector->list/int (bitvector 1 0 1 0) 2) .......... [PASS] 14. (bitvector->list/int (bitvector 1 0 1 0) 1 3) .......... [PASS] 15. (bitvector->list/bool (bitvector)) .......... [PASS] 16. (bitvector->list/bool (bitvector 1 0 1 0)) .......... [PASS] 17. (bitvector->list/bool (bitvector 1 0 1 0) 2) .......... [PASS] 18. (bitvector->list/bool (bitvector 1 0 1 0) 1 3) .......... [PASS] 19. (reverse-bitvector->list/int (bitvector)) .......... [PASS] 20. (reverse-bitvector->list/int (bitvector 1 0 1 0) 2) .......... [PASS] 21. (reverse-bitvector->list/int (bitvector 1 0 1 0) 1 3) .......... [PASS] 22. (equal? (reverse-bitvector->list/int bvec) (reverse (bitvector->list/int bvec))) .......... [PASS] 23. (equal? (reverse-bitvector->list/bool bvec) (reverse (bitvector->list/bool bvec))) .......... [PASS] 24. (reverse-bitvector->list/bool (bitvector)) .......... [PASS] 25. (reverse-bitvector->list/bool (bitvector 1 0 1 0) 2) .......... [PASS] 26. (reverse-bitvector->list/bool (bitvector 1 0 1 0) 1 3) .......... [PASS] 27. (bitvector= (list->bitvector (quote (1 0 #t #f))) (bitvector 1 0 1 0)) .......... [PASS] 28. (equal? bs (bitvector->list/int (list->bitvector bs))) .......... [PASS] 29. (equal? bs (reverse-bitvector->list/int (reverse-list->bitvector bs))) .......... [PASS] 30. (bitvector= (reverse-list->bitvector (quote (1 0 #t #f))) (bitvector 0 1 0 1)) .......... [PASS] 31. (bitvector->vector/int (bitvector)) .......... [PASS] 32. (bitvector->vector/int (bitvector 1 0 1 0)) .......... [PASS] 33. (bitvector->vector/int (bitvector 1 0 1 0) 1) .......... [PASS] 34. (bitvector->vector/int (bitvector 1 0 1 0) 1 3) .......... [PASS] 35. (bitvector->vector/bool (bitvector)) .......... [PASS] 36. (bitvector->vector/bool (bitvector 1 0 1 0)) .......... [PASS] 37. (bitvector->vector/bool (bitvector 1 0 1 0) 1) .......... [PASS] 38. (bitvector->vector/bool (bitvector 1 0 1 0) 1 3) .......... [PASS] 39. (reverse-bitvector->vector/int (bitvector)) .......... [PASS] 40. (reverse-bitvector->vector/int (bitvector 1 0 1 0)) .......... [PASS] 41. (reverse-bitvector->vector/int (bitvector 1 0 1 0) 2) .......... [PASS] 42. (reverse-bitvector->vector/int (bitvector 1 0 1 0) 1 3) .......... [PASS] 43. (reverse-bitvector->vector/bool (bitvector)) .......... [PASS] 44. (reverse-bitvector->vector/bool (bitvector 1 0 1 0)) .......... [PASS] 45. (reverse-bitvector->vector/bool (bitvector 1 0 1 0) 2) .......... [PASS] 46. (reverse-bitvector->vector/bool (bitvector 1 0 1 0) 1 3) .......... [PASS] 47. (bitvector-empty? (vector->bitvector #())) .......... [PASS] 48. (bitvector= (vector->bitvector #(1 0 #t #f)) (bitvector 1 0 1 0)) .......... [PASS] 49. (bitvector= (vector->bitvector #(1 0 1 0) 1) (bitvector 0 1 0)) .......... [PASS] 50. (bitvector= (vector->bitvector #(1 0 1 0) 1 3) (bitvector 0 1)) .......... [PASS] 51. (bitvector-empty? (reverse-vector->bitvector #())) .......... [PASS] 52. (bitvector= (reverse-vector->bitvector #(1 0 #t #f)) (bitvector 0 1 0 1)) .......... [PASS] 53. (bitvector= (reverse-vector->bitvector #(1 0 1 0) 2) (bitvector 0 1)) .......... [PASS] 54. (bitvector= (reverse-vector->bitvector #(1 0 1 0) 1 3) (bitvector 1 0)) .......... [PASS] 55. (bitvector->string (bitvector 1 0 1 0)) .......... [PASS] 56. (bitvector->string (bitvector)) .......... [PASS] 57. (bitvector= (string->bitvector "#*1010") (bitvector 1 0 1 0)) .......... [PASS] 58. (bitvector-empty? (string->bitvector "#*")) .......... [PASS] 59. (string->bitvector "") .......... [PASS] 60. (string->bitvector "1010") .......... [PASS] 61. (string->bitvector "#") .......... [PASS] 62. (bitvector= (string->bitvector (bitvector->string bvec)) bvec) .......... [PASS] 63. (bitvector->integer (bitvector 0 1 0 1)) .......... [PASS] 64. (bitvector->integer (bitvector 1 0 1 0 1 1 0 1)) .......... [PASS] 65. (bitvector= (integer->bitvector 10) (bitvector 0 1 0 1)) .......... [PASS] 66. (bitvector= (integer->bitvector 181) (bitvector 1 0 1 0 1 1 0 1)) .......... [PASS] 67. (bitvector= (integer->bitvector 181 4) (bitvector 1 0 1 0)) .......... [PASS] ;;; Checking selectors... 68. (bitvector-length (bitvector)) .......... [PASS] 69. (bitvector-length (bitvector 1 0 1 0)) .......... [PASS] 70. (bitvector-ref/int (bitvector 1 0 1 0) 0) .......... [PASS] 71. (bitvector-ref/int (bitvector 1 0 1 0) 3) .......... [PASS] 72. (bitvector-ref/bool (bitvector 1 0 1 0) 0) .......... [PASS] 73. (bitvector-ref/bool (bitvector 1 0 1 0) 3) .......... [PASS] ;;; Checking bit conversions... 74. (bit->integer 0) .......... [PASS] 75. (bit->integer 1) .......... [PASS] 76. (bit->integer #f) .......... [PASS] 77. (bit->integer #t) .......... [PASS] 78. (bit->boolean 0) .......... [PASS] 79. (bit->boolean 1) .......... [PASS] 80. (bit->boolean #f) .......... [PASS] 81. (bit->boolean #t) .......... [PASS] ;;; Checking constructors... 82. (bitvector-length (make-bitvector 8)) .......... [PASS] 83. (bitvector= (make-bitvector 4 0) (bitvector 0 0 0 0)) .......... [PASS] 84. (bitvector= (make-bitvector 4 #t) (bitvector 1 1 1 1)) .......... [PASS] 85. (bitvector= (bitvector-unfold (lambda (_) 0) 4) (bitvector 0 0 0 0)) .......... [PASS] 86. (bitvector= (bitvector-unfold (lambda (_ b) (values b (not b))) 4 #f) (bitvector 0 1 0 1)) .......... [PASS] 87. (bitvector= (bitvector-unfold (lambda (_ b c) (values (and b c) (not b) c)) 4 #t #t) (bitvector 1 0 1 0)) .......... [PASS] 88. (bitvector= (bitvector-unfold-right (lambda (_) 0) 4) (bitvector 0 0 0 0)) .......... [PASS] 89. (bitvector= (bitvector-unfold-right (lambda (_ b) (values b (not b))) 4 #f) (bitvector 1 0 1 0)) .......... [PASS] 90. (bitvector= (bitvector-unfold-right (lambda (_ b c) (values (and b c) (not b) c)) 4 #t #t) (bitvector 0 1 0 1)) .......... [PASS] 91. (bitvector= bvec (bitvector-copy bvec)) .......... [PASS] 92. (eqv? bvec (bitvector-copy bvec)) .......... [PASS] 93. (bitvector= (bitvector-copy (bitvector 1 0 1 0) 1) (bitvector 0 1 0)) .......... [PASS] 94. (bitvector= (bitvector-copy (bitvector 1 0 1 0) 2 4) (bitvector 1 0)) .......... [PASS] 95. (equal? (bitvector->list/int (bitvector-reverse-copy bvec)) (reverse (bitvector->list/int bvec))) .......... [PASS] 96. (eqv? bvec (bitvector-reverse-copy bvec)) .......... [PASS] 97. (bitvector= (bitvector-reverse-copy (bitvector 1 0 1 0) 1) (bitvector 0 1 0)) .......... [PASS] 98. (bitvector= (bitvector-reverse-copy (bitvector 1 0 1 0) 2 4) (bitvector 0 1)) .......... [PASS] 99. (bitvector= (bitvector-append (bitvector 1 0) (bitvector 0 1)) (bitvector 1 0 0 1)) .......... [PASS] 100. (bitvector= (bitvector-append (bitvector 1 0) (bitvector 0 1) (bitvector)) (bitvector 1 0 0 1)) .......... [PASS] 101. (bitvector= (bitvector-concatenate (list (bitvector 1 0) (bitvector 0 1) (bitvector))) (bitvector 1 0 0 1)) .......... [PASS] 102. (bitvector= (bitvector-append-subbitvectors (bitvector 1 0 0 1) 0 2 (bitvector 1 1 1 1) 2 4) (bitvector 1 0 1 1)) .......... [PASS] ;;; Checking iteration... 103. (bitvector= (bitvector-take (bitvector 1 0 1 0) 2) (bitvector 1 0)) .......... [PASS] 104. (bitvector-empty? (bitvector-take (bitvector 1 0) 0)) .......... [PASS] 105. (bitvector= (bitvector-take bvec (bitvector-length bvec)) bvec) .......... [PASS] 106. (bitvector= (bitvector-take-right bvec (bitvector-length bvec)) bvec) .......... [PASS] 107. (bitvector= (bitvector-take-right (bitvector 1 0 1 0) 3) (bitvector 0 1 0)) .......... [PASS] 108. (bitvector-empty? (bitvector-take-right (bitvector 1 0) 0)) .......... [PASS] 109. (bitvector= (bitvector-drop (bitvector 1 0 1 0) 1) (bitvector 0 1 0)) .......... [PASS] 110. (bitvector-empty? (bitvector-drop bvec (bitvector-length bvec))) .......... [PASS] 111. (bitvector= (bitvector-drop bvec 0) bvec) .......... [PASS] 112. (bitvector= (bitvector-drop-right bvec 0) bvec) .......... [PASS] 113. (bitvector-empty? (bitvector-drop-right bvec (bitvector-length bvec))) .......... [PASS] 114. (bitvector= (bitvector-drop-right (bitvector 1 0 1 0) 1) (bitvector 1 0 1)) .......... [PASS] 115. (bitvector= (car (bitvector-segment (bitvector 1 0 1 0) 2)) (bitvector 1 0)) .......... [PASS] 116. (bitvector= (bitvector-concatenate (bitvector-segment bvec 1)) bvec) .......... [PASS] 117. (bitvector-fold/int + 0 (bitvector)) .......... [PASS] 118. (bitvector-fold/int + 0 (bitvector 1)) .......... [PASS] 119. (bitvector-fold/bool proc-or #f (bitvector)) .......... [PASS] 120. (bitvector-fold/bool proc-or #f (bitvector #t)) .......... [PASS] 121. (bitvector-fold-right/int + 0 (bitvector)) .......... [PASS] 122. (bitvector-fold-right/int + 0 (bitvector 1)) .......... [PASS] 123. (bitvector-fold-right/bool proc-or #f (bitvector)) .......... [PASS] 124. (bitvector-fold-right/bool proc-or #f (bitvector #t)) .......... [PASS] 125. (bitvector-empty? (bitvector-map/int values (bitvector))) .......... [PASS] 126. (bitvector= (bitvector-map/int (constantly 1) (bitvector 0 0 1)) (bitvector 1 1 1)) .......... [PASS] 127. (bitvector= (bitvector-map/int (lambda (a b c) b) (bitvector 1 0 0) (bitvector 0 1 0) (bitvector 0 0 1)) (bitvector 0 1 0)) .......... [PASS] 128. (bitvector-empty? (bitvector-map/bool values (bitvector))) .......... [PASS] 129. (bitvector= (bitvector-map/bool (constantly #t) (bitvector #f #f #t)) (bitvector #t #t #t)) .......... [PASS] 130. (bitvector= (bitvector-map/bool (lambda (a b c) b) (bitvector #t #f #f) (bitvector #f #t #f) (bitvector #f #f #t)) (bitvector #f #t #f)) .......... [PASS] 131. (let ((bvec (bitvector))) (bitvector-map!/int values bvec) (bitvector-empty? bvec)) .......... [PASS] 132. (let ((bvec (bitvector 1 0 1 0))) (bitvector-map!/int (constantly 1) bvec) (bitvector= bvec (bitvector 1 1 1 1))) .......... [PASS] 133. (let ((bvec1 (bitvector 1 0 0)) (bvec2 (bitvector 0 1 0)) (bvec3 (bitvector 0 0 1))) (bitvector-map!/int (lambda (a b c) b) bvec1 bvec2 bvec3) (bitvector= bvec1 bvec2)) .......... [PASS] 134. (let ((bvec (bitvector))) (bitvector-map!/bool values bvec) (bitvector-empty? bvec)) .......... [PASS] 135. (let ((bvec (bitvector #t #f #t #f))) (bitvector-map!/bool (constantly #t) bvec) (bitvector= bvec (bitvector #t #t #t #t))) .......... [PASS] 136. (let ((bvec1 (bitvector #t #f #f)) (bvec2 (bitvector #f #t #f)) (bvec3 (bitvector #f #f #t))) (bitvector-map!/bool (lambda (a b c) b) bvec1 bvec2 bvec3) (bitvector= bvec1 bvec2)) .......... [PASS] 137. (bitvector-map->list/bool values (bitvector)) .......... [PASS] 138. (bitvector-map->list/int (constantly 1) (bitvector 1 0 0)) .......... [PASS] 139. (bitvector-map->list/int list (bitvector 1 0) (bitvector 0 1)) .......... [PASS] 140. (bitvector-map->list/bool values (bitvector)) .......... [PASS] 141. (bitvector-map->list/bool (constantly #t) (bitvector 1 0 0)) .......... [PASS] 142. (bitvector-map->list/bool list (bitvector 1 0) (bitvector 0 1)) .......... [PASS] 143. (let ((c 0)) (bitvector-for-each/int (lambda (_) (set! c (+ c 1))) bvec) c) .......... [PASS] 144. (let ((lis (quote ()))) (bitvector-for-each/int (lambda (b) (set! lis (cons b lis))) bvec) lis) .......... [PASS] 145. (let ((c 0)) (bitvector-for-each/bool (lambda (_) (set! c (+ c 1))) bvec) c) .......... [PASS] 146. (let ((lis (quote ()))) (bitvector-for-each/bool (lambda (b) (set! lis (cons b lis))) bvec) lis) .......... [PASS] ;;; Checking quasi-string operations... 147. (bitvector-prefix-length (bitvector 1 0 0) (bitvector 1 0 1)) .......... [PASS] 148. (bitvector-prefix-length (bitvector) (bitvector 1 0 1)) .......... [PASS] 149. (= (bitvector-prefix-length bvec bvec) (bitvector-length bvec)) .......... [PASS] 150. (= (bitvector-suffix-length bvec bvec) (bitvector-length bvec)) .......... [PASS] 151. (bitvector-suffix-length (bitvector 1 0 0) (bitvector 0 0 0)) .......... [PASS] 152. (bitvector-suffix-length (bitvector) (bitvector 1 0 1)) .......... [PASS] 153. (bitvector-prefix? (bitvector 1) (bitvector 1 0)) .......... [PASS] 154. (bitvector-prefix? (bitvector 0) (bitvector 1 0)) .......... [PASS] 155. (bitvector-suffix? (bitvector 0) (bitvector 1 0)) .......... [PASS] 156. (bitvector-suffix? (bitvector 1) (bitvector 1 0)) .......... [PASS] 157. (bitvector-prefix? bvec bvec) .......... [PASS] 158. (bitvector-suffix? bvec bvec) .......... [PASS] 159. (bitvector= (bitvector-pad 0 (bitvector 1) 4) (bitvector 0 0 0 1)) .......... [PASS] 160. (bitvector= (bitvector-pad 0 bvec (bitvector-length bvec)) bvec) .......... [PASS] 161. (bitvector= (bitvector-pad-right 0 bvec (bitvector-length bvec)) bvec) .......... [PASS] 162. (bitvector= (bitvector-pad-right 0 (bitvector 1) 4) (bitvector 1 0 0 0)) .......... [PASS] 163. (bitvector= (bitvector-trim 0 (bitvector 0 0 0 1)) (bitvector 1)) .......... [PASS] 164. (bitvector= (bitvector-trim 0 (bitvector 1 0 1)) (bitvector 1 0 1)) .......... [PASS] 165. (bitvector= (bitvector-trim-right 0 (bitvector 1 0 1)) (bitvector 1 0 1)) .......... [PASS] 166. (bitvector= (bitvector-trim-right 0 (bitvector 1 0 0 0)) (bitvector 1)) .......... [PASS] 167. (bitvector= (bitvector-trim-both 1 (bitvector 1 0 1)) (bitvector 0)) .......... [PASS] 168. (bitvector= (bitvector-trim-both 0 (bitvector 1 0 1)) (bitvector 1 0 1)) .......... [PASS] ;;; Checking mutators... 169. (bitvector= (begin (bitvector-set! bvec 1 1) bvec) (bitvector 1 1 1 0)) .......... [PASS] 170. (bitvector= (begin (bitvector-set! bvec 0 #f) bvec) (bitvector 0 0 1 0)) .......... [PASS] 171. (bitvector= (begin (bitvector-swap! bvec 0 1) bvec) (bitvector 0 1 1 0)) .......... [PASS] 172. (bitvector= (begin (bitvector-reverse! bvec) bvec) (bitvector 0 1 0 1)) .......... [PASS] 173. (bitvector= (begin (bitvector-reverse! bvec 2) bvec) (bitvector 1 0 0 1)) .......... [PASS] 174. (bitvector= (begin (bitvector-reverse! bvec 1 3) bvec) (bitvector 1 1 0 0)) .......... [PASS] 175. (bitvector= (begin (bitvector-copy! bvec 0 (bitvector 1 0)) bvec) (bitvector 1 0 0 0)) .......... [PASS] 176. (bitvector= (begin (bitvector-copy! bvec 1 (bitvector 1 1 0) 1) bvec) (bitvector 0 1 0 0)) .......... [PASS] 177. (bitvector= (begin (bitvector-copy! bvec 1 (bitvector 1 0 1) 0 2) bvec) (bitvector 0 1 0 0)) .......... [PASS] 178. (bitvector= (begin (bitvector-reverse-copy! bvec 0 (bitvector 1 0)) bvec) (bitvector 0 1 0 0)) .......... [PASS] 179. (bitvector= (begin (bitvector-reverse-copy! bvec 1 (bitvector 0 0 1) 1) bvec) (bitvector 0 1 0 0)) .......... [PASS] 180. (bitvector= (begin (bitvector-reverse-copy! bvec 1 (bitvector 0 1 1) 0 2) bvec) (bitvector 0 1 0 0)) .......... [PASS] ;;; Checking bitwise operations... 181. (bitvector= (bitvector-not test-bvec1) (bitvector 0 1 0 1)) .......... [PASS] 182. (bitvector= (bitvector-not (bitvector-not test-bvec1)) test-bvec1) .......... [PASS] 183. (bitvector= (bitvector-and test-bvec1 test-bvec2 test-bvec3) (bitvector 0 0 0 0)) .......... [PASS] 184. (bitvector= (bitvector-ior test-bvec1 test-bvec2 test-bvec3) (bitvector 1 1 1 1)) .......... [PASS] 185. (bitvector= (bitvector-xor test-bvec1 test-bvec2 test-bvec3) (bitvector 0 1 0 1)) .......... [PASS] 186. (bitvector= (bitvector-eqv test-bvec1 test-bvec2 test-bvec3) (bitvector 0 1 0 1)) .......... [PASS] 187. (bitvector= (begin (bitvector-and! test-bvec1* test-bvec2 test-bvec3) test-bvec1*) (bitvector 0 0 0 0)) .......... [PASS] 188. (bitvector= (begin (bitvector-ior! test-bvec1* test-bvec2 test-bvec3) test-bvec1*) (bitvector 1 1 1 1)) .......... [PASS] 189. (bitvector= (begin (bitvector-xor! test-bvec1* test-bvec2 test-bvec3) test-bvec1*) (bitvector 0 1 0 1)) .......... [PASS] 190. (bitvector= (begin (bitvector-eqv! test-bvec1* test-bvec2 test-bvec3) test-bvec1*) (bitvector 0 1 0 1)) .......... [PASS] 191. (bitvector= (bitvector-nand test-bvec1 test-bvec2) (bitvector 0 1 1 1)) .......... [PASS] 192. (bitvector= (bitvector-nor test-bvec1 test-bvec2) (bitvector 0 0 0 1)) .......... [PASS] 193. (bitvector= (bitvector-andc1 test-bvec1 test-bvec2) (bitvector 0 1 0 0)) .......... [PASS] 194. (bitvector= (bitvector-andc2 test-bvec1 test-bvec2) (bitvector 0 0 1 0)) .......... [PASS] 195. (bitvector= (bitvector-orc1 test-bvec1 test-bvec2) (bitvector 1 1 0 1)) .......... [PASS] 196. (bitvector= (bitvector-orc2 test-bvec1 test-bvec2) (bitvector 1 0 1 1)) .......... [PASS] 197. (bitvector= (begin (bitvector-nand! test-bvec1* test-bvec2) test-bvec1*) (bitvector 0 1 1 1)) .......... [PASS] 198. (bitvector= (begin (bitvector-nor! test-bvec1* test-bvec2) test-bvec1*) (bitvector 0 0 0 1)) .......... [PASS] 199. (bitvector= (begin (bitvector-andc1! test-bvec1* test-bvec2) test-bvec1*) (bitvector 0 1 0 0)) .......... [PASS] 200. (bitvector= (begin (bitvector-andc2! test-bvec1* test-bvec2) test-bvec1*) (bitvector 0 0 1 0)) .......... [PASS] 201. (bitvector= (begin (bitvector-orc1! test-bvec1* test-bvec2) test-bvec1*) (bitvector 1 1 0 1)) .......... [PASS] 202. (bitvector= (begin (bitvector-orc2! test-bvec1* test-bvec2) test-bvec1*) (bitvector 1 0 1 1)) .......... [PASS] ;;; Checking quasi-integer operations... 203. (bitvector= (bitvector-logical-shift (bitvector 1 0 1 1) 2 0) (bitvector 1 1 0 0)) .......... [PASS] 204. (bitvector= (bitvector-logical-shift (bitvector 1 0 1 1) -2 #t) (bitvector 1 1 1 0)) .......... [PASS] 205. (bitvector-count 1 (make-bitvector 8 1)) .......... [PASS] 206. (bitvector-count #t (make-bitvector 8 0)) .......... [PASS] 207. (bitvector-count 1 (bitvector 1 1 0 1 1 0 0 0)) .......... [PASS] 208. (bitvector-count-run 1 (make-bitvector 8 1) 0) .......... [PASS] 209. (bitvector-count-run #t (make-bitvector 8 0) 4) .......... [PASS] 210. (bitvector-count-run 1 (bitvector 0 1 1 1) 1) .......... [PASS] 211. (bitvector= (bitvector-if (make-bitvector 4 1) then-bvec else-bvec) then-bvec) .......... [PASS] 212. (bitvector= (bitvector-if (make-bitvector 4 0) then-bvec else-bvec) else-bvec) .......... [PASS] 213. (bitvector= (bitvector-if (bitvector 1 1 0 0) (bitvector 0 1 1 1) (bitvector 0 0 1 0)) (bitvector 0 1 1 0)) .......... [PASS] 214. (bitvector-first-bit 0 (make-bitvector 4 0)) .......... [PASS] 215. (bitvector-first-bit #t (bitvector 0 0 1 0)) .......... [PASS] 216. (bitvector-first-bit #f (make-bitvector 4 1)) .......... [PASS] ;;; Checking bit field operations... 217. (bitvector-field-any? (bitvector 0 1 0 0) 0 4) .......... [PASS] 218. (bitvector-field-any? (bitvector 0 0 0 0) 0 4) .......... [PASS] 219. (bitvector-field-any? (bitvector 0 1 0 0) 1 3) .......... [PASS] 220. (bitvector-field-any? (bitvector 0 1 0 0) 2 4) .......... [PASS] 221. (bitvector-field-every? (make-bitvector 4 1) 0 4) .......... [PASS] 222. (bitvector-field-every? (bitvector 1 1 1 0) 0 4) .......... [PASS] 223. (bitvector-field-every? (bitvector 1 1 0 0) 0 2) .......... [PASS] 224. (bitvector-field-every? (bitvector 1 1 0 0) 2 4) .......... [PASS] 225. (bitvector= (bitvector-field-clear (make-bitvector 4 1) 0 2) (bitvector 0 0 1 1)) .......... [PASS] 226. (bitvector= (begin (bitvector-field-clear! bvec 0 2) bvec) (bitvector 0 0 1 1)) .......... [PASS] 227. (bitvector= (bitvector-field-set (make-bitvector 4 0) 0 2) (bitvector 1 1 0 0)) .......... [PASS] 228. (bitvector= (begin (bitvector-field-set! bvec 0 2) bvec) (bitvector 1 1 0 0)) .......... [PASS] 229. (bitvector= (bitvector-field-replace-same (make-bitvector 4 0) (make-bitvector 4 1) 1 3) (bitvector 0 1 1 0)) .......... [PASS] 230. (bitvector= (begin (bitvector-field-replace-same! bvec (make-bitvector 4 1) 1 3) bvec) (bitvector 0 1 1 0)) .......... [PASS] 231. (bitvector= (bitvector-field-replace (make-bitvector 4 0) (bitvector 1 0 0 0) 1 3) (bitvector 0 1 0 0)) .......... [PASS] 232. (bitvector= (begin (bitvector-field-replace! bvec (make-bitvector 4 1) 1 3) bvec) (bitvector 0 1 1 0)) .......... [PASS] 233. (bitvector= (bitvector-field-rotate (bitvector 1 0 0 1) 1 0 4) (bitvector 0 0 1 1)) .......... [PASS] 234. (bitvector= (bitvector-field-rotate (bitvector 1 0 0 1) -1 0 4) (bitvector 1 1 0 0)) .......... [PASS] 235. (bitvector= (bitvector-field-rotate (bitvector 1 0 0 1 1 0 1 0) 2 2 6) (bitvector 1 0 1 0 0 1 1 0)) .......... [PASS] 236. (bitvector= (bitvector-field-rotate (bitvector 1 0 0 1 1 0 1 0) -3 2 6) (bitvector 1 0 1 1 0 0 1 0)) .......... [PASS] 237. (bitvector= (bitvector-field-flip (bitvector 0 1 0 1) 0 4) (bitvector 1 0 1 0)) .......... [PASS] 238. (bitvector= (bitvector-field-flip (bitvector 0 1 0 1) 2 4) (bitvector 0 1 1 0)) .......... [PASS] 239. (bitvector= (begin (bitvector-field-flip! bvec 0 4) bvec) (bitvector 1 0 1 0)) .......... [PASS] 240. (bitvector= (begin (bitvector-field-flip! bvec 2 4) bvec) (bitvector 0 1 1 0)) .......... [PASS] 240 out of 240 passed (100.00%) ;;; Testing constructors... 1. (eq? (nothing) (nothing)) .......... [PASS] 2. (maybe= eqv? (just #t #t) (list->just (quote (#t #t)))) .......... [PASS] 3. (either= eqv? (right #t #t) (list->right (quote (#t #t)))) .......... [PASS] 4. (either= eqv? (left #t #t) (list->left (quote (#t #t)))) .......... [PASS] 5. (left-of-z? (maybe->either (nothing) (quote z))) .......... [PASS] 6. (right-of-z? (maybe->either (just (quote z)) #f)) .......... [PASS] 7. (either= eqv? (right #t #t) (maybe->either (just #t #t) #f)) .......... [PASS] 8. (nothing? (either->maybe (left #t))) .......... [PASS] 9. (just-of-z? (either->maybe (right (quote z)))) .......... [PASS] 10. (maybe= eqv? (just #t #t) (either->maybe (right #t #t))) .......... [PASS] 11. (either= eqv? (right #t #t) (either-swap (left #t #t))) .......... [PASS] 12. (either= eqv? (left #t #t) (either-swap (right #t #t))) .......... [PASS] ;;; Testing predicates... 13. (just? (just (quote z))) .......... [PASS] 14. (just? (nothing)) .......... [PASS] 15. (nothing? (just (quote z))) .......... [PASS] 16. (nothing? (nothing)) .......... [PASS] 17. (maybe? (just (quote z))) .......... [PASS] 18. (maybe? (nothing)) .......... [PASS] 19. (right? (right (quote z))) .......... [PASS] 20. (right? (left (quote z))) .......... [PASS] 21. (left? (right (quote z))) .......... [PASS] 22. (left? (left (quote z))) .......... [PASS] 23. (either? (right (quote z))) .......... [PASS] 24. (either? (left (quote z))) .......... [PASS] 25. (maybe= eqv? (just #t) (just #t)) .......... [PASS] 26. (maybe= eqv? (just #t) (just #f)) .......... [PASS] 27. (maybe= eqv? (nothing) (nothing)) .......... [PASS] 28. (maybe= eqv? (just #t) (nothing)) .......... [PASS] 29. (maybe= eqv? (just #t #f) (just #t #f)) .......... [PASS] 30. (maybe= eqv? (just #t #f) (just #t (quote z))) .......... [PASS] 31. (maybe= eqv? (just #t #f) (just #t)) .......... [PASS] 32. (maybe= eqv? (just #t) (just #t) (just #t)) .......... [PASS] 33. (maybe= eqv? (nothing) (nothing) (nothing)) .......... [PASS] 34. (maybe= eqv? (just #t) (just #t) (nothing)) .......... [PASS] 35. (maybe= eqv? (just #t) (just #t) (just #f)) .......... [PASS] 36. (maybe= eqv? (just #t (quote z)) (just #t (quote z)) (just #t (quote z))) .......... [PASS] 37. (either= eqv? (right #t) (right #t)) .......... [PASS] 38. (either= eqv? (right #t) (right #f)) .......... [PASS] 39. (either= eqv? (left #t) (left #t)) .......... [PASS] 40. (either= eqv? (left #t) (left #f)) .......... [PASS] 41. (either= eqv? (right #t) (left #t)) .......... [PASS] 42. (either= eqv? (right #t #f) (right #t #f)) .......... [PASS] 43. (either= eqv? (right #t #f) (right #t (quote z))) .......... [PASS] 44. (either= eqv? (right #t #f) (right #t)) .......... [PASS] 45. (either= eqv? (left #t #f) (left #t #f)) .......... [PASS] 46. (either= eqv? (left #t #f) (left #t (quote z))) .......... [PASS] 47. (either= eqv? (left #t #f) (left #t)) .......... [PASS] 48. (either= eqv? (left #t #f) (right #t #f)) .......... [PASS] 49. (either= eqv? (right #t) (right #t) (right #t)) .......... [PASS] 50. (either= eqv? (left #t) (left #t) (left #t)) .......... [PASS] 51. (either= eqv? (right #t) (right #t) (left #t)) .......... [PASS] 52. (either= eqv? (right #t) (right #t) (right #f)) .......... [PASS] 53. (either= eqv? (right #t (quote z)) (right #t (quote z)) (right #t (quote z))) .......... [PASS] ;;; Testing accessors... 54. (maybe-ref (nothing) (lambda () #f)) .......... [PASS] 55. (maybe-ref (just #t) (lambda () #f) values) .......... [PASS] 56. (maybe-ref (nothing) (lambda () #f) values) .......... [PASS] 57. (values->list (maybe-ref (just #t #f) (lambda () #f))) .......... [PASS] 58. (maybe-ref (just #t #f) (lambda () #f) list) .......... [PASS] 59. (either-ref (left #t) (constantly #f)) .......... [PASS] 60. (either-ref (right #t) (constantly #f) values) .......... [PASS] 61. (either-ref (left #t) values (constantly #f)) .......... [PASS] 62. (either-ref (right #t #f) (constantly #f) list) .......... [PASS] 63. (either-ref (left #t #f) list (constantly #f)) .......... [PASS] 64. (maybe-ref/default (just #t) #f) .......... [PASS] 65. (maybe-ref/default (nothing) #f) .......... [PASS] 66. (values->list (maybe-ref/default (just #t #t) #f #f)) .......... [PASS] 67. (values->list (maybe-ref/default (nothing) #f #f)) .......... [PASS] 68. (either-ref/default (right #t) #f) .......... [PASS] 69. (either-ref/default (left #t) #f) .......... [PASS] 70. (values->list (either-ref/default (right #t #t) #f #f)) .......... [PASS] 71. (values->list (either-ref/default (left #t) #f #f)) .......... [PASS] ;;; Testing join and bind... 72. (just-of-z? (maybe-join (just (just (quote z))))) .......... [PASS] 73. (nothing? (maybe-join (just (nothing)))) .......... [PASS] 74. (nothing? (maybe-join (nothing))) .......... [PASS] 75. (right-of-z? (either-join (right (right (quote z))))) .......... [PASS] 76. (left-of-z? (either-join (right (left (quote z))))) .......... [PASS] 77. (left-of-z? (either-join (left (quote z)))) .......... [PASS] 78. (nothing? (maybe-bind (nothing) just)) .......... [PASS] 79. (just-of-z? (maybe-bind (just (quote z)) just)) .......... [PASS] 80. (let ((m (just #t #f))) (maybe= eqv? m (maybe-bind m just))) .......... [PASS] 81. (maybe= eqv? (maybe-bind m (lambda (n) (maybe-bind (k n) h))) (maybe-bind (maybe-bind m k) h)) .......... [PASS] 82. (maybe= eqv? (just #f) (maybe-bind (just #t) neg neg neg)) .......... [PASS] 83. (nothing? (maybe-bind (just #t) neg (constantly (nothing)) neg)) .......... [PASS] 84. (nothing? ((maybe-compose (constantly (nothing))) (quote z))) .......... [PASS] 85. (just-of-z? ((maybe-compose just) (quote z))) .......... [PASS] 86. (maybe= eqv? (just #t) ((maybe-compose neg neg neg) #f)) .......... [PASS] 87. (left? (either-bind (left #f) right)) .......... [PASS] 88. (right-of-z? (either-bind (right (quote z)) right)) .......... [PASS] 89. (let ((e (right #t #f))) (either= eqv? e (either-bind e right))) .......... [PASS] 90. (either= eqv? (either-bind e (lambda (n) (either-bind (k n) h))) (either-bind (either-bind e k) h)) .......... [PASS] 91. (either= eqv? (right #f) (either-bind (right #t) neg neg neg)) .......... [PASS] 92. (either= eqv? (left #f) (either-bind (right #t) neg left neg)) .......... [PASS] 93. (left-of-z? ((either-compose left) (quote z))) .......... [PASS] 94. (either= eqv? (right #t) ((either-compose right) #t)) .......... [PASS] 95. (either= eqv? (right #t) ((either-compose neg neg neg) #f)) .......... [PASS] ;;; Testing sequence operations... 96. (maybe-length (nothing)) .......... [PASS] 97. (maybe-length (just #t)) .......... [PASS] 98. (either-length (left #t)) .......... [PASS] 99. (either-length (right #t)) .......... [PASS] 100. (just-of-z? (maybe-filter always (just (quote z)))) .......... [PASS] 101. (nothing? (maybe-filter never (just #t))) .......... [PASS] 102. (nothing? (maybe-filter always (nothing))) .......... [PASS] 103. (maybe= eqv? (just #t #t) (maybe-filter both (just #t #t))) .......... [PASS] 104. (just-of-z? (maybe-remove never (just (quote z)))) .......... [PASS] 105. (nothing? (maybe-remove always (just #t))) .......... [PASS] 106. (nothing? (maybe-remove always (nothing))) .......... [PASS] 107. (maybe= eqv? (just #t #f) (maybe-remove both (just #t #f))) .......... [PASS] 108. (maybe= equal? (maybe-sequence (map just (quote (#t #f))) map identity) (just (quote (#t #f)))) .......... [PASS] 109. (maybe= equal? (maybe-sequence (list (just 1 #t) (just 2 #f)) map list) (just (quote ((1 #t) (2 #f))))) .......... [PASS] 110. (nothing? (maybe-sequence (list (just #t) (nothing)) map identity)) .......... [PASS] 111. (right-of-z? (either-filter always (right (quote z)) #f)) .......... [PASS] 112. (left-of-z? (either-filter never (right #t) (quote z))) .......... [PASS] 113. (left-of-z? (either-filter always (left #t) (quote z))) .......... [PASS] 114. (either= eqv? (right #t #t) (either-filter both (right #t #t) #f)) .......... [PASS] 115. (right-of-z? (either-remove never (right (quote z)) #f)) .......... [PASS] 116. (left-of-z? (either-remove always (right #t) (quote z))) .......... [PASS] 117. (left-of-z? (either-remove never (left #t) (quote z))) .......... [PASS] 118. (either= eqv? (right #t #f) (either-remove both (right #t #f) #f)) .......... [PASS] 119. (either= equal? (either-sequence (map right (list 1 2)) map identity) (right (list 1 2))) .......... [PASS] 120. (left-of-z? (either-sequence (list (right #t) (left (quote z))) map identity)) .......... [PASS] 121. (either= equal? (either-sequence (list (right 1 #t) (right 2 #f)) map list) (right (quote ((1 #t) (2 #f))))) .......... [PASS] ;;; Testing conversions... 122. (maybe->list (nothing)) .......... [PASS] 123. (maybe->list (just #t #t)) .......... [PASS] 124. (either->list (right #t #t)) .......... [PASS] 125. (either->list (left #t #t)) .......... [PASS] 126. (nothing? (list->maybe (quote ()))) .......... [PASS] 127. (just-of-z? (list->maybe (quote (z)))) .......... [PASS] 128. (left-of-z? (list->either (quote ()) (quote z))) .......... [PASS] 129. (right-of-z? (list->either (quote (z)) #f)) .......... [PASS] 130. (maybe->truth (nothing)) .......... [PASS] 131. (maybe->truth (just (quote z))) .......... [PASS] 132. (either->truth (left (quote z))) .......... [PASS] 133. (either->truth (right (quote z))) .......... [PASS] 134. (nothing? (truth->maybe #f)) .......... [PASS] 135. (just-of-z? (truth->maybe (quote z))) .......... [PASS] 136. (left-of-z? (truth->either #f (quote z))) .......... [PASS] 137. (right-of-z? (truth->either (quote z) #f)) .......... [PASS] 138. (maybe->list-truth (just (quote z) #t)) .......... [PASS] 139. (maybe->list-truth (nothing)) .......... [PASS] 140. (either->list-truth (right (quote z) #t)) .......... [PASS] 141. (either->list-truth (left (quote z))) .......... [PASS] 142. (just-of-z? (list-truth->maybe (quote (z)))) .......... [PASS] 143. (nothing? (list-truth->maybe #f)) .......... [PASS] 144. (right-of-z? (list-truth->either (quote (z)))) .......... [PASS] 145. (left-of-z? (list-truth->either #f (quote z))) .......... [PASS] 146. (eof-object? (maybe->generation (nothing))) .......... [PASS] 147. (maybe->generation (just #t)) .......... [PASS] 148. (nothing? (generation->maybe (eof-object))) .......... [PASS] 149. (just-of-z? (generation->maybe (quote z))) .......... [PASS] 150. (eof-object? (either->generation (left))) .......... [PASS] 151. (either->generation (right #t)) .......... [PASS] 152. (left-of-z? (generation->either (eof-object) (quote z))) .......... [PASS] 153. (right-of-z? (generation->either (quote z) #f)) .......... [PASS] 154. (maybe->values (just #t)) .......... [PASS] 155. (values->list (maybe->values (nothing))) .......... [PASS] 156. (values->list (maybe->two-values (nothing))) .......... [PASS] 157. (values->list (maybe->two-values (just #t))) .......... [PASS] 158. (just-of-z? (two-values->maybe (lambda () (values (quote z) #t)))) .......... [PASS] 159. (nothing? (two-values->maybe (lambda () (values (quote z) #f)))) .......... [PASS] 160. (nothing? (values->maybe (lambda () (values)))) .......... [PASS] 161. (just-of-z? (values->maybe (lambda () (quote z)))) .......... [PASS] 162. (maybe->values (values->maybe (lambda () #t))) .......... [PASS] 163. (just-of-z? (values->maybe (lambda () (maybe->values (just (quote z)))))) .......... [PASS] 164. (either->values (right #t)) .......... [PASS] 165. (values->list (either->values (left (quote z)))) .......... [PASS] 166. (left-of-z? (values->either (lambda () (values)) (quote z))) .......... [PASS] 167. (right-of-z? (values->either (lambda () (quote z)) #f)) .......... [PASS] 168. (either->values (values->either (lambda () #t) #f)) .......... [PASS] 169. (right-of-z? (values->either (lambda () (either->values (right (quote z)))) #f)) .......... [PASS] 170. (left-of-z? (exception->either symbol? (lambda () (raise (quote z))))) .......... [PASS] 171. (right-of-z? (exception->either symbol? (lambda () (quote z)))) .......... [PASS] 172. (guard (obj ((symbol? obj) obj)) (exception->either number? (lambda () (raise-continuable (quote z))))) .......... [PASS] 173. (either= eqv? (with-exception-handler not (lambda () (exception->either string? (lambda () (not (raise-continuable #t)))))) (right #t)) .......... [PASS] ;;; Testing maps, folds, and unfolds... 174. (nothing? (maybe-map not (nothing))) .......... [PASS] 175. (maybe= eqv? (just #f) (maybe-map not (just #t))) .......... [PASS] 176. (maybe= eqv? (just #t #f) (maybe-map values (just #t #f))) .......... [PASS] 177. (let ((e (left #t))) (eqv? e (either-map not e))) .......... [PASS] 178. (either= eqv? (right #f) (either-map not (right #t))) .......... [PASS] 179. (let ((e (right #t #f))) (either= eqv? e (either-map values e))) .......... [PASS] 180. (let ((x #f)) (maybe-for-each (lambda (y) (set! x y)) (just #t)) x) .......... [PASS] 181. (let ((x #f)) (maybe-for-each (lambda (_) (set! x #t)) (nothing)) x) .......... [PASS] 182. (let ((x #f)) (either-for-each (lambda (y) (set! x y)) (right #t)) x) .......... [PASS] 183. (let ((x #f)) (either-for-each (lambda (_) (set! x #t)) (left (quote z))) x) .......... [PASS] 184. (maybe-fold cons (quote ()) (nothing)) .......... [PASS] 185. (maybe-fold cons (quote ()) (just #t)) .......... [PASS] 186. (maybe-fold * 2 (just 3 4)) .......... [PASS] 187. (either-fold cons (quote ()) (left #t)) .......... [PASS] 188. (either-fold cons (quote ()) (right #t)) .......... [PASS] 189. (either-fold * 2 (right 3 4)) .......... [PASS] 190. (nothing? (maybe-unfold always not always #f)) .......... [PASS] 191. (maybe= eqv? (just #t) (maybe-unfold values not not #f)) .......... [PASS] 192. (maybe= eqv? (just #t (quote z)) (maybe-unfold (lambda (b _) (not b)) values (lambda (b x) (values (not b) x)) #t (quote z))) .......... [PASS] 193. (left-of-z? (either-unfold always not always (quote z))) .......... [PASS] 194. (either= eqv? (right #t) (either-unfold values not not #f)) .......... [PASS] 195. (either= eqv? (right #t (quote z)) (either-unfold (lambda (b _) (not b)) values (lambda (b x) (values (not b) x)) #t (quote z))) .......... [PASS] ;;; Testing syntax... 196. (maybe-if (just #t) #t #f) .......... [PASS] 197. (maybe-if (nothing) #t #f) .......... [PASS] 198. (raises-error-object (maybe-if #t #t #f)) .......... [PASS] 199. (just? (maybe-and)) .......... [PASS] 200. (just-of-z? (maybe-and (just (quote z)))) .......... [PASS] 201. (just-of-z? (maybe-and (just #t) (just (quote z)))) .......... [PASS] 202. (nothing? (maybe-and (just #t) (nothing) (just (quote z)))) .......... [PASS] 203. (maybe= eqv? (maybe-bind (just #f) (constantly (just #t))) (maybe-and (just #f) (just #t)) (just #t)) .......... [PASS] 204. (maybe= eqv? (maybe-bind (nothing) (constantly (just #t))) (maybe-and (nothing) (just #t)) (nothing)) .......... [PASS] 205. (raises-error-object (maybe-and #t (just #t))) .......... [PASS] 206. (nothing? (maybe-or)) .......... [PASS] 207. (just-of-z? (maybe-or (just (quote z)))) .......... [PASS] 208. (just-of-z? (maybe-or (nothing) (just (quote z)))) .......... [PASS] 209. (nothing? (maybe-or (nothing) (nothing) (nothing))) .......... [PASS] 210. (raises-error-object (maybe-or (nothing) #t)) .......... [PASS] 211. (just-of-z? (maybe-let* (((maybe-bind (just #t) just))) (quote z))) .......... [PASS] 212. (nothing? (maybe-let* ((x (just #t)) (y (nothing))) x)) .......... [PASS] 213. (maybe= eqv? (maybe-let* ((x (just 2)) (y (just 3))) (* x y)) (just 6)) .......... [PASS] 214. (nothing? (maybe-let* ((x (just 2)) ((maybe-bind (just (quote z)) (constantly (nothing))))) x)) .......... [PASS] 215. (maybe= eqv? (maybe-let* ((b (just #t)) ((truth->maybe b))) b) (just #t)) .......... [PASS] 216. (just-of-z? (maybe-let* (just-of-z) (quote z))) .......... [PASS] 217. (maybe= eqv? (maybe-let* ((x (just 2)) just-of-z (y (just 3))) (* x y)) (just 6)) .......... [PASS] 218. (just-of-z? (maybe-let* (just-of-z ((just (quote x)))) (quote z))) .......... [PASS] 219. (nothing? (maybe-let* ((x (just 2)) zilch (y (just 3))) (* x y))) .......... [PASS] 220. (maybe= eqv? (maybe-bind (just #t) just-neg) (maybe-let* ((b (just #t))) (not b)) (just #f)) .......... [PASS] 221. (maybe= eqv? (maybe-bind (nothing) just-neg) (maybe-let* ((b (nothing))) (not b)) (nothing)) .......... [PASS] 222. (raises-error-object (maybe-let* ((b #t)) (quote z))) .......... [PASS] 223. (raises-error-object (maybe-let* ((b (just #t)) ((quote nothing))) #t)) .......... [PASS] 224. (just-of-z? (maybe-let*-values (((maybe-bind (just #t) just))) (quote z))) .......... [PASS] 225. (nothing? (maybe-let*-values (((x) (just #t)) (y (nothing))) x)) .......... [PASS] 226. (maybe= eqv? (maybe-let*-values (((x y) (just 2 3))) (* x y)) (just 6)) .......... [PASS] 227. (nothing? (maybe-let*-values (((x) (just 2)) ((maybe-bind (just (quote z)) (constantly (nothing))))) x)) .......... [PASS] 228. (maybe= eqv? (maybe-let*-values (((b) (just #t)) ((truth->maybe b))) b) (just #t)) .......... [PASS] 229. (just-of-z? (maybe-let*-values ((vals (just (quote z) #t))) (car vals))) .......... [PASS] 230. (just-of-z? (maybe-let*-values (((x . _) (just (quote z) #t))) x)) .......... [PASS] 231. (maybe= eqv? (maybe-let*-values ((vals (just (quote z) #t)) ((b c . _) (just #t (quote y) #f))) (values (car vals) b)) (just (quote z) #t)) .......... [PASS] 232. (just-of-z? (maybe-let*-values (just-of-z) (quote z))) .......... [PASS] 233. (maybe= eqv? (maybe-let*-values (((x) (just 2)) just-of-z ((y) (just 3))) (* x y)) (just 6)) .......... [PASS] 234. (just-of-z? (maybe-let*-values (just-of-z ((just (quote x)))) (quote z))) .......... [PASS] 235. (nothing? (maybe-let*-values (((x) (just 2)) zilch ((y) (just 3))) (* x y))) .......... [PASS] 236. (maybe= eqv? (maybe-bind (just #t #t) just-neg-both) (maybe-let*-values (((b c) (just #t #t))) (neg-both b c)) (just #f #f)) .......... [PASS] 237. (maybe= eqv? (maybe-bind (nothing) just-neg-both) (maybe-let*-values (((b c) (nothing))) (neg-both b c)) (nothing)) .......... [PASS] 238. (raises-error-object (maybe-let*-values (((b) #t)) #t)) .......... [PASS] 239. (raises-error-object (maybe-let*-values (((b) (just #t)) ((quote nothing))) #t)) .......... [PASS] 240. (right? (either-and)) .......... [PASS] 241. (right-of-z? (either-and (right (quote z)))) .......... [PASS] 242. (right-of-z? (either-and (right #t) (right (quote z)))) .......... [PASS] 243. (left-of-z? (either-and (right) (left (quote z)) (right))) .......... [PASS] 244. (either= eqv? (either-bind (right #f) (constantly (right #t))) (either-and (right #f) (right #t)) (right #t)) .......... [PASS] 245. (either= eqv? (either-bind (left #f) (constantly (right #t))) (either-and (left #f) (right #t)) (left #f)) .......... [PASS] 246. (raises-error-object (either-and #t (right #t))) .......... [PASS] 247. (left? (either-or)) .......... [PASS] 248. (right-of-z? (either-or (right (quote z)))) .......... [PASS] 249. (right-of-z? (either-or (left) (right (quote z)))) .......... [PASS] 250. (left-of-z? (either-or (left) (left) (left (quote z)))) .......... [PASS] 251. (raises-error-object (either-or (left #f) #t)) .......... [PASS] 252. (right-of-z? (either-let* (((either-bind (right #t) right))) (quote z))) .......... [PASS] 253. (left-of-z? (either-let* ((x (right #t)) (y (left (quote z)))) x)) .......... [PASS] 254. (either= eqv? (either-let* ((x (right 2)) (y (right 3))) (* x y)) (right 6)) .......... [PASS] 255. (left-of-z? (either-let* ((x (right 2)) ((either-swap (right (quote z))))) x)) .......... [PASS] 256. (either= eqv? (either-let* ((b (right #t)) ((truth->either b))) b) (right #t)) .......... [PASS] 257. (right-of-z? (either-let* (right-of-z) (quote z))) .......... [PASS] 258. (either= eqv? (either-let* ((x (right 2)) right-of-z (y (right 3))) (* x y)) (right 6)) .......... [PASS] 259. (right-of-z? (either-let* (right-of-z ((right (quote x)))) (quote z))) .......... [PASS] 260. (left-of-z? (either-let* ((x (right 2)) left-of-z (y (right 3))) (* x y))) .......... [PASS] 261. (either= eqv? (either-bind (right #t) right-neg) (either-let* ((b (right #t))) (not b)) (right #f)) .......... [PASS] 262. (either= eqv? (either-bind (left #t) right-neg) (either-let* ((b (left #t))) (not b)) (left #t)) .......... [PASS] 263. (raises-error-object (either-let* ((b #t)) (quote z))) .......... [PASS] 264. (raises-error-object (either-let* ((b (right #t)) ((quote left))) #t)) .......... [PASS] 265. (right-of-z? (either-let*-values (((either-bind (right #t) right))) (quote z))) .......... [PASS] 266. (left-of-z? (either-let*-values (((x) (right #t)) (y (left (quote z)))) x)) .......... [PASS] 267. (either= eqv? (either-let*-values (((x y) (right 2 3))) (* x y)) (right 6)) .......... [PASS] 268. (left-of-z? (either-let*-values (((x) (right 2)) ((either-swap (right (quote z))))) x)) .......... [PASS] 269. (either= eqv? (either-let*-values (((b) (right #t)) ((truth->either b))) b) (right #t)) .......... [PASS] 270. (right-of-z? (either-let*-values ((vals (right (quote z) #t))) (car vals))) .......... [PASS] 271. (right-of-z? (either-let*-values (((x . _) (right (quote z) #t))) x)) .......... [PASS] 272. (either= eqv? (either-let*-values ((vals (right (quote z) #t)) ((b c . _) (right #t (quote y) #f))) (values (car vals) b)) (right (quote z) #t)) .......... [PASS] 273. (right-of-z? (either-let*-values (right-of-z) (quote z))) .......... [PASS] 274. (either= eqv? (either-let*-values (((x) (right 2)) right-of-z ((y) (right 3))) (* x y)) (right 6)) .......... [PASS] 275. (right-of-z? (either-let*-values (right-of-z ((right (quote x)))) (quote z))) .......... [PASS] 276. (left-of-z? (either-let*-values (((x) (right 2)) left-of-z ((y) (right 3))) (* x y))) .......... [PASS] 277. (either= eqv? (either-bind (right #t #t) right-neg-both) (either-let*-values (((b c) (right #t #t))) (neg-both b c)) (right #f #f)) .......... [PASS] 278. (either= eqv? (either-bind (left #t #t) right-neg-both) (either-let*-values (((b c) (left #t #t))) (neg-both b c)) (left #t #t)) .......... [PASS] 279. (raises-error-object (either-let*-values (((b) #t)) (quote z))) .......... [PASS] 280. (raises-error-object (either-let*-values (((b) (right #t)) ((quote left))) (quote z))) .......... [PASS] 281. (left-of-z? (either-guard symbol? (raise (quote z)))) .......... [PASS] 282. (right-of-z? (either-guard symbol? (quote z))) .......... [PASS] 283. (guard (obj ((symbol? obj) obj)) (either-guard number? (raise-continuable (quote z)))) .......... [PASS] 284. (either= eqv? (with-exception-handler not (lambda () (either-guard string? (not (raise-continuable #t))))) (right #t)) .......... [PASS] ;;; Testing trivalent logic... 285. (tri-true? (tri-not (just #f))) .......... [PASS] 286. (tri-false? (tri-not (just #t))) .......... [PASS] 287. (nothing? (tri-not (nothing))) .......... [PASS] 288. (tri-true? (tri=? (just #t) (just 1) (just (quote x)))) .......... [PASS] 289. (tri-true? (tri=? (just #f) (just #f))) .......... [PASS] 290. (tri-true? (tri=? (just #f) (just #f))) .......... [PASS] 291. (tri-false? (tri=? (just #f) (just #t))) .......... [PASS] 292. (tri-false? (tri=? (just #f) (nothing))) .......... [PASS] 293. (tri-true? (tri-and (just #t) (just 1) (just (quote x)))) .......... [PASS] 294. (nothing? (tri-and (just #t) (nothing))) .......... [PASS] 295. (tri-false? (tri-and (just #f) (just #t))) .......... [PASS] 296. (tri-true? (tri-and)) .......... [PASS] 297. (tri-false? (tri-or (just #f) (just #f) (just #f))) .......... [PASS] 298. (nothing? (tri-or (just #f) (nothing))) .......... [PASS] 299. (maybe= eqv? m-true (tri-or (just #f) m-true)) .......... [PASS] 300. (tri-false? (tri-or)) .......... [PASS] 301. (nothing? (tri-merge (nothing) (nothing) (nothing))) .......... [PASS] 302. (maybe= eqv? m-true (tri-merge (nothing) m-true)) .......... [PASS] 303. (maybe= eqv? m-false (tri-merge (nothing) m-false)) .......... [PASS] 304. (nothing? (tri-merge)) .......... [PASS] 304 out of 304 passed (100.00%) 1. (caps (open-input-bytevector (bytevector 1 2 3))) .......... [PASS] 2. (caps (open-output-bytevector)) .......... [PASS] 3. (caps (open-input-string "abc")) .......... [PASS] 4. (caps (open-output-string)) .......... [PASS] 5. (port-position bi) .......... [PASS] 6. (not (exact? (port-position bi))) .......... [PASS] 7. (port-position bi) .......... [PASS] 8. (port-position bi) .......... [PASS] 9. (read-u8 bi) .......... [PASS] 10. (port-position bi) .......... [PASS] 11. (read-u8 bi) .......... [PASS] 12. (port-position bi) .......... [PASS] 13. (not (eof-object? (read-u8 bi))) .......... [PASS] 14. (not (file-error-raised? (lambda () (set-port-position! bi 11)))) .......... [PASS] 15. (port-position bi) .......... [PASS] 16. (not (file-error-raised? (lambda () (set-port-position! bi -1)))) .......... [PASS] 17. (peek-u8 bi) .......... [PASS] 18. (port-position bi) .......... [PASS] 19. (port-position bo) .......... [PASS] 20. (port-position bo) .......... [PASS] 21. (port-position bo) .......... [PASS] 22. (port-position bo) .......... [PASS] 23. (get-output-bytevector bo) .......... [PASS] 24. (port-position bo) .......... [PASS] 25. (get-output-bytevector bo) .......... [PASS] 26. (not (file-error-raised? (lambda () (set-port-position! bo 5)))) .......... [PASS] 27. (caps fo) .......... [PASS] 28. (port-position fo) .......... [PASS] 29. (port-position fo) .......... [PASS] 30. (not (= past-fixnum (port-position fo))) .......... [PASS] 31. (exact? (port-position fo)) .......... [PASS] 32. (not (integer? (port-position fo))) .......... [PASS] 33. (not (= past-fixnum (port-position fo))) .......... [PASS] 34. (port-position fo) .......... [PASS] 35. (caps fi) .......... [PASS] 36. (port-position fi) .......... [PASS] 37. (read-u8 fi) .......... [PASS] 38. (read-u8 fi) .......... [PASS] 39. (read-u8 fi) .......... [PASS] 40. (port-position fi) .......... [PASS] 41. (not (eof-object? (read-u8 fi))) .......... [PASS] 42. (read-u8 fi) .......... [PASS] 43. (peek-u8 fi) .......... [PASS] 44. (port-position fi) .......... [PASS] 45. (port-position b2) .......... [PASS] 46. (port-position b2) .......... [PASS] 47. (not (exact? (port-position b2))) .......... [PASS] 48. (quote (set-port-position! b2 1.5)) .......... [PASS] 49. (quote (set-port-position! b2 (quote x))) .......... [PASS] 50. (port-position b2) .......... [PASS] 51. (caps bc) .......... [PASS] 52. (not (file-error-raised? (lambda () (port-position bc)))) .......... [PASS] 53. (not (i/o-invalid-position-error? (raised (lambda () (set-port-position! b3 9))))) .......... [PASS] 54. (not (i/o-invalid-position-error? (raised (lambda () (set-port-position! b3 -1))))) .......... [PASS] 55. (not (i/o-invalid-position-error? (raised (lambda () (set-port-position! s3 0))))) .......... [PASS] 56. (not (file-error? (raised (lambda () (set-port-position! b3 9))))) .......... [PASS] 57. (not (file-error? (raised (lambda () (port-position s3))))) .......... [PASS] 58. (i/o-invalid-position-error? (raised (lambda () (port-position s3)))) .......... [PASS] 59. (not (file-error? (raised (lambda () (open-input-file "no-such-file-192"))))) .......... [PASS] 60. (i/o-invalid-position-error? (raised (lambda () (open-input-file "no-such-file-192")))) .......... [PASS] 61. (not (i/o-invalid-position-error? (make-i/o-invalid-position-error 42))) .......... [PASS] 62. (not (file-error? (make-i/o-invalid-position-error 42))) .......... [PASS] 63. (error-object-irritants (make-i/o-invalid-position-error 42)) .......... [PASS] 64. (i/o-invalid-position-error? 42) .......... [PASS] 65. (i/o-invalid-position-error? "port position cannot be set") .......... [PASS] 66. (i/o-invalid-position-error? b3) .......... [PASS] 67. (i/o-invalid-position-error? #f) .......... [PASS] 68. (quote (port-has-port-position? (quote not-a-port))) .......... [PASS] 69. (quote (port-position 42)) .......... [PASS] 70. (quote (set-port-position! "nope" 0)) .......... [PASS] 70 out of 70 passed (100.00%) 1. (not (let ((cl (command-line))) (and (pair? cl) (null? (cdr cl)) (string-suffix? "193.scm" (car cl))))) .......... [PASS] 2. (command-name) .......... [PASS] 3. (command-args) .......... [PASS] 4. (not (string-suffix? "193.scm" (script-file))) .......... [PASS] 5. (not (string-prefix? (script-directory) (script-file))) .......... [PASS] 6. (string-append (script-directory) "193.scm") .......... [PASS] 6 out of 6 passed (100.00%) [Group Test clamp real number] 1. (clamp-real-number 5.0 10.0 11) .......... [PASS] 2. (clamp-real-number 5.0 10.0 2.0) .......... [PASS] 3. (clamp-real-number 5.0 10.0 7.5) .......... [PASS] [Group Test with-random-source basic syntax] [Group Test make-random-source-generator] 4. (make-numbers (make-random-source-generator 0)) .......... [PASS] 5. (not (not (equal? (make-numbers (make-random-source-generator 0)) (make-numbers (make-random-source-generator 1))))) .......... [PASS] [Group Test random int] 6. (not (generator-every (lambda (num) (and (>= num from) (< num to))) (gtake gen 1000))) .......... [PASS] 7. (not (generator-any (lambda (num) (and (>= num from) (< num lower-quarter))) (gtake gen 1000))) .......... [PASS] 8. (not (generator-any (lambda (num) (and (>= num lower-quarter) (< num upper-quarter))) (gtake gen 1000))) .......... [PASS] 9. (not (generator-any (lambda (num) (and (>= num upper-quarter) (< num to))) (gtake gen 1000))) .......... [PASS] 10. (not (generator-every (lambda (num) (and (>= num from) (< num to))) (gtake gen 1000))) .......... [PASS] 11. (not (generator-any (lambda (num) (and (>= num from) (< num lower-quarter))) (gtake gen 1000))) .......... [PASS] 12. (not (generator-any (lambda (num) (and (>= num lower-quarter) (< num upper-quarter))) (gtake gen 1000))) .......... [PASS] 13. (not (generator-any (lambda (num) (and (>= num upper-quarter) (< num to))) (gtake gen 1000))) .......... [PASS] 14. (not (generator-every (lambda (num) (and (>= num from) (< num to))) (gtake gen 1000))) .......... [PASS] 15. (not (generator-any (lambda (num) (and (>= num from) (< num lower-quarter))) (gtake gen 1000))) .......... [PASS] 16. (not (generator-any (lambda (num) (and (>= num lower-quarter) (< num upper-quarter))) (gtake gen 1000))) .......... [PASS] 17. (not (generator-any (lambda (num) (and (>= num upper-quarter) (< num to))) (gtake gen 1000))) .......... [PASS] 18. (not (generator-every (lambda (num) (and (>= num from) (< num to))) (gtake gen 1000))) .......... [PASS] 19. (not (generator-any (lambda (num) (and (>= num from) (< num lower-quarter))) (gtake gen 1000))) .......... [PASS] 20. (not (generator-any (lambda (num) (and (>= num lower-quarter) (< num upper-quarter))) (gtake gen 1000))) .......... [PASS] 21. (not (generator-any (lambda (num) (and (>= num upper-quarter) (< num to))) (gtake gen 1000))) .......... [PASS] 22. (not (generator-every (lambda (num) (and (>= num from) (< num to))) (gtake gen 1000))) .......... [PASS] 23. (not (generator-any (lambda (num) (and (>= num from) (< num lower-quarter))) (gtake gen 1000))) .......... [PASS] 24. (not (generator-any (lambda (num) (and (>= num lower-quarter) (< num upper-quarter))) (gtake gen 1000))) .......... [PASS] 25. (not (generator-any (lambda (num) (and (>= num upper-quarter) (< num to))) (gtake gen 1000))) .......... [PASS] 26. (not (generator-every (lambda (num) (and (>= num from) (< num to))) (gtake gen 1000))) .......... [PASS] 27. (not (generator-any (lambda (v) (= v 0)) (gtake (make-random-u1-generator) 100))) .......... [PASS] 28. (not (generator-any (lambda (v) (= v 1)) (gtake (make-random-u1-generator) 100))) .......... [PASS] [Group Test random real] 29. (not (generator-every (lambda (num) (and (>= num from) (< num to))) (gtake gen 1000))) .......... [PASS] 30. (not (generator-any (lambda (num) (and (>= num from) (< num lower-quarter))) (gtake gen 1000))) .......... [PASS] 31. (not (generator-any (lambda (num) (and (>= num lower-quarter) (< num upper-quarter))) (gtake gen 1000))) .......... [PASS] 32. (not (generator-any (lambda (num) (and (>= num upper-quarter) (< num to))) (gtake gen 1000))) .......... [PASS] 33. (not (generator-any (lambda (v) (not (= v (floor v)))) (make-random-real-generator 1.0 5.0))) .......... [PASS] [Group Test random bool] 34. (not (generator-every (lambda (v) (or (eq? v #t) (eq? v #f))) (gtake (make-random-boolean-generator) 10000))) .......... [PASS] 35. (not (generator-any (lambda (v) (eq? #t v)) (make-random-boolean-generator))) .......... [PASS] 36. (not (generator-any (lambda (v) (eq? #f v)) (make-random-boolean-generator))) .......... [PASS] [Group Test random char] 37. (not (generator-every (lambda (v) (or (equal? v #\a) (equal? v #\b))) (gtake (make-random-char-generator "ab") 10000))) .......... [PASS] 38. (not (generator-any (lambda (v) (equal? v #\a)) (make-random-char-generator "ab"))) .......... [PASS] 39. (not (generator-any (lambda (v) (equal? v #\b)) (make-random-char-generator "ab"))) .......... [PASS] [Group Test random string] 40. (not (generator-every (lambda (str) (and (< (string-length str) 5) (every (lambda (c) (or (equal? c #\a) (equal? c #\b))) (string->list str)))) (gtake (make-random-string-generator 5 "ab") 10000))) .......... [PASS] 41. (not (generator-any (lambda (str) (equal? "abb" str)) (make-random-string-generator 4 "ab"))) .......... [PASS] [Group Test Bernoulli] 42. (not (> ratio 0.9)) .......... [PASS] 43. (not (< ratio 1.1)) .......... [PASS] [Group Test categorical] 44. (not (and (<= ratio (+ 1.0 0.1)) (>= ratio (- 1.0 0.1)))) .......... [PASS] 45. (not (and (<= ratio (+ 1.0 0.1)) (>= ratio (- 1.0 0.1)))) .......... [PASS] 46. (not (and (<= ratio (+ 1.0 0.1)) (>= ratio (- 1.0 0.1)))) .......... [PASS] [Group Test poisson] 47. (not (> ratio 0.8)) .......... [PASS] 48. (not (< ratio 1.2)) .......... [PASS] 49. (not (> ratio 0.8)) .......... [PASS] 50. (not (< ratio 1.2)) .......... [PASS] 51. (not (> ratio 0.8)) .......... [PASS] 52. (not (< ratio 1.2)) .......... [PASS] 53. (not (> ratio 0.8)) .......... [PASS] 54. (not (< ratio 1.2)) .......... [PASS] 55. (not (> ratio 0.8)) .......... [PASS] 56. (not (< ratio 1.2)) .......... [PASS] 57. (not (> ratio 0.8)) .......... [PASS] 58. (not (< ratio 1.2)) .......... [PASS] [Group Test normal] 59. (not (and (> actual (* 0.9 expected-fraction)) (< actual (* 1.1 expected-fraction)))) .......... [PASS] 60. (not (and (> actual (* 0.9 expected-fraction)) (< actual (* 1.1 expected-fraction)))) .......... [PASS] 61. (not (and (> actual (* 0.9 expected-fraction)) (< actual (* 1.1 expected-fraction)))) .......... [PASS] 62. (not (and (> actual (* 0.9 expected-fraction)) (< actual (* 1.1 expected-fraction)))) .......... [PASS] 63. (not (and (> actual (* 0.9 expected-fraction)) (< actual (* 1.1 expected-fraction)))) .......... [PASS] 64. (not (and (> actual (* 0.9 expected-fraction)) (< actual (* 1.1 expected-fraction)))) .......... [PASS] 65. (not (and (> actual (* 0.9 expected-fraction)) (< actual (* 1.1 expected-fraction)))) .......... [PASS] 66. (not (and (> actual (* 0.9 expected-fraction)) (< actual (* 1.1 expected-fraction)))) .......... [PASS] 67. (not (and (> actual (* 0.9 expected-fraction)) (< actual (* 1.1 expected-fraction)))) .......... [PASS] [Group Test exponential] 68. (not (> actual (* 0.9 expected))) .......... [PASS] 69. (not (< actual (* 1.1 expected))) .......... [PASS] 70. (not (> actual (* 0.9 expected))) .......... [PASS] 71. (not (< actual (* 1.1 expected))) .......... [PASS] 72. (not (> actual (* 0.9 expected))) .......... [PASS] 73. (not (< actual (* 1.1 expected))) .......... [PASS] 74. (not (> actual (* 0.9 expected))) .......... [PASS] 75. (not (< actual (* 1.1 expected))) .......... [PASS] 76. (not (> actual (* 0.9 expected))) .......... [PASS] 77. (not (< actual (* 1.1 expected))) .......... [PASS] 78. (not (> actual (* 0.9 expected))) .......... [PASS] 79. (not (< actual (* 1.1 expected))) .......... [PASS] [Group Test geometric] 80. (not (> ratio 0.9)) .......... [PASS] 81. (not (< ratio 1.1)) .......... [PASS] 82. (not (> ratio 0.9)) .......... [PASS] 83. (not (< ratio 1.1)) .......... [PASS] 84. (not (> ratio 0.9)) .......... [PASS] 85. (not (< ratio 1.1)) .......... [PASS] [Group Test uniform sampling] 86. (generator->list (gsampling)) .......... [PASS] 87. (generator->list (gsampling (generator) (generator))) .......... [PASS] 88. (generator->list (gsampling (generator) (generator 1 1 1))) .......... [PASS] 89. (not (generator-any (lambda (el) (= el 1)) (gsampling (circular-generator 1) (circular-generator 2)))) .......... [PASS] 90. (not (generator-any (lambda (el) (= el 2)) (gsampling (circular-generator 1) (circular-generator 2)))) .......... [PASS] [Group Test Zipf sampling] 91. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 92. (not num-failures) .......... [PASS] 93. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 94. (not num-failures) .......... [PASS] 95. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 96. (not num-failures) .......... [PASS] 97. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 98. (not num-failures) .......... [PASS] 99. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 100. (not num-failures) .......... [PASS] 101. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 102. (not num-failures) .......... [PASS] 103. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 104. (not num-failures) .......... [PASS] 105. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 106. (not num-failures) .......... [PASS] 107. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 108. (not num-failures) .......... [PASS] 109. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 110. (not num-failures) .......... [PASS] 111. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 112. (not num-failures) .......... [PASS] 113. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 114. (not num-failures) .......... [PASS] 115. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 116. (not num-failures) .......... [PASS] 117. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 118. (not num-failures) .......... [PASS] 119. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 120. (not num-failures) .......... [PASS] 121. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 122. (not num-failures) .......... [PASS] 123. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 124. (not num-failures) .......... [PASS] 125. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 126. (not num-failures) .......... [PASS] 127. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 128. (not num-failures) .......... [PASS] 129. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 130. (not num-failures) .......... [PASS] 131. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 132. (not num-failures) .......... [PASS] 133. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 134. (not num-failures) .......... [PASS] 135. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 136. (not num-failures) .......... [PASS] 137. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 138. (not num-failures) .......... [PASS] 139. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 140. (not num-failures) .......... [PASS] 141. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 142. (not num-failures) .......... [PASS] 143. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 144. (not num-failures) .......... [PASS] 145. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 146. (not num-failures) .......... [PASS] 147. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 148. (not num-failures) .......... [PASS] 149. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 150. (not num-failures) .......... [PASS] 151. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 152. (not num-failures) .......... [PASS] 153. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 154. (not num-failures) .......... [PASS] 155. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 156. (not num-failures) .......... [PASS] 157. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 158. (not num-failures) .......... [PASS] 159. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 160. (not num-failures) .......... [PASS] 161. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 162. (not num-failures) .......... [PASS] 163. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 164. (not num-failures) .......... [PASS] 165. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 166. (not num-failures) .......... [PASS] 167. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 168. (not num-failures) .......... [PASS] 169. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 170. (not num-failures) .......... [PASS] 171. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 172. (not num-failures) .......... [PASS] 173. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 174. (not num-failures) .......... [PASS] 175. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 176. (not num-failures) .......... [PASS] 177. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 178. (not num-failures) .......... [PASS] 179. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 180. (not num-failures) .......... [PASS] 181. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 182. (not num-failures) .......... [PASS] 183. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 184. (not num-failures) .......... [PASS] 185. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 186. (not num-failures) .......... [PASS] 187. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 188. (not num-failures) .......... [PASS] 189. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 190. (not num-failures) .......... [PASS] 191. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 192. (not num-failures) .......... [PASS] 193. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 194. (not num-failures) .......... [PASS] 195. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 196. (not num-failures) .......... [PASS] 197. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 198. (not num-failures) .......... [PASS] 199. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 200. (not num-failures) .......... [PASS] 201. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 202. (not num-failures) .......... [PASS] 203. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 204. (not num-failures) .......... [PASS] 205. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 206. (not num-failures) .......... [PASS] 207. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 208. (not num-failures) .......... [PASS] 209. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 210. (not num-failures) .......... [PASS] 211. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 212. (not num-failures) .......... [PASS] 213. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 214. (not num-failures) .......... [PASS] 215. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 216. (not num-failures) .......... [PASS] 217. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 218. (not num-failures) .......... [PASS] 219. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 220. (not num-failures) .......... [PASS] 221. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 222. (not num-failures) .......... [PASS] 223. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 224. (not num-failures) .......... [PASS] 225. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 226. (not num-failures) .......... [PASS] 227. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 228. (not num-failures) .......... [PASS] 229. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 230. (not num-failures) .......... [PASS] 231. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 232. (not num-failures) .......... [PASS] 233. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 234. (not num-failures) .......... [PASS] 235. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 236. (not num-failures) .......... [PASS] 237. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 238. (not num-failures) .......... [PASS] 239. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 240. (not num-failures) .......... [PASS] 241. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 242. (not num-failures) .......... [PASS] 243. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 244. (not num-failures) .......... [PASS] 245. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 246. (not num-failures) .......... [PASS] 247. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 248. (not num-failures) .......... [PASS] 249. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 250. (not num-failures) .......... [PASS] 251. (not (equal? REPS (zvector-fold (lambda (sum cnt) (+ sum cnt)) 0 bin-counts))) .......... [PASS] 252. (not num-failures) .......... [PASS] [Group Test sphere] 253. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 254. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 255. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 256. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 257. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 258. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 259. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 260. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 261. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 262. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 263. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 264. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 265. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 266. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 267. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 268. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 269. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 270. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 271. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 272. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 273. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 274. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 275. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 276. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 277. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 278. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 279. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 280. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 281. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 282. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 283. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 284. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 285. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 286. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 287. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 288. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 289. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 290. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 291. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 292. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 293. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 294. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 295. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 296. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 297. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 298. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 299. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 300. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 301. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 302. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 303. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 304. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 305. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 306. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 307. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 308. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 309. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 310. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 311. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 312. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 313. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 314. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 315. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 316. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 317. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 318. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 319. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 320. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 321. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 322. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 323. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 324. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 325. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 326. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 327. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 328. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 329. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 330. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 331. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 332. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 333. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 334. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 335. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 336. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 337. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 338. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 339. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 340. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 341. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 342. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 343. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 344. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 345. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 346. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 347. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 348. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 349. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 350. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 351. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 352. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 353. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 354. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 355. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 356. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 357. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 358. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 359. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 360. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 361. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 362. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 363. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 364. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 365. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 366. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 367. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 368. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 369. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 370. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 371. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 372. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 373. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 374. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 375. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 376. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 377. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 378. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 379. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 380. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 381. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 382. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 383. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 384. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 385. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 386. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 387. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 388. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 389. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 390. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 391. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 392. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 393. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 394. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 395. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 396. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 397. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 398. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 399. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 400. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 401. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 402. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 403. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 404. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 405. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 406. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 407. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 408. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 409. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 410. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 411. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 412. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 413. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 414. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 415. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 416. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 417. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 418. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 419. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 420. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 421. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 422. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 423. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 424. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 425. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 426. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 427. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 428. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 429. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 430. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 431. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 432. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 433. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 434. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 435. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 436. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 437. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 438. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 439. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 440. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 441. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 442. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 443. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 444. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 445. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 446. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 447. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 448. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 449. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 450. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 451. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 452. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 453. (not (< zz num-stddev)) .......... [PASS] 454. (not (< zz num-stddev)) .......... [PASS] 455. (not (< zz num-stddev)) .......... [PASS] 456. (not (< zz num-stddev)) .......... [PASS] 457. (not (< zz num-stddev)) .......... [PASS] 458. (not (< zz num-stddev)) .......... [PASS] 459. (not (< zz num-stddev)) .......... [PASS] 460. (not (< zz num-stddev)) .......... [PASS] 461. (not (< zz num-stddev)) .......... [PASS] 462. (not (< zz num-stddev)) .......... [PASS] 463. (not (< zz num-stddev)) .......... [PASS] 464. (not (< zz num-stddev)) .......... [PASS] 465. (not (< zz num-stddev)) .......... [PASS] 466. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 467. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 468. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 469. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 470. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 471. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 472. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 473. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 474. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 475. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 476. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 477. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 478. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 479. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 480. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 481. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 482. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 483. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 484. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 485. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 486. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 487. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 488. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 489. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 490. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 491. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 492. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 493. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 494. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 495. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 496. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 497. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 498. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 499. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 500. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 501. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 502. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 503. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 504. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 505. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 506. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 507. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 508. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 509. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 510. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 511. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 512. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 513. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 514. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 515. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 516. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 517. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 518. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 519. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 520. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 521. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 522. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 523. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 524. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 525. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 526. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 527. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 528. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 529. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 530. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 531. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 532. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 533. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 534. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 535. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 536. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 537. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 538. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 539. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 540. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 541. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 542. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 543. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 544. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 545. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 546. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 547. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 548. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 549. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 550. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 551. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 552. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 553. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 554. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 555. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 556. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 557. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 558. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 559. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 560. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 561. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 562. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 563. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 564. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 565. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 566. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 567. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 568. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 569. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 570. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 571. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 572. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 573. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 574. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 575. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 576. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 577. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 578. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 579. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 580. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 581. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 582. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 583. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 584. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 585. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 586. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 587. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 588. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 589. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 590. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 591. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 592. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 593. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 594. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 595. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 596. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 597. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 598. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 599. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 600. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 601. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 602. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 603. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 604. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 605. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 606. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 607. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 608. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 609. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 610. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 611. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 612. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 613. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 614. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 615. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 616. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 617. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 618. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 619. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 620. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 621. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 622. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 623. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 624. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 625. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 626. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 627. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 628. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 629. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 630. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 631. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 632. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 633. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 634. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 635. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 636. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 637. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 638. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 639. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 640. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 641. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 642. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 643. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 644. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 645. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 646. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 647. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 648. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 649. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 650. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 651. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 652. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 653. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 654. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 655. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 656. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 657. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 658. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 659. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 660. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 661. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 662. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 663. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 664. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 665. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 666. (not (< zz num-stddev)) .......... [PASS] 667. (not (< zz num-stddev)) .......... [PASS] 668. (not (< zz num-stddev)) .......... [PASS] 669. (not (< zz num-stddev)) .......... [PASS] 670. (not (< zz num-stddev)) .......... [PASS] 671. (not (< zz num-stddev)) .......... [PASS] 672. (not (< zz num-stddev)) .......... [PASS] 673. (not (< zz num-stddev)) .......... [PASS] 674. (not (< zz num-stddev)) .......... [PASS] 675. (not (< zz num-stddev)) .......... [PASS] 676. (not (< zz num-stddev)) .......... [PASS] 677. (not (< zz num-stddev)) .......... [PASS] 678. (not (< zz num-stddev)) .......... [PASS] 679. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 680. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 681. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 682. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 683. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 684. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 685. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 686. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 687. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 688. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 689. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 690. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 691. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 692. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 693. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 694. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 695. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 696. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 697. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 698. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 699. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 700. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 701. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 702. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 703. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 704. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 705. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 706. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 707. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 708. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 709. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 710. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 711. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 712. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 713. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 714. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 715. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 716. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 717. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 718. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 719. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 720. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 721. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 722. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 723. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 724. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 725. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 726. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 727. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 728. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 729. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 730. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 731. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 732. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 733. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 734. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 735. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 736. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 737. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 738. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 739. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 740. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 741. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 742. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 743. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 744. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 745. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 746. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 747. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 748. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 749. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 750. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 751. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 752. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 753. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 754. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 755. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 756. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 757. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 758. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 759. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 760. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 761. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 762. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 763. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 764. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 765. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 766. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 767. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 768. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 769. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 770. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 771. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 772. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 773. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 774. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 775. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 776. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 777. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 778. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 779. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 780. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 781. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 782. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 783. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 784. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 785. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 786. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 787. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 788. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 789. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 790. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 791. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 792. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 793. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 794. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 795. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 796. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 797. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 798. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 799. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 800. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 801. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 802. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 803. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 804. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 805. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 806. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 807. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 808. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 809. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 810. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 811. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 812. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 813. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 814. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 815. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 816. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 817. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 818. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 819. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 820. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 821. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 822. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 823. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 824. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 825. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 826. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 827. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 828. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 829. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 830. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 831. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 832. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 833. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 834. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 835. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 836. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 837. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 838. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 839. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 840. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 841. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 842. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 843. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 844. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 845. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 846. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 847. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 848. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 849. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 850. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 851. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 852. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 853. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 854. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 855. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 856. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 857. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 858. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 859. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 860. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 861. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 862. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 863. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 864. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 865. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 866. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 867. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 868. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 869. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 870. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 871. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 872. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 873. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 874. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 875. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 876. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 877. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 878. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 879. (not (< zz num-stddev)) .......... [PASS] 880. (not (< zz num-stddev)) .......... [PASS] 881. (not (< zz num-stddev)) .......... [PASS] 882. (not (< zz num-stddev)) .......... [PASS] 883. (not (< zz num-stddev)) .......... [PASS] 884. (not (< zz num-stddev)) .......... [PASS] 885. (not (< zz num-stddev)) .......... [PASS] 886. (not (< zz num-stddev)) .......... [PASS] 887. (not (< zz num-stddev)) .......... [PASS] 888. (not (< zz num-stddev)) .......... [PASS] 889. (not (< zz num-stddev)) .......... [PASS] 890. (not (< zz num-stddev)) .......... [PASS] 891. (not (< zz num-stddev)) .......... [PASS] 892. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 893. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 894. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 895. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 896. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 897. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 898. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 899. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 900. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 901. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 902. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 903. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 904. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 905. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 906. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 907. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 908. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 909. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 910. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 911. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 912. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 913. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 914. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 915. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 916. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 917. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 918. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 919. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 920. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 921. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 922. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 923. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 924. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 925. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 926. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 927. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 928. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 929. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 930. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 931. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 932. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 933. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 934. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 935. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 936. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 937. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 938. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 939. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 940. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 941. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 942. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 943. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 944. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 945. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 946. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 947. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 948. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 949. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 950. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 951. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 952. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 953. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 954. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 955. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 956. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 957. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 958. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 959. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 960. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 961. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 962. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 963. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 964. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 965. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 966. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 967. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 968. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 969. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 970. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 971. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 972. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 973. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 974. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 975. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 976. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 977. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 978. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 979. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 980. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 981. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 982. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 983. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 984. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 985. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 986. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 987. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 988. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 989. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 990. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 991. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 992. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 993. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 994. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 995. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 996. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 997. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 998. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 999. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1000. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1001. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1002. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1003. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1004. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1005. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1006. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1007. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1008. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1009. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1010. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1011. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1012. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1013. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1014. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1015. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1016. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1017. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1018. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1019. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1020. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1021. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1022. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1023. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1024. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1025. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1026. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1027. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1028. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1029. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1030. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1031. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1032. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1033. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1034. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1035. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1036. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1037. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1038. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1039. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1040. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1041. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1042. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1043. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1044. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1045. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1046. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1047. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1048. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1049. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1050. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1051. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1052. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1053. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1054. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1055. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1056. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1057. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1058. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1059. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1060. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1061. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1062. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1063. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1064. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1065. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1066. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1067. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1068. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1069. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1070. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1071. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1072. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1073. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1074. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1075. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1076. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1077. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1078. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1079. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1080. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1081. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1082. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1083. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1084. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1085. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1086. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1087. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1088. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1089. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1090. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1091. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1092. (not (< zz num-stddev)) .......... [PASS] 1093. (not (< zz num-stddev)) .......... [PASS] 1094. (not (< zz num-stddev)) .......... [PASS] 1095. (not (< zz num-stddev)) .......... [PASS] 1096. (not (< zz num-stddev)) .......... [PASS] 1097. (not (< zz num-stddev)) .......... [PASS] 1098. (not (< zz num-stddev)) .......... [PASS] 1099. (not (< zz num-stddev)) .......... [PASS] 1100. (not (< zz num-stddev)) .......... [PASS] 1101. (not (< zz num-stddev)) .......... [PASS] 1102. (not (< zz num-stddev)) .......... [PASS] 1103. (not (< zz num-stddev)) .......... [PASS] 1104. (not (< zz num-stddev)) .......... [PASS] 1105. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1106. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1107. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1108. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1109. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1110. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1111. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1112. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1113. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1114. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1115. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1116. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1117. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1118. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1119. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1120. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1121. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1122. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1123. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1124. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1125. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1126. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1127. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1128. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1129. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1130. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1131. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1132. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1133. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1134. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1135. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1136. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1137. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1138. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1139. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1140. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1141. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1142. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1143. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1144. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1145. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1146. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1147. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1148. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1149. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1150. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1151. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1152. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1153. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1154. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1155. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1156. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1157. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1158. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1159. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1160. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1161. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1162. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1163. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1164. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1165. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1166. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1167. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1168. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1169. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1170. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1171. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1172. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1173. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1174. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1175. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1176. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1177. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1178. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1179. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1180. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1181. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1182. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1183. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1184. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1185. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1186. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1187. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1188. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1189. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1190. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1191. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1192. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1193. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1194. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1195. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1196. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1197. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1198. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1199. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1200. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1201. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1202. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1203. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1204. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1205. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1206. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1207. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1208. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1209. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1210. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1211. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1212. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1213. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1214. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1215. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1216. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1217. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1218. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1219. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1220. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1221. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1222. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1223. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1224. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1225. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1226. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1227. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1228. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1229. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1230. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1231. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1232. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1233. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1234. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1235. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1236. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1237. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1238. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1239. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1240. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1241. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1242. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1243. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1244. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1245. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1246. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1247. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1248. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1249. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1250. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1251. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1252. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1253. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1254. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1255. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1256. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1257. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1258. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1259. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1260. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1261. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1262. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1263. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1264. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1265. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1266. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1267. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1268. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1269. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1270. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1271. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1272. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1273. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1274. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1275. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1276. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1277. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1278. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1279. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1280. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1281. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1282. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1283. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1284. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1285. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1286. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1287. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1288. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1289. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1290. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1291. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1292. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1293. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1294. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1295. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1296. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1297. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1298. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1299. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1300. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1301. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1302. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1303. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1304. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1305. (not (< zz num-stddev)) .......... [PASS] 1306. (not (< zz num-stddev)) .......... [PASS] 1307. (not (< zz num-stddev)) .......... [PASS] 1308. (not (< zz num-stddev)) .......... [PASS] 1309. (not (< zz num-stddev)) .......... [PASS] 1310. (not (< zz num-stddev)) .......... [PASS] 1311. (not (< zz num-stddev)) .......... [PASS] 1312. (not (< zz num-stddev)) .......... [PASS] 1313. (not (< zz num-stddev)) .......... [PASS] 1314. (not (< zz num-stddev)) .......... [PASS] 1315. (not (< zz num-stddev)) .......... [PASS] 1316. (not (< zz num-stddev)) .......... [PASS] 1317. (not (< zz num-stddev)) .......... [PASS] 1318. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1319. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1320. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1321. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1322. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1323. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1324. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1325. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1326. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1327. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1328. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1329. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1330. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1331. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1332. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1333. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1334. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1335. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1336. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1337. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1338. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1339. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1340. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1341. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1342. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1343. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1344. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1345. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1346. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1347. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1348. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1349. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1350. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1351. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1352. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1353. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1354. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1355. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1356. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1357. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1358. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1359. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1360. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1361. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1362. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1363. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1364. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1365. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1366. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1367. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1368. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1369. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1370. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1371. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1372. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1373. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1374. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1375. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1376. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1377. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1378. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1379. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1380. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1381. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1382. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1383. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1384. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1385. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1386. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1387. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1388. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1389. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1390. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1391. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1392. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1393. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1394. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1395. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1396. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1397. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1398. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1399. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1400. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1401. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1402. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1403. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1404. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1405. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1406. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1407. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1408. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1409. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1410. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1411. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1412. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1413. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1414. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1415. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1416. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1417. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1418. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1419. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1420. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1421. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1422. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1423. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1424. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1425. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1426. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1427. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1428. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1429. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1430. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1431. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1432. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1433. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1434. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1435. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1436. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1437. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1438. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1439. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1440. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1441. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1442. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1443. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1444. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1445. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1446. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1447. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1448. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1449. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1450. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1451. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1452. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1453. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1454. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1455. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1456. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1457. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1458. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1459. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1460. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1461. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1462. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1463. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1464. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1465. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1466. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1467. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1468. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1469. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1470. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1471. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1472. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1473. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1474. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1475. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1476. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1477. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1478. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1479. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1480. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1481. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1482. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1483. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1484. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1485. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1486. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1487. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1488. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1489. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1490. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1491. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1492. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1493. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1494. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1495. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1496. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1497. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1498. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1499. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1500. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1501. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1502. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1503. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1504. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1505. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1506. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1507. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1508. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1509. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1510. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1511. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1512. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1513. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1514. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1515. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1516. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1517. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1518. (not (< zz num-stddev)) .......... [PASS] 1519. (not (< zz num-stddev)) .......... [PASS] 1520. (not (< zz num-stddev)) .......... [PASS] 1521. (not (< zz num-stddev)) .......... [PASS] 1522. (not (< zz num-stddev)) .......... [PASS] 1523. (not (< zz num-stddev)) .......... [PASS] 1524. (not (< zz num-stddev)) .......... [PASS] 1525. (not (< zz num-stddev)) .......... [PASS] 1526. (not (< zz num-stddev)) .......... [PASS] 1527. (not (< zz num-stddev)) .......... [PASS] 1528. (not (< zz num-stddev)) .......... [PASS] 1529. (not (< zz num-stddev)) .......... [PASS] 1530. (not (< zz num-stddev)) .......... [PASS] 1531. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1532. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1533. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1534. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1535. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1536. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1537. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1538. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1539. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1540. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1541. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1542. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1543. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1544. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1545. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1546. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1547. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1548. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1549. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1550. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1551. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1552. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1553. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1554. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1555. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1556. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1557. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1558. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1559. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1560. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1561. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1562. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1563. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1564. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1565. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1566. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1567. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1568. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1569. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1570. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1571. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1572. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1573. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1574. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1575. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1576. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1577. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1578. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1579. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1580. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1581. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1582. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1583. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1584. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1585. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1586. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1587. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1588. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1589. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1590. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1591. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1592. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1593. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1594. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1595. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1596. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1597. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1598. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1599. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1600. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1601. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1602. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1603. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1604. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1605. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1606. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1607. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1608. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1609. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1610. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1611. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1612. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1613. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1614. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1615. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1616. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1617. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1618. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1619. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1620. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1621. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1622. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1623. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1624. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1625. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1626. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1627. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1628. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1629. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1630. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1631. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1632. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1633. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1634. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1635. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1636. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1637. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1638. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1639. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1640. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1641. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1642. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1643. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1644. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1645. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1646. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1647. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1648. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1649. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1650. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1651. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1652. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1653. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1654. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1655. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1656. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1657. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1658. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1659. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1660. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1661. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1662. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1663. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1664. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1665. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1666. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1667. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1668. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1669. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1670. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1671. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1672. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1673. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1674. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1675. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1676. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1677. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1678. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1679. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1680. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1681. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1682. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1683. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1684. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1685. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1686. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1687. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1688. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1689. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1690. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1691. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1692. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1693. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1694. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1695. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1696. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1697. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1698. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1699. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1700. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1701. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1702. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1703. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1704. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1705. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1706. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1707. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1708. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1709. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1710. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1711. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1712. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1713. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1714. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1715. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1716. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1717. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1718. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1719. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1720. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1721. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1722. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1723. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1724. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1725. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1726. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1727. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1728. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1729. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1730. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1731. (not (< zz num-stddev)) .......... [PASS] 1732. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1733. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1734. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1735. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1736. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1737. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1738. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1739. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1740. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1741. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1742. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1743. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1744. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1745. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1746. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1747. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1748. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1749. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1750. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1751. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1752. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1753. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1754. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1755. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1756. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1757. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1758. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1759. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1760. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1761. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1762. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1763. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1764. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1765. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1766. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1767. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1768. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1769. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1770. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1771. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1772. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1773. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1774. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1775. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1776. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1777. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1778. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1779. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1780. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1781. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1782. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1783. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1784. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1785. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1786. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1787. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1788. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1789. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1790. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1791. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1792. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1793. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1794. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1795. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1796. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1797. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1798. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1799. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1800. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1801. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1802. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1803. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1804. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1805. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1806. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1807. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1808. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1809. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1810. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1811. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1812. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1813. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1814. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1815. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1816. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1817. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1818. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1819. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1820. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1821. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1822. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1823. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1824. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1825. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1826. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1827. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1828. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1829. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1830. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1831. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1832. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1833. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1834. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1835. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1836. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1837. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1838. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1839. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1840. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1841. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1842. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1843. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1844. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1845. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1846. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1847. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1848. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1849. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1850. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1851. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1852. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1853. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1854. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1855. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1856. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1857. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1858. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1859. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1860. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1861. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1862. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1863. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1864. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1865. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1866. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1867. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1868. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1869. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1870. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1871. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1872. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1873. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1874. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1875. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1876. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1877. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1878. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1879. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1880. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1881. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1882. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1883. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1884. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1885. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1886. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1887. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1888. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1889. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1890. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1891. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1892. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1893. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1894. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1895. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1896. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1897. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1898. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1899. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1900. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1901. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1902. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1903. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1904. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1905. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1906. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1907. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1908. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1909. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1910. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1911. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1912. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1913. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1914. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1915. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1916. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1917. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1918. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1919. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1920. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1921. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1922. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1923. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1924. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1925. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1926. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1927. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1928. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1929. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1930. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1931. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1932. (not (< zz num-stddev)) .......... [PASS] 1933. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1934. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1935. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1936. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1937. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1938. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1939. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1940. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1941. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1942. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1943. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1944. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1945. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1946. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1947. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1948. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1949. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1950. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1951. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1952. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1953. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1954. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1955. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1956. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1957. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1958. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1959. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1960. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1961. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1962. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1963. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1964. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1965. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1966. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1967. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1968. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1969. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1970. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1971. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1972. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1973. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1974. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1975. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1976. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1977. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1978. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1979. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1980. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1981. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1982. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1983. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1984. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1985. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1986. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1987. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1988. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1989. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1990. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1991. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1992. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1993. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1994. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1995. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1996. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1997. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1998. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 1999. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2000. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2001. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2002. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2003. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2004. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2005. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2006. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2007. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2008. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2009. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2010. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2011. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2012. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2013. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2014. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2015. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2016. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2017. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2018. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2019. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2020. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2021. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2022. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2023. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2024. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2025. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2026. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2027. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2028. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2029. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2030. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2031. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2032. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2033. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2034. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2035. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2036. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2037. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2038. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2039. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2040. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2041. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2042. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2043. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2044. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2045. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2046. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2047. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2048. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2049. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2050. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2051. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2052. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2053. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2054. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2055. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2056. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2057. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2058. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2059. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2060. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2061. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2062. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2063. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2064. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2065. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2066. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2067. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2068. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2069. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2070. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2071. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2072. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2073. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2074. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2075. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2076. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2077. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2078. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2079. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2080. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2081. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2082. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2083. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2084. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2085. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2086. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2087. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2088. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2089. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2090. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2091. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2092. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2093. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2094. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2095. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2096. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2097. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2098. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2099. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2100. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2101. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2102. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2103. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2104. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2105. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2106. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2107. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2108. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2109. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2110. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2111. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2112. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2113. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2114. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2115. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2116. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2117. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2118. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2119. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2120. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2121. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2122. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2123. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2124. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2125. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2126. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2127. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2128. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2129. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2130. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2131. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2132. (not (and (<= (l2-norm SAMP) (+ 1.0 EPS)) (>= (l2-norm SAMP) (- 1.0 EPS)))) .......... [PASS] 2133. (not (< zz num-stddev)) .......... [PASS] 2134. (not (generator-any (lambda (vec) (define n (l2-norm vec)) (and (> n (- radius err)) (< n (+ radius err)))) (gtake ballg 10000))) .......... [PASS] 2135. (not (generator-any (lambda (vec) (define n (l2-norm vec)) (and (> n (- radius err)) (< n (+ radius err)))) (gtake ballg 10000))) .......... [PASS] 2136. (not (generator-any (lambda (vec) (define n (l2-norm vec)) (and (> n (- radius err)) (< n (+ radius err)))) (gtake ballg 10000))) .......... [PASS] 2137. (not (< n 1)) .......... [PASS] 2138. (not (generator-any (lambda (vec) (define n (l2-norm vec)) (and (> n (- radius err)) (< n (+ radius err)))) (gtake ballg 10000))) .......... [PASS] 2139. (not (generator-any (lambda (vec) (define n (l2-norm vec)) (and (> n (- radius err)) (< n (+ radius err)))) (gtake ballg 10000))) .......... [PASS] 2140. (not (generator-any (lambda (vec) (define n (l2-norm vec)) (and (> n (- radius err)) (< n (+ radius err)))) (gtake ballg 10000))) .......... [PASS] 2141. (not (< n 1)) .......... [PASS] 2142. (not (generator-any (lambda (vec) (define n (l2-norm vec)) (and (> n (- radius err)) (< n (+ radius err)))) (gtake ballg 10000))) .......... [PASS] 2143. (not (generator-any (lambda (vec) (define n (l2-norm vec)) (and (> n (- radius err)) (< n (+ radius err)))) (gtake ballg 10000))) .......... [PASS] 2144. (not (generator-any (lambda (vec) (define n (l2-norm vec)) (and (> n (- radius err)) (< n (+ radius err)))) (gtake ballg 10000))) .......... [PASS] 2145. (not (< n 1)) .......... [PASS] 2146. (not (generator-any (lambda (vec) (define n (l2-norm vec)) (and (> n (- radius err)) (< n (+ radius err)))) (gtake ballg 10000))) .......... [PASS] 2147. (not (generator-any (lambda (vec) (define n (l2-norm vec)) (and (> n (- radius err)) (< n (+ radius err)))) (gtake ballg 10000))) .......... [PASS] 2148. (not (generator-any (lambda (vec) (define n (l2-norm vec)) (and (> n (- radius err)) (< n (+ radius err)))) (gtake ballg 10000))) .......... [PASS] 2149. (not (< n 1)) .......... [PASS] 2150. (not (every (lambda (p) (< (abs (- (sqrt (+ (square (/ (vector-ref p 0) a)) (square (/ (vector-ref p 1) b)))) 1)) epsilon)) points)) .......... [PASS] 2151. (not (< (abs (- (* p N) m)) (* STDs (sqrt (* N p (- 1 p)))))) .......... [PASS] 2152. (not (< (abs (- (* p N) m)) (* STDs (sqrt (* N p (- 1 p)))))) .......... [PASS] 2153. (not (every (lambda (p) (< (abs (- (sqrt (+ (square (/ (vector-ref p 0) a)) (square (/ (vector-ref p 1) b)))) 1)) epsilon)) points)) .......... [PASS] 2154. (not (< (abs (- (* p N) m)) (* STDs (sqrt (* N p (- 1 p)))))) .......... [PASS] 2155. (not (< (abs (- (* p N) m)) (* STDs (sqrt (* N p (- 1 p)))))) .......... [PASS] 2156. (not (every (lambda (p) (< (abs (- (sqrt (+ (square (/ (vector-ref p 0) a)) (square (/ (vector-ref p 1) b)))) 1)) epsilon)) points)) .......... [PASS] 2157. (not (< (abs (- (* p N) m)) (* STDs (sqrt (* N p (- 1 p)))))) .......... [PASS] 2158. (not (< (abs (- (* p N) m)) (* STDs (sqrt (* N p (- 1 p)))))) .......... [PASS] 2159. (not (every in-ellipse? interior-points)) .......... [PASS] 2160. (not (< (abs (- (* p N) m)) (* STDs (sqrt (* N p (- 1 p)))))) .......... [PASS] 2161. (not (< (abs (- (* p N) m)) (* STDs (sqrt (* N p (- 1 p)))))) .......... [PASS] 2162. (not (< (abs (- (* p N) m)) (* STDs (sqrt (* N p (- 1 p)))))) .......... [PASS] 2163. (not (every in-ellipse? interior-points)) .......... [PASS] 2164. (not (< (abs (- (* p N) m)) (* STDs (sqrt (* N p (- 1 p)))))) .......... [PASS] 2165. (not (< (abs (- (* p N) m)) (* STDs (sqrt (* N p (- 1 p)))))) .......... [PASS] 2166. (not (< (abs (- (* p N) m)) (* STDs (sqrt (* N p (- 1 p)))))) .......... [PASS] 2167. (not (every in-ellipse? interior-points)) .......... [PASS] 2168. (not (< (abs (- (* p N) m)) (* STDs (sqrt (* N p (- 1 p)))))) .......... [PASS] 2169. (not (< (abs (- (* p N) m)) (* STDs (sqrt (* N p (- 1 p)))))) .......... [PASS] 2170. (not (< (abs (- (* p N) m)) (* STDs (sqrt (* N p (- 1 p)))))) .......... [PASS] [Group Test binomial] 2171. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2172. actual .......... [PASS] 2173. actual .......... [PASS] 2174. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2175. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2176. actual .......... [PASS] 2177. actual .......... [PASS] 2178. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2179. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2180. actual .......... [PASS] 2181. actual .......... [PASS] 2182. actual .......... [PASS] 2183. actual .......... [PASS] 2184. actual .......... [PASS] 2185. actual .......... [PASS] 2186. actual .......... [PASS] 2187. actual .......... [PASS] 2188. actual .......... [PASS] 2189. actual .......... [PASS] 2190. actual .......... [PASS] 2191. actual .......... [PASS] 2192. actual .......... [PASS] 2193. actual .......... [PASS] 2194. actual .......... [PASS] 2195. actual .......... [PASS] 2196. actual .......... [PASS] 2197. actual .......... [PASS] 2198. actual .......... [PASS] 2199. actual .......... [PASS] 2200. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2201. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2202. actual .......... [PASS] 2203. actual .......... [PASS] 2204. actual .......... [PASS] 2205. actual .......... [PASS] 2206. actual .......... [PASS] 2207. actual .......... [PASS] 2208. actual .......... [PASS] 2209. actual .......... [PASS] 2210. actual .......... [PASS] 2211. actual .......... [PASS] 2212. actual .......... [PASS] 2213. actual .......... [PASS] 2214. actual .......... [PASS] 2215. actual .......... [PASS] 2216. actual .......... [PASS] 2217. actual .......... [PASS] 2218. actual .......... [PASS] 2219. actual .......... [PASS] 2220. actual .......... [PASS] 2221. actual .......... [PASS] 2222. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2223. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2224. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2225. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2226. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2227. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2228. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2229. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2230. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2231. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2232. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2233. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2234. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2235. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2236. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2237. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2238. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2239. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2240. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2241. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2242. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2243. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2244. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2245. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2246. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2247. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2248. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2249. (not (and (<= (/ actual expected) (+ 1.0 0.2)) (>= (/ actual expected) (- 1.0 0.2)))) .......... [PASS] 2249 out of 2249 passed (100.00%) ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 189: ./skint test/srfi/189.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 192: ./skint test/srfi/192.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 193: ./skint test/srfi/193.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 194: ./skint test/srfi/194.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 196: ./skint test/srfi/196.scm ---------------------------------------------- ;;; Running predicate tests... 1. (range=? eqv? (numeric-range 0 0) (numeric-range 5 5)) .......... [PASS] 2. (range=? eqv? (numeric-range 0 0) test-num-range) .......... [PASS] 3. (range=? eqv? test-num-range test-num-range) .......... [PASS] 4. (range=? eqv? test-num-range (numeric-range 10 30)) .......... [PASS] 5. (range=? eqv? test-num-range (numeric-range 10 20)) .......... [PASS] 6. (range=? eqv? test-bool-range (vector-range #(#f #t))) .......... [PASS] 7. (range=? eqv? test-bool-range (vector-range #(#t #f))) .......... [PASS] 8. (range=? eqv? test-num-range (numeric-range 10 30) (subrange (numeric-range 0 50) 10 30)) .......... [PASS] 9. (range=? eqv? test-bool-range (numeric-range 10 30) (subrange (numeric-range 0 50) 10 30)) .......... [PASS] 10. (range=? eqv? test-num-range (numeric-range 11 31) (subrange (numeric-range 0 50) 10 30)) .......... [PASS] ;;; Running conversion tests... 11. (range->list test-empty-range) .......... [PASS] 12. (range->list test-bool-range) .......... [PASS] 13. (range->list test-num-range) .......... [PASS] 14. (generator->list (range->generator test-num-range)) .......... [PASS] 15. (vector->list (range->vector test-num-range)) .......... [PASS] 16. (range->string test-empty-range) .......... [PASS] 17. (range->string (string-range s)) .......... [PASS] 18. (range-length vrange) .......... [PASS] 19. (range-first vrange) .......... [PASS] 20. (range-last vrange) .......... [PASS] 21. (range->vector vrange) .......... [PASS] 22. (range->list (begin (vector-set! vec 0 0) vrange)) .......... [PASS] ;;; Running constructor tests... 23. (%range-empty? (numeric-range 1 1)) .......... [PASS] 24. (range->list (numeric-range -5 -1)) .......... [PASS] 25. (range->list (numeric-range 1 -5 -1)) .......... [PASS] 26. (range->list (numeric-range 0 9 4)) .......... [PASS] 27. (%range-empty? (numeric-range 0 10 -1)) .......... [PASS] 28. (%range-empty? (numeric-range 0 -10)) .......... [PASS] 29. (range->list (numeric-range 5 1 -1)) .......... [PASS] 30. (range->list (numeric-range -2 2)) .......... [PASS] 31. (range->list (numeric-range 2 -2 -1)) .......... [PASS] 32. (range->list (numeric-range -4 -8 -1)) .......... [PASS] 33. (range=/eqv? (iota-range 10 0 0) (range 10 (lambda (_) 0))) .......... [PASS] 34. (%range-empty? (iota-range 0)) .......... [PASS] 35. (range->list (iota-range 10)) .......... [PASS] 36. (range->list (iota-range 10 0)) .......... [PASS] 37. (range->list (iota-range 10 0 1)) .......... [PASS] 38. (range->list (iota-range 10 10 2)) .......... [PASS] 39. (range->list (iota-range 10 0 -1)) .......... [PASS] 40. (range->list (iota-range 10 5 -2)) .......... [PASS] 41. (range-length (vector-range vec)) .......... [PASS] 42. (range-first (vector-range vec)) .......... [PASS] 43. (range-last (vector-range vec)) .......... [PASS] 44. (range->vector (vector-range vec)) .......... [PASS] 45. (range-length srange) .......... [PASS] 46. (range-first srange) .......... [PASS] 47. (range-last srange) .......... [PASS] 48. (range->list srange) .......... [PASS] ;;; Running accessor tests... 49. (range-ref test-num-range 0) .......... [PASS] 50. (range-ref test-bool-range 1) .......... [PASS] ;;; Running iteration tests... 51. (let-values (((ra rb) (range-split-at test-num-range n))) (list (range-length ra) (range-length rb))) .......... [PASS] 52. (let-values (((ra rb) (range-split-at test-bool-range 1))) (range=/eqv? (range-append ra rb) test-bool-range)) .......... [PASS] 53. (range=/eqv? (subrange test-bool-range 0 (range-length test-bool-range)) test-bool-range) .......... [PASS] 54. (= (range-length (subrange test-num-range a b)) (- b a)) .......... [PASS] 55. (range=/eqv? (subrange test-num-range a b) (range-take (range-drop test-num-range a) (- b a))) .......... [PASS] 56. (range=/eqv? (subrange test-num-range 0 b) (range-take test-num-range b)) .......... [PASS] 57. (range=/eqv? (subrange test-num-range a (range-length test-num-range)) (range-drop test-num-range a)) .......... [PASS] 58. (range-length (range-take test-num-range 10)) .......... [PASS] 59. (range-length (range-take test-num-range (range-length test-num-range))) .......... [PASS] 60. (range->list (range-take test-num-range 5)) .......... [PASS] 61. (range-length (range-take-right test-num-range 10)) .......... [PASS] 62. (range-length (range-take-right test-num-range (range-length test-num-range))) .......... [PASS] 63. (range->list (range-take-right test-num-range 5)) .......... [PASS] 64. (range-length (range-drop test-num-range 10)) .......... [PASS] 65. (range-length (range-drop test-num-range (range-length test-num-range))) .......... [PASS] 66. (range->list (range-drop test-num-range 15)) .......... [PASS] 67. (range-length (range-drop-right test-num-range 10)) .......... [PASS] 68. (range-length (range-drop-right test-num-range (range-length test-num-range))) .......... [PASS] 69. (range->list (range-drop-right test-num-range 15)) .......... [PASS] 70. (range=/eqv? (car (range-segment test-num-range 5)) (range-take test-num-range 5)) .......... [PASS] 71. (range=/eqv? (apply range-append (cdr (range-segment test-num-range 5))) (range-drop test-num-range 5)) .......... [PASS] 72. (range=/eqv? (apply range-append (range-segment test-num-range 5)) test-num-range) .......... [PASS] 73. (fold + 0 (map range-length (range-segment test-num-range 5))) .......... [PASS] 74. (fold + 0 (map range-length (range-segment test-num-range 7))) .......... [PASS] 75. (range-count always test-num-range) .......... [PASS] 76. (range-count never test-num-range) .......... [PASS] 77. (range-count even? test-num-range) .......... [PASS] 78. (range-count (lambda (x y) y) test-num-range test-bool-range) .......... [PASS] 79. (range-count (lambda (x y) (zero? (+ x y))) test-num-range (range-map - test-num-range)) .......... [PASS] 80. (range-any even? test-num-range) .......... [PASS] 81. (range-any never test-num-range) .......... [PASS] 82. (range-any (lambda (x y) y) test-num-range test-bool-range) .......... [PASS] 83. (range-any (lambda (x y) (zero? (+ x y))) test-num-range test-num-range) .......... [PASS] 84. (range-every number? test-num-range) .......... [PASS] 85. (range-every even? test-num-range) .......... [PASS] 86. (range-every (lambda (x y) y) test-num-range test-bool-range) .......... [PASS] 87. (range-every (lambda (x y) (zero? (+ x y))) test-num-range (range-map - test-num-range)) .......... [PASS] 88. (range=/eqv? (range-map (lambda (x) (+ 1 x)) test-num-range) (numeric-range 11 31)) .......... [PASS] 89. (equal? (range->list (range-map square test-num-range)) (map square test-num-seq)) .......... [PASS] 90. (range=/eqv? (range-map + test-num-range test-num-range) (numeric-range 20 60 2)) .......... [PASS] 91. (range=/eqv? (range-map (lambda (x _) x) test-num-range test-bool-range) (range-take test-num-range (range-length test-bool-range))) .......... [PASS] 92. (equal? (range-map->list not test-bool-range) (map not (range->list test-bool-range))) .......... [PASS] 93. (equal? (range-map->list + test-num-range test-num-range) (map + test-num-seq test-num-seq)) .......... [PASS] 94. (equal? (range-map->vector not test-bool-range) (vector-map not (range->vector test-bool-range))) .......... [PASS] 95. (equal? (range-map->vector + test-num-range test-num-range) (vector-map + num-vec num-vec)) .......... [PASS] 96. (%range-empty? (range-filter-map never test-bool-range)) .......... [PASS] 97. (range=/eqv? (range-filter-map values test-num-range) test-num-range) .......... [PASS] 98. (equal? (range->list (range-filter-map (lambda (x) (and (even? x) x)) test-num-range)) (filter-map (lambda (x) (and (even? x) x)) test-num-seq)) .......... [PASS] 99. (range=/eqv? (range-filter-map proc test-num-range test-num-range) (numeric-range 20 60 4)) .......... [PASS] 100. (range-filter-map->list never test-bool-range) .......... [PASS] 101. (equal? (range-filter-map->list values test-num-range) test-num-seq) .......... [PASS] 102. (equal? (range-filter-map->list (lambda (x) (and (even? x) x)) test-num-range) (filter-map (lambda (x) (and (even? x) x)) test-num-seq)) .......... [PASS] 103. (equal? (range-filter-map->list proc test-num-range test-num-range) (filter-map proc test-num-seq test-num-seq)) .......... [PASS] 104. (let ((v #f)) (range-for-each (lambda (x) (set! v x)) test-bool-range) v) .......... [PASS] 105. (let ((v #f)) (range-for-each (lambda (x y) (when y (set! v x))) test-num-range test-bool-range) v) .......... [PASS] 106. (range=/eqv? (range-filter always test-bool-range) test-bool-range) .......... [PASS] 107. (%range-empty? (range-filter never test-bool-range)) .......... [PASS] 108. (equal? (range->list (range-filter even? test-num-range)) (filter even? test-num-seq)) .......... [PASS] 109. (range-filter->list always test-bool-range) .......... [PASS] 110. (null? (range-filter->list never test-bool-range)) .......... [PASS] 111. (equal? (range-filter->list even? test-num-range) (filter even? test-num-seq)) .......... [PASS] 112. (range=/eqv? (range-remove never test-bool-range) test-bool-range) .......... [PASS] 113. (%range-empty? (range-remove always test-bool-range)) .......... [PASS] 114. (equal? (range->list (range-remove even? test-num-range)) (remove even? test-num-seq)) .......... [PASS] 115. (equal? (range-remove->list never test-bool-range) (range->list test-bool-range)) .......... [PASS] 116. (null? (range-remove->list always test-bool-range)) .......... [PASS] 117. (equal? (range-remove->list even? test-num-range) (remove even? test-num-seq)) .......... [PASS] 118. (= (range-fold (lambda (b _) (+ b 1)) 0 test-num-range) (range-length test-num-range)) .......... [PASS] 119. (equal? (range-fold + 0 test-num-range) (fold + 0 test-num-seq)) .......... [PASS] 120. (= (range-fold + 0 test-num-range test-num-range) (fold + 0 test-num-seq test-num-seq)) .......... [PASS] 121. (= (range-fold (lambda (s x _) (+ s x)) 0 test-num-range test-bool-range) (range-fold + 0 (range-take test-num-range (range-length test-bool-range)))) .......... [PASS] 122. (= (range-fold-right (lambda (b _) (+ b 1)) 0 test-num-range) (range-length test-num-range)) .......... [PASS] 123. (equal? (range-fold-right + 0 test-num-range) (fold-right + 0 test-num-seq)) .......... [PASS] 124. (= (range-fold-right + 0 test-num-range test-num-range) (fold-right + 0 test-num-seq test-num-seq)) .......... [PASS] 125. (= (range-fold-right (lambda (s x _) (+ s x)) 0 test-num-range test-bool-range) (range-fold-right + 0 (range-take test-num-range (range-length test-bool-range)))) .......... [PASS] 126. (eqv? (range-first (range-reverse test-bool-range)) (range-last test-bool-range)) .......... [PASS] 127. (eqv? (range-last (range-reverse test-bool-range)) (range-first test-bool-range)) .......... [PASS] 128. (equal? (range->list (range-reverse test-num-range)) (reverse test-num-seq)) .......... [PASS] 129. (%range-empty? (range-append)) .......... [PASS] 130. (range->list (range-append test-bool-range)) .......... [PASS] 131. (range=/eqv? (range-append (numeric-range 10 20) (numeric-range 20 30)) test-num-range) .......... [PASS] 132. (range=/eqv? (range-append (numeric-range 10 15) (numeric-range 15 20) (numeric-range 20 25) (numeric-range 25 30)) test-num-range) .......... [PASS] ;;; Running search tests... 133. (range-index always test-num-range) .......... [PASS] 134. (range-index never test-num-range) .......... [PASS] 135. (range-index values test-bool-range) .......... [PASS] 136. (range-index (lambda (x y) (and (odd? x) y)) test-num-range test-bool-range) .......... [PASS] 137. (eqv? (range-index-right always test-num-range) (- (range-length test-num-range) 1)) .......... [PASS] 138. (range-index-right never test-num-range) .......... [PASS] 139. (range-index-right values test-bool-range) .......... [PASS] 140. (range-index-right (lambda (x y) (< (+ x y) 30)) test-num-range test-num-range) .......... [PASS] 141. (= (range-index fifteen? test-num-range) (range-index-right fifteen? test-num-range) (list-index fifteen? test-num-seq)) .......... [PASS] 142. (range=/eqv? (range-take-while always test-bool-range) test-bool-range) .......... [PASS] 143. (%range-empty? (range-take-while never test-bool-range)) .......... [PASS] 144. (range->list (range-take-while pred test-num-range)) .......... [PASS] 145. (%range-empty? (range-drop-while always test-bool-range)) .......... [PASS] 146. (range=/eqv? (range-drop-while never test-bool-range) test-bool-range) .......... [PASS] 147. (range->list (range-drop-while pred test-num-range)) .......... [PASS] 148. (range=/eqv? (range-append (range-take-while pred test-num-range) (range-drop-while pred test-num-range)) test-num-range) .......... [PASS] 149. (range=/eqv? (range-take-while-right always test-bool-range) test-bool-range) .......... [PASS] 150. (%range-empty? (range-take-while-right never test-bool-range)) .......... [PASS] 151. (range->list (range-take-while-right pred test-num-range)) .......... [PASS] 152. (%range-empty? (range-drop-while-right always test-bool-range)) .......... [PASS] 153. (range=/eqv? (range-drop-while-right never test-bool-range) test-bool-range) .......... [PASS] 154. (range->list (range-drop-while-right pred test-num-range)) .......... [PASS] 155. (range=/eqv? (range-append (range-drop-while-right pred test-num-range) (range-take-while-right pred test-num-range)) test-num-range) .......... [PASS] 155 out of 155 passed (100.00%) 1. (equal? "bazbarfoo!" (chain "" (string-append "foo" _) (string-append "bar" _) (string-append "baz" _) (exclamation _))) .......... [PASS] 2. (equal? "barfoobaz" (chain "" (string-append _ "foo") (string-append "bar" _) (string-append _ "baz"))) .......... [PASS] 3. (equal? 3 (chain + (_ 1 2))) .......... [PASS] 4. (equal? "barbazqux" (chain "" (string-append _ "foo") (string-append "bar" "baz") (string-append _ "qux"))) .......... [PASS] 5. (equal? "quxfoo/quxbar" (chain "qux" (foo+bar _) (string-append _ "/" _))) .......... [PASS] 6. (equal? "bazquxfooquxbar" (chain "qux" (foo+bar _) (string-append "baz" _ ...))) .......... [PASS] 7. (equal? "quxfoobazquxbar" (chain "qux" (foo+bar _) (string-append _ "baz" _ ...))) .......... [PASS] 8. (equal? "bazbarfoo!" (chain "" <> (string-append "foo" <>) (string-append "bar" <>) (string-append "baz" <>) (exclamation <>))) .......... [PASS] 9. (equal? "bazquxfooquxbar" (chain "qux" - --- (foo+bar -) (string-append "baz" - ---))) .......... [PASS] 10. (equal? "bazbarfoo!" (chain-and "" (string-append "foo" _) (string-append "bar" _) (string-append "baz" _) (exclamation _))) .......... [PASS] 11. (equal? "barfoobaz" (chain-and "" (string-append _ "foo") (string-append "bar" _) (string-append _ "baz"))) .......... [PASS] 12. (equal? "barbazqux" (chain-and "" (string-append "foo" _) (string-append "bar" "baz") (string-append _ "qux"))) .......... [PASS] 13. (equal? #f (chain-and "" (string-append "foo" _) (equal? _ "bar") (string-append "baz" _) (exclamation _))) .......... [PASS] 14. (equal? #f (chain-and #f (not _))) .......... [PASS] 15. (equal? "bazbarfoo!" (chain-and "" <> (string-append "foo" <>) (string-append "bar" <>) (string-append "baz" <>) (exclamation <>))) .......... [PASS] 16. (equal? "bazfoo" (chain-when "" ((= (+ 2 2) 4) (string-append "foo" _)) ((= (+ 2 2) 5) (string-append "bar" _)) (#t (string-append "baz" _)))) .......... [PASS] 17. (equal? "barfooqux" (chain-when "" (#t (string-append _ "foo")) (#t (string-append "bar" _)) (#f (string-append _ "baz")) (#t (string-append _ "qux")))) .......... [PASS] 18. (equal? "barqux" (chain-when "" (#t (string-append _ "foo")) (#t (string-append "bar")) (#f (string-append _ "baz")) (#t (string-append _ "qux")))) .......... [PASS] 19. (equal? "bazfoo" (chain-when "" <> ((= (+ 2 2) 4) (string-append "foo" <>)) ((= (+ 2 2) 5) (string-append "bar" <>)) (#t (string-append "baz" <>)))) .......... [PASS] 20. (equal? "bazbarfoo!" ((chain-lambda (string-append "foo" _) (string-append "bar" _) (string-append "baz" _) (exclamation _)) "")) .......... [PASS] 21. (equal? "foobar" ((chain-lambda (string-append "foo" _)) "bar")) .......... [PASS] 22. (equal? "barfoobaz" ((chain-lambda (string-append _ "foo") (string-append "bar" _) (string-append _ "baz")) "")) .......... [PASS] 23. (equal? "foobarbazqux" ((chain-lambda (string-append _ "bar" _) (string-append _ "qux")) "foo" "baz")) .......... [PASS] 24. (equal? "barqux" ((chain-lambda (string-append "bar") (string-append _ "qux")))) .......... [PASS] 25. (equal? "foobarbazqux" ((chain-lambda (string-append "foo" _ ...) (string-append _ "qux")) "bar" "baz")) .......... [PASS] 26. (equal? "foobarbazquxquux" ((chain-lambda (string-append _ "bar" _ ...) (string-append _ "quux")) "foo" "baz" "qux")) .......... [PASS] 27. (equal? "bazbarfoo!" ((chain-lambda <> (string-append "foo" <>) (string-append "bar" <>) (string-append "baz" <>) (exclamation <>)) "")) .......... [PASS] 28. (equal? "foobarbazqux" ((chain-lambda - --- (string-append "foo" - ---) (string-append - "qux")) "bar" "baz")) .......... [PASS] 29. (equal? (quote (1 2 (3 (4) 5))) (nest (quote _) (1 2 _) (3 _ 5) (_) 4)) .......... [PASS] 30. (equal? (quote (1 2 (3 (4) 5))) (nest <> (quote <>) (1 2 <>) (3 <> 5) (<>) 4)) .......... [PASS] 31. (equal? (quote (1 2 3 (4 5 6))) (nest (nest _2 (quote _2) (1 2 3 _2) _ 6) (_ 5 _2) 4)) .......... [PASS] 32. (equal? (quote (1 2 (3 (4) 5))) (nest-reverse 4 (_) (3 _ 5) (1 2 _) (quote _))) .......... [PASS] 33. (equal? (quote (1 2 (3 (4) 5))) (nest-reverse 4 <> (<>) (3 <> 5) (1 2 <>) (quote <>))) .......... [PASS] 33 out of 33 passed (100.00%) 1. (equal? #t (flexvector? (flexvector))) .......... [PASS] 2. (equal? 3 (flexvector-length (make-flexvector 3 #f))) .......... [PASS] 3. (equal? 3 (flexvector-length (flexvector 1 2 3))) .......... [PASS] 4. (equal? (quote b) (flexvector-ref fv 1)) .......... [PASS] 5. (equal? (quote a) (flexvector-front fv)) .......... [PASS] 6. (equal? (quote c) (flexvector-back fv)) .......... [PASS] 7. (equal? (quote b) (flexvector-set! fv 1 (quote d))) .......... [PASS] 8. (equal? (quote d) (flexvector-ref fv 1)) .......... [PASS] 9. (equal? fv (flexvector-add-back! fv (quote e))) .......... [PASS] 10. (equal? (quote (4 . e)) (cons (flexvector-length fv) (flexvector-ref fv (- (flexvector-length fv) 1)))) .......... [PASS] 11. (equal? (quote d) (flexvector-remove! fv 1)) .......... [PASS] 12. (equal? (quote (3 . c)) (cons (flexvector-length fv) (flexvector-ref fv 1))) .......... [PASS] 13. (equal? fv (flexvector-clear! fv)) .......... [PASS] 14. (equal? 0 (flexvector-length fv)) .......... [PASS] 15. (equal? #t (flexvector-empty? fv)) .......... [PASS] 16. (equal? #t (flexvector=? eq? (flexvector (quote a) (quote b)) (flexvector (quote a) (quote b)))) .......... [PASS] 17. (equal? #f (flexvector=? eq? (flexvector (quote a) (quote b)) (flexvector (quote b) (quote a)))) .......... [PASS] 18. (equal? #f (flexvector=? = (flexvector 1 2 3 4 5) (flexvector 1 2 3 4))) .......... [PASS] 19. (equal? #t (flexvector=? = (flexvector 1 2 3 4) (flexvector 1 2 3 4))) .......... [PASS] 20. (equal? #t (flexvector=? eq?)) .......... [PASS] 21. (equal? #t (flexvector=? eq? (flexvector (quote a)))) .......... [PASS] 22. (equal? #(a a a) (flexvector->vector (make-flexvector 3 (quote a)))) .......... [PASS] 23. (equal? #(1 4 9 16 25 36 49 64 81 100) (flexvector->vector (flexvector-unfold (lambda (x) (> x 10)) (lambda (x) (* x x)) (lambda (x) (+ x 1)) 1))) .......... [PASS] 24. (equal? #(100 81 64 49 36 25 16 9 4 1) (flexvector->vector (flexvector-unfold-right (lambda (x) (> x 10)) (lambda (x) (* x x)) (lambda (x) (+ x 1)) 1))) .......... [PASS] 25. (equal? #(#\a #\b #\c) (flexvector->vector (string->flexvector "abc"))) .......... [PASS] 26. (equal? "abc" (flexvector->string (flexvector #\a #\b #\c))) .......... [PASS] 27. (equal? #(a b c) (flexvector->vector (generator->flexvector mock-generator))) .......... [PASS] 28. (equal? (quote (a b c #t)) (let* ((gen (flexvector->generator (flexvector (quote a) (quote b) (quote c)))) (one (gen)) (two (gen)) (three (gen)) (four (eof-object? (gen)))) (list one two three four))) .......... [PASS] 29. (equal? #(10 20 30) (flexvector->vector fv)) .......... [PASS] 30. (equal? (quote (10 20 30)) (flexvector->list fv)) .......... [PASS] 31. (equal? (quote (10 20)) (flexvector->list fv 0 2)) .......... [PASS] 32. (equal? (quote (20 30)) (flexvector->list fv 1)) .......... [PASS] 33. (equal? (quote ()) (flexvector->list fv 1 1)) .......... [PASS] 34. (equal? (quote (30 20 10)) (reverse-flexvector->list fv)) .......... [PASS] 35. (equal? #t (let ((copy (flexvector-copy fv))) (and (= (flexvector-length fv) (flexvector-length copy)) (not (eq? fv copy))))) .......... [PASS] 36. (equal? #(30 20 10) (flexvector->vector (flexvector-reverse-copy fv))) .......... [PASS] 37. (equal? #(20 30) (flexvector->vector (flexvector-copy fv 1))) .......... [PASS] 38. (equal? #(20) (flexvector->vector (flexvector-copy fv 1 2))) .......... [PASS] 39. (equal? (quote (30 20 10)) (let ((res (quote ()))) (flexvector-for-each (lambda (x) (set! res (cons x res))) fv) res)) .......... [PASS] 40. (equal? (quote (34 22 10)) (let ((res (quote ()))) (flexvector-for-each/index (lambda (i x) (set! res (cons (+ x (* i 2)) res))) fv) res)) .......... [PASS] 41. (equal? #(100 200 300) (flexvector->vector (flexvector-map (lambda (x) (* x 10)) fv))) .......... [PASS] 42. (equal? #(10 22 34) (flexvector->vector (flexvector-map/index (lambda (i x) (+ x (* i 2))) fv))) .......... [PASS] 43. (equal? #(10 100 20 200 30 300) (flexvector->vector (flexvector-append-map (lambda (x) (flexvector x (* x 10))) fv))) .......... [PASS] 44. (equal? #(0 10 10 1 20 22 2 30 34) (flexvector->vector (flexvector-append-map/index (lambda (i x) (flexvector i x (+ x (* i 2)))) fv))) .......... [PASS] 45. (equal? #(10) (flexvector->vector (flexvector-filter (lambda (x) (< x 15)) fv))) .......... [PASS] 46. (equal? #(10 30) (flexvector->vector (flexvector-filter/index (lambda (i x) (not (= i 1))) fv))) .......... [PASS] 47. (equal? (quote (30 20 10)) (flexvector-fold (lambda (x y) (cons y x)) (quote ()) fv)) .......... [PASS] 48. (equal? (quote (10 20 30)) (flexvector-fold-right (lambda (x y) (cons y x)) (quote ()) fv)) .......... [PASS] 49. (equal? 2 (flexvector-count (lambda (x) (< x 25)) fv)) .......... [PASS] 50. (equal? #(3 4 8 9 14 23 25 30 36) (flexvector->vector (flexvector-cumulate + 0 (flexvector 3 1 4 1 5 9 2 5 6)))) .......... [PASS] 51. (equal? (quote (#t . #f)) (cons (flexvector-any (lambda (x) (= x 20)) fv) (flexvector-any (lambda (x) (= x 21)) fv))) .......... [PASS] 52. (equal? (quote (#t . #f)) (cons (flexvector-every (lambda (x) (< x 40)) fv) (flexvector-every (lambda (x) (< x 30)) fv))) .......... [PASS] 53. (equal? 1 (flexvector-index (lambda (x) (> x 10)) fv)) .......... [PASS] 54. (equal? 2 (flexvector-index-right (lambda (x) (> x 10)) fv)) .......... [PASS] 55. (equal? 1 (flexvector-skip (lambda (x) (< x 20)) fv)) .......... [PASS] 56. (equal? 0 (flexvector-skip-right (lambda (x) (> x 10)) fv)) .......... [PASS] 57. (equal? (quote (#(10 20) #(30))) (call-with-values (lambda () (flexvector-partition (lambda (x) (< x 25)) fv)) (lambda vs (map flexvector->vector vs)))) .......... [PASS] 58. (equal? 3 (flexvector-binary-search fv #\d cmp)) .......... [PASS] 59. (equal? 0 (flexvector-binary-search fv #\a cmp)) .......... [PASS] 60. (equal? 9 (flexvector-binary-search fv #\j cmp)) .......... [PASS] 61. (equal? #f (flexvector-binary-search fv #\k cmp)) .......... [PASS] 62. (equal? 5 (flexvector-binary-search fv #\f cmp 2 6)) .......... [PASS] 63. (equal? #f (flexvector-binary-search fv #\f cmp 1 5)) .......... [PASS] 64. (equal? #(10 20 30 40 50 60) (flexvector->vector (flexvector-append (flexvector 10 20) (flexvector) (flexvector 30 40) (flexvector 50 60)))) .......... [PASS] 65. (equal? #(10 20 30 40 50 60) (flexvector->vector (flexvector-concatenate (list (flexvector 10 20) (flexvector) (flexvector 30 40) (flexvector 50 60))))) .......... [PASS] 66. (equal? #(a b h i) (flexvector->vector (flexvector-append-subvectors (flexvector (quote a) (quote b) (quote c) (quote d) (quote e)) 0 2 (flexvector (quote f) (quote g) (quote h) (quote i) (quote j)) 2 4))) .......... [PASS] 67. (equal? (quote #(foo)) (mutate-as x (quote #()) (flexvector-add! x 0 (quote foo)))) .......... [PASS] 68. (equal? (quote #(foo bar baz)) (mutate-as x (quote #()) (flexvector-add! x 0 (quote foo) (quote bar) (quote baz)))) .......... [PASS] 69. (equal? (quote #(foo bar baz)) (mutate-as x (quote #(bar baz)) (flexvector-add! x 0 (quote foo)))) .......... [PASS] 70. (equal? (quote #(foo bar baz qux quux)) (mutate-as x (quote #(qux quux)) (flexvector-add! x 0 (quote foo) (quote bar) (quote baz)))) .......... [PASS] 71. (equal? (quote #(foo bar baz)) (mutate-as x (quote #(foo baz)) (flexvector-add! x 1 (quote bar)))) .......... [PASS] 72. (equal? (quote #(foo bar baz qux quux)) (mutate-as x (quote #(foo quux)) (flexvector-add! x 1 (quote bar) (quote baz) (quote qux)))) .......... [PASS] 73. (equal? (quote #(foo bar baz)) (mutate-as x (quote #(foo bar)) (flexvector-add! x 2 (quote baz)))) .......... [PASS] 74. (equal? (quote #(foo bar baz qux quux)) (mutate-as x (quote #(foo bar)) (flexvector-add! x 2 (quote baz) (quote qux) (quote quux)))) .......... [PASS] 75. (equal? (quote #(foo bar baz qux)) (mutate-as x (quote #(foo qux)) (flexvector-add-all! x 1 (quote (bar baz))))) .......... [PASS] 76. (equal? (quote #(foo)) (mutate-as x (quote #()) (flexvector-add-front! x (quote foo)))) .......... [PASS] 77. (equal? (quote #(foo bar baz)) (mutate-as x (quote #()) (flexvector-add-front! x (quote foo) (quote bar) (quote baz)))) .......... [PASS] 78. (equal? (quote #(foo bar baz)) (mutate-as x (quote #(bar baz)) (flexvector-add-front! x (quote foo)))) .......... [PASS] 79. (equal? (quote #(foo bar baz qux quux)) (mutate-as x (quote #(qux quux)) (flexvector-add-front! x (quote foo) (quote bar) (quote baz)))) .......... [PASS] 80. (equal? (quote #(foo)) (mutate-as x (quote #()) (flexvector-add-back! x (quote foo)))) .......... [PASS] 81. (equal? (quote #(foo bar baz)) (mutate-as x (quote #()) (flexvector-add-back! x (quote foo) (quote bar) (quote baz)))) .......... [PASS] 82. (equal? (quote #(foo bar baz)) (mutate-as x (quote #(foo bar)) (flexvector-add-back! x (quote baz)))) .......... [PASS] 83. (equal? (quote #(foo bar baz qux quux)) (mutate-as x (quote #(foo bar)) (flexvector-add-back! x (quote baz) (quote qux) (quote quux)))) .......... [PASS] 84. (equal? (quote #(foo bar baz qux)) (mutate-as x (quote #(foo bar)) (flexvector-append! x (flexvector (quote baz) (quote qux))))) .......... [PASS] 85. (equal? (quote #(foo bar baz qux quux)) (mutate-as x (quote #(foo bar)) (flexvector-append! x (flexvector (quote baz) (quote qux)) (flexvector (quote quux))))) .......... [PASS] 86. (equal? (quote #(foo baz)) (mutate-as x (quote #(foo bar baz)) (flexvector-remove! x 1))) .......... [PASS] 87. (equal? (quote #()) (mutate-as x (quote #(foo)) (flexvector-remove! x 0))) .......... [PASS] 88. (equal? (quote #(bar baz)) (mutate-as x (quote #(foo bar baz)) (flexvector-remove-front! x))) .......... [PASS] 89. (equal? (quote #()) (mutate-as x (quote #(foo)) (flexvector-remove-front! x))) .......... [PASS] 90. (equal? (quote #(foo bar)) (mutate-as x (quote #(foo bar baz)) (flexvector-remove-back! x))) .......... [PASS] 91. (equal? (quote #()) (mutate-as x (quote #(foo)) (flexvector-remove-back! x))) .......... [PASS] 92. (equal? (quote #(a e f)) (mutate-as x (quote #(a b c d e f)) (flexvector-remove-range! x 1 4))) .......... [PASS] 93. (equal? (quote #(a b c d e f)) (mutate-as x (quote #(a b c d e f)) (flexvector-remove-range! x 1 1))) .......... [PASS] 94. (equal? (quote #(e f)) (mutate-as x (quote #(a b c d e f)) (flexvector-remove-range! x -1 4))) .......... [PASS] 95. (equal? (quote #(a b)) (mutate-as x (quote #(a b c d e f)) (flexvector-remove-range! x 2 10))) .......... [PASS] 96. (equal? (quote #(100 200 300)) (mutate-as fv (quote #(10 20 30)) (flexvector-map! (lambda (x) (* x 10)) fv))) .......... [PASS] 97. (equal? (quote #(10 22 34)) (mutate-as fv (quote #(10 20 30)) (flexvector-map/index! (lambda (i x) (+ x (* i 2))) fv))) .......... [PASS] 98. (equal? (quote #(10)) (mutate-as fv (quote #(10 20 30)) (flexvector-filter! (lambda (x) (< x 15)) fv))) .......... [PASS] 99. (equal? (quote #(10 30)) (mutate-as fv (quote #(10 20 30)) (flexvector-filter/index! (lambda (i x) (not (= i 1))) fv))) .......... [PASS] 100. (equal? #(10 30 20) (mutate-as fv (quote #(10 20 30)) (flexvector-swap! fv 1 2))) .......... [PASS] 101. (equal? #(30 20 10) (mutate-as fv (quote #(10 20 30)) (flexvector-reverse! fv))) .......... [PASS] 102. (equal? #(1 20 30 40 5) (mutate-as fv (quote #(1 2 3 4 5)) (flexvector-copy! fv 1 (flexvector 20 30 40)))) .......... [PASS] 103. (equal? #(1 20 30 40 5) (mutate-as fv (quote #(1 2 3 4 5)) (flexvector-copy! fv 1 (flexvector 10 20 30 40 50) 1 4))) .......... [PASS] 104. (equal? #(1 2 30 40 50) (mutate-as fv (quote #(1 2 3)) (flexvector-copy! fv 2 (flexvector 30 40 50)))) .......... [PASS] 105. (equal? #(1 40 30 20 5) (mutate-as fv (quote #(1 2 3 4 5)) (flexvector-reverse-copy! fv 1 (flexvector 20 30 40)))) .......... [PASS] 106. (equal? #(1 40 30 20 5) (mutate-as fv (quote #(1 2 3 4 5)) (flexvector-reverse-copy! fv 1 (flexvector 10 20 30 40 50) 1 4))) .......... [PASS] 107. (equal? #(1 2 50 40 30) (mutate-as fv (quote #(1 2 3)) (flexvector-reverse-copy! fv 2 (flexvector 30 40 50)))) .......... [PASS] 108. (equal? (quote #(foo foo foo)) (mutate-as x (quote #(1 2 3)) (flexvector-fill! x (quote foo)))) .......... [PASS] 109. (equal? (quote #(1 2 bar bar bar)) (mutate-as x (quote #(1 2 3 4 5)) (flexvector-fill! x (quote bar) 2))) .......... [PASS] 110. (equal? (quote #(1 2 baz baz 5)) (mutate-as x (quote #(1 2 3 4 5)) (flexvector-fill! x (quote baz) 2 4))) .......... [PASS] 111. (equal? (quote #(qux qux qux)) (mutate-as x (quote #(1 2 3)) (flexvector-fill! x (quote qux) -1 10))) .......... [PASS] 111 out of 111 passed (100.00%) ;;; iset=? ... 1. (not (iset=? (iset) (iset))) .......... [PASS] 2. (iset=? (iset 1) (iset)) .......... [PASS] 3. (iset=? (iset) (iset 1)) .......... [PASS] 4. (not (iset=? (iset 1 2 3 4) (iset 1 2 3 4))) .......... [PASS] 5. (not (iset=? (iset 1 2 3 4) (iset 2 1 4 3) (iset 3 2 1 4))) .......... [PASS] 6. (iset=? (iset 1 2 3 4) (iset 2 3 4)) .......... [PASS] 7. (iset=? pos-set neg-set) .......... [PASS] ;;; Copying and conversion ... 8. (not (not (eqv? (iset-copy pos-set) pos-set))) .......... [PASS] 9. (not (every (lambda (set) (iset-every? (lambda (n) (iset-contains? set n)) (iset-copy set))) all-test-sets)) .......... [PASS] 10. (iset->list (iset)) .......... [PASS] 11. (iset->list pos-set) .......... [PASS] 12. (iset->list neg-set) .......... [PASS] 13. (iset->list mixed-set) .......... [PASS] 14. (iset->list sparse-set) .......... [PASS] 15. (iset=? (iset 1) (list->iset! (iset) (quote (1)))) .......... [PASS] 16. (iset=? (iset-adjoin pos-set 2 4 6) (list->iset! (iset-copy pos-set) (quote (2 4 6)))) .......... [PASS] ;;; Constructors ... 17. (iset=? (list->iset (iota 10 0 4)) (iset-unfold (lambda (i) (> i 36)) values (lambda (i) (+ i 4)) 0)) .......... [PASS] 18. (iset=? (list->iset (iota 20 -10)) (make-range-iset -10 10)) .......... [PASS] 19. (iset=? (list->iset (iota 10 -10 2)) (make-range-iset -10 10 2)) .......... [PASS] ;;; Predicates ... 20. (iset-contains? (iset) 1) .......... [PASS] 21. (not (every (lambda (n) (iset-contains? pos-set n)) (iota 20 100 3))) .......... [PASS] 22. (not (not (any (lambda (n) (iset-contains? pos-set n)) (iota 20 -100 3)))) .......... [PASS] 23. (not (iset-empty? (iset))) .......... [PASS] 24. (iset-empty? pos-set) .......... [PASS] 25. (not (iset-disjoint? (iset) (iset))) .......... [PASS] 26. (not (iset-disjoint? pos-set neg-set)) .......... [PASS] 27. (not (iset-disjoint? (iset) pos-set)) .......... [PASS] 28. (iset-disjoint? dense-set sparse-set) .......... [PASS] 29. (iset-disjoint? (make-range-iset 20 30) (make-range-iset 29 39)) .......... [PASS] ;;; Accessors ... 30. (iset-member pos-set 103 #f) .......... [PASS] 31. (iset-member pos-set 104 (quote z)) .......... [PASS] 32. (iset-min (iset)) .......... [PASS] 33. (iset-min (iset 1 2 3)) .......... [PASS] 34. (iset-min pos-set) .......... [PASS] 35. (iset-min neg-set) .......... [PASS] 36. (iset-min mixed-set) .......... [PASS] 37. (iset-max (iset)) .......... [PASS] 38. (iset-max (iset 1 2 3)) .......... [PASS] 39. (iset-max pos-set) .......... [PASS] 40. (iset-max neg-set) .......... [PASS] 41. (iset-max mixed-set) .......... [PASS] ;;; Updaters ... 42. (iset->list (iset-adjoin (iset) 1)) .......... [PASS] 43. (not (iset-contains? (iset-adjoin neg-set 10) 10)) .......... [PASS] 44. (not (iset-contains? (iset-adjoin dense-set 100) 100)) .......... [PASS] 45. (not (iset-contains? (iset-adjoin sparse-set 100) 100)) .......... [PASS] 46. (iset=? (list->iset (cons -3 (iota 20 100 3))) (iset-adjoin pos-set -3)) .......... [PASS] 47. (iset->list (iset-delete (iset 1) 1)) .......... [PASS] 48. (iset-contains? (iset-delete neg-set 10) 10) .......... [PASS] 49. (iset-contains? (iset-delete dense-set 1033) 1033) .......... [PASS] 50. (iset-contains? (iset-delete sparse-set 30) 30) .......... [PASS] 51. (iset=? (list->iset (cdr (iota 20 100 3))) (iset-delete pos-set 100)) .......... [PASS] 52. (not (iset-empty? (iset-delete-all (iset) (quote ())))) .......... [PASS] 53. (iset=? pos-set (iset-delete-all pos-set (quote ()))) .......... [PASS] 54. (iset=? (iset 100 103 106) (iset-delete-all pos-set (iota 17 109 3))) .......... [PASS] 55. (not (call-with-values (lambda () (iset-search mixed-set 1 (lambda (insert _) (insert #t)) (lambda (x update _) (update 1 #t)))) (lambda (set _) (iset=? (iset-adjoin mixed-set 1) set)))) .......... [PASS] 56. (not (call-with-values (lambda () (iset-search mixed-set 1 (lambda (_ ignore) (ignore #t)) (lambda (x _ remove) (remove #t)))) (lambda (set _) (iset=? mixed-set set)))) .......... [PASS] 57. (not (call-with-values (lambda () (iset-search mixed-set 2 (lambda (insert _) (insert #t)) (lambda (x update _) (update 2 #t)))) (lambda (set _) (iset=? mixed-set set)))) .......... [PASS] 58. (not (call-with-values (lambda () (iset-search mixed-set 2 (lambda (insert _) (insert #t)) (lambda (x update _) (update 3 #t)))) (lambda (set _) (iset=? (iset-adjoin (iset-delete mixed-set 2) 3) set)))) .......... [PASS] 59. (not (call-with-values (lambda () (iset-search mixed-set 2 (lambda (_ ignore) (ignore #t)) (lambda (x _ remove) (remove #t)))) (lambda (set _) (iset=? (iset-delete mixed-set 2) set)))) .......... [PASS] 60. (call-with-values (lambda () (let-values (((n mixed-set*) (iset-delete-min mixed-set))) (values (= n (car mixed-seq)) (iset=? mixed-set* (list->iset (cdr mixed-seq)))))) list) .......... [PASS] 61. (call-with-values (lambda () (let-values (((n sparse-set*) (iset-delete-min sparse-set))) (values (= n (car sparse-seq)) (iset=? sparse-set* (list->iset (cdr sparse-seq)))))) list) .......... [PASS] 62. (call-with-values (lambda () (let-values (((n mixed-set*) (iset-delete-max mixed-set))) (values (= n (last mixed-seq)) (iset=? mixed-set* (list->iset (init mixed-seq)))))) list) .......... [PASS] 63. (call-with-values (lambda () (let-values (((n sparse-set*) (iset-delete-max sparse-set))) (values (= n (last sparse-seq)) (iset=? sparse-set* (list->iset (init sparse-seq)))))) list) .......... [PASS] ;;; Whole set operations ... 64. (iset-size (iset)) .......... [PASS] 65. (iset-size pos-set) .......... [PASS] 66. (iset-size mixed-set) .......... [PASS] 67. (iset-size sparse-set) .......... [PASS] 68. (iset-find even? (iset 1 3 5 7 8 9 10) (lambda () #f)) .......... [PASS] 69. (iset-find negative? pos-set (lambda () (quote z))) .......... [PASS] 70. (iset-any? even? (iset)) .......... [PASS] 71. (not (iset-any? even? pos-set)) .......... [PASS] 72. (iset-any? negative? pos-set) .......... [PASS] 73. (not (iset-any? (lambda (n) (> n 100)) sparse-set)) .......... [PASS] 74. (iset-any? (lambda (n) (> n 100)) dense-set) .......... [PASS] 75. (iset-every? even? (iset)) .......... [PASS] 76. (iset-every? even? pos-set) .......... [PASS] 77. (not (iset-every? negative? neg-set)) .......... [PASS] 78. (iset-every? (lambda (n) (> n 100)) sparse-set) .......... [PASS] 79. (not (iset-every? (lambda (n) (< n 100)) dense-set)) .......... [PASS] 80. (iset-count even? (iset)) .......... [PASS] 81. (iset-count even? pos-set) .......... [PASS] 82. (iset-count even? neg-set) .......... [PASS] 83. (iset-count even? sparse-set) .......... [PASS] ;;; Iterators ... 84. (iset-fold + 0 pos-set) .......... [PASS] 85. (iset-fold + 0 sparse-set) .......... [PASS] 86. (iset-fold (lambda (_ c) (+ c 1)) 0 neg-set) .......... [PASS] 87. (iset-fold cons (quote ()) pos-set) .......... [PASS] 88. (iset-fold cons (quote ()) mixed-set) .......... [PASS] 89. (iset-fold-right + 0 pos-set) .......... [PASS] 90. (iset-fold-right + 0 sparse-set) .......... [PASS] 91. (iset-fold-right (lambda (_ c) (+ c 1)) 0 neg-set) .......... [PASS] 92. (iset-fold-right cons (quote ()) pos-set) .......... [PASS] 93. (iset-fold-right cons (quote ()) mixed-set) .......... [PASS] 94. (not (iset-empty? (iset-map values (iset)))) .......... [PASS] 95. (iset=? pos-set (iset-map values pos-set)) .......... [PASS] 96. (iset=? (list->iset (map (lambda (n) (* n 2)) mixed-seq)) (iset-map (lambda (n) (* n 2)) mixed-set)) .......... [PASS] 97. (iset=? (iset 1) (iset-map (constantly 1) pos-set)) .......... [PASS] 98. (let ((n 0)) (iset-for-each (lambda (_) (set! n (+ n 1))) mixed-set) n) .......... [PASS] 99. (let ((sum 0)) (iset-for-each (lambda (n) (set! sum (+ sum n))) sparse-set) sum) .......... [PASS] 100. (let ((xs (quote ()))) (iset-for-each (lambda (n) (set! xs (cons n xs))) mixed-set) xs) .......... [PASS] 101. (not (iset-empty? (iset-filter (constantly #f) pos-set))) .......... [PASS] 102. (iset=? pos-set (iset-filter (constantly #t) pos-set)) .......... [PASS] 103. (iset=? (list->iset (filter even? mixed-seq)) (iset-filter even? mixed-set)) .......... [PASS] 104. (not (iset-empty? (iset-remove (constantly #t) pos-set))) .......... [PASS] 105. (iset=? pos-set (iset-remove (constantly #f) pos-set)) .......... [PASS] 106. (iset=? (list->iset (remove even? mixed-seq)) (iset-remove even? mixed-set)) .......... [PASS] 107. (not (let-values (((in out) (iset-partition (constantly #f) pos-set))) (and (iset-empty? in) (iset=? pos-set out)))) .......... [PASS] 108. (not (let-values (((in out) (iset-partition (constantly #t) pos-set))) (and (iset=? pos-set in) (iset-empty? out)))) .......... [PASS] 109. (not (let-values (((in out) (iset-partition even? mixed-set)) ((lin lout) (partition even? mixed-seq))) (and (iset=? in (list->iset lin)) (iset=? out (list->iset lout))))) .......... [PASS] ;;; Comparison ... 110. (not (iset? (iset) pos-set) .......... [PASS] 123. (iset>? pos-set pos-set+) .......... [PASS] 124. (iset>? pos-set pos-set) .......... [PASS] 125. (not (iset>? pos-set+ pos-set)) .......... [PASS] 126. (not (iset>? pos-set+ pos-set (iset))) .......... [PASS] 127. (iset>? pos-set+ pos-set pos-set) .......... [PASS] 128. (iset>=? (iset) pos-set) .......... [PASS] 129. (iset>=? pos-set pos-set+) .......... [PASS] 130. (not (iset>=? pos-set pos-set)) .......... [PASS] 131. (not (iset>=? pos-set+ pos-set)) .......... [PASS] 132. (not (iset>=? pos-set+ pos-set (iset))) .......... [PASS] 133. (not (iset>=? pos-set+ pos-set pos-set)) .......... [PASS] ;;; Set theory ... 134. (iset=? mixed-set (iset-union! (iset) mixed-set)) .......... [PASS] 135. (iset=? (list->iset (append (iota 20 100 3) (iota 20 -100 3))) (iset-union pos-set neg-set)) .......... [PASS] 136. (iset=? pos-set (iset-union pos-set pos-set)) .......... [PASS] 137. (iset=? (list->iset (iota 30 100 3)) (iset-union pos-set (list->iset (iota 20 130 3)))) .......... [PASS] 138. (iset=? (list->iset (iota 10)) (iset-union (iset 0 1 2) (iset 3 5 8) (iset 4 6 7 9))) .......... [PASS] 139. (not (iset-empty? (iset-intersection (iset) mixed-set))) .......... [PASS] 140. (iset=? neg-set (iset-intersection neg-set neg-set)) .......... [PASS] 141. (iset=? (iset -97) (iset-intersection (iset -97) neg-set)) .......... [PASS] 142. (iset=? (iset) (iset-intersection pos-set neg-set)) .......... [PASS] 143. (iset=? (list->iset (drop-while negative? mixed-seq)) (iset-intersection mixed-set dense-set)) .......... [PASS] 144. (iset=? (iset 0 1) (iset-intersection (iset 0 1 2) (iset 0 1 3 4) (iset 10 7 0 1))) .......... [PASS] 145. (not (iset-empty? (iset-difference neg-set neg-set))) .......... [PASS] 146. (iset=? pos-set (iset-difference pos-set neg-set)) .......... [PASS] 147. (iset=? pos-set (iset-difference pos-set neg-set)) .......... [PASS] 148. (iset=? (iset 100) (iset-difference pos-set (list->iset (cdr pos-seq)))) .......... [PASS] 149. (iset=? (list->iset (take-while negative? mixed-seq)) (iset-difference mixed-set dense-set)) .......... [PASS] 150. (iset=? (iset 0 1) (iset-intersection (iset 0 1 2 5) (iset 0 1 3 4) (iset 10 7 0 1))) .......... [PASS] 151. (iset=? mixed-set (iset-xor (iset) mixed-set)) .......... [PASS] 152. (iset=? (list->iset (append (iota 20 100 3) (iota 20 -100 3))) (iset-xor pos-set neg-set)) .......... [PASS] 153. (iset=? (iset) (iset-xor pos-set pos-set)) .......... [PASS] 154. (iset=? (list->iset (quote (100 103 106))) (iset-xor pos-set (list->iset (iota 17 109 3)))) .......... [PASS] ;;; Subsets ... 155. (not (iset-empty? (iset-open-interval (iset) 0 10))) .......... [PASS] 156. (iset=? (iset 103 106) (iset-open-interval pos-set 100 109)) .......... [PASS] 157. (not (iset-empty? (iset-open-interval neg-set 0 50))) .......... [PASS] 158. (not (iset-empty? (iset-closed-interval (iset) 0 10))) .......... [PASS] 159. (iset=? (iset 100 103 106 109) (iset-closed-interval pos-set 100 109)) .......... [PASS] 160. (not (iset-empty? (iset-closed-interval neg-set 0 50))) .......... [PASS] 161. (not (iset-empty? (iset-open-closed-interval (iset) 0 10))) .......... [PASS] 162. (iset=? (iset 103 106 109) (iset-open-closed-interval pos-set 100 109)) .......... [PASS] 163. (not (iset-empty? (iset-open-closed-interval neg-set 0 50))) .......... [PASS] 164. (not (iset-empty? (iset-closed-open-interval (iset) 0 10))) .......... [PASS] 165. (iset=? (iset 100 103 106) (iset-closed-open-interval pos-set 100 109)) .......... [PASS] 166. (not (iset-empty? (iset-closed-open-interval neg-set 0 50))) .......... [PASS] 167. (not (iset-empty? (isubset= pos-set 90))) .......... [PASS] 168. (iset=? (iset 100) (isubset= pos-set 100)) .......... [PASS] 169. (not (iset-empty? (isubset< (iset) 10))) .......... [PASS] 170. (iset=? (iset 100 103 106) (isubset< pos-set 109)) .......... [PASS] 171. (iset=? (iset -10 -7) (isubset< mixed-set -4)) .......... [PASS] 172. (not (iset-empty? (isubset< mixed-set -15))) .......... [PASS] 173. (not (iset-empty? (isubset<= (iset) 10))) .......... [PASS] 174. (iset=? (iset 100 103 106 109) (isubset<= pos-set 109)) .......... [PASS] 175. (iset=? (iset -10 -7 -4) (isubset<= mixed-set -4)) .......... [PASS] 176. (not (iset-empty? (isubset<= mixed-set -15))) .......... [PASS] 177. (not (iset-empty? (isubset> (iset) 10))) .......... [PASS] 178. (iset=? (iset 151 154 157) (isubset> pos-set 148)) .......... [PASS] 179. (iset=? (iset 41 44 47) (isubset> mixed-set 38)) .......... [PASS] 180. (not (iset-empty? (isubset> mixed-set 50))) .......... [PASS] 181. (not (iset-empty? (isubset>= (iset) 10))) .......... [PASS] 182. (iset=? (iset 148 151 154 157) (isubset>= pos-set 148)) .......... [PASS] 183. (iset=? (iset 38 41 44 47) (isubset>= mixed-set 38)) .......... [PASS] 184. (not (iset-empty? (isubset>= mixed-set 50))) .......... [PASS] 184 out of 184 passed (100.00%) 1. (greet "there!") .......... [PASS] 2. ((append-to (quote ())) (quote ())) .......... [PASS] 3. ((append-to (quote (1 2)) (quote (3 4))) (quote (5 6)) (quote (7 8))) .......... [PASS] 4. (((jenga 1 2) 3 4)) .......... [PASS] 4 out of 4 passed (100.00%) ------------------------------ ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 197: ./skint test/srfi/197.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 214: ./skint test/srfi/214.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 217: ./skint test/srfi/217.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 219: ./skint test/srfi/219.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 221: ./skint test/srfi/221.scm ----------------1. actual .......... [PASS] 2. (generator->list g-actual) .......... [PASS] 3. (generator->list g-actual) .......... [PASS] 4. (generator->list g-actual) .......... [PASS] 5. (generator->list g-actual) .......... [PASS] 6. (generator->list g-actual) .......... [PASS] 7. (generator->list g-actual) .......... [PASS] 8. (generator->list g-actual) .......... [PASS] 9. (generator->list g-actual) .......... [PASS] 10. (generator->list g-actual) .......... [PASS] 11. (generator->list g-actual) .......... [PASS] 12. (stream-car str2) .......... [PASS] 13. (stream-car str2) .......... [PASS] 14. (stream-car str2) .......... [PASS] 15. (not (stream-null? str2)) .......... [PASS] 16. (stream-car str2) .......... [PASS] 17. (stream-car str2) .......... [PASS] 18. (stream-car str2) .......... [PASS] 19. (not (stream-null? str2)) .......... [PASS] 20. (generator->list g-actual) .......... [PASS] 21. (generator->list g-actual) .......... [PASS] 21 out of 21 passed (100.00%) 1. (not (compound? c)) .......... [PASS] 2. (quote (1 2 3)) .......... [PASS] 3. (not (compound? c)) .......... [PASS] 4. (quote (1 2 3)) .......... [PASS] 5. (not (not (compound? (list (quote (1 2 3)))))) .......... [PASS] 6. (compound-length (make-compound 1 2 3)) .......... [PASS] 7. (compound-length (quote test)) .......... [PASS] 8. (compound-ref (make-compound 1 2 3) 0) .......... [PASS] 9. (compound-ref 1 0) .......... [PASS] 10. (compound-subobjects c2) .......... [PASS] 11. (compound-subobjects c2) .......... [PASS] 12. (compound-subobjects c2) .......... [PASS] 13. (list 2 3 4) .......... [PASS] 14. (list 2) .......... [PASS] 15. (compound-subobjects c2) .......... [PASS] 16. (compound-subobjects c2) .......... [PASS] 17. (compound-subobjects c2) .......... [PASS] 18. (not (compound-predicate pred1 (quote a))) .......... [PASS] 19. (not (not (compound-predicate pred1 c1))) .......... [PASS] 20. (not (not (compound-predicate pred1 c2))) .......... [PASS] 21. (not (not (compound-predicate pred3 (quote a)))) .......... [PASS] 22. (not (compound-predicate pred3 c1)) .......... [PASS] 23. (not (not (compound-predicate pred3 c2))) .......... [PASS] 24. (compound-access pred accessor 0 (make-compound 1 2 3)) .......... [PASS] 25. (compound-access pred accessor 0 (make-compound 1 3)) .......... [PASS] 26. (compound-access pred accessor 0 1) .......... [PASS] 27. (compound-access pred accessor 0 2) .......... [PASS] 28. (not (not (compound? alyssa))) .......... [PASS] 29. (not (list? subobjs)) .......... [PASS] 30. (length subobjs) .......... [PASS] 31. (not (student? (car subobjs))) .......... [PASS] 32. (admission-year (car subobjs)) .......... [PASS] 33. (gpa (car subobjs)) .......... [PASS] 34. (not (list? subobjs)) .......... [PASS] 35. (length subobjs) .......... [PASS] 36. (car subobjs) .......... [PASS] 37. (not (student? (cadr subobjs))) .......... [PASS] 38. (admission-year (cadr subobjs)) .......... [PASS] 39. (gpa (cadr subobjs)) .......... [PASS] 40. (not (teacher? (list-ref subobjs 2))) .......... [PASS] 41. (hire-year (list-ref subobjs 2)) .......... [PASS] 42. (salary (list-ref subobjs 2)) .......... [PASS] 43. (compound-length alyssa) .......... [PASS] 44. (not (student? (compound-ref alyssa 0))) .......... [PASS] 45. (not (teacher? (compound-ref george 2))) .......... [PASS] 46. (compound-subobjects (compound-map - (make-compound 1 2 3 4 5))) .......... [PASS] 47. (compound-map->list - (make-compound 1 2 3 4 5)) .......... [PASS] 48. (compound-subobjects (compound-filter teacher? alyssa)) .......... [PASS] 49. (length subobjs) .......... [PASS] 50. (not (teacher? (car subobjs))) .......... [PASS] 51. (not (compound-predicate student? alyssa)) .......... [PASS] 52. (not (compound-predicate student? george)) .......... [PASS] 53. (not (compound-predicate teacher? george)) .......... [PASS] 54. (not (compound-predicate teacher? guy)) .......... [PASS] 55. (not (not (compound-predicate teaching-assistant? alyssa))) .......... [PASS] 56. (not (not (compound-predicate teaching-assistant? guy))) .......... [PASS] 57. (not (compound-predicate teaching-assistant? george)) .......... [PASS] 58. (uni-member-hire-year alyssa) .......... [PASS] 59. (uni-member-hire-year guy) .......... [PASS] 60. (uni-member-hire-year george) .......... [PASS] 61. (uni-member-hire-year (make-compound (quote (27 42 98)) (quote fire!))) .......... [PASS] 61 out of 61 passed (100.00%) [Group Bisections over vectors] 1. (vector-bisect-left #(1 2 2 3 5) 2 <) .......... [PASS] 2. (vector-bisect-right #(1 2 2 3 5) 2 <) .......... [PASS] [Group Bisections over vectors of things other than numbers] 3. (vector-bisect-left #(#\A #\Z #\a #\z) #\B charalist empty-fxmap))) .......... [PASS] 7. (fxmapping->alist (fxmapping 10 (quote a))) .......... [PASS] 8. (fxmapping->alist mixed-fxmap) .......... [PASS] 9. (fxmapping->alist sparse-fxmap) .......... [PASS] 10. (eqv? #t (null? (fxmapping->decreasing-alist empty-fxmap))) .......... [PASS] 11. (fxmapping->decreasing-alist (fxmapping 10 (quote a))) .......... [PASS] 12. (fxmapping->decreasing-alist mixed-fxmap) .......... [PASS] 13. (fxmapping->decreasing-alist sparse-fxmap) .......... [PASS] 14. (eqv? #t (null? (fxmapping-keys empty-fxmap))) .......... [PASS] 15. (fxmapping-keys mixed-fxmap) .......... [PASS] 16. (fxmapping-keys sparse-fxmap) .......... [PASS] 17. (eqv? #t (null? (fxmapping-values empty-fxmap))) .......... [PASS] 18. (fxmapping-values mixed-fxmap) .......... [PASS] 19. (fxmapping-values sparse-fxmap) .......... [PASS] 20. (eqv? #t (every (lambda (im) (equal? (fxmapping->alist im) (generator->list (fxmapping->generator im)))) all-test-fxmaps)) .......... [PASS] 21. (eqv? #t (every (lambda (im) (equal? (fxmapping->decreasing-alist im) (generator->list (fxmapping->decreasing-generator im)))) all-test-fxmaps)) .......... [PASS] [Group Constructors] 22. (fxmapping->alist (fxmapping 1 (quote a) 2 (quote b) 3 (quote c))) .......... [PASS] 23. (eqv? #t (null? (fxmapping->alist (fxmapping-unfold values (lambda (b) (values 1 b)) (lambda (b) (not b)) #t)))) .......... [PASS] 24. (fxmapping->alist (fxmapping-unfold values (lambda (b) (values 1 b)) (lambda (b) (not b)) #f)) .......... [PASS] 25. (fxmapping->alist (fxmapping-unfold (lambda (i) (< i -3)) (lambda (i) (values i i)) (lambda (i) (- i 1)) -1)) .......... [PASS] 26. (fxmapping->alist (fxmapping-unfold (lambda (a _) (> a 4)) (lambda (a b) (values a (* a b))) (lambda (a b) (values (+ a 1) (+ b 2))) 1 2)) .......... [PASS] 27. (eqv? #t (null? (fxmapping->alist (fxmapping-accumulate (lambda (abort b) (if b (abort) (values 1 b (not b)))) #t)))) .......... [PASS] 28. (fxmapping->alist (fxmapping-accumulate (lambda (abort b) (if b (abort) (values 1 b (not b)))) #f)) .......... [PASS] 29. (fxmapping->alist (fxmapping-accumulate (lambda (abort i) (if (< i -3) (abort) (values i i (- i 1)))) -1)) .......... [PASS] 30. (fxmapping->alist (fxmapping-accumulate (lambda (abort a b) (if (> a 4) (abort) (values a (* a b) (+ a 1) (+ b 2)))) 1 2)) .......... [PASS] 31. (let-values (((fxm u v) (fxmapping-accumulate (lambda (abort i) (if (< i -3) (abort (quote x) (quote y)) (values i i (- i 1)))) -1))) (list (fxmapping->alist fxm) u v)) .......... [PASS] 32. (eqv? #t (null? (fxmapping->alist (alist->fxmapping (quote ()))))) .......... [PASS] 33. (fxmapping->alist (alist->fxmapping mixed-seq)) .......... [PASS] 34. (fxmapping->alist (alist->fxmapping sparse-seq)) .......... [PASS] 35. (fxmapping->alist (alist->fxmapping (quote ((0 . a) (1 . b) (2 . c) (2 . #t))))) .......... [PASS] 36. (fxmapping->alist (alist->fxmapping/combinator first-arg (quote ((0 . a) (1 . b) (2 . c) (2 . #t))))) .......... [PASS] [Group Predicates] 37. (eqv? #f (fxmapping-contains? empty-fxmap 1)) .......... [PASS] 38. (eqv? #t (fxmapping-contains? letter-fxmap 0)) .......... [PASS] 39. (eqv? #f (fxmapping-contains? letter-fxmap 100)) .......... [PASS] 40. (eqv? #t (fxmapping-contains? sparse-fxmap 4096)) .......... [PASS] 41. (eqv? #f (fxmapping-contains? sparse-fxmap -4097)) .......... [PASS] 42. (eqv? #t (fxmapping-empty? empty-fxmap)) .......... [PASS] 43. (eqv? #f (fxmapping-empty? letter-fxmap)) .......... [PASS] 44. (eqv? #f (fxmapping-empty? mixed-fxmap)) .......... [PASS] 45. (eqv? #f (fxmapping-empty? sparse-fxmap)) .......... [PASS] 46. (eqv? #t (fxmapping-disjoint? empty-fxmap letter-fxmap)) .......... [PASS] 47. (eqv? #t (fxmapping-disjoint? (fxmapping 1 (quote a)) (fxmapping 2 (quote b)))) .......... [PASS] 48. (eqv? #f (fxmapping-disjoint? (fxmapping 1 (quote a)) (fxmapping 1 (quote b)))) .......... [PASS] [Group Accessors] 49. (eqv? -50 (fxmapping-ref mixed-fxmap -50)) .......... [PASS] 50. (eqv? 36864 (fxmapping-ref sparse-fxmap 36864)) .......... [PASS] 51. (eqv? (quote z) (fxmapping-ref sparse-fxmap 17 (lambda () (quote z)))) .......... [PASS] 52. (eqv? 625 (fxmapping-ref mixed-fxmap 25 (lambda () #f) square)) .......... [PASS] 53. (eqv? (quote z) (fxmapping-ref/default empty-fxmap 1 (quote z))) .......... [PASS] 54. (eqv? (quote a) (fxmapping-ref/default letter-fxmap 0 #f)) .......... [PASS] 55. (eqv? -50 (fxmapping-ref/default mixed-fxmap -50 #f)) .......... [PASS] 56. (eqv? (quote z) (fxmapping-ref/default mixed-fxmap -51 (quote z))) .......... [PASS] 57. (eqv? 36864 (fxmapping-ref/default sparse-fxmap 36864 #f)) .......... [PASS] 58. (eqv? (quote z) (fxmapping-ref/default sparse-fxmap 36800 (quote z))) .......... [PASS] 59. (let-values ((xs (fxmapping-min letter-fxmap))) xs) .......... [PASS] 60. (let-values ((xs (fxmapping-min mixed-fxmap))) xs) .......... [PASS] 61. (let-values ((xs (fxmapping-max letter-fxmap))) xs) .......... [PASS] 62. (let-values ((xs (fxmapping-max mixed-fxmap))) xs) .......... [PASS] [Group Updaters] 63. (eqv? #t (fxmapping=? default-comp (fxmapping 0 (quote a)) (fxmapping-adjoin empty-fxmap 0 (quote a)))) .......... [PASS] 64. (eqv? #t (fxmapping-contains? (fxmapping-adjoin mixed-fxmap 200 #t) 200)) .......... [PASS] 65. (eqv? #t (fxmapping-contains? (fxmapping-adjoin sparse-fxmap -200 #t) -200)) .......... [PASS] 66. (eqv? #t (fxmapping=? default-comp (fxmapping 0 (quote a) 1 (quote b) 2 (quote c)) (fxmapping-adjoin empty-fxmap 0 (quote a) 1 (quote b) 2 (quote c)))) .......... [PASS] 67. (eqv? (fxmapping-ref sparse-fxmap -4096) (fxmapping-ref (fxmapping-adjoin sparse-fxmap -4096 (quote z)) -4096)) .......... [PASS] 68. (eqv? (quote U) (fxmapping-ref/default (fxmapping-adjoin/combinator letter-fxmap first-arg 20 (quote U)) 20 #f)) .......... [PASS] 69. (eqv? (quote u) (fxmapping-ref/default (fxmapping-adjoin/combinator letter-fxmap second-arg 20 (quote U)) 20 #f)) .......... [PASS] 70. (eqv? #t (fxmapping=? default-comp (fxmapping 0 (quote a) 1 (quote b) 2 (quote c)) (fxmapping-adjoin/combinator empty-fxmap first-arg 0 (quote a) 1 (quote b) 2 (quote c)))) .......... [PASS] 71. (eqv? #t (fxmapping=? default-comp (fxmapping 0 (quote a)) (fxmapping-set empty-fxmap 0 (quote a)))) .......... [PASS] 72. (eqv? #t (fxmapping-contains? (fxmapping-set mixed-fxmap 200 #t) 200)) .......... [PASS] 73. (eqv? #t (fxmapping-contains? (fxmapping-set sparse-fxmap -200 #t) -200)) .......... [PASS] 74. (eqv? #t (fxmapping=? default-comp (fxmapping 0 (quote a) 1 (quote b) 2 (quote c)) (fxmapping-set empty-fxmap 0 (quote a) 1 (quote b) 2 (quote c)))) .......... [PASS] 75. (eqv? (quote z) (fxmapping-ref (fxmapping-set sparse-fxmap -4096 (quote z)) -4096)) .......... [PASS] 76. (fxmapping-ref/default (fxmapping-adjust letter-fxmap 20 list) 20 #f) .......... [PASS] 77. (eqv? 16384 (fxmapping-ref/default (fxmapping-adjust sparse-fxmap 8192 (lambda (k v) (+ k v))) 8192 #f)) .......... [PASS] 78. (eqv? #t (fxmapping-empty? (fxmapping-adjust empty-fxmap 1 list))) .......... [PASS] 79. (eqv? #f (fxmapping-contains? (fxmapping-delete letter-fxmap 10) 10)) .......... [PASS] 80. (eqv? #f (fxmapping-contains? (fxmapping-delete mixed-fxmap 50) 50)) .......... [PASS] 81. (eqv? #t (fxmapping=? default-comp mixed-fxmap (fxmapping-delete mixed-fxmap 1))) .......... [PASS] 82. (eqv? #f (any (lambda (k) (fxmapping-contains? sm k)) ks)) .......... [PASS] 83. (eqv? #f (fxmapping-contains? (fxmapping-delete-all letter-fxmap (quote (10))) 10)) .......... [PASS] 84. (eqv? #f (fxmapping-contains? (fxmapping-delete-all mixed-fxmap (quote (50))) 50)) .......... [PASS] 85. (eqv? #t (fxmapping=? default-comp mixed-fxmap (fxmapping-delete-all mixed-fxmap (quote (1))))) .......... [PASS] 86. (eqv? #f (any (lambda (k) (fxmapping-contains? sm k)) ks)) .......... [PASS] 87. (eqv? #t (fxmapping=? default-comp (fxmapping 0 (quote (0 a))) (fxmapping-update (fxmapping 0 (quote a)) 0 (lambda (k v replace _del) (replace (list k v)))))) .......... [PASS] 88. (eqv? (quote U) (fxmapping-ref/default (fxmapping-update letter-fxmap 20 (lambda (_k _v replace _del) (replace (quote U)))) 20 #f)) .......... [PASS] 89. (eqv? #f (fxmapping-contains? (fxmapping-update letter-fxmap 20 (lambda (_k _v _rep delete) (delete))) 20)) .......... [PASS] 90. (eqv? #f (fxmapping-contains? (fxmapping-update sparse-fxmap -8192 (lambda (_k _v _rep delete) (delete))) -8192)) .......... [PASS] 91. (fxmapping-update (fxmapping 0 (quote a)) 0 (lambda (_k _v _r delete) (list (fxmapping->alist (delete)) #t))) .......... [PASS] 92. (fxmapping-update (fxmapping 0 (quote a)) 0 (lambda (_k _v replace _d) (list (fxmapping->alist (replace (quote z))) #t))) .......... [PASS] 93. (eqv? #t (fxmapping=? default-comp mixed-fxmap (fxmapping-update mixed-fxmap 5 (lambda (_k _v replace _d) (replace (quote z))) (lambda () mixed-fxmap)))) .......... [PASS] 94. (eqv? #t (fxmapping=? default-comp (fxmapping 0 (quote a)) (fxmapping-alter (fxmapping 0 (quote a)) 1 (lambda (_ins ignore) (ignore)) (lambda (_k v replace _del) (replace v))))) .......... [PASS] 95. (eqv? #t (fxmapping=? default-comp (fxmapping 0 (quote a) 1 (quote b)) (fxmapping-alter (fxmapping 0 (quote a)) 1 (lambda (insert _ig) (insert (quote b))) (lambda (_k v replace _del) (replace (quote b)))))) .......... [PASS] 96. (eqv? 101 (fxmapping-ref/default (fxmapping-alter mixed-fxmap 101 (lambda (insert _ig) (insert 101)) (lambda (_k _v replace _del) (replace 101))) 101 #f)) .......... [PASS] 97. (eqv? 101 (fxmapping-ref/default (fxmapping-alter mixed-fxmap 100 (lambda (insert _ig) (insert 101)) (lambda (_k v replace _del) (replace (+ v 1)))) 100 #f)) .......... [PASS] 98. (eqv? (quote z) (fxmapping-ref/default (fxmapping-alter mixed-fxmap 100 (lambda (_ins ignore) (ignore)) (lambda (_k _v _rep delete) (delete))) 100 (quote z))) .......... [PASS] 99. (eqv? -16383 (fxmapping-ref/default (fxmapping-alter sparse-fxmap -16384 (lambda (insert _ig) (insert -16383)) (lambda (_k v replace _del) (replace (+ v 1)))) -16384 #f)) .......... [PASS] 100. (eqv? (quote z) (fxmapping-ref/default (fxmapping-alter sparse-fxmap -16384 (lambda (_ins ignore) (ignore)) (lambda (_k _v _rep delete) (delete))) -16384 (quote z))) .......... [PASS] 101. (fxmapping-alter (fxmapping 0 (quote a)) 0 (lambda (_in ignore) (list #f #f)) (lambda (_k _v _r delete) (list (fxmapping->alist (delete)) #t))) .......... [PASS] 102. (fxmapping-alter (fxmapping 0 (quote a)) 1 (lambda (insert _ig) (list (fxmapping->alist (insert (quote b))) #t)) (lambda (_k _v _r delete) (list #f #f))) .......... [PASS] 103. (eqv? #t (fxmapping=? default-comp empty-fxmap (fxmapping-delete-min (fxmapping 0 (quote a))))) .......... [PASS] 104. (eqv? #f (fxmapping-contains? (fxmapping-delete-min letter-fxmap) 0)) .......... [PASS] 105. (eqv? #f (fxmapping-contains? (fxmapping-delete-min sparse-fxmap) -65536)) .......... [PASS] 106. (eqv? #t (fxmapping=? default-comp empty-fxmap (fxmapping-delete-max (fxmapping 0 (quote a))))) .......... [PASS] 107. (eqv? #f (fxmapping-contains? (fxmapping-delete-max letter-fxmap) 25)) .......... [PASS] 108. (eqv? #f (fxmapping-contains? (fxmapping-delete-max sparse-fxmap) 65536)) .......... [PASS] 109. (eqv? -200 (fxmapping-ref/default (fxmapping-update-min mixed-fxmap (lambda (k v replace _del) (replace (+ k v)))) -100 #f)) .......... [PASS] 110. (fxmapping-ref/default (fxmapping-update-min letter-fxmap (lambda (k v replace _del) (replace (list k v)))) 0 #f) .......... [PASS] 111. (fxmapping-update-min (fxmapping -3 (quote q) 0 (quote a)) (lambda (k v _rep delete) (list (fxmapping->alist (delete)) #t))) .......... [PASS] 112. (fxmapping-update-min (fxmapping -3 (quote q) 0 (quote a)) (lambda (k v replace _del) (list (fxmapping->alist (replace (quote z))) #t))) .......... [PASS] 113. (eqv? 200 (fxmapping-ref/default (fxmapping-update-max mixed-fxmap (lambda (k v replace _del) (replace (+ k v)))) 100 #f)) .......... [PASS] 114. (fxmapping-ref/default (fxmapping-update-max letter-fxmap (lambda (k v replace _del) (replace (list k v)))) 25 #f) .......... [PASS] 115. (fxmapping-update-max (fxmapping 3 (quote d) 0 (quote a)) (lambda (k v _rep delete) (list (fxmapping->alist (delete)) #t))) .......... [PASS] 116. (fxmapping-update-max (fxmapping 3 (quote d) 0 (quote a)) (lambda (k v replace _del) (list (fxmapping->alist (replace (quote z))) #t))) .......... [PASS] 117. (eqv? #t (every (lambda (im) (let-values (((k v im*) (fxmapping-pop-min im)) ((test-k test-v) (fxmapping-min im))) (and (= k test-k) (eqv? v test-v) (fxmapping=? default-comp (fxmapping-delete-min im) im*)))) (list mixed-fxmap letter-fxmap sparse-fxmap))) .......... [PASS] 118. (eqv? #t (every (lambda (im) (let-values (((k v im*) (fxmapping-pop-max im)) ((test-k test-v) (fxmapping-max im))) (and (= k test-k) (eqv? v test-v) (fxmapping=? default-comp (fxmapping-delete-max im) im*)))) (list mixed-fxmap letter-fxmap sparse-fxmap))) .......... [PASS] [Group Whole fxmappings] 119. (eqv? 0 (fxmapping-size empty-fxmap)) .......... [PASS] 120. (eqv? 26 (fxmapping-size letter-fxmap)) .......... [PASS] 121. (eqv? (quote z) (fxmapping-find even? empty-fxmap (constantly (quote z)))) .......... [PASS] 122. (fxmapping-find (lambda (_ v) (symbol? v)) letter-fxmap (lambda () (quote (#f #f))) list) .......... [PASS] 123. (fxmapping-find (lambda (_ s) (memv s ss)) letter-fxmap (lambda () (quote (#f #f))) list) .......... [PASS] 124. (fxmapping-find (lambda (_ v) (positive? v)) sparse-fxmap (lambda () (quote (#f #f))) list) .......... [PASS] 125. (fxmapping-find (lambda (_ v) (integer? v)) sparse-fxmap (lambda () (quote (#f #f))) list) .......... [PASS] 126. (fxmapping-find eqv? letter-fxmap (lambda () (quote (z z))) list) .......... [PASS] 127. (eqv? 0 (fxmapping-count (lambda (_ v) (even? v)) empty-fxmap)) .......... [PASS] 128. (eqv? 26 (fxmapping-count (lambda (_ v) (symbol? v)) letter-fxmap)) .......... [PASS] 129. (eqv? (length ss) (fxmapping-count (lambda (_ s) (memv s ss)) letter-fxmap)) .......... [PASS] 130. (eqv? (- (fxmapping-size letter-fxmap) (length ss)) (fxmapping-count (lambda (_ s) (not (memv s ss))) letter-fxmap)) .......... [PASS] 131. (eqv? 4 (fxmapping-count (lambda (_ v) (positive? v)) mixed-fxmap)) .......... [PASS] 132. (eqv? 2 (fxmapping-count (lambda (k v) (and (even? k) (positive? v))) mixed-fxmap)) .......... [PASS] 133. (eqv? #f (fxmapping-any? (lambda (_ v) (even? v)) empty-fxmap)) .......... [PASS] 134. (eqv? #t (fxmapping-any? (lambda (_ v) (positive? v)) mixed-fxmap)) .......... [PASS] 135. (eqv? #f (fxmapping-any? (lambda (_ v) (odd? v)) sparse-fxmap)) .......... [PASS] 136. (eqv? #t (fxmapping-any? (lambda (_ v) (negative? v)) sparse-fxmap)) .......... [PASS] 137. (eqv? #t (fxmapping-every? (lambda (_ v) (even? v)) empty-fxmap)) .......... [PASS] 138. (eqv? #f (fxmapping-every? (lambda (_ v) (positive? v)) mixed-fxmap)) .......... [PASS] 139. (eqv? #t (fxmapping-every? (lambda (_ v) (even? v)) sparse-fxmap)) .......... [PASS] 140. (eqv? #f (fxmapping-every? (lambda (_ v) (negative? v)) sparse-fxmap)) .......... [PASS] [Group Iterators] 141. (eqv? #t (fxmapping=? default-comp empty-fxmap (fxmapping-map (constantly #t) empty-fxmap))) .......... [PASS] 142. (eqv? #t (fxmapping=? default-comp mixed-fxmap (fxmapping-map (nth 1) mixed-fxmap))) .......... [PASS] 143. (eqv? #t (fxmapping=? default-comp (fxmapping 0 "" 1 "b" 2 "cc") (fxmapping-map make-string (fxmapping 0 #\a 1 #\b 2 #\c)))) .......... [PASS] 144. (eqv? 26 (let ((size 0)) (fxmapping-for-each (lambda (_k _v) (set! size (+ size 1))) letter-fxmap) size)) .......... [PASS] 145. (let ((xs (quote ()))) (fxmapping-for-each (lambda (_ x) (set! xs (cons x xs))) (fxmapping 0 (quote a) 1 (quote b) 2 (quote c))) xs) .......... [PASS] 146. (let ((xs (quote ()))) (fxmapping-for-each (lambda (k x) (set! xs (cons (cons k x) xs))) (fxmapping 0 (quote a) 1 (quote b) 2 (quote c))) xs) .......... [PASS] 147. (eqv? (quote z) (fxmapping-fold (nth 2) (quote z) empty-fxmap)) .......... [PASS] 148. (fxmapping-fold (lambda (_ v vs) (cons v vs)) (quote ()) letter-fxmap) .......... [PASS] 149. (fxmapping-fold (lambda (_ v vs) (cons v vs)) (quote ()) mixed-fxmap) .......... [PASS] 150. (eqv? (fold + 0 (iota 9 -100 25)) (fxmapping-fold (lambda (_ v sum) (+ v sum)) 0 mixed-fxmap)) .......... [PASS] 151. (fxmapping-fold (lambda (k c as) (cons (cons k (make-string k c)) as)) (quote ()) (fxmapping 0 #\a 1 #\b 2 #\c)) .......... [PASS] 152. (eqv? (quote z) (fxmapping-fold-right (nth 2) (quote z) empty-fxmap)) .......... [PASS] 153. (fxmapping-fold-right (lambda (_ v vs) (cons v vs)) (quote ()) letter-fxmap) .......... [PASS] 154. (fxmapping-fold-right (lambda (_ v vs) (cons v vs)) (quote ()) mixed-fxmap) .......... [PASS] 155. (eqv? (fold + 0 (iota 9 -100 25)) (fxmapping-fold-right (lambda (_ v sum) (+ v sum)) 0 mixed-fxmap)) .......... [PASS] 156. (fxmapping-fold-right (lambda (k c as) (cons (cons k (make-string k c)) as)) (quote ()) (fxmapping 0 #\a 1 #\b 2 #\c)) .......... [PASS] 157. (eqv? #t (null? (fxmapping-map->list (constantly #t) empty-fxmap))) .......... [PASS] 158. (fxmapping-map->list (nth 1) letter-fxmap) .......... [PASS] 159. (fxmapping-map->list (lambda (_ v) (square v)) mixed-fxmap) .......... [PASS] 160. (fxmapping-map->list (lambda (_ n) (make-string n #\a)) (fxmapping 0 0 1 1 2 2)) .......... [PASS] 161. (fxmapping-map->list (nth 0) letter-fxmap) .......... [PASS] 162. (fxmapping-map->list (lambda (k c) (cons k (make-string k c))) (fxmapping 0 #\a 1 #\b 2 #\c)) .......... [PASS] [Group Filters] 163. (eqv? #t (every values (map (lambda (m) (fxmapping=? default-comp m (fxmapping-filter (constantly #t) m))) all-test-fxmaps))) .......... [PASS] 164. (eqv? #t (every fxmapping-empty? (map (lambda (m) (fxmapping-filter (constantly #f) m)) all-test-fxmaps))) .......... [PASS] 165. (eqv? #t (fxmapping=? default-comp (fxmapping 25 25 75 75) (fxmapping-filter (lambda (k v) (and (odd? k) (positive? v))) mixed-fxmap))) .......... [PASS] 166. (eqv? #t (every (lambda (m) (fxmapping=? default-comp m (fxmapping-remove (constantly #f) m))) all-test-fxmaps)) .......... [PASS] 167. (eqv? #t (every fxmapping-empty? (map (lambda (m) (fxmapping-remove (constantly #t) m)) all-test-fxmaps))) .......... [PASS] 168. (eqv? #t (fxmapping=? default-comp (fxmapping -100 -100 -50 -50 0 0) (fxmapping-remove (lambda (k v) (or (odd? k) (positive? v))) mixed-fxmap))) .......... [PASS] 169. (eqv? #t (every (lambda (m) (fxmapping=? default-comp m (value/mv 0 (fxmapping-partition (constantly #t) m)))) all-test-fxmaps)) .......... [PASS] 170. (let-values (((em om) (fxmapping-partition (lambda (_ v) (even? v)) mixed-fxmap))) (list (fxmapping-values em) (fxmapping-values om))) .......... [PASS] 171. (eqv? #t (let-values (((zm not-zm) (fxmapping-partition (lambda (_ s) (eqv? s (quote z))) letter-fxmap))) (and (fxmapping=? default-comp zm (fxmapping 25 (quote z))) (fxmapping=? default-comp not-zm (fxmapping-delete letter-fxmap 25))))) .......... [PASS] 172. (let-values (((em _) (fxmapping-partition (lambda (k _) (even? k)) letter-fxmap))) (fxmapping-values em)) .......... [PASS] [Group Comparison] 173. (eqv? #t (fxmapping? default-comp mixed-fxmap (fxmapping))) .......... [PASS] 179. (eqv? #f (fxmapping>? default-comp subfxmap mixed-fxmap)) .......... [PASS] 180. (eqv? #t (fxmapping>? default-comp mixed-fxmap subfxmap)) .......... [PASS] 181. (eqv? #f (fxmapping>? default-comp mixed-fxmap mixed-fxmap)) .......... [PASS] 182. (eqv? #f (fxmapping>? default-comp (fxmapping 0 (quote z) 1 (quote b)) (fxmapping 0 (quote a)))) .......... [PASS] 183. (eqv? #t (fxmapping<=? default-comp (fxmapping) mixed-fxmap)) .......... [PASS] 184. (eqv? #t (fxmapping<=? default-comp subfxmap mixed-fxmap)) .......... [PASS] 185. (eqv? #f (fxmapping<=? default-comp mixed-fxmap subfxmap)) .......... [PASS] 186. (eqv? #t (fxmapping<=? default-comp mixed-fxmap mixed-fxmap)) .......... [PASS] 187. (eqv? #f (fxmapping<=? default-comp (fxmapping 0 (quote z) 1 (quote b)) (fxmapping 0 (quote a) 1 (quote b)))) .......... [PASS] 188. (eqv? #t (fxmapping>=? default-comp mixed-fxmap (fxmapping))) .......... [PASS] 189. (eqv? #f (fxmapping>=? default-comp subfxmap mixed-fxmap)) .......... [PASS] 190. (eqv? #t (fxmapping>=? default-comp mixed-fxmap subfxmap)) .......... [PASS] 191. (eqv? #t (fxmapping>=? default-comp mixed-fxmap mixed-fxmap)) .......... [PASS] 192. (eqv? #f (fxmapping<=? default-comp (fxmapping 0 (quote z) 1 (quote b)) (fxmapping 0 (quote a) 1 (quote b)))) .......... [PASS] 193. (eqv? #t (fxmapping? default-comp mixed-fxmap subfxmap subfxmap1)) .......... [PASS] 196. (eqv? #f (fxmapping>? default-comp mixed-fxmap empty-fxmap subfxmap1)) .......... [PASS] 197. (eqv? #t (fxmapping<=? default-comp subfxmap1 subfxmap subfxmap mixed-fxmap)) .......... [PASS] 198. (eqv? #f (fxmapping<=? default-comp subfxmap1 empty-fxmap mixed-fxmap)) .......... [PASS] 199. (eqv? #t (fxmapping>=? default-comp mixed-fxmap subfxmap subfxmap subfxmap1)) .......... [PASS] 200. (eqv? #f (fxmapping>=? default-comp mixed-fxmap empty-fxmap subfxmap1)) .......... [PASS] [Group Set theory] 201. (eqv? #t (fxmapping=? default-comp sparse-fxmap (fxmapping-union sparse-fxmap empty-fxmap))) .......... [PASS] 202. (eqv? #t (fxmapping=? default-comp (fxmapping -5 (quote a) -2 (quote b) 1 (quote c) 3 (quote d) 5 (quote e)) (fxmapping-union fxmap1 fxmap2))) .......... [PASS] 203. (eqv? #t (fxmapping=? default-comp (fxmapping -2 (quote b) 3 (quote d) 5 (quote e) 7 (quote f)) (fxmapping-union fxmap2 fxmap3))) .......... [PASS] 204. (eqv? #t (fxmapping=? default-comp (fxmapping -5 (quote a) -2 (quote b) 1 (quote c) 3 (quote d) 5 (quote e) 7 (quote f)) (fxmapping-union fxmap1 fxmap2 fxmap3))) .......... [PASS] 205. (eqv? #t (fxmapping-empty? (fxmapping-intersection sparse-fxmap empty-fxmap))) .......... [PASS] 206. (eqv? #t (fxmapping=? default-comp (fxmapping -2 (quote b)) (fxmapping-intersection fxmap1 fxmap2))) .......... [PASS] 207. (eqv? #t (fxmapping=? default-comp (fxmapping 3 (quote d) 5 (quote e)) (fxmapping-intersection fxmap2 fxmap3))) .......... [PASS] 208. (eqv? #t (fxmapping=? default-comp (fxmapping -2 (quote b)) (fxmapping-intersection fxmap1 fxmap2 (fxmapping -2 (quote b))))) .......... [PASS] 209. (eqv? #t (fxmapping=? default-comp sparse-fxmap (fxmapping-difference sparse-fxmap empty-fxmap))) .......... [PASS] 210. (eqv? #t (fxmapping=? default-comp (fxmapping -5 (quote a) 1 (quote c)) (fxmapping-difference fxmap1 fxmap2))) .......... [PASS] 211. (eqv? #t (fxmapping=? default-comp (fxmapping -2 (quote b)) (fxmapping-difference fxmap2 fxmap3))) .......... [PASS] 212. (eqv? #t (fxmapping=? default-comp (fxmapping -5 (quote a) 1 (quote c)) (fxmapping-difference fxmap1 fxmap2 fxmap3))) .......... [PASS] 213. (eqv? #t (fxmapping=? default-comp sparse-fxmap (fxmapping-xor sparse-fxmap empty-fxmap))) .......... [PASS] 214. (eqv? #t (fxmapping=? default-comp (fxmapping -5 (quote a) 1 (quote c) 3 (quote d) 5 (quote e)) (fxmapping-xor fxmap1 fxmap2))) .......... [PASS] 215. (eqv? #t (fxmapping=? default-comp (fxmapping -2 (quote b) 7 (quote f)) (fxmapping-xor fxmap2 fxmap3))) .......... [PASS] 216. (eqv? #t (fxmapping=? default-comp sparse-fxmap (fxmapping-union/combinator second-arg sparse-fxmap empty-fxmap))) .......... [PASS] 217. (eqv? #t (fxmapping=? default-comp (fxmapping -2 (quote b) 3 (quote d) 5 (quote g) 7 (quote f)) (fxmapping-union/combinator second-arg fxmap2 fxmap3))) .......... [PASS] 218. (eqv? #t (fxmapping=? default-comp (fxmapping -5 (quote a) -2 (quote b) 1 (quote c) 3 (quote d) 5 (quote g) 7 (quote f)) (fxmapping-union/combinator second-arg fxmap1 fxmap2 fxmap3))) .......... [PASS] 219. (eqv? #t (fxmapping=? default-comp (fxmapping 0 "abc") (fxmapping-union/combinator (lambda (_ s t) (string-append s t)) (fxmapping 0 "a") (fxmapping 0 "b") (fxmapping 0 "c")))) .......... [PASS] 220. (eqv? #t (fxmapping=? default-comp empty-fxmap (fxmapping-intersection/combinator second-arg sparse-fxmap empty-fxmap))) .......... [PASS] 221. (eqv? #t (fxmapping=? default-comp (fxmapping 3 (quote d) 5 (quote g)) (fxmapping-intersection/combinator second-arg fxmap2 fxmap3))) .......... [PASS] 222. (eqv? #t (fxmapping=? default-comp (fxmapping -2 (quote z)) (fxmapping-intersection/combinator second-arg fxmap1 fxmap2 (fxmapping -2 (quote z))))) .......... [PASS] 223. (eqv? #t (fxmapping=? default-comp (fxmapping 0 "abc") (fxmapping-intersection/combinator (lambda (_ s t) (string-append s t)) (fxmapping 0 "a") (fxmapping 0 "b") (fxmapping 0 "c")))) .......... [PASS] [Group Intervals] 224. (fxmapping->alist (fxmapping-open-interval mixed-fxmap -50 50)) .......... [PASS] 225. (fxmapping->alist (fxmapping-open-interval letter-fxmap 5 10)) .......... [PASS] 226. (fxmapping->alist (fxmapping-open-interval sparse-fxmap -12288 12288)) .......... [PASS] 227. (fxmapping->alist (fxmapping-closed-interval mixed-fxmap -50 50)) .......... [PASS] 228. (fxmapping->alist (fxmapping-closed-interval letter-fxmap 5 10)) .......... [PASS] 229. (fxmapping->alist (fxmapping-closed-interval sparse-fxmap -12288 12288)) .......... [PASS] 230. (fxmapping->alist (fxmapping-open-closed-interval mixed-fxmap -50 50)) .......... [PASS] 231. (fxmapping->alist (fxmapping-open-closed-interval letter-fxmap 5 10)) .......... [PASS] 232. (fxmapping->alist (fxmapping-open-closed-interval sparse-fxmap -12288 12288)) .......... [PASS] 233. (fxmapping->alist (fxmapping-closed-open-interval mixed-fxmap -50 50)) .......... [PASS] 234. (fxmapping->alist (fxmapping-closed-open-interval letter-fxmap 5 10)) .......... [PASS] 235. (fxmapping->alist (fxmapping-closed-open-interval sparse-fxmap -12288 12288)) .......... [PASS] [Group Submappings] 236. (fxmapping->alist (fxsubmapping= mixed-fxmap 100)) .......... [PASS] 237. (fxmapping->alist (fxsubmapping= letter-fxmap 7)) .......... [PASS] 238. (fxmapping->alist (fxsubmapping= sparse-fxmap 16384)) .......... [PASS] 239. (eqv? #t (fxmapping-empty? (fxsubmapping= sparse-fxmap 1))) .......... [PASS] 240. (fxmapping->alist (fxsubmapping< mixed-fxmap 0)) .......... [PASS] 241. (fxmapping->alist (fxsubmapping< letter-fxmap 3)) .......... [PASS] 242. (fxmapping->alist (fxsubmapping< sparse-fxmap -53248)) .......... [PASS] 243. (fxmapping->alist (fxsubmapping> mixed-fxmap 0)) .......... [PASS] 244. (fxmapping->alist (fxsubmapping> letter-fxmap 22)) .......... [PASS] 245. (fxmapping->alist (fxsubmapping> sparse-fxmap 53248)) .......... [PASS] 246. (fxmapping->alist (fxsubmapping<= mixed-fxmap 0)) .......... [PASS] 247. (fxmapping->alist (fxsubmapping<= letter-fxmap 3)) .......... [PASS] 248. (fxmapping->alist (fxsubmapping<= sparse-fxmap -53248)) .......... [PASS] 249. (fxmapping->alist (fxsubmapping>= mixed-fxmap 0)) .......... [PASS] 250. (fxmapping->alist (fxsubmapping>= letter-fxmap 22)) .......... [PASS] 251. (fxmapping->alist (fxsubmapping>= sparse-fxmap 53248)) .......... [PASS] 252. (let-values ((fxmaps (fxmapping-split mixed-fxmap 0))) (map fxmapping->alist fxmaps)) .......... [PASS] 253. (let*-values (((min-key _) (fxmapping-min sparse-fxmap)) (fxmaps (fxmapping-split sparse-fxmap (- min-key 1)))) (map fxmapping->alist fxmaps)) .......... [PASS] 254. (let*-values (((max-key _) (fxmapping-max sparse-fxmap)) (fxmaps (fxmapping-split sparse-fxmap (+ max-key 1)))) (map fxmapping->alist fxmaps)) .......... [PASS] [Group Relation map] 255. (eqv? #t (fxmapping=? default-comp (fxmapping 0 #t) (fxmapping-relation-map (lambda (_k _v) (values 0 #t)) letter-fxmap))) .......... [PASS] 256. (eqv? #t (fxmapping=? default-comp letter-fxmap (fxmapping-relation-map values letter-fxmap))) .......... [PASS] 257. (fxmapping->alist (fxmapping-relation-map (lambda (k v) (values (- k) v)) (fxmapping 0 (quote a) -1 (quote b) -2 (quote c)))) .......... [PASS] 257 out of 257 passed (100.00%) [testing Dictionaries] [testing default] [testing dictionary?] [testing dict-empty?] [testing dict-contains?] [testing dict=?] [testing dict-ref] [testing dict-ref/default] [testing dict-set!] [testing dict-adjoin!] [testing dict-delete!] [testing dict-delete-all!] [testing dict-replace!] [testing dict-intern!] [testing dict-update!] [testing dict-update/default!] [testing dict-pop!] [testing dict-map] [testing dict-filter] [testing dict-remove] [testing dict-find-update!] [testing dict-size] [testing dict-count] [testing dict-any] [testing dict-every] [testing dict-keys] [testing dict-values] [testing dict-entries] [testing dict-fold] [testing dict-map->list] [testing dict->alist] [testing dict-comparator] [testing dict-for-each] [testing dict->generator] [testing dict-set!-accumulator] [testing dict-adjoin!-accumulator] [testing alist] [testing dictionary?] [testing dict-empty?] [testing dict-contains?] [testing dict=?] [testing dict-ref] [testing dict-ref/default] [testing dict-set!] [testing dict-adjoin!] [testing dict-delete!] [testing dict-delete-all!] [testing dict-replace!] [testing dict-intern!] [testing dict-update!] [testing dict-update/default!] [testing dict-pop!] [testing dict-map] [testing dict-filter] [testing dict-remove] [testing dict-find-update!] [testing dict-size] [testing dict-count] [testing dict-any] [testing dict-every] [testing dict-keys] [testing dict-values] [testing dict-entries] [testing dict-fold] [testing dict-map->list] [testing dict->alist] [testing dict-comparator] [testing dict-for-each] [testing dict->generator] [testing dict-set!-accumulator] [testing dict-adjoin!-accumulator] [testing srfi-69] [testing dictionary?] [testing dict-empty?] [testing dict-contains?] [testing dict=?] [testing dict-ref] [testing dict-ref/default] [testing dict-set!] [testing dict-adjoin!] [testing dict-delete!] [testing dict-delete-all!] [testing dict-replace!] [testing dict-intern!] [testing dict-update!] [testing dict-update/default!] [testing dict-pop!] [testing dict-map] [testing dict-filter] [testing dict-remove] [testing dict-find-update!] [testing dict-size] [testing dict-count] [testing dict-any] [testing dict-every] [testing dict-keys] [testing dict-values] [testing dict-entries] [testing dict-fold] [testing dict-map->list] [testing dict->alist] [testing dict-comparator] [testing dict-for-each] [testing dict->generator] [testing dict-set!-accumulator] [testing dict-adjoin!-accumulator] [testing srfi-125] [testing dictionary?] [testing dict-empty?] [testing dict-contains?] [testing dict=?] [testing dict-ref] [testing dict-ref/default] [testing dict-set!] [testing dict-adjoin!] [testing dict-delete!] [testing dict-delete-all!] [testing dict-replace!] [testing dict-intern!] [testing dict-update!] [testing dict-update/default!] [testing dict-pop!] [testing dict-map] [testing dict-filter] [testing dict-remove] [testing dict-find-update!] [testing dict-size] [testing dict-count] [testing dict-any] [testing dict-every] [testing dict-keys] [testing dict-values] [testing dict-entries] [testing dict-fold] [testing dict-map->list] [testing dict->alist] [testing dict-comparator] [testing dict-for-each] [testing dict->generator] [testing dict-set!-accumulator] [testing dict-adjoin!-accumulator] [testing srfi-146] [testing dictionary?] [testing dict-empty?] [testing dict-contains?] [testing dict=?] [testing dict-ref] [testing dict-ref/default] [testing dict-set!] [testing dict-adjoin!] [testing dict-delete!] [testing dict-delete-all!] [testing dict-replace!] [testing dict-intern!] [testing dict-update!] [testing dict-update/default!] [testing dict-pop!] [testing dict-map] [testing dict-filter] [testing dict-remove] [testing dict-find-update!] [testing dict-size] [testing dict-count] [testing dict-any] [testing dict-every] [testing dict-keys] [testing dict-values] [testing dict-entries] [testing dict-fold] [testing dict-map->list] [testing dict->alist] [testing dict-comparator] [testing dict-for-each] [testing dict->generator] [testing dict-set!-accumulator] [testing dict-adjoin!-accumulator] [testing srfi-146 dict-comparator] [testing srfi-146 hash] [testing dictionary?] [testing dict-empty?] [testing dict-contains?] [testing dict=?] [testing dict-ref] [testing dict-ref/default] [testing dict-set!] [testing dict-adjoin!] [testing dict-delete!] [testing dict-delete-all!] [testing dict-replace!] [testing dict-intern!] [testing dict-update!] [testing dict-update/default!] [testing dict-pop!] [testing dict-map] [testing dict-filter] [testing dict-remove] [testing dict-find-update!] [testing dict-size] [testing dict-count] [testing dict-any] [testing dict-every] [testing dict-keys] [testing dict-values] [testing dict-entries] [testing dict-fold] [testing dict-map->list] [testing dict->alist] [testing dict-comparator] [testing dict-for-each] [testing dict->generator] [testing dict-set!-accumulator] [testing dict-adjoin!-accumulator] [testing srfi-146 hash dict-comparator] # of expected outcomes: 584 # of unexpected outcomes: 0 ------------------------------------------------------------ ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 222: ./skint test/srfi/222.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 223: ./skint test/srfi/223.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 224: ./skint test/srfi/224.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 225: ./skint test/srfi/225.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 227: ./skint test1. (f 1 2 3) .......... [PASS] 2. (f 2 3) .......... [PASS] 3. (f 2) .......... [PASS] 4. (g 1 2 3) .......... [PASS] 5. (g 2 3) .......... [PASS] 6. (g 2) .......... [PASS] 7. (h 1 2) .......... [PASS] 8. (let-optionals (quote (1 2)) (x . y) (list x y)) .......... [PASS] 9. (let-optionals (quote (1)) (x (y 2) (z 3)) (list x y z)) .......... [PASS] 10. (let-optionals* (quote (1 3)) (x (y 2) (z (+ x y))) (list x y z)) .......... [PASS] 11. (let* () (define-optionals (f x (y 1)) (list x y)) (f 0)) .......... [PASS] 12. (let* () (define-optionals* (f x (y (* x x)) . z) (list x y z)) (f 3)) .......... [PASS] 12 out of 12 passed (100.00%) 1. (eq? #t (? person-name-comparator (make-person "Tom" "Smith") (make-person "John" "Smith"))) .......... [PASS] 3. (equal? (list deutsche-grammatik mnd sonnets abbey-road revolver bob) (list-sort (lambda (a b) (graph (quote ((a b) (a c) (b e)))) .......... [PASS] 7. (graph->edgelist (quote ((a b c) (b e)))) .......... [PASS] 8. (edgelist/inverted->graph (quote ((b a) (c a) (e b)))) .......... [PASS] 9. (graph->edgelist/inverted (quote ((a b c) (b e)))) .......... [PASS] 10. (edgelist->graph (quote ((0 1) (1 2) (2 0) (3 1) (3 2) (3 4) (4 3) (4 5) (5 2) (5 6) (6 5) (7 4) (7 6) (7 7)))) .......... [PASS] 11. (edgelist/inverted->graph (quote ((0 1) (1 2) (2 0) (3 1) (3 2) (3 4) (4 3) (4 5) (5 2) (5 6) (6 5) (7 4) (7 6) (7 7)))) .......... [PASS] 12. (not (lset= (lambda (a b) (lset= equal? a b)) (quote ((1) (2))) (connected-components (quote ((1 2)))))) .......... [PASS] 13. (not (lset= (lambda (a b) (lset= equal? a b)) (quote ((1 2))) (connected-components (quote ((1 2) (2 1)))))) .......... [PASS] 14. (not (lset= (lambda (a b) (lset= eqv? a b)) (quote ((1 2) (3 4))) (connected-components (quote ((1 2 3 4) (2 1 3) (3 4) (4 3)))))) .......... [PASS] 15. (not (lset= (lambda (a b) (lset= eqv? a b)) (quote ((1) (2) (3) (4))) (connected-components (quote ((1 2 3 4) (2 3) (3 4)))))) .......... [PASS] 16. (not (lset= (lambda (a b) (lset= equal? a b)) (quote ((2 0 1) (6 5) (3 4) (7))) (connected-components (edgelist->graph (quote ((0 1) (1 2) (2 0) (3 1) (3 2) (3 4) (4 3) (4 5) (5 2) (5 6) (6 5) (7 4) (7 6) (7 7))))))) .......... [PASS] 17. (every (lambda (edgelist) (let* ((graph (edgelist->graph edgelist)) (order (topological-sort graph equal?))) (cond ((equal? order (quote (top left right bottom))) #t) ((equal? order (quote (top right left bottom))) #t) (else order)))) (permutations (quote ((top left) (top right) (left bottom) (right bottom))))) .......... [PASS] 18. (topological-sort (edgelist->graph (quote ((libnewsboat strprintf) (libnewsboat regex-rs) (regex-rs strprintf))))) .......... [PASS] 18 out of 18 passed (100.00%) [Group constantly] 1. (call-with-values (lambda () ((constantly 1 2) (quote a) (quote b))) list) .......... [PASS] 2. (call-with-values (lambda () ((constantly 1) (quote a) (quote b))) list) .......... [PASS] 3. (call-with-values (lambda () ((constantly) (quote a) (quote b))) list) .......... [PASS] [Group complement] 4. ((complement symbol?) (quote a)) .......... [PASS] 5. ((complement symbol?) 1) .......... [PASS] [Group swap] 6. ((swap list) 1 2 3 4) .......... [PASS] [Group flip] 7. ((flip list) 1 2 3 4) .......... [PASS] [Group on-left] 8. ((on-left list) 1 2) .......... [PASS] [Group on-right] 9. ((on-right list) 1 2) .......... [PASS] [Group conjoin] 10. (not ((conjoin number? exact?))) .......... [PASS] 11. (not ((conjoin number? exact?) 1 2)) .......... [PASS] 12. (not (not ((conjoin number? exact?) 1 2.0))) .......... [PASS] 13. (not ((conjoin) 1 2)) .......... [PASS] [Group disjoin] 14. (not ((disjoin number? string?))) .......... [PASS] 15. (not ((disjoin number? string?) 1 "a")) .......... [PASS] 16. (not (not ((disjoin number? string?) (quote a) (quote b)))) .......... [PASS] 17. (not (not ((disjoin) 1 2))) .......... [PASS] [Group each-of] 18. (quote (1 2)) .......... [PASS] 19. (quote (1 2)) .......... [PASS] [Group all-of] 20. (not ((all-of string?) (quote ()))) .......... [PASS] 21. (not ((all-of string?) (quote ("a" "b")))) .......... [PASS] 22. ((all-of values) (quote ("a" "b"))) .......... [PASS] 23. (not (not ((all-of string?) (quote ("a" b))))) .......... [PASS] 24. (not (not ((all-of (lambda (x) (when (equal? x (quote c)) (test-assert #f)) (string? x))) (quote ("a" b c))))) .......... [PASS] [Group any-of] 25. (not (not ((any-of string?) (quote ())))) .......... [PASS] 26. (not ((any-of string?) (quote ("a" b)))) .......... [PASS] 27. ((any-of values) (quote ("a" "b"))) .......... [PASS] 28. (not (not ((any-of string?) (quote (a b))))) .......... [PASS] 29. (not ((any-of (lambda (x) (when (equal? x (quote b)) (test-assert #f)) (string? x))) (quote ("a" b)))) .......... [PASS] [Group on] 30. ((on list (lambda (x) (+ 1 x))) 1 2 3) .......... [PASS] [Group left-section] 31. ((left-section list 1 2) 3 4) .......... [PASS] [Group right-section] 32. ((right-section list 1 2) 3 4) .......... [PASS] [Group apply-chain] 33. (cadr* (list 1 2 3)) .......... [PASS] 34. (factorial 5) .......... [PASS] [Group arguments-drop] 35. ((arguments-drop list 3) 1 2 3 4) .......... [PASS] [Group arguments-drop-right] 36. ((arguments-drop-right list 3) 1 2 3 4) .......... [PASS] [Group arguments-take] 37. ((arguments-take list 3) 1 2 3 4) .......... [PASS] [Group arguments-take-right] 38. ((arguments-take-right list 3) 1 2 3 4) .......... [PASS] [Group group-by] 39. ((group-by odd?) (quote (1 2 3 4))) .......... [PASS] 40. ((group-by (lambda (str) (string-ref str 0)) char=?) (list "aa" "ba" "bb" "ab")) .......... [PASS] [Group begin-procedure] 41. (begin-procedure (lambda () 1) (lambda () 2)) .......... [PASS] [Group if-procedure] 42. (if-procedure #t (lambda () 1) (lambda () (test-assert #f))) .......... [PASS] 43. (if-procedure #f (lambda () (test-assert #f)) (lambda () 2)) .......... [PASS] [Group when-procedure] 44. lst1 .......... [PASS] 45. lst2 .......... [PASS] [Group unless-procedure] 46. lst1 .......... [PASS] 47. lst2 .......... [PASS] [Group value-procedure] 48. (value-procedure 1 number->string (lambda () (test-assert #f))) .......... [PASS] 49. (value-procedure #f (lambda args (test-assert #f)) (lambda () 2)) .......... [PASS] [Group case-procedure] 50. (case-procedure (quote b) (quasiquote ((a unquote (lambda () 1)) (b unquote (lambda () 2))))) .......... [PASS] 51. (case-procedure (quote c) (quasiquote ((a unquote (lambda () 1)) (b unquote (lambda () 2)))) (lambda () 3)) .......... [PASS] [Group and-procedure] 52. (not (and-procedure)) .......... [PASS] 53. (and-procedure (lambda () 1) (lambda () 2)) .......... [PASS] 54. (not (not (and-procedure (lambda () #f) (lambda () (test-assert #f))))) .......... [PASS] [Group eager-and-procedure] 55. (not (eager-and-procedure)) .......... [PASS] 56. (eager-and-procedure (lambda () 1) (lambda () 2)) .......... [PASS] 57. (not (not (eager-and-procedure (lambda () #f) (lambda () (set! second-called? #t) #t)))) .......... [PASS] 58. (not second-called?) .......... [PASS] [Group or-procedure] 59. (not (not (or-procedure))) .......... [PASS] 60. (or-procedure (lambda () #f) (lambda () 2)) .......... [PASS] 61. (not (or-procedure (lambda () 1) (lambda () (test-assert #f)))) .......... [PASS] [Group eager-or-procedure] 62. (not (not (eager-or-procedure))) .......... [PASS] 63. (eager-or-procedure (lambda () #f) (lambda () 2)) .......... [PASS] 64. (eager-or-procedure (lambda () 1) (lambda () (set! second-called? #t) #f)) .......... [PASS] 65. (not second-called?) .......... [PASS] [Group funcall-procedure] 66. (funcall-procedure (lambda () 1)) .......... [PASS] [Group loop-procedure] [Group while-procedure] 67. v .......... [PASS] [Group until-procedure] 68. v .......... [PASS] [Group always] 69. (not (always)) .......... [PASS] 70. (not (always (quote a))) .......... [PASS] [Group never] 71. (not (not (never))) .......... [PASS] 72. (not (not (never (quote a)))) .......... [PASS] [Group boolean] 73. (boolean 1) .......... [PASS] 74. (boolean #f) .......... [PASS] [Group values] 75. (values 1) .......... [PASS] 76. (values (quote a)) .......... [PASS] 76 out of 76 passed (100.00%) /srfi/227.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 228: ./skint test/srfi/228.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 232: ./skint test/srfi/232.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 234: ./skint test/srfi/234.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 235: ./skint test/srfi/235.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TES1. (let ((v (quote ok))) (independently) v) .......... [PASS] 2. (let ((v (cons #f #f))) (independently (set-car! v (quote ok))) v) .......... [PASS] 3. (let ((p (cons 1 2))) (set-car+cdr! p 10 20) p) .......... [PASS] 4. (let ((v (vector 1 2 3))) (independently (vector-set! v 0 10) (vector-set! v 1 20) (vector-set! v 2 30)) v) .......... [PASS] 5. (let ((x (quote ()))) (independently (set! x (cons 1 x)) (set! x (cons 2 x))) (apply + x)) .......... [PASS] 5 out of 5 passed (100.00%) 1. (not (eq? (quote pair) (type-of (quote (a . b))))) .......... [PASS] 2. (not (eq? (quote null) (type-of (quote ())))) .......... [PASS] 3. (not (eq? (quote atom) (type-of (quote x)))) .......... [PASS] 4. (fold cons 0 (quote (1 2 3))) .......... [PASS] 5. (not (guard (exc ((error-object? exc) #t) (else #f)) (fold cons 0 (quote (1 2 . 3))))) .......... [PASS] 6. (not (list-case (quote (1 . 2)) (_ #f) ((_ . _) #t))) .......... [PASS] 7. (not (guard (exc ((error-object? exc) #t) (else #f)) (list-case 0 ((_ . _) #f) (() #f)))) .......... [PASS] 7 out of 7 passed (100.00%) 1. 1 .......... [PASS] 2. (quote (2 3)) .......... [PASS] 3. x .......... [PASS] 4. y .......... [PASS] 5. u .......... [PASS] 6. v .......... [PASS] 7. u .......... [PASS] 8. v .......... [PASS] 8 out of 8 passed (100.00%) 1. (let ((x 0) (p (open-output-string))) (display "the result is" p) (define (foo) x) (define x 42) (display ": " p) (display (foo) p) (get-output-string p)) .......... [PASS] 2. (let ((x 0) (p (open-output-string))) (display "the result is" p) (define (foo) x) (display ": " p) (define xx 42) (display (foo) p) (get-output-string p)) .......... [PASS] 3. (let ((x 0) (p (open-output-string))) (define-syntax define-thunk (syntax-rules () ((_ i v) (define (i) v)))) (display "the result is" p) (display ": " p) (define xx 42) (define-thunk foo x) (display (foo) p) (get-output-string p)) .......... [PASS] 3 out of 3 passed (100.00%) [testing srfi-252] [testing test-property] [testing test-property-expect-fail] [testing test-property-skip] [testing test-property-error] [testing test-property/with-2-arguments] [testing boolean-generator] [testing bytevector-generator] [testing char-generator] [testing string-generator] [testing symbol-generator] [testing exact-integer-generator] [testing exact-number-generator] [testing exact-real-generator] [testing inexact-integer-generator] [testing inexact-number-generator] [testing inexact-integer-generator] [testing integer-generator] [testing number-generator] [testing real-generator] [testing list-generator-of] [testing pair-generator-of] [testing procedure-generator-of] [testing vector-generator-of] [testing non-determinism] [testing determinism] # of expected outcomes: 2640 # of unexpected outcomes: 0 TS FOR SRFI 236: ./skint test/srfi/236.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 239: ./skint test/srfi/239.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 244: ./skint test/srfi/244.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 251: ./skint test/srfi/251.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- RUNNING TESTS FOR SRFI 252: ./skint test/srfi/252.scm ---------------------------------------------------------------------------- ----------------------------------------------------------1. (not (check-arg-true exact-integer? 3)) .......... [PASS] 2. (not (check-arg-true integer? 3)) .......... [PASS] 3. (not (check-arg-true boolean? #f)) .......... [PASS] 4. (not (check-arg-true char? #\d)) .......... [PASS] 5. (not (check-arg-true inexact? 3.8)) .......... [PASS] 6. (not (check-arg-true real? 3)) .......... [PASS] 7. (not (check-arg-true real? 3.8)) .......... [PASS] 8. (not (check-arg-true list? (quote ()))) .......... [PASS] 9. (not (check-arg-true list? (quote (1 2 3)))) .......... [PASS] 10. (not (check-arg-true null? (quote ()))) .......... [PASS] 11. (not (check-arg-true number? 3)) .......... [PASS] 12. (not (check-arg-true number? 3.8)) .......... [PASS] 13. (not (check-arg-true pair? (quote (1 2 3)))) .......... [PASS] 14. (not (check-arg-true input-port? (current-input-port))) .......... [PASS] 15. (not (check-arg-true output-port? (current-output-port))) .......... [PASS] 16. (not (check-arg-true procedure? procedure?)) .......... [PASS] 17. (not (check-arg-true rational? 3)) .......... [PASS] 18. (not (check-arg-true string? "")) .......... [PASS] 19. (not (check-arg-true string? "hello")) .......... [PASS] 20. (not (check-arg-true symbol? (quote hello))) .......... [PASS] 21. (not (check-arg-true vector? #(1 2 3))) .......... [PASS] 22. (not (check-arg-true (lambda (x) (positive? (string-length x))) "hello")) .......... [PASS] 23. (not (check-arg-true positive? 9)) .......... [PASS] 24. (not (check-arg-true string-length "hello")) .......... [PASS] 25. (not (check-arg-true (lambda (x) (and (integer? x) (positive? x))) 8)) .......... [PASS] 26. (not (check-arg-true ((lambda (x y) (lambda (a) (and (x a) (y a)))) integer? positive?) 8)) .......... [PASS] 27. (quote (check-arg-true string? 3)) .......... [PASS] 28. (quote (check-arg-true symbol? "hello")) .......... [PASS] 29. (quote (check-arg-true procedure? 3)) .......... [PASS] 30. (quote (check-arg-true (lambda (a) (> a 3)) 0)) .......... [PASS] 31. (not (begin (check-arg integer? 3 (quote testing-caller-arg)) #t)) .......... [PASS] 32. (values-checked (integer?) 3) .......... [PASS] 33. (values-checked ((lambda (x) (= 3 x))) 3) .......... [PASS] 34. (values-checked (real?) 3) .......... [PASS] 35. (not (values-checked (integer? string?) 3 "hello")) .......... [PASS] 36. (quote (values-checked (integer?) "hello")) .......... [PASS] 37. (quote (values-checked (integer? string?) 3 3)) .......... [PASS] 38. (not (check-case "hello" (string? #t))) .......... [PASS] 39. (not (check-case 3 (integer? #t) (string? #f))) .......... [PASS] 40. (not (check-case 3.7 (inexact? #t))) .......... [PASS] 41. (not (check-case (current-output-port) (output-port? #t))) .......... [PASS] 42. (not (check-case #(1 2 3) (vector? #t))) .......... [PASS] 43. (not (check-case 3 (string? #f) (else #t))) .......... [PASS] 44. (quote (check-case 3 (string? #t))) .......... [PASS] 45. (not (lambda-checked () #t)) .......... [PASS] 46. (not (lambda-checked args #t)) .......... [PASS] 47. (not (lambda-checked (a) #t)) .......... [PASS] 48. (not (lambda-checked (a b) #t)) .......... [PASS] 49. (not (lambda-checked ((a integer?)) #t)) .......... [PASS] 50. (not (lambda-checked (a (b integer?)) #t)) .......... [PASS] 51. (not (lambda-checked ((a string?) (b integer?)) #t)) .......... [PASS] 52. (not ((lambda-checked () #t))) .......... [PASS] 53. (not ((lambda-checked args #t) 1 2 3)) .......... [PASS] 54. (not ((lambda-checked (a) #t) 3)) .......... [PASS] 55. (not ((lambda-checked (a) #t) "hello")) .......... [PASS] 56. (not ((lambda-checked ((a integer?)) #t) 3)) .......... [PASS] 57. (not ((lambda-checked (a (b integer?)) #t) 3 3)) .......... [PASS] 58. (not ((lambda-checked (a (b integer?)) #t) "hello" 3)) .......... [PASS] 59. (quote ((lambda-checked ((a integer?)) #t) "hello")) .......... [PASS] 60. (quote ((lambda-checked (a (b integer?)) #t) "hello" "hi")) .......... [PASS] 61. (not ((lambda-checked ((b integer?)) => (integer?) 2) 1)) .......... [PASS] 62. (quote ((lambda-checked ((b integer?)) => (integer?) #t) 1)) .......... [PASS] 63. (not (lambda-checked (a . c) #t)) .......... [PASS] 64. (not (lambda-checked ((a integer?) . c) #t)) .......... [PASS] 65. (not (lambda-checked (a b . c) #t)) .......... [PASS] 66. (not (lambda-checked (a (b integer?) . c) #t)) .......... [PASS] 67. (not (case-lambda-checked (() #t))) .......... [PASS] 68. (not (case-lambda-checked (args #t))) .......... [PASS] 69. (not (case-lambda-checked ((a) #t))) .......... [PASS] 70. (not (case-lambda-checked ((a) #t))) .......... [PASS] 71. (not (case-lambda-checked (() #t) ((a) #t))) .......... [PASS] 72. (not (case-lambda-checked (() #t) ((a) #t) (args #t))) .......... [PASS] 73. (not (case-lambda-checked (((a integer?)) #t))) .......... [PASS] 74. (not (case-lambda-checked (((a integer?) b) #t))) .......... [PASS] 75. (not (case-lambda-checked ((a (b integer?)) #t))) .......... [PASS] 76. (not (case-lambda-checked (() #t) (((a integer?)) #t) ((a (b string?)) #t) (args #t))) .......... [PASS] 77. (not (checked-case-lambda)) .......... [PASS] 78. (not (checked-case-lambda 3)) .......... [PASS] 79. (quote (checked-case-lambda "hello")) .......... [PASS] 80. (not (checked-case-lambda 3 "hello")) .......... [PASS] 81. (not (checked-case-lambda "hi" "hello")) .......... [PASS] 82. (quote (checked-case-lambda 3 3 3)) .......... [PASS] 83. (not (good-return-checked-case-lambda 1)) .......... [PASS] 84. (not (good-return-checked-case-lambda)) .......... [PASS] 85. (not (good-return-checked-case-lambda 1 2 3)) .......... [PASS] 86. (quote (bad-return-checked-case-lambda 1)) .......... [PASS] 87. (quote (bad-return-checked-case-lambda)) .......... [PASS] 88. (quote (bad-return-checked-case-lambda 1 2 3)) .......... [PASS] 89. (not (c)) .......... [PASS] 90. (not (c 3)) .......... [PASS] 91. (quote (c "hello")) .......... [PASS] 92. (not (c "anything")) .......... [PASS] 93. (not (c "hello")) .......... [PASS] 94. (quote (c 3)) .......... [PASS] 95. (not (c 1)) .......... [PASS] 96. (not (c 1 2)) .......... [PASS] 97. (not (c 1 2 3)) .......... [PASS] 98. (not c) .......... [PASS] 99. (not (make-test 1 "hello")) .......... [PASS] 100. (quote (make-test 1 2)) .......... [PASS] 101. (quote (make-test 1.2 "hello")) .......... [PASS] 102. (not (begin (test-b-set! test-test "foo") #t)) .......... [PASS] 103. (quote (test-b-set! test-test 1)) .......... [PASS] 103 out of 103 passed (100.00%) 1. (matcher-1 (quote 1)) .......... [PASS] 2. (matcher-1 (quote a)) .......... [PASS] 3. (matcher-1 (quote ((x y) q))) .......... [PASS] 4. (matcher-1 (quote ((a 2) (b a)))) .......... [PASS] 5. (matcher-1 (quote (+ 0 (+ y z) (+ y z)))) .......... [PASS] 6. (matcher-1 (quote (+ (sin a b) (cos a b)))) .......... [PASS] 7. (matcher-1 (quote (** 2 4))) .......... [PASS] 8. (matcher-1 (quote (** 2 a))) .......... [PASS] 9. (quote ((p1 (1 2 3) a (4 5)) (p2 (1 2 3 a 4) () 5) (p3 (1 2 3 a 4 5)))) .......... [PASS] 10. (quote ((fst (1 2 3 4) 5 ()) (fst (1 2 3) 4 (5)) (fst (1 2) 3 (4 5)) (fst (1) 2 (3 4 5)) (fst () 1 (2 3 4 5)) (snd (1 2 3 4 5) ()) (snd (1 2 3 4) (5)) (snd (1 2 3) (4 5)) (snd (1 2) (3 4 5)) (snd (1) (2 3 4 5)) (snd () (1 2 3 4 5)) (final (1 2 3 4 5)))) .......... [PASS] 11. (quote ((fst (1 2 3 4) 5 ()) (fst (1 2 3) 4 (5)) (fst (1 2) 3 (4 5)) (fst (1) 2 (3 4 5)) (fst () 1 (2 3 4 5)) (snd (1 2 3 4 5) ()) (snd (1 2 3 4) (5)) (snd (1 2 3) (4 5)) (snd (1 2) (3 4 5)) (snd (1) (2 3 4 5)) (snd () (1 2 3 4 5)) (final (1 2 3 4 5)))) .......... [PASS] 12. (quote ((fst "1234" #\5 "") (fst "123" #\4 "5") (fst "12" #\3 "45") (fst "1" #\2 "345") (fst "" #\1 "2345") (snd "12345" "") (snd "1234" "5") (snd "123" "45") (snd "12" "345") (snd "1" "2345") (snd "" "12345") (final "12345"))) .......... [PASS] 13. (quote ((fst "" #\1 "2345") (fst "1" #\2 "345") (fst "12" #\3 "45") (fst "123" #\4 "5") (fst "1234" #\5 "") (snd "" "12345") (snd "1" "2345") (snd "12" "345") (snd "123" "45") (snd "1234" "5") (snd "12345" "") (final "12345"))) .......... [PASS] 14. (quote ((rep "a" "bracadarb" "a") (rep "" "abracadarba" "") (rev "abra" "cad" "arba") (rev "abr" "acada" "rba") (rev "ab" "racadar" "ba") (rev "a" "bracadarb" "a") (rev "" "abracadarba" "") (final "abracadarba"))) .......... [PASS] 15. (matcher-7 (quote 1)) .......... [PASS] 16. (matcher-7 (quote 2)) .......... [PASS] 17. (matcher-7 (quote 4)) .......... [PASS] 18. (matcher-7 (quote a)) .......... [PASS] 19. (matcher-7 (quote z)) .......... [PASS] 20. (matcher-7 (quote #\z)) .......... [PASS] 21. (matcher-7 (quote (a 1))) .......... [PASS] 22. (matcher-7 (quote (1 2 3))) .......... [PASS] 23. (matcher-7 (quote (1 2 3 4))) .......... [PASS] 24. (matcher-7 (quote (1 2 3 4 5))) .......... [PASS] 25. (matcher-7 (quote (1 2 3 4 5 6))) .......... [PASS] 26. (quote ((fst 1 2 3) (fst 1 3 2) (fst 2 1 3) (fst 2 3 1) (fst 3 2 1) (fst 3 1 2) (final (1 2 3)))) .......... [PASS] 27. (quote ((fst (1) (2) (3 4)) (fst (1) (3) (2 4)) (fst (1) (4) (3 2)) (fst (2) (1) (3 4)) (fst (2) (3) (1 4)) (fst (2) (4) (3 1)) (fst (3) (2) (1 4)) (fst (3) (1) (2 4)) (fst (3) (4) (1 2)) (fst (4) (3) (2 1)) (fst (4) (2) (3 1)) (fst (4) (1) (2 3)) (final ((1) (2) (3) (4))))) .......... [PASS] 28. (matcher-or (quote 1)) .......... [PASS] 29. (matcher-or (quote 2)) .......... [PASS] 30. (matcher-or (quote 4)) .......... [PASS] 31. (matcher-or (quote a)) .......... [PASS] 32. (matcher-or (quote z)) .......... [PASS] 33. (matcher-or (quote ())) .......... [PASS] 34. (matcher-or (quote (a))) .......... [PASS] 35. (matcher-or (quote (a b))) .......... [PASS] 36. (matcher-or (quote (a b c))) .......... [PASS] 37. (matcher-or (quote (a b . c))) .......... [PASS] 38. (matcher-or (quote (y z x y z))) .......... [PASS] 39. (matcher-or (quote (foo bar baz))) .......... [PASS] 40. (matcher-or (quote (foo bar (align 16) baz))) .......... [PASS] 41. (quote ((p1 (1 a 2 b 3) c (4 d 5)) (p1 (1 a 2) b (3 c 4 d 5)) (p2 (1 a 2 b 3 c 4 d 5) () ()) (p2 (1 a 2 b 3 c 4 d) () (5)) (p2 (1 a 2 b 3 c 4) (d) (5)) (p2 (1 a 2 b 3 c 4) () (d 5)) (p2 (1 a 2 b 3 c) () (4 d 5)) (p2 (1 a 2 b 3) () (c 4 d 5)) (p2 (1 a 2 b) () (3 c 4 d 5)) (p2 (1 a 2) () (b 3 c 4 d 5)) (p2 (1 a) () (2 b 3 c 4 d 5)) (p2 (1) () (a 2 b 3 c 4 d 5)) (p2 () () (1 a 2 b 3 c 4 d 5)) (p3 (1 a 2 b 3 c 4 d 5)))) .......... [PASS] 42. (matcher-etc (quote ((1) (2) (3 . 4) 5 6))) .......... [PASS] 43. (matcher-etc (quote ((a b c d) (e f g) (h i) (j)))) .......... [PASS] 44. (matcher-etc (quote ((a b c) (a . 2) (b . 3) (c . 4)))) .......... [PASS] 45. (matcher-etc (quote ((2 3) (2) (3 . 4) (5 . 6)))) .......... [PASS] 46. (matcher-etc (quote ((2 3) (1 . 2) (1 . 3) (1 . 4)))) .......... [PASS] 47. (matcher-etc (quote (1 (1 . 2) (1 . 3) (2 . 6)))) .......... [PASS] 48. (matcher-etcetc (quote ((1 1) (1 2) (1 3 4)))) .......... [PASS] 49. (matcher-etcetc (quote (((a b) (c d)) ((e f) (g h) (i j)) ()))) .......... [PASS] 50. (matcher-etcetc (quote ((a b c) (a . 2) (b . 3) (c . 4)))) .......... [PASS] 51. (matcher-etcetc (quote (1 (1 . 2) (1 . 3) (2 . 6)))) .......... [PASS] 52. (quote ((fst ((1) (2 3)) (4) () ()) (fst ((1) (2 3)) () (4) ()) (fst ((1)) (2 3) () ((4))) (fst ((1)) (2) (3) ((4))) (fst ((1)) () (2 3) ((4))) (fst () (1) () ((2 3) (4))) (fst () () (1) ((2 3) (4))) (final ((1) (2 3) (4))))) .......... [PASS] 53. (quote ((fst ((1) (2 3)) (4) () ()) (fst ((1)) (2 3) () ((4))) (fst () (1) () ((2 3) (4))) (final ((1) (2 3) (4))))) .......... [PASS] 54. (matcher-8 (quote 1)) .......... [PASS] 55. (matcher-8 (quote a)) .......... [PASS] 56. (matcher-8 (quote ())) .......... [PASS] 57. (matcher-8 (quote (a))) .......... [PASS] 58. (matcher-8 (quote (a b))) .......... [PASS] 59. (matcher-8 (quote (p q))) .......... [PASS] 60. (matcher-8 (quote (41 42 43 44))) .......... [PASS] 61. (matcher-8 (quote (45 46 47 48))) .......... [PASS] 62. (matcher-8 (quote #(point 49 50))) .......... [PASS] 63. (matcher-8 (quote #(point 49 50 0))) .......... [PASS] 64. (matcher-8 (quote #(point 49 50 51))) .......... [PASS] 65. (matcher-8 (quote #(point 52 53 54 55))) .......... [PASS] 66. (m5-matcher-1 (quote 1)) .......... [PASS] 67. (m5-matcher-1 (quote a)) .......... [PASS] 68. (m5-matcher-1 (quote ((x y) q))) .......... [PASS] 69. (m5-matcher-1 (quote ((a 2) (b a)))) .......... [PASS] 70. (m5-matcher-1 (quote (+ 0 (+ y z) (+ y z)))) .......... [PASS] 71. (m5-matcher-1 (quote (+ (sin a b) (cos a b)))) .......... [PASS] 72. (m5-matcher-1 (quote (** 2 4))) .......... [PASS] 73. (m5-matcher-1 (quote (** 2 a))) .......... [PASS] 74. (m5-matcher-1 (quote (123 456))) .......... [PASS] 75. (m5-matcher-or (quote 1)) .......... [PASS] 76. (m5-matcher-or (quote (x x))) .......... [PASS] 77. (m5-matcher-or (quote (5 125))) .......... [PASS] 78. (m5-matcher-or (quote (1 4))) .......... [PASS] 79. (m5-matcher-or (quote (5 14))) .......... [PASS] 80. (m5-matcher-or (quote ((unquote a)))) .......... [PASS] 81. (m5-matcher-or (quote ((unquote ab)))) .......... [PASS] 82. (m5-matcher-or (quote (foo 13))) .......... [PASS] 83. (quote ((p1 (1 2 3) a (4 5)) (p2 () (1 2 3 a 4) 5) (p3 (1 2 3 a 4 5)))) .......... [PASS] 84. (quote ((fst (1) x (3 y 5)) (fst (1 x 3) y (5)) (snd () (1 x 3 y 5)) (snd (1) (x 3 y 5)) (snd (1 x) (3 y 5)) (snd (1 x 3) (y 5)) (snd (1 x 3 y) (5)) (snd (1 x 3 y 5) ()) (final (1 x 3 y 5)))) .......... [PASS] 85. ((lambda (in) (sr-match in (a b) ((a x) 1) ((b x y) 2) ((a x y) 3) ((_ _ _) 4))) (quote (a 17 37))) .......... [PASS] 86. ((lambda (in) (sr-match in (a b) ((a x) 1) ((b x y) 2) ((a x y) 3) ((_ _ _) 4))) (quote (b 17 37))) .......... [PASS] 87. ((lambda (in) (sr-match in (a b) ((a x) 1) ((b x y) 2) ((a x y) 3) ((_ _ _) 4))) (quote (c 17 37))) .......... [PASS] 88. ((lambda (in) (sr-match in (a) ((a x* ...) x*))) (quote (a 17 37))) .......... [PASS] 89. ((lambda (in) (sr-match in (begin) ((begin (x* y*) ...) (list x* y*)))) (quote (begin (1 5) (2 6) (3 7) (4 8)))) .......... [PASS] 90. ((lambda (in) (sr-match in () (((x* y** ...) ...) (list x* y**)))) (quote ((a b c d) (e f g) (h i) (j)))) .......... [PASS] 91. ((lambda (in) (cm-match in ((a (unquote x)) 1) ((b (unquote x) (unquote y)) 2) ((a (unquote x) (unquote y)) 3) (((unquote _) (unquote _) (unquote _)) 4))) (quote (a 17 37))) .......... [PASS] 92. ((lambda (in) (cm-match in ((a (unquote x)) 1) ((b (unquote x) (unquote y)) 2) ((a (unquote x) (unquote y)) 3) (((unquote _) (unquote _) (unquote _)) 4))) (quote (b 17 37))) .......... [PASS] 93. ((lambda (in) (cm-match in ((a (unquote x)) 1) ((b (unquote x) (unquote y)) 2) ((a (unquote x) (unquote y)) 3) (((unquote _) (unquote _) (unquote _)) 4))) (quote (c 17 37))) .......... [PASS] 94. ((lambda (in) (cm-match in ((a (unquote x)) (- x)) ((b (unquote x) (unquote y)) (+ x y)) ((a (unquote x) (unquote y)) (* x y)))) (quote (a 17 37))) .......... [PASS] 95. ((lambda (in) (cm-match in ((a (unquote x*) ...) x*))) (quote (a 17 37))) .......... [PASS] 96. ((lambda (in) (cm-match in ((begin ((unquote x*) (unquote y*)) ...) (append x* y*)))) (quote (begin (1 5) (2 6) (3 7) (4 8)))) .......... [PASS] 97. ((lambda (in) (cm-match in ((((unquote x*) (unquote y**) ...) ...) (list x* y**)))) (quote ((a b c d) (e f g) (h i) (j)))) .......... [PASS] 98. ((lambda (in) (letrec ((len (lambda (lst) (cm-match lst (() 0) (((unquote x) (unquote x*) ...) (+ 1 (len x*))))))) (len in))) (quote (a b c d))) .......... [PASS] 99. ((lambda (in) (let ((len (lambda (lst) (cm-match lst (() 0) (((unquote x) unquote (y)) (+ 1 y)))))) (len in))) (quote (a b c d))) .......... [PASS] 100. ((lambda (in) (let ((split (lambda (lis) (cm-match lis (() (values (quote ()) (quote ()))) (((unquote x)) (values (quasiquote ((unquote x))) (quote ()))) (((unquote x) (unquote y) unquote (odds evens)) (values (quasiquote ((unquote x) unquote odds)) (quasiquote ((unquote y) unquote evens)))))))) (call-with-values (lambda () (split in)) vector))) (quote (a b c d e f))) .......... [PASS] 101. ((lambda (in) (letrec ((split (lambda (lis) (cm-match lis (() (values (quote ()) (quote ()))) (((unquote x)) (values (quasiquote ((unquote x))) (quote ()))) (((unquote x) (unquote y) unquote (split -> odds evens)) (values (quasiquote ((unquote x) unquote odds)) (quasiquote ((unquote y) unquote evens)))))))) (call-with-values (lambda () (split in)) vector))) (quote (a b c d e f))) .......... [PASS] 102. ((lambda (in) (let ((simple-eval (lambda (x) (cm-match x ((unquote i) (guard (integer? i)) i) ((+ (unquote (x*)) ...) (apply + x*)) ((* (unquote (x*)) ...) (apply * x*)) ((- (unquote (x)) (unquote (y))) (- x y)) ((/ (unquote (x)) (unquote (y))) (/ x y)) ((unquote x) (error "invalid expression" x)))))) (simple-eval in))) (quote (+ (- 0 1) (+ 2 3)))) .......... [PASS] 103. ((lambda (in) (let ((simple-eval (lambda (x) (cm-match x ((unquote i) (guard (integer? i)) i) ((+ (unquote (x*)) ...) (apply + x*)) ((* (unquote (x*)) ...) (apply * x*)) ((- (unquote (x)) (unquote (y))) (- x y)) ((/ (unquote (x)) (unquote (y))) (/ x y)) ((unquote x) (error "invalid expression" x)))))) (simple-eval in))) (quote (+ 1 2 3))) .......... [PASS] 104. ((lambda (in) (let ((simple-eval (lambda (x) (cm-match x ((unquote i) (guard (integer? i)) i) ((+ (unquote (x*)) ...) (apply + x*)) ((* (unquote (x*)) ...) (apply * x*)) ((- (unquote (x)) (unquote (y))) (- x y)) ((/ (unquote (x)) (unquote (y))) (/ x y)) ((unquote x) (error "invalid expression" x)))))) (simple-eval in))) (quote (+ (- 0 1) (+ 2 3)))) .......... [PASS] 105. ((lambda (x) (define Prog (lambda (x) (cm-match x ((program (unquote (Stmt -> s*)) ... (unquote (Expr -> e))) (quasiquote (begin (unquote-splicing s*) (unquote e)))) ((unquote x) (error "invalid program" x))))) (define Stmt (lambda (x) (cm-match x ((if (unquote (Expr -> e)) (unquote (Stmt -> s1)) (unquote (Stmt -> s2))) (quasiquote (if (unquote e) (unquote s1) (unquote s2)))) ((set! (unquote v) (unquote (Expr -> e))) (guard (symbol? v)) (quasiquote (set! (unquote v) (unquote e)))) ((unquote x) (error "invalid statement" x))))) (define Expr (lambda (x) (cm-match x ((unquote v) (guard (symbol? v)) v) ((unquote n) (guard (integer? n)) n) ((if (unquote (e1)) (unquote (e2)) (unquote (e3))) (quasiquote (if (unquote e1) (unquote e2) (unquote e3)))) (((unquote (rator)) (unquote (rand*)) ...) (quasiquote ((unquote rator) (unquote-splicing rand*)))) ((unquote x) (error "invalid expression" x))))) (Prog x)) (quote (program (set! x 3) (+ x 4)))) .......... [PASS] 106. ((lambda (x) (define Prog (lambda (x) (cm-match x ((program (unquote (Stmt -> s*)) ... (unquote ((Expr (quote ())) -> e))) (quasiquote (begin (unquote-splicing s*) (unquote e)))) ((unquote x) (error "invalid program" x))))) (define Stmt (lambda (x) (cm-match x ((if (unquote ((Expr (quote ())) -> e)) (unquote (Stmt -> s1)) (unquote (Stmt -> s2))) (quasiquote (if (unquote e) (unquote s1) (unquote s2)))) ((set! (unquote v) (unquote ((Expr (quote ())) -> e))) (guard (symbol? v)) (quasiquote (set! (unquote v) (unquote e)))) ((unquote x) (error "invalid statement" x))))) (define Expr (lambda (env) (lambda (x) (cm-match x ((unquote v) (guard (symbol? v)) v) ((unquote n) (guard (integer? n)) n) ((if (unquote (e1)) (unquote (e2)) (unquote (e3))) (guard (not (memq (quote if) env))) (quasiquote (if (unquote e1) (unquote e2) (unquote e3)))) ((let (((unquote v) (unquote (e)))) (unquote ((Expr (cons v env)) -> body))) (guard (not (memq (quote let) env)) (symbol? v)) (quasiquote (let (((unquote v) (unquote e))) (unquote body)))) (((unquote (rator)) (unquote (rand*)) ...) (quasiquote (call (unquote rator) (unquote-splicing rand*)))) ((unquote x) (error "invalid expression" x)))))) (Prog x)) (quote (program (let ((if (if x list values))) (if 1 2 3))))) .......... [PASS] testing record patterns 107. (matcher-rec 1) .......... [PASS] 108. (matcher-rec (quote (1 . 4))) .......... [PASS] 109. (matcher-rec #(5 125)) .......... [PASS] 110. (matcher-rec (kons 42 14)) .......... [PASS] testing boxes 111. (match (quote 42) ((~box? a) a) (_ #f)) .......... [PASS] 112. (match (box 42) ((~box? a) a) (_ #f)) .......... [PASS] 113. (match (quote 42) ((~box a) a) (_ #f)) .......... [PASS] 114. (match (box 42) ((~box a) a) (_ #f)) .......... [PASS] testing regular expressions 115. (match 42 ((~/ "[0-9]+" a) a) (_ #f)) .......... [PASS] 116. (match "42" ((~/ "[0-9]+" a) a) (_ #f)) .......... [PASS] 117. (match 42 ((~/ (rx (+ (/ "09"))) a) a) (_ #f)) .......... [PASS] 118. (match "42" ((~/ (rx (+ (/ "09"))) a) a) (_ #f)) .......... [PASS] 119. (match phs ((~/sub "({a}*): ({d}*)-({d}*)-({d}*)" _ t a b c) (list t a b c)) (_ #f)) .......... [PASS] 120. (match phs ((~/any "({a}*): ({d}*)-({d}*)-({d}*)" _ t a b c) (list t a b c)) (_ #f)) .......... [PASS] 121. (match phs ((~/sub "({a}*): ({d}*)-({d}*)-({d}*)" _ t "240" b c) (list t "240" b c)) (_ #f)) .......... [PASS] 122. (match phs ((~/any "({a}*): ({d}*)-({d}*)-({d}*)" _ t "240" b c) (list t "240" b c)) (_ #f)) .......... [PASS] 123. (match phs ((~/any "({a}*): ({d}*)-({d}*)-({d}*)" _ t (~and a (~not "301")) b c) (list t a b c)) (_ #f)) .......... [PASS] 124. (match phs ((~/any "({a}*): ({d}*)-({d}*)-({d}*)" _ t "412" b c) (list t "412" b c)) (_ #f)) .......... [PASS] 125. (match phs ((~/all "({a}*): ({d}*)-({d}*)-({d}*)" _ t "412" b c) (list t "412" b c)) (_ #f)) .......... [PASS] 126. (match phs ((~/all "({a}*): ({d}*)-({d}*)-({d}*)" _ t a) (list t a)) (_ #f)) .......... [PASS] 127. (match phs ((~/etc "({a}*): ({d}*)-({d}*)-({d}*)" _ t (~and a (~not "240"))) (list t a)) (_ #f)) .......... [PASS] 128. (match phs ((~/etcse "({a}*): ({d}*)-({d}*)-({d}*)" _ t (~and a (~not "240"))) (list t a)) (_ #f)) .......... [PASS] 129. (match phs ((~/etcse "({a}*): ({d}*)-({d}*)-({d}*)" _ t (~and a "412")) (list t a)) (_ #f)) .......... [PASS] 130. (match "ababc" ((~/ (rx ($ (* "ab")) "c") a b) (list a b)) (_ #f)) .......... [PASS] 131. (match "ababc" ((~/ "((?:ab)*)c" a b) (list a b)) (_ #f)) .......... [PASS] 132. (match "xy" ((~/any (rx "y") a) (list a)) (_ #f)) .......... [PASS] 133. (match "xy" ((~/any "y" a) (list a)) (_ #f)) .......... [PASS] 134. (match "xababc" ((~/any (rx ($ (* "ab")) "c") a b) (list a b)) (_ #f)) .......... [PASS] 135. (match "xababc" ((~/any "((?:ab)*)c" a b) (list a b)) (_ #f)) .......... [PASS] 136. (match "fooxbafba" ((~/ (rx (* any) ($ "foo" (* any)) ($ "bar" (* any)))) (list)) (_ #f)) .......... [PASS] 137. (match "fooxbafba" ((~/ "{_}*(foo{_}*)(bar{_}*)") (list)) (_ #f)) .......... [PASS] 138. (match "fooxbarfbar" ((~/ (rx (* any) ($ "foo" (* any)) ($ "bar" (* any))) a b c) (list a b c)) (_ #f)) .......... [PASS] 139. (match "fooxbarfbar" ((~/ "{_}*(foo{_}*)(bar{_}*)" a b c) (list a b c)) (_ #f)) .......... [PASS] 140. (match "abcd" ((~/ (rx ($ (* (or "ab" "cd")))) a b) (list a b)) (_ #f)) .......... [PASS] 141. (match "abcd" ((~/ "((?:ab|cd)*)" a b) (list a b)) (_ #f)) .......... [PASS] 142. (match "ababc" ((~/ (rx bos ($ (* "ab")) "c") a b) (list a b)) (_ #f)) .......... [PASS] 143. (match "ababc" ((~/ "^((?:ab)*)c" a b) (list a b)) (_ #f)) .......... [PASS] 144. (match "ababc" ((~/ (rx ($ (* "ab")) "c" eos) a b) (list a b)) (_ #f)) .......... [PASS] 145. (match "ababc" ((~/ "((?:ab)*)c$" a b) (list a b)) (_ #f)) .......... [PASS] 146. (match "ababc" ((~/ (rx bos ($ (* "ab")) "c" eos) a b) (list a b)) (_ #f)) .......... [PASS] 147. (match "ababc" ((~/ "^((?:ab)*)c$" a b) (list a b)) (_ #f)) .......... [PASS] 148. (match "ababc" ((~/ (rx bos ($ (* "ab")) eos "c")) (list)) (_ #f)) .......... [PASS] 149. (match "ababc" ((~/ "^((?:ab)*)$c") (list)) (_ #f)) .......... [PASS] 150. (match "ababc" ((~/ (rx ($ (* "ab")) bos "c" eos)) (list)) (_ #f)) .......... [PASS] 151. (match "ababc" ((~/ "((?:ab)*)^c$") (list)) (_ #f)) .......... [PASS] 152. (match "ababc" ((~/ (rx bol ($ (* "ab")) "c") a b) (list a b)) (_ #f)) .......... [PASS] 153. (match "ababc" ((~/ "{}" a b) (list a b)) (_ #f)) .......... [PASS] 156. (match "ababc" ((~/ (rx bol ($ (* "ab")) "c" eol) a b) (list a b)) (_ #f)) .......... [PASS] 157. (match "ababc" ((~/ "{}" a b) (list a b)) (_ #f)) .......... [PASS] 158. (match "ababc" ((~/ (rx bol ($ (* "ab")) eol "c")) (list)) (_ #f)) .......... [PASS] 159. (match "ababc" ((~/ "{}c") (list)) (_ #f)) .......... [PASS] 160. (match "ababc" ((~/ (rx ($ (* "ab")) bol "c" eol)) (list)) (_ #f)) .......... [PASS] 161. (match "ababc" ((~/ "((?:ab)*){}") (list)) (_ #f)) .......... [PASS] 162. (match "\nabc\n" ((~/ (rx (* #\newline) bol ($ (* alpha)) eol (* #\newline)) a b) (list a b)) (_ #f)) .......... [PASS] 163. (match "\nabc\n" ((~/ "\n*{}\n*" a b) (list a b)) (_ #f)) .......... [PASS] 164. (match "\n'abc\n" ((~/ (rx (* #\newline) bol ($ (* alpha)) eol (* #\newline))) (list)) (_ #f)) .......... [PASS] 165. (match "\n'abc\n" ((~/ "\n*{}\n*") (list)) (_ #f)) .......... [PASS] 166. (match "\nabc.\n" ((~/ (rx (* #\newline) bol ($ (* alpha)) eol (* #\newline))) (list)) (_ #f)) .......... [PASS] 167. (match "\nabc.\n" ((~/ "\n*{}\n*") (list)) (_ #f)) .......... [PASS] 168. (match "ababc" ((~/ (rx bow ($ (* "ab")) "c") a b) (list a b)) (_ #f)) .......... [PASS] 169. (match "ababc" ((~/ "\\<((?:ab)*)c" a b) (list a b)) (_ #f)) .......... [PASS] 170. (match "ababc" ((~/ (rx ($ (* "ab")) "c" eow) a b) (list a b)) (_ #f)) .......... [PASS] 171. (match "ababc" ((~/ "((?:ab)*)c\\>" a b) (list a b)) (_ #f)) .......... [PASS] 172. (match "ababc" ((~/ (rx bow ($ (* "ab")) "c" eow) a b) (list a b)) (_ #f)) .......... [PASS] 173. (match "ababc" ((~/ "\\<((?:ab)*)c\\>" a b) (list a b)) (_ #f)) .......... [PASS] 174. (match "ababc" ((~/ (rx bow ($ (* "ab")) eow "c")) (list)) (_ #f)) .......... [PASS] 175. (match "ababc" ((~/ "\\<((?:ab)*)\\>c") (list)) (_ #f)) .......... [PASS] 176. (match "ababc" ((~/ (rx ($ (* "ab")) bow "c" eow)) (list)) (_ #f)) .......... [PASS] 177. (match "ababc" ((~/ "((?:ab)*)\\") (list)) (_ #f)) .......... [PASS] 178. (match " abc " ((~/ (rx (* space) bow ($ (* alpha)) eow (* space)) a b) (list a b)) (_ #f)) .......... [PASS] 179. (match " abc " ((~/ "\\s*\\<({a}*)\\>\\s*" a b) (list a b)) (_ #f)) .......... [PASS] 180. (match " 'abc " ((~/ (rx (* space) bow ($ (* alpha)) eow (* space))) (list)) (_ #f)) .......... [PASS] 181. (match " 'abc " ((~/ "\\s*\\<({a}*)\\>\\s*") (list)) (_ #f)) .......... [PASS] 182. (match " abc. " ((~/ (rx (* space) bow ($ (* alpha)) eow (* space))) (list)) (_ #f)) .......... [PASS] 183. (match " abc. " ((~/ "\\s*\\<({a}*)\\>\\s*") (list)) (_ #f)) .......... [PASS] 184. (match "abc " ((~/ (rx ($ (* alpha)) (* any)) a b) (list a b)) (_ #f)) .......... [PASS] 185. (match "abc " ((~/ "({a}*){_}*" a b) (list a b)) (_ #f)) .......... [PASS] 186. (match "abc " ((~/ (rx ($ (*? alpha)) (* any)) a b) (list a b)) (_ #f)) .......... [PASS] 187. (match "abc " ((~/ "({a}*?){_}*" a b) (list a b)) (_ #f)) .......... [PASS] 188. (match "Hello World" ((~/ (rx "<" ($ (* any)) ">" (* any)) a b) (list a b)) (_ #f)) .......... [PASS] 189. (match "Hello World" ((~/ "<({_}*)>{_}*" a b) (list a b)) (_ #f)) .......... [PASS] 190. (match "Hello World" ((~/ (rx "<" ($ (*? any)) ">" (* any)) a b) (list a b)) (_ #f)) .......... [PASS] 191. (match "Hello World" ((~/ "<({_}*?)>{_}*" a b) (list a b)) (_ #f)) .......... [PASS] 192. (match " foo " ((~/any (rx "foo") a) (list a)) (_ #f)) .......... [PASS] 193. (match " foo " ((~/any "foo" a) (list a)) (_ #f)) .......... [PASS] 194. (match " foo " ((~/any (rx nwb "foo" nwb)) (list)) (_ #f)) .......... [PASS] 195. (match " foo " ((~/any "\\Bfoo\\B") (list)) (_ #f)) .......... [PASS] 196. (match "xfoox" ((~/any (rx nwb "foo" nwb) a) (list a)) (_ #f)) .......... [PASS] 197. (match "xfoox" ((~/any "\\Bfoo\\B" a) (list a)) (_ #f)) .......... [PASS] 198. (match "beef" ((~/ (rx (* (/ "af"))) a) (list a)) (_ #f)) .......... [PASS] 199. (match "beef" ((~/ "[a-f]*" a) (list a)) (_ #f)) .......... [PASS] 200. (match "12345beef" ((~/ (rx (* numeric) ($ (* (/ "af")))) a b) (list a b)) (_ #f)) .......... [PASS] 201. (match "12345beef" ((~/ "\\d*([a-f]*)" a b) (list a b)) (_ #f)) .......... [PASS] 202. (match "12345BeeF" ((~/ (rx (* numeric) (w/nocase ($ (* (/ "af"))))) a b) (list a b)) (_ #f)) .......... [PASS] 203. (match "12345BeeF" ((~/ "\\d*(?i:([a-f]*))" a b) (list a b)) (_ #f)) .......... [PASS] 204. (match "abcD" ((~/ (rx (* lower))) (list)) (_ #f)) .......... [PASS] 205. (match "abcD" ((~/ "{l}*") (list)) (_ #f)) .......... [PASS] 206. (match "abcD" ((~/ (rx (w/nocase (* lower))) a) (list a)) (_ #f)) .......... [PASS] 207. (match "abcD" ((~/ "(?i){l}*" a) (list a)) (_ #f)) .......... [PASS] 208. (match "abc123def456ghi789" ((~/extracted (rx (+ numeric)) l) l)) .......... [PASS] 209. (match "abc123def456ghi789" ((~/extracted "{d}+" l) l)) .......... [PASS] 210. (match "abc123def456ghi789" ((~/extracted (rx (* numeric)) l) l)) .......... [PASS] 211. (match "abc123def456ghi789" ((~/extracted "[\\d]*" l) l)) .......... [PASS] 212. (match "abc123def456ghi789" ((~/split (rx (* numeric)) l) l)) .......... [PASS] 213. (match "abc123def456ghi789" ((~/split "{d}*" l) l)) .......... [PASS] 214. (match "abc123def456ghi789" ((~/split (rx (+ numeric)) l) l)) .......... [PASS] 215. (match "abc123def456ghi789" ((~/split "\\d+" l) l)) .......... [PASS] 216. (match "a b" ((~/split (rx (+ whitespace)) l) l)) .......... [PASS] 217. (match "a b" ((~/split "{s}+" l) l)) .......... [PASS] 218. (match "a,,b" ((~/split (rx (",;")) l) l)) .......... [PASS] 219. (match "a,,b" ((~/split "[,;]" l) l)) .......... [PASS] 220. (match "a,,b," ((~/split (rx (",;")) l) l)) .......... [PASS] 221. (match "a,,b," ((~/split "[,;]" l) l)) .......... [PASS] 222. (match "" ((~/partitioned (rx (* numeric)) l) l)) .......... [PASS] 223. (match "" ((~/partitioned "{d}*" l) l)) .......... [PASS] 224. (match "abc123def456ghi" ((~/partitioned (rx (* numeric)) l) l)) .......... [PASS] 225. (match "abc123def456ghi" ((~/partitioned "{d}*" l) l)) .......... [PASS] 226. (match "abc123def456ghi789" ((~/partitioned (rx (* numeric)) l) l)) .......... [PASS] 227. (match "abc123def456ghi789" ((~/partitioned "{d}*" l) l)) .......... [PASS] 227 out of 227 passed (100.00%) 1. (ssre->sre (quote "the quick brown fox")) .......... [PASS] 2. (ssre->sre (quote "a*abc?xyz+pqr{3}ab{2,}xy{4,5}pq{0,6}AB{0,}zz")) .......... [PASS] 3. (ssre->sre (quote "^(abc){1,2}zz")) .......... [PASS] 4. (ssre->sre (quote "^(b+?|a){1,2}?c")) .......... [PASS] 5. (ssre->sre (quote "^(b+|a){1,2}c")) .......... [PASS] 6. (ssre->sre (quote "^(ba|b*){1,2}?bc")) .......... [PASS] 7. (ssre->sre (quote "^[ab\\]cde]")) .......... [PASS] 8. (ssre->sre (quote "^[]cde]")) .......... [PASS] 9. (ssre->sre (quote "^[^ab\\]cde]")) .......... [PASS] 10. (ssre->sre (quote "^[^]cde]")) .......... [PASS] 11. (ssre->sre (quote "^@")) .......... [PASS] 12. (ssre->sre (quote "^[0-9]+$")) .......... [PASS] 13. (ssre->sre (quote "^.*nter")) .......... [PASS] 14. (ssre->sre (quote "^xxx[0-9]+$")) .......... [PASS] 15. (ssre->sre (quote "^.+[0-9][0-9][0-9]$")) .......... [PASS] 16. (ssre->sre (quote "^.+?[0-9][0-9][0-9]$")) .......... [PASS] 17. (ssre->sre (quote "^([^!]+)!(.+)=apquxz\\.ixr\\.zzz\\.ac\\.uk$")) .......... [PASS] 18. (ssre->sre (quote ":")) .......... [PASS] 19. (ssre->sre (quote "([\\da-f:]+)$")) .......... [PASS] 20. (ssre->sre (quote "^.*\\.(\\d{1,3})\\.(\\d{1,3})\\.(\\d{1,3})$")) .......... [PASS] 21. (ssre->sre (quote "^(\\d+)\\s+IN\\s+SOA\\s+(\\S+)\\s+(\\S+)\\s*\\(\\s*$")) .......... [PASS] 22. (ssre->sre (quote "^[a-zA-Z\\d][a-zA-Z\\d\\-]*(\\.[a-zA-Z\\d][a-zA-Z\\d\\-]*)*\\.$")) .......... [PASS] 23. (ssre->sre (quote "^\\*\\.[a-z]([a-z\\-\\d]*[a-z\\d]+)?(\\.[a-z]([a-z\\-\\d]*[a-z\\d]+)?)*$")) .......... [PASS] 24. (ssre->sre (quote "^(?=ab(de))(abd)(e)")) .......... [PASS] 25. (ssre->sre (quote "^(?!(ab)de|x)(abd)(f)")) .......... [PASS] 26. (ssre->sre (quote "^(?=(ab(cd)))(ab)")) .......... [PASS] 27. (ssre->sre (quote "^[\\da-f](\\.[\\da-f])*$")) .......... [PASS] 28. (ssre->sre (quote "^\".*\"\\s*(;.*)?$")) .......... [PASS] 29. (ssre->sre (quote "^$")) .......... [PASS] 30. (ssre->sre (quote "(?x)^ a\\ b[c ]d $")) .......... [PASS] 31. (ssre->sre (quote "^(a(b(c)))(d(e(f)))(h(i(j)))(k(l(m)))$")) .......... [PASS] 32. (ssre->sre (quote "^(?:a(b(c)))(?:d(e(f)))(?:h(i(j)))(?:k(l(m)))$")) .......... [PASS] 33. (ssre->sre (quote "^[\\w][\\W][\\s][\\S][\\d][\\D]\\]")) .......... [PASS] 34. (ssre->sre (quote "^[.^$|()*+?{,}]+")) .......... [PASS] 35. (ssre->sre (quote "^a*\\w")) .......... [PASS] 36. (ssre->sre (quote "^a*?\\w")) .......... [PASS] 37. (ssre->sre (quote "^a+\\w")) .......... [PASS] 38. (ssre->sre (quote "^a+?\\w")) .......... [PASS] 39. (ssre->sre (quote "^\\d{8}\\w{2,}")) .......... [PASS] 40. (ssre->sre (quote "^[aeiou\\d]{4,5}$")) .......... [PASS] 41. (ssre->sre (quote "^[aeiou\\d]{4,5}?")) .......... [PASS] 42. (ssre->sre (quote "^From +([^ ]+) +[a-zA-Z][a-zA-Z][a-zA-Z] +[a-zA-Z][a-zA-Z][a-zA-Z] +[0-9]?[0-9] +[0-9][0-9]:[0-9][0-9]")) .......... [PASS] 43. (ssre->sre (quote "^From\\s+\\S+\\s+([a-zA-Z]{3}\\s+){2}\\d{1,2}\\s+\\d\\d:\\d\\d")) .......... [PASS] 44. (ssre->sre (quote "^12.34")) .......... [PASS] 45. (ssre->sre (quote "foo(?!bar)(.*)")) .......... [PASS] 46. (ssre->sre (quote "(?:(?!foo)...|^.{0,2})bar(.*)")) .......... [PASS] 47. (ssre->sre (quote "^(\\D*)(?=\\d)(?!123)")) .......... [PASS] 48. (ssre->sre (quote "(?!^)abc")) .......... [PASS] 49. (ssre->sre (quote "(?=^)abc")) .......... [PASS] 50. (ssre->sre (quote "^[ab]{1,3}(ab*|b)")) .......... [PASS] 51. (ssre->sre (quote "^[ab]{1,3}?(ab*|b)")) .......... [PASS] 52. (ssre->sre (quote "^[ab]{1,3}?(ab*?|b)")) .......... [PASS] 53. (ssre->sre (quote "^[ab]{1,3}(ab*?|b)")) .......... [PASS] 54. (ssre->sre (quote "ab{1,3}bc")) .......... [PASS] 55. (ssre->sre (quote "([^.]*)\\.([^:]*):[T ]+(.*)")) .......... [PASS] 56. (ssre->sre (quote "^[W-c]+$")) .......... [PASS] 57. (ssre->sre (quote "^[?-_]+$")) .......... [PASS] 58. (ssre->sre (quote "^abc$")) .......... [PASS] 59. (ssre->sre (quote "\\Aabc\\z")) .......... [PASS] 60. (ssre->sre (quote "\\A(.)*\\z")) .......... [PASS] 61. (ssre->sre (quote "(?:b)|(?::+)")) .......... [PASS] 62. (ssre->sre (quote "[-az]+")) .......... [PASS] 63. (ssre->sre (quote "[az-]+")) .......... [PASS] 64. (ssre->sre (quote "[a\\-z]+")) .......... [PASS] 65. (ssre->sre (quote "[a-z]+")) .......... [PASS] 66. (ssre->sre (quote "[\\d-]+")) .......... [PASS] 67. (ssre->sre (quote "\\\\")) .......... [PASS] 68. (ssre->sre (quote "a{0}bc")) .......... [PASS] 69. (ssre->sre (quote "(a|(bc)){0,0}?xyz")) .......... [PASS] 70. (ssre->sre (quote "^([^a])([^b])([^c]*)([^d]{3,4})")) .......... [PASS] 71. (ssre->sre (quote "[^a]")) .......... [PASS] 72. (ssre->sre (quote "[^a]+")) .......... [PASS] 73. (ssre->sre (quote "[^a]+")) .......... [PASS] 74. (ssre->sre (quote "[^a]+")) .......... [PASS] 75. (ssre->sre (quote "[^k]$")) .......... [PASS] 76. (ssre->sre (quote "[^k]{2,3}$")) .......... [PASS] 77. (ssre->sre (quote "^\\d{8,}@.+[^k]$")) .......... [PASS] 78. (ssre->sre (quote "[^a]")) .......... [PASS] 79. (ssre->sre (quote "[^az]")) .......... [PASS] 80. (ssre->sre (quote "P[^*]TAIRE[^*]{1,6}?LL")) .......... [PASS] 81. (ssre->sre (quote "P[^*]TAIRE[^*]{1,}?LL")) .......... [PASS] 82. (ssre->sre (quote "(\\.\\d\\d[1-9]?)\\d+")) .......... [PASS] 83. (ssre->sre (quote "(\\.\\d\\d((?=0)|\\d(?=\\d)))")) .......... [PASS] 84. (ssre->sre (quote "\\b(foo)\\s+(\\w+)")) .......... [PASS] 85. (ssre->sre (quote "foo(.*)bar")) .......... [PASS] 86. (ssre->sre (quote "foo(.*?)bar")) .......... [PASS] 87. (ssre->sre (quote "(.*)(\\d*)")) .......... [PASS] 88. (ssre->sre (quote "(.*)(\\d+)")) .......... [PASS] 89. (ssre->sre (quote "(.*?)(\\d*)")) .......... [PASS] 90. (ssre->sre (quote "(.*?)(\\d+)")) .......... [PASS] 91. (ssre->sre (quote "(.*)(\\d+)$")) .......... [PASS] 92. (ssre->sre (quote "(.*?)(\\d+)$")) .......... [PASS] 93. (ssre->sre (quote "(.*)\\b(\\d+)$")) .......... [PASS] 94. (ssre->sre (quote "(.*\\D)(\\d+)$")) .......... [PASS] 95. (ssre->sre (quote "^\\D*(?!123)")) .......... [PASS] 96. (ssre->sre (quote "^(\\D*)(?=\\d)(?!123)")) .......... [PASS] 97. (ssre->sre (quote "^[W-]46\\]")) .......... [PASS] 98. (ssre->sre (quote "^[W-\\]46]")) .......... [PASS] 99. (ssre->sre (quote "word (?:[a-zA-Z0-9]+ ){0,10}otherword")) .......... [PASS] 100. (ssre->sre (quote "word (?:[a-zA-Z0-9]+ ){0,300}otherword")) .......... [PASS] 101. (ssre->sre (quote "^(a){0,0}")) .......... [PASS] 102. (ssre->sre (quote "^(a){0,1}")) .......... [PASS] 103. (ssre->sre (quote "^(a){0,2}")) .......... [PASS] 104. (ssre->sre (quote "^(a){0,3}")) .......... [PASS] 105. (ssre->sre (quote "^(a){0,}")) .......... [PASS] 106. (ssre->sre (quote "^(a){1,1}")) .......... [PASS] 107. (ssre->sre (quote "^(a){1,2}")) .......... [PASS] 108. (ssre->sre (quote "^(a){1,3}")) .......... [PASS] 109. (ssre->sre (quote "^(a){1,}")) .......... [PASS] 110. (ssre->sre (quote ".*\\.gif")) .......... [PASS] 111. (ssre->sre (quote ".{0,}\\.gif")) .......... [PASS] 112. (ssre->sre (quote ".*\\.gif")) .......... [PASS] 113. (ssre->sre (quote ".*\\.gif")) .......... [PASS] 114. (ssre->sre (quote ".*\\.gif")) .......... [PASS] 115. (ssre->sre (quote ".*$")) .......... [PASS] 116. (ssre->sre (quote ".*$")) .......... [PASS] 117. (ssre->sre (quote ".*$")) .......... [PASS] 118. (ssre->sre (quote ".*$")) .......... [PASS] 119. (ssre->sre (quote ".*$")) .......... [PASS] 120. (ssre->sre (quote ".*$")) .......... [PASS] 121. (ssre->sre (quote ".*$")) .......... [PASS] 122. (ssre->sre (quote ".*$")) .......... [PASS] 123. (ssre->sre (quote "(.*X|^B)")) .......... [PASS] 124. (ssre->sre (quote "^.*B")) .......... [PASS] 125. (ssre->sre (quote "(?m)^.*B")) .......... [PASS] 126. (ssre->sre (quote "^[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]")) .......... [PASS] 127. (ssre->sre (quote "^\\d\\d\\d\\d\\d\\d\\d\\d\\d\\d\\d\\d")) .......... [PASS] 128. (ssre->sre (quote "^[\\d][\\d][\\d][\\d][\\d][\\d][\\d][\\d][\\d][\\d][\\d][\\d]")) .......... [PASS] 129. (ssre->sre (quote "^[abc]{12}")) .......... [PASS] 130. (ssre->sre (quote "^[a-c]{12}")) .......... [PASS] 131. (ssre->sre (quote "^(a|b|c){12}")) .......... [PASS] 132. (ssre->sre (quote "^[abcdefghijklmnopqrstuvwxy0123456789]")) .......... [PASS] 133. (ssre->sre (quote "abcde{0,0}")) .......... [PASS] 134. (ssre->sre (quote "ab[cd]{0,0}e")) .......... [PASS] 135. (ssre->sre (quote "ab(c){0,0}d")) .......... [PASS] 136. (ssre->sre (quote "a(b*)")) .......... [PASS] 137. (ssre->sre (quote "ab\\d{0}e")) .......... [PASS] 138. (ssre->sre (quote "\"([^\\\\\"]+|\\\\.)*\"")) .......... [PASS] 139. (ssre->sre (quote ".*?")) .......... [PASS] 140. (ssre->sre (quote "\\b")) .......... [PASS] 141. (ssre->sre (quote "\\b")) .......... [PASS] 142. (ssre->sre (quote "a[^a]b")) .......... [PASS] 143. (ssre->sre (quote "a.b")) .......... [PASS] 144. (ssre->sre (quote "a[^a]b")) .......... [PASS] 145. (ssre->sre (quote "a.b")) .......... [PASS] 146. (ssre->sre (quote "^(b+?|a){1,2}?c")) .......... [PASS] 147. (ssre->sre (quote "^(b+|a){1,2}?c")) .......... [PASS] 148. (ssre->sre (quote "(?!\\A)x")) .......... [PASS] 149. (ssre->sre (quote "(A|B)*?CD")) .......... [PASS] 150. (ssre->sre (quote "(A|B)*CD")) .......... [PASS] 151. (ssre->sre (quote "(?sre (quote "\\w{3}(?sre (quote "(?<=(foo)a)bar")) .......... [PASS] 154. (ssre->sre (quote "\\Aabc\\z")) .......... [PASS] 155. (ssre->sre (quote "(\\d+)(\\w)")) .......... [PASS] 156. (ssre->sre (quote "a(?i:b)c")) .......... [PASS] 157. (ssre->sre (quote "a(?i:b)*c")) .......... [PASS] 158. (ssre->sre (quote "([a]*?)*")) .......... [PASS] 159. (ssre->sre (quote "([ab]*?)*")) .......... [PASS] 160. (ssre->sre (quote "([^a]*?)*")) .......... [PASS] 161. (ssre->sre (quote "([^ab]*?)*")) .......... [PASS] 162. (ssre->sre (quote "(?<=foo\n)^bar")) .......... [PASS] 163. (ssre->sre (quote "(?<=(?sre (quote "abc")) .......... [PASS] 165. (ssre->sre (quote "ab*c")) .......... [PASS] 166. (ssre->sre (quote "ab*bc")) .......... [PASS] 167. (ssre->sre (quote ".{1}")) .......... [PASS] 168. (ssre->sre (quote ".{3,4}")) .......... [PASS] 169. (ssre->sre (quote "ab{0,}bc")) .......... [PASS] 170. (ssre->sre (quote "ab+bc")) .......... [PASS] 171. (ssre->sre (quote "ab{1,}bc")) .......... [PASS] 172. (ssre->sre (quote "ab+bc")) .......... [PASS] 173. (ssre->sre (quote "ab{1,}bc")) .......... [PASS] 174. (ssre->sre (quote "ab{1,3}bc")) .......... [PASS] 175. (ssre->sre (quote "ab{3,4}bc")) .......... [PASS] 176. (ssre->sre (quote "ab{4,5}bc")) .......... [PASS] 177. (ssre->sre (quote "ab?bc")) .......... [PASS] 178. (ssre->sre (quote "ab{0,1}bc")) .......... [PASS] 179. (ssre->sre (quote "ab?bc")) .......... [PASS] 180. (ssre->sre (quote "ab?c")) .......... [PASS] 181. (ssre->sre (quote "ab{0,1}c")) .......... [PASS] 182. (ssre->sre (quote "^abc$")) .......... [PASS] 183. (ssre->sre (quote "^abc")) .......... [PASS] 184. (ssre->sre (quote "^abc$")) .......... [PASS] 185. (ssre->sre (quote "abc$")) .......... [PASS] 186. (ssre->sre (quote "^")) .......... [PASS] 187. (ssre->sre (quote "$")) .......... [PASS] 188. (ssre->sre (quote "a.c")) .......... [PASS] 189. (ssre->sre (quote "a.*c")) .......... [PASS] 190. (ssre->sre (quote "a[bc]d")) .......... [PASS] 191. (ssre->sre (quote "a[b-d]e")) .......... [PASS] 192. (ssre->sre (quote "a[b-d]")) .......... [PASS] 193. (ssre->sre (quote "a[-b]")) .......... [PASS] 194. (ssre->sre (quote "a[b-]")) .......... [PASS] 195. (ssre->sre (quote "a\\]")) .......... [PASS] 196. (ssre->sre (quote "a[]]b")) .......... [PASS] 197. (ssre->sre (quote "a[^bc]d")) .......... [PASS] 198. (ssre->sre (quote "a[^-b]c")) .......... [PASS] 199. (ssre->sre (quote "a[^]b]c")) .......... [PASS] 200. (ssre->sre (quote "\\ba\\b")) .......... [PASS] 201. (ssre->sre (quote "\\by\\b")) .......... [PASS] 202. (ssre->sre (quote "\\Ba\\B")) .......... [PASS] 203. (ssre->sre (quote "\\By\\b")) .......... [PASS] 204. (ssre->sre (quote "\\by\\B")) .......... [PASS] 205. (ssre->sre (quote "\\By\\B")) .......... [PASS] 206. (ssre->sre (quote "\\w")) .......... [PASS] 207. (ssre->sre (quote "\\W")) .......... [PASS] 208. (ssre->sre (quote "a\\sb")) .......... [PASS] 209. (ssre->sre (quote "a\\Sb")) .......... [PASS] 210. (ssre->sre (quote "\\d")) .......... [PASS] 211. (ssre->sre (quote "\\D")) .......... [PASS] 212. (ssre->sre (quote "ab|cd")) .......... [PASS] 213. (ssre->sre (quote "()ef")) .......... [PASS] 214. (ssre->sre (quote "$b")) .......... [PASS] 215. (ssre->sre (quote "a\\(b")) .......... [PASS] 216. (ssre->sre (quote "a\\(*b")) .......... [PASS] 217. (ssre->sre (quote "a\\\\b")) .......... [PASS] 218. (ssre->sre (quote "((a))")) .......... [PASS] 219. (ssre->sre (quote "(a)b(c)")) .......... [PASS] 220. (ssre->sre (quote "a+b+c")) .......... [PASS] 221. (ssre->sre (quote "a{1,}b{1,}c")) .......... [PASS] 222. (ssre->sre (quote "a.+?c")) .......... [PASS] 223. (ssre->sre (quote "(a+|b)*")) .......... [PASS] 224. (ssre->sre (quote "(a+|b){0,}")) .......... [PASS] 225. (ssre->sre (quote "(a+|b)+")) .......... [PASS] 226. (ssre->sre (quote "(a+|b){1,}")) .......... [PASS] 227. (ssre->sre (quote "(a+|b)?")) .......... [PASS] 228. (ssre->sre (quote "(a+|b){0,1}")) .......... [PASS] 229. (ssre->sre (quote "[^ab]*")) .......... [PASS] 230. (ssre->sre (quote "abc")) .......... [PASS] 231. (ssre->sre (quote "a*")) .......... [PASS] 232. (ssre->sre (quote "([abc])*d")) .......... [PASS] 233. (ssre->sre (quote "([abc])*bcd")) .......... [PASS] 234. (ssre->sre (quote "a|b|c|d|e")) .......... [PASS] 235. (ssre->sre (quote "(a|b|c|d|e)f")) .......... [PASS] 236. (ssre->sre (quote "abcd*efg")) .......... [PASS] 237. (ssre->sre (quote "ab*")) .......... [PASS] 238. (ssre->sre (quote "(ab|cd)e")) .......... [PASS] 239. (ssre->sre (quote "[abhgefdc]ij")) .......... [PASS] 240. (ssre->sre (quote "^(ab|cd)e")) .......... [PASS] 241. (ssre->sre (quote "(abc|)ef")) .......... [PASS] 242. (ssre->sre (quote "(a|b)c*d")) .......... [PASS] 243. (ssre->sre (quote "(ab|ab*)bc")) .......... [PASS] 244. (ssre->sre (quote "a([bc]*)c*")) .......... [PASS] 245. (ssre->sre (quote "a([bc]*)(c*d)")) .......... [PASS] 246. (ssre->sre (quote "a([bc]+)(c*d)")) .......... [PASS] 247. (ssre->sre (quote "a([bc]*)(c+d)")) .......... [PASS] 248. (ssre->sre (quote "a[bcd]*dcdcde")) .......... [PASS] 249. (ssre->sre (quote "a[bcd]+dcdcde")) .......... [PASS] 250. (ssre->sre (quote "(ab|a)b*c")) .......... [PASS] 251. (ssre->sre (quote "((a)(b)c)(d)")) .......... [PASS] 252. (ssre->sre (quote "[a-zA-Z_][a-zA-Z0-9_]*")) .......... [PASS] 253. (ssre->sre (quote "^a(bc+|b[eh])g|.h$")) .......... [PASS] 254. (ssre->sre (quote "(bc+d$|ef*g.|h?i(j|k))")) .......... [PASS] 255. (ssre->sre (quote "((((((((((a))))))))))")) .......... [PASS] 256. (ssre->sre (quote "(((((((((a)))))))))")) .......... [PASS] 257. (ssre->sre (quote "multiple words of text")) .......... [PASS] 258. (ssre->sre (quote "multiple words")) .......... [PASS] 259. (ssre->sre (quote "(.*)c(.*)")) .......... [PASS] 260. (ssre->sre (quote "\\((.*), (.*)\\)")) .......... [PASS] 261. (ssre->sre (quote "[k]")) .......... [PASS] 262. (ssre->sre (quote "abcd")) .......... [PASS] 263. (ssre->sre (quote "a(bc)d")) .......... [PASS] 264. (ssre->sre (quote "a[-]?c")) .......... [PASS] 265. (ssre->sre (quote "a(?!b).")) .......... [PASS] 266. (ssre->sre (quote "a(?=d).")) .......... [PASS] 267. (ssre->sre (quote "a(?=c|d).")) .......... [PASS] 268. (ssre->sre (quote "a(?:b|c|d)(.)")) .......... [PASS] 269. (ssre->sre (quote "a(?:b|c|d)*(.)")) .......... [PASS] 270. (ssre->sre (quote "a(?:b|c|d)+?(.)")) .......... [PASS] 271. (ssre->sre (quote "a(?:b|c|d)+(.)")) .......... [PASS] 272. (ssre->sre (quote "a(?:b|c|d){2}(.)")) .......... [PASS] 273. (ssre->sre (quote "a(?:b|c|d){4,5}(.)")) .......... [PASS] 274. (ssre->sre (quote "a(?:b|c|d){4,5}?(.)")) .......... [PASS] 275. (ssre->sre (quote "a(?:b|c|d){6,7}(.)")) .......... [PASS] 276. (ssre->sre (quote "a(?:b|c|d){6,7}?(.)")) .......... [PASS] 277. (ssre->sre (quote "a(?:b|c|d){5,6}(.)")) .......... [PASS] 278. (ssre->sre (quote "a(?:b|c|d){5,6}?(.)")) .......... [PASS] 279. (ssre->sre (quote "a(?:b|c|d){5,7}(.)")) .......... [PASS] 280. (ssre->sre (quote "a(?:b|c|d){5,7}?(.)")) .......... [PASS] 281. (ssre->sre (quote "a(?:b|(c|e){1,2}?|d)+?(.)")) .......... [PASS] 282. (ssre->sre (quote "^(.+)?B")) .......... [PASS] 283. (ssre->sre (quote "^([^a-z])|(\\^)$")) .......... [PASS] 284. (ssre->sre (quote "^[<>]&")) .......... [PASS] 285. (ssre->sre (quote "(?<=a)b")) .......... [PASS] 286. (ssre->sre (quote "(?sre (quote "(?:..)*a")) .......... [PASS] 288. (ssre->sre (quote "(?:..)*?a")) .......... [PASS] 289. (ssre->sre (quote "^(){3,5}")) .......... [PASS] 290. (ssre->sre (quote "(a|x)*ab")) .......... [PASS] 291. (ssre->sre (quote "(a)*ab")) .......... [PASS] 292. (ssre->sre (quote "(?i:a)b")) .......... [PASS] 293. (ssre->sre (quote "((?i:a))b")) .......... [PASS] 294. (ssre->sre (quote "(?:c|d)(?:)(?:a(?:)(?:b)(?:b(?:))(?:b(?:)(?:b)))")) .......... [PASS] 295. (ssre->sre (quote "(?:c|d)(?:)(?:aaaaaaaa(?:)(?:bbbbbbbb)(?:bbbbbbbb(?:))(?:bbbbbbbb(?:)(?:bbbbbbbb)))")) .......... [PASS] 296. (ssre->sre (quote "foo\\w*\\d{4}baz")) .......... [PASS] 297. (ssre->sre (quote "x(~~)*(?:(?:F)?)?")) .......... [PASS] 298. (ssre->sre (quote "(?sre (quote "(?sre (quote "(?sre (quote "(?sre (quote "(?sre (quote "(?m)^b")) .......... [PASS] 304. (ssre->sre (quote "(?m)^(b)")) .......... [PASS] 305. (ssre->sre (quote "^b")) .......... [PASS] 306. (ssre->sre (quote "()^b")) .......... [PASS] 307. (ssre->sre (quote "(\\w+:)+")) .......... [PASS] 308. (ssre->sre (quote "$(?<=^(a))")) .......... [PASS] 309. (ssre->sre (quote "([\\w:]+::)?(\\w+)$")) .......... [PASS] 310. (ssre->sre (quote "^[^bcd]*(c+)")) .......... [PASS] 311. (ssre->sre (quote "(a*)b+")) .......... [PASS] 312. (ssre->sre (quote "^[^bcd]*(c+)")) .......... [PASS] 313. (ssre->sre (quote "(>a+)ab")) .......... [PASS] 314. (ssre->sre (quote "b\\z")) .......... [PASS] 315. (ssre->sre (quote "(?<=\\d{3}(?!999))foo")) .......... [PASS] 316. (ssre->sre (quote "(?<=(?!...999)\\d{3})foo")) .......... [PASS] 317. (ssre->sre (quote "(?<=\\d{3}(?!999)...)foo")) .......... [PASS] 318. (ssre->sre (quote "(?<=\\d{3}...)(?sre (quote "(Z()|A)*")) .......... [PASS] 320. (ssre->sre (quote "(Z(())|A)*")) .......... [PASS] 321. (ssre->sre (quote "a*")) .......... [PASS] 322. (ssre->sre (quote "\\s+")) .......... [PASS] 323. (ssre->sre (quote "(?!\\A)x")) .......... [PASS] 324. (ssre->sre (quote "(?!^)x")) .......... [PASS] 325. (ssre->sre (quote "abc.")) .......... [PASS] 326. (ssre->sre (quote "a(?x: b c )d")) .......... [PASS] 327. (ssre->sre (quote "(?<=Z)X.")) .......... [PASS] 328. (ssre->sre (quote "(?sre (quote "(?sre (quote "(?<=[^f])X")) .......... [PASS] 331. (ssre->sre (quote "^")) .......... [PASS] 332. (ssre->sre (quote "(?x)(?-x: )")) .......... [PASS] 333. (ssre->sre (quote "(?x)(?-x: \\s*#\\s*)")) .......... [PASS] 334. (ssre->sre (quote "a*b*\\w")) .......... [PASS] 335. (ssre->sre (quote "a*b?\\w")) .......... [PASS] 336. (ssre->sre (quote "a*b{0,4}\\w")) .......... [PASS] 337. (ssre->sre (quote "a*b{0,}\\w")) .......... [PASS] 338. (ssre->sre (quote "a*\\d*\\w")) .......... [PASS] 339. (ssre->sre (quote "(?x)a*b *\\w")) .......... [PASS] 340. (ssre->sre (quote "(?x)a* b *\\w")) .......... [PASS] 341. (ssre->sre (quote "\\z(?sre (quote ".*[op][xyz]")) .......... [PASS] 343. (ssre->sre (quote "(a)b|(a)c")) .......... [PASS] 344. (ssre->sre (quote "(?:a+|ab)+c")) .......... [PASS] 345. (ssre->sre (quote "^(?:a|ab)+c")) .......... [PASS] 346. (ssre->sre (quote "(?=abc){3}abc")) .......... [PASS] 347. (ssre->sre (quote "(?=abc){0}xyz")) .......... [PASS] 348. (ssre->sre (quote "(?=abc){1}xyz")) .......... [PASS] 349. (ssre->sre (quote "(?=(a))?.")) .......... [PASS] 350. (ssre->sre (quote "(?=(a))??.")) .......... [PASS] 351. (ssre->sre (quote "^(?!a){0}\\w+")) .......... [PASS] 352. (ssre->sre (quote "(?<=(abc))?xyz")) .......... [PASS] 353. (ssre->sre (quote "^[:a[:digit:]]+")) .......... [PASS] 354. (ssre->sre (quote "^[:a[:digit:]:b]+")) .......... [PASS] 355. (ssre->sre (quote "[:a]xxx[b:]")) .......... [PASS] 356. (ssre->sre (quote "(?<=[^a]{2})b")) .......... [PASS] 357. (ssre->sre (quote "^(a{2,3}){2,}+a")) .......... [PASS] 358. (ssre->sre (quote "(?=C)")) .......... [PASS] 359. (ssre->sre (quote "(?:a(? (?')|(?\")) |b(? (?')|(?\")) ) (\\k[a-z]+|[0-9]+)")) .......... [PASS] 360. (ssre->sre (quote "^(a){2,}+(\\w)")) .......... [PASS] 361. (ssre->sre (quote "^(?:a){2,}+(\\w)")) .......... [PASS] 362. (ssre->sre (quote "\\A.*?(a|bc)")) .......... [PASS] 363. (ssre->sre (quote "\\A.*?(?:a|bc|d)")) .......... [PASS] 364. (ssre->sre (quote "(?:.*?a)(?<=ba)")) .......... [PASS] 365. (ssre->sre (quote "a(?=bc).|abd")) .......... [PASS] 366. (ssre->sre (quote "\\A.*?(?:a|bc)")) .......... [PASS] 367. (ssre->sre (quote "^\\d*\\w{4}")) .......... [PASS] 368. (ssre->sre (quote "^[^b]*\\w{4}")) .......... [PASS] 369. (ssre->sre (quote "^a*\\w{4}")) .......... [PASS] 370. (ssre->sre (quote "(?:(?foo)|(?bar))\\k")) .......... [PASS] 371. (ssre->sre (quote "(?A)(?:(?foo)|(?bar))\\k")) .......... [PASS] 372. (ssre->sre (quote "^(\\d+)\\s+IN\\s+SOA\\s+(\\S+)\\s+(\\S+)\\s*\\(\\s*$")) .......... [PASS] 373. (ssre->sre (quote "(?:x|(?:(xx|yy)+|x|x|x|x|x)|a|a|a)bc")) .......... [PASS] 374. (ssre->sre (quote "\\sabc")) .......... [PASS] 375. (ssre->sre (quote "Z*(|d*){216}")) .......... [PASS] 376. (ssre->sre (quote "(?<=a(B){0}c)X")) .......... [PASS] 377. (ssre->sre (quote "a+(?:|b)a")) .......... [PASS] 378. (ssre->sre (quote "X?(R||){3335}")) .......... [PASS] 379. (ssre->sre (quote "(?!(b))c|b")) .......... [PASS] 380. (ssre->sre (quote "(?=(b))b|c")) .......... [PASS] 381. (ssre->sre (quote "<(?x:[a b])>")) .......... [PASS] 382. (ssre->sre (quote "<(?:[a b])>")) .......... [PASS] 383. (ssre->sre (quote "<(?xxx:[a b])>")) .......... [PASS] 384. (ssre->sre (quote "<(?-x:[a b])>")) .......... [PASS] 385. (ssre->sre (quote "[[:digit:]-]+")) .......... [PASS] 386. (ssre->sre (quote "(?<=(?=.)?)")) .......... [PASS] 387. (ssre->sre (quote "(?<=(?=.){4,5})")) .......... [PASS] 388. (ssre->sre (quote "(?<=(?=.){4,5}x)")) .......... [PASS] 389. (ssre->sre (quote " (? \\w+ )* \\. ")) .......... [PASS] 390. (ssre->sre (quote "(?<=(?=.(?<=x)))")) .......... [PASS] 391. (ssre->sre (quote "(?<=(?=(?<=a)))b")) .......... [PASS] 392. (ssre->sre (quote "(?<=ab?c)...")) .......... [PASS] 393. (ssre->sre (quote "(?<=PQR|ab?c)...")) .......... [PASS] 394. (ssre->sre (quote "(?<=ab?c|PQR)...")) .......... [PASS] 395. (ssre->sre (quote "(?<=PQ|ab?c)...")) .......... [PASS] 396. (ssre->sre (quote "(?<=ab?c|PQ)...")) .......... [PASS] 397. (ssre->sre (quote "(?<=a(b?c|d?e?e)f)X.")) .......... [PASS] 398. (ssre->sre (quote "(?sre (quote "(?<=\\d{2,3}|ABC).")) .......... [PASS] 400. (ssre->sre (quote "(?<=(\\d{1,255}))X")) .......... [PASS] 401. (ssre->sre (quote "(?<=a(b?c){3}d)X")) .......... [PASS] 402. (ssre->sre (quote "(?<=a(b?c){0}d)X")) .......... [PASS] 403. (ssre->sre (quote "(?<=a?(b?c){0}d)X.")) .......... [PASS] 404. (ssre->sre (quote "(?sre (quote "(?<=PQ|Pc.b?)(.?)(b?)")) .......... [PASS] 406. (ssre->sre (quote "(?=a)b?a")) .......... [PASS] 407. (ssre->sre (quote "(?=a)b?a.")) .......... [PASS] 408. (ssre->sre (quote "65 00 64")) .......... [PASS] 409. (ssre->sre (quote "^.{4}")) .......... [PASS] 410. (ssre->sre (quote "^(.{3,6}!)+$")) .......... [PASS] 411. (ssre->sre (quote "[a-z]{5,}b|x")) .......... [PASS] 412. (ssre->sre (quote "[a-z]{1,6}?s|x")) .......... [PASS] 413. (ssre->sre (quote "[@]")) .......... [PASS] 414. (ssre->sre (quote "@")) .......... [PASS] 415. (ssre->sre (quote "@@@xxx")) .......... [PASS] 416. (ssre->sre (quote "badutf")) .......... [PASS] 417. (ssre->sre (quote "badutf")) .......... [PASS] 418. (ssre->sre (quote "shortutf")) .......... [PASS] 419. (ssre->sre (quote "anything")) .......... [PASS] 420. (ssre->sre (quote "badutf")) .......... [PASS] 421. (ssre->sre (quote "(?<=x)badutf")) .......... [PASS] 422. (ssre->sre (quote "(?<=xx)badutf")) .......... [PASS] 423. (ssre->sre (quote "(?<=xxxx)badutf")) .......... [PASS] 424. (ssre->sre (quote "X")) .......... [PASS] 425. (ssre->sre (quote "a+")) .......... [PASS] 426. (ssre->sre (quote "A")) .......... [PASS] 427. (ssre->sre (quote "x")) .......... [PASS] 428. (ssre->sre (quote "abc")) .......... [PASS] 429. (ssre->sre (quote "X")) .......... [PASS] 430. (ssre->sre (quote "(?<=.)X")) .......... [PASS] 431. (ssre->sre (quote "a+")) .......... [PASS] 432. (ssre->sre (quote "a")) .......... [PASS] 433. (ssre->sre (quote ".")) .......... [PASS] 434. (ssre->sre (quote "s")) .......... [PASS] 435. (ssre->sre (quote "[^s]")) .......... [PASS] 436. (ssre->sre (quote "a(?:.)*?a")) .......... [PASS] 437. (ssre->sre (quote "(?<=pqr)abc(?=xyz)")) .......... [PASS] 438. (ssre->sre (quote "a\\b")) .......... [PASS] 439. (ssre->sre (quote "abc(?=abcde)(?=ab)")) .......... [PASS] 440. (ssre->sre (quote "(?<=abc)123")) .......... [PASS] 441. (ssre->sre (quote "\\babc\\b")) .......... [PASS] 442. (ssre->sre (quote "(?<=abc)def")) .......... [PASS] 443. (ssre->sre (quote "abc(?<=bc)def")) .......... [PASS] 444. (ssre->sre (quote "(?<=ab)cdef")) .......... [PASS] 445. (ssre->sre (quote "b(?sre (quote "abcd")) .......... [PASS] 447. (ssre->sre (quote "abcd")) .......... [PASS] 448. (ssre->sre (quote "^12345678abcd")) .......... [PASS] 449. (ssre->sre (quote "a(?:.)*?a")) .......... [PASS] 450. (ssre->sre (quote "abcd")) .......... [PASS] 451. (ssre->sre (quote "abcd")) .......... [PASS] 452. (ssre->sre (quote "abcd")) .......... [PASS] 453. (ssre->sre (quote "[axm]{7}")) .......... [PASS] 454. (ssre->sre (quote "(.|.)*?bx")) .......... [PASS] 455. (ssre->sre (quote "abc")) .......... [PASS] 456. (ssre->sre (quote "abc")) .......... [PASS] 457. (ssre->sre (quote "(...)-(...)")) .......... [PASS] 458. (ssre->sre (quote "abc")) .......... [PASS] 459. (ssre->sre (quote "abc")) .......... [PASS] 460. (ssre->sre (quote "abc")) .......... [PASS] 461. (ssre->sre (quote "^abc|def")) .......... [PASS] 462. (ssre->sre (quote ".*((abc)$|(def))")) .......... [PASS] 463. (ssre->sre (quote "the quick brown fox")) .......... [PASS] 464. (ssre->sre (quote "a*(b+)(z)(z)")) .......... [PASS] 465. (ssre->sre (quote "ab.cd")) .......... [PASS] 466. (ssre->sre (quote "a?|b?")) .......... [PASS] 467. (ssre->sre (quote "\\w+A")) .......... [PASS] 468. (ssre->sre (quote "\\w+A")) .......... [PASS] 469. (ssre->sre (quote "^d(e)$")) .......... [PASS] 470. (ssre->sre (quote "((a)(b)?(c))")) .......... [PASS] 471. (ssre->sre (quote "\\w")) .......... [PASS] 472. (ssre->sre (quote "x{5,4}")) .......... [PASS] 473. (ssre->sre (quote "z{65536}")) .......... [PASS] 474. (ssre->sre (quote "abc(?<=a+)b")) .......... [PASS] 475. (ssre->sre (quote "(?<=ab(c+)d)ef")) .......... [PASS] 476. (ssre->sre (quote "(?<=ab(?<=c+)d)ef")) .......... [PASS] 477. (ssre->sre (quote "The next three are in testinput2 because they have variable length branches")) .......... [PASS] 478. (ssre->sre (quote "(?<=x+)y")) .......... [PASS] 479. (ssre->sre (quote "a{37,17}")) .......... [PASS] 480. (ssre->sre (quote "a{1,3}b")) .......... [PASS] 481. (ssre->sre (quote ".+foo")) .......... [PASS] 482. (ssre->sre (quote ".+foo")) .......... [PASS] 483. (ssre->sre (quote "^X")) .......... [PASS] 484. (ssre->sre (quote "(?tom|bon)-\\k")) .......... [PASS] 485. (ssre->sre (quote "Xa{2,4}b")) .......... [PASS] 486. (ssre->sre (quote "Xa{2,4}?b")) .......... [PASS] 487. (ssre->sre (quote "Xa{2,4}+b")) .......... [PASS] 488. (ssre->sre (quote "X\\d{2,4}b")) .......... [PASS] 489. (ssre->sre (quote "X\\d{2,4}?b")) .......... [PASS] 490. (ssre->sre (quote "X\\d{2,4}+b")) .......... [PASS] 491. (ssre->sre (quote "X\\D{2,4}b")) .......... [PASS] 492. (ssre->sre (quote "X\\D{2,4}?b")) .......... [PASS] 493. (ssre->sre (quote "X\\D{2,4}+b")) .......... [PASS] 494. (ssre->sre (quote "X[abc]{2,4}b")) .......... [PASS] 495. (ssre->sre (quote "X[abc]{2,4}?b")) .......... [PASS] 496. (ssre->sre (quote "X[abc]{2,4}+b")) .......... [PASS] 497. (ssre->sre (quote "X[^a]{2,4}b")) .......... [PASS] 498. (ssre->sre (quote "X[^a]{2,4}?b")) .......... [PASS] 499. (ssre->sre (quote "X[^a]{2,4}+b")) .......... [PASS] 500. (ssre->sre (quote "Z(?!)")) .......... [PASS] 501. (ssre->sre (quote "dog(sbody)?")) .......... [PASS] 502. (ssre->sre (quote "dog(sbody)??")) .......... [PASS] 503. (ssre->sre (quote "dog|dogsbody")) .......... [PASS] 504. (ssre->sre (quote "dogsbody|dog")) .......... [PASS] 505. (ssre->sre (quote "\\bthe cat\\b")) .......... [PASS] 506. (ssre->sre (quote "abc")) .......... [PASS] 507. (ssre->sre (quote "(?<=abc)123")) .......... [PASS] 508. (ssre->sre (quote "\\babc\\b")) .......... [PASS] 509. (ssre->sre (quote "a?b?")) .......... [PASS] 510. (ssre->sre (quote "^a?b?")) .......... [PASS] 511. (ssre->sre (quote "abcd*")) .......... [PASS] 512. (ssre->sre (quote "abc\\d*")) .......... [PASS] 513. (ssre->sre (quote "abc[de]*")) .......... [PASS] 514. (ssre->sre (quote "(?<=abc)def")) .......... [PASS] 515. (ssre->sre (quote "abc$")) .......... [PASS] 516. (ssre->sre (quote "abc$")) .......... [PASS] 517. (ssre->sre (quote "abc\\z")) .......... [PASS] 518. (ssre->sre (quote "abc\\b")) .......... [PASS] 519. (ssre->sre (quote "abc\\B")) .......... [PASS] 520. (ssre->sre (quote ".+")) .......... [PASS] 521. (ssre->sre (quote "(?<=(abc)+)X")) .......... [PASS] 522. (ssre->sre (quote "(a)b|ac")) .......... [PASS] 523. (ssre->sre (quote "(a)(b)x|abc")) .......... [PASS] 524. (ssre->sre (quote "(?:(foo)|(bar)|(baz))X")) .......... [PASS] 525. (ssre->sre (quote "(ab)x|ab")) .......... [PASS] 526. (ssre->sre (quote "(((((a)))))")) .......... [PASS] 527. (ssre->sre (quote "a*?b*?")) .......... [PASS] 528. (ssre->sre (quote "abc")) .......... [PASS] 529. (ssre->sre (quote "a(b)c")) .......... [PASS] 530. (ssre->sre (quote "(a)(b)|(c)")) .......... [PASS] 531. (ssre->sre (quote "(?a)|(?b)")) .......... [PASS] 532. (ssre->sre (quote "a(b)c(d)")) .......... [PASS] 533. (ssre->sre (quote "^abc")) .......... [PASS] 534. (ssre->sre (quote ".*\\d")) .......... [PASS] 535. (ssre->sre (quote "(abc)*")) .......... [PASS] 536. (ssre->sre (quote "^")) .......... [PASS] 537. (ssre->sre (quote "(?:ab)?(?:ab)(?:ab)")) .......... [PASS] 538. (ssre->sre (quote "abc")) .......... [PASS] 539. (ssre->sre (quote "(abcd)")) .......... [PASS] 540. (ssre->sre (quote "abcd")) .......... [PASS] 541. (ssre->sre (quote "a(b)c")) .......... [PASS] 542. (ssre->sre (quote "0b 28 3f 2d 78 29 3a")) .......... [PASS] 543. (ssre->sre (quote "a|(b)c")) .......... [PASS] 544. (ssre->sre (quote "efg")) .......... [PASS] 545. (ssre->sre (quote "eff")) .......... [PASS] 546. (ssre->sre (quote "effg")) .......... [PASS] 547. (ssre->sre (quote "aaa")) .......... [PASS] 548. (ssre->sre (quote "(?sre (quote "(?sre (quote "(R?){65}")) .......... [PASS] 551. (ssre->sre (quote "abc")) .......... [PASS] 552. (ssre->sre (quote "abc|bcd")) .......... [PASS] 553. (ssre->sre (quote "^(b+|a){1,2}?bc")) .......... [PASS] 554. (ssre->sre (quote "^(b*|ba){1,2}?bc")) .......... [PASS] 555. (ssre->sre (quote "[abc]")) .......... [PASS] 556. (ssre->sre (quote "a(b)c|xyz")) .......... [PASS] 557. (ssre->sre (quote "foobar")) .......... [PASS] 558. (ssre->sre (quote "\\[()\\]{65535}(?)")) .......... [PASS] 559. (ssre->sre (quote "(?<=(?=.(?<=x)))")) .......... [PASS] 560. (ssre->sre (quote "\\z")) .......... [PASS] 561. (ssre->sre (quote "\\Z")) .......... [PASS] 562. (ssre->sre (quote "(?![ab]).*")) .......... [PASS] 563. (ssre->sre (quote "abcd")) .......... [PASS] 564. (ssre->sre (quote "12345(?<=\\d{1,256})X")) .......... [PASS] 565. (ssre->sre (quote "(?sre (quote "(?<=(()()()()()()()()()()()()()(()()()()(())()()()()(()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()(())()()()()(()()()()()()(()()()()()()()()()()()()()()()()()()()()()(())()()()()(()()()()()()()()()()()()()(()()()()()()()()()()()()()(()())))))))))")) .......... [PASS] 567. (ssre->sre (quote "((foo)|(bar))*")) .......... [PASS] 568. (ssre->sre (quote "(?:(f)(o)(o)|(b)(a)(r))*")) .......... [PASS] 569. (ssre->sre (quote "((Z)+|A)*")) .......... [PASS] 570. (ssre->sre (quote "A +")) .......... [PASS] 571. (ssre->sre (quote "a\\z")) .......... [PASS] 572. (ssre->sre (quote "[a[]")) .......... [PASS] 573. (ssre->sre (quote "[[:digit:] -Z]")) .......... [PASS] 574. (ssre->sre (quote "[\\d -Z]")) .......... [PASS] 575. (ssre->sre (quote "(?<=abc)(|DEF)")) .......... [PASS] 576. (ssre->sre (quote "a(bb)c")) .......... [PASS] 577. (ssre->sre (quote "a()c")) .......... [PASS] 578. (ssre->sre (quote "(?:(?foo)|(?bar))\\k")) .......... [PASS] 579. (ssre->sre (quote "a?b[]xy]*c")) .......... [PASS] 580. (ssre->sre (quote "f*")) .......... [PASS] 581. (ssre->sre (quote "foo\\*")) .......... [PASS] 582. (ssre->sre (quote "foo\\*bar")) .......... [PASS] 583. (ssre->sre (quote "f\\\\oo")) .......... [PASS] 584. (ssre->sre (quote "[ten]")) .......... [PASS] 585. (ssre->sre (quote "t[a-g]n")) .......... [PASS] 586. (ssre->sre (quote "a[]]b")) .......... [PASS] 587. (ssre->sre (quote "a[]a-]b")) .......... [PASS] 588. (ssre->sre (quote "a[]-]b")) .......... [PASS] 589. (ssre->sre (quote "a[]a-z]b")) .......... [PASS] 590. (ssre->sre (quote "\\]")) .......... [PASS] 591. (ssre->sre (quote "t[!a-g]n")) .......... [PASS] 592. (ssre->sre (quote "A[+-0]B")) .......... [PASS] 593. (ssre->sre (quote "a[--0]z")) .......... [PASS] 594. (ssre->sre (quote "a[[:digit:].]z")) .......... [PASS] 595. (ssre->sre (quote "A\\B\\\\C\\D")) .......... [PASS] 596. (ssre->sre (quote "a*b")) .......... [PASS] 597. (ssre->sre (quote "<[]bc]>")) .......... [PASS] 598. (ssre->sre (quote "<[^]bc]>")) .......... [PASS] 599. (ssre->sre (quote "a*b+c\\+[def](ab)\\(cd\\)")) .......... [PASS] 600. (ssre->sre (quote "how.to how\\.to")) .......... [PASS] 601. (ssre->sre (quote "^how to \\^how to")) .......... [PASS] 602. (ssre->sre (quote "^b\\(c^d\\)\\(^e^f\\)")) .......... [PASS] 603. (ssre->sre (quote "\\[()\\]{65535}()")) .......... [PASS] 604. (ssre->sre (quote "^A")) .......... [PASS] 605. (ssre->sre (quote "^\\w+")) .......... [PASS] 606. (ssre->sre (quote "(.+)\\b(.+)")) .......... [PASS] 607. (ssre->sre (quote "\\W+")) .......... [PASS] 608. (ssre->sre (quote "\\w+")) .......... [PASS] 609. (ssre->sre (quote "a.b")) .......... [PASS] 610. (ssre->sre (quote "a(.{3})b")) .......... [PASS] 611. (ssre->sre (quote "a(.*?)(.)")) .......... [PASS] 612. (ssre->sre (quote "a(.*?)(.)")) .......... [PASS] 613. (ssre->sre (quote "a(.*)(.)")) .......... [PASS] 614. (ssre->sre (quote "a(.*)(.)")) .......... [PASS] 615. (ssre->sre (quote "a(.)(.)")) .......... [PASS] 616. (ssre->sre (quote "a(.)(.)")) .......... [PASS] 617. (ssre->sre (quote "a(.?)(.)")) .......... [PASS] 618. (ssre->sre (quote "a(.?)(.)")) .......... [PASS] 619. (ssre->sre (quote "a(.??)(.)")) .......... [PASS] 620. (ssre->sre (quote "a(.??)(.)")) .......... [PASS] 621. (ssre->sre (quote "a(.{3})b")) .......... [PASS] 622. (ssre->sre (quote "a(.{3,})b")) .......... [PASS] 623. (ssre->sre (quote "a(.{3,}?)b")) .......... [PASS] 624. (ssre->sre (quote "a(.{3,5})b")) .......... [PASS] 625. (ssre->sre (quote "a(.{3,5}?)b")) .......... [PASS] 626. (ssre->sre (quote "(?<=aXb)cd")) .......... [PASS] 627. (ssre->sre (quote "(?<=(.))X")) .......... [PASS] 628. (ssre->sre (quote "[^a]+")) .......... [PASS] 629. (ssre->sre (quote "^[^a]{2}")) .......... [PASS] 630. (ssre->sre (quote "^[^a]{2,}")) .......... [PASS] 631. (ssre->sre (quote "^[^a]{2,}?")) .......... [PASS] 632. (ssre->sre (quote "[^a]+")) .......... [PASS] 633. (ssre->sre (quote "^[^a]{2}")) .......... [PASS] 634. (ssre->sre (quote "^[^a]{2,}")) .......... [PASS] 635. (ssre->sre (quote "^[^a]{2,}?")) .......... [PASS] 636. (ssre->sre (quote "\\D*")) .......... [PASS] 637. (ssre->sre (quote "\\D*")) .......... [PASS] 638. (ssre->sre (quote "\\D")) .......... [PASS] 639. (ssre->sre (quote ">\\S")) .......... [PASS] 640. (ssre->sre (quote "\\d")) .......... [PASS] 641. (ssre->sre (quote "\\s")) .......... [PASS] 642. (ssre->sre (quote "\\D+")) .......... [PASS] 643. (ssre->sre (quote "\\D{2,3}")) .......... [PASS] 644. (ssre->sre (quote "\\D{2,3}?")) .......... [PASS] 645. (ssre->sre (quote "\\d+")) .......... [PASS] 646. (ssre->sre (quote "\\d{2,3}")) .......... [PASS] 647. (ssre->sre (quote "\\d{2,3}?")) .......... [PASS] 648. (ssre->sre (quote "\\S+")) .......... [PASS] 649. (ssre->sre (quote "\\S{2,3}")) .......... [PASS] 650. (ssre->sre (quote "\\S{2,3}?")) .......... [PASS] 651. (ssre->sre (quote ">\\s+<")) .......... [PASS] 652. (ssre->sre (quote ">\\s{2,3}<")) .......... [PASS] 653. (ssre->sre (quote ">\\s{2,3}?<")) .......... [PASS] 654. (ssre->sre (quote "\\w+")) .......... [PASS] 655. (ssre->sre (quote "\\w{2,3}")) .......... [PASS] 656. (ssre->sre (quote "\\w{2,3}?")) .......... [PASS] 657. (ssre->sre (quote "\\W+")) .......... [PASS] 658. (ssre->sre (quote "\\W{2,3}")) .......... [PASS] 659. (ssre->sre (quote "\\W{2,3}?")) .......... [PASS] 660. (ssre->sre (quote "^[ac]*b")) .......... [PASS] 661. (ssre->sre (quote "^[^x]*b")) .......... [PASS] 662. (ssre->sre (quote "^[^x]*b")) .......... [PASS] 663. (ssre->sre (quote "^\\d*b")) .......... [PASS] 664. (ssre->sre (quote "(|a)")) .......... [PASS] 665. (ssre->sre (quote "\\S\\S")) .......... [PASS] 666. (ssre->sre (quote "\\S{2}")) .......... [PASS] 667. (ssre->sre (quote "\\W\\W")) .......... [PASS] 668. (ssre->sre (quote "\\W{2}")) .......... [PASS] 669. (ssre->sre (quote "\\S")) .......... [PASS] 670. (ssre->sre (quote "\\D")) .......... [PASS] 671. (ssre->sre (quote "\\W")) .......... [PASS] 672. (ssre->sre (quote ".[^\\S\n].")) .......... [PASS] 673. (ssre->sre (quote "^[^d]*?$")) .......... [PASS] 674. (ssre->sre (quote "^[^d]*?$")) .......... [PASS] 675. (ssre->sre (quote "^[^d]*?$")) .......... [PASS] 676. (ssre->sre (quote "A*")) .......... [PASS] 677. (ssre->sre (quote ".")) .......... [PASS] 678. (ssre->sre (quote "^\\d*\\w{4}")) .......... [PASS] 679. (ssre->sre (quote "^[^b]*\\w{4}")) .......... [PASS] 680. (ssre->sre (quote "^[^b]*\\w{4}")) .......... [PASS] 681. (ssre->sre (quote "^.\\B.\\B.")) .......... [PASS] 682. (ssre->sre (quote "\\D+")) .......... [PASS] 683. (ssre->sre (quote "^\\w+")) .......... [PASS] 684. (ssre->sre (quote "^\\d+")) .......... [PASS] 685. (ssre->sre (quote "^>\\s+")) .......... [PASS] 686. (ssre->sre (quote "^A\\s+Z")) .......... [PASS] 687. (ssre->sre (quote "[RST]+")) .......... [PASS] 688. (ssre->sre (quote "[R-T]+")) .......... [PASS] 689. (ssre->sre (quote "[q-u]+")) .......... [PASS] 690. (ssre->sre (quote "^s?c")) .......... [PASS] 691. (ssre->sre (quote "[A-`]")) .......... [PASS] 692. (ssre->sre (quote "\\w+")) .......... [PASS] 693. (ssre->sre (quote "\\b.+?\\b")) .......... [PASS] 694. (ssre->sre (quote "caf\\B.+?\\B")) .......... [PASS] 695. (ssre->sre (quote "c3 b1")) .......... [PASS] 696. (ssre->sre (quote "^A\\s+Z")) .......... [PASS] 697. (ssre->sre (quote "\\W")) .......... [PASS] 698. (ssre->sre (quote "\\w")) .......... [PASS] 699. (ssre->sre (quote "Xa{2,4}b")) .......... [PASS] 700. (ssre->sre (quote "Xa{2,4}?b")) .......... [PASS] 701. (ssre->sre (quote "Xa{2,4}+b")) .......... [PASS] 702. (ssre->sre (quote "X\\d{2,4}b")) .......... [PASS] 703. (ssre->sre (quote "X\\d{2,4}?b")) .......... [PASS] 704. (ssre->sre (quote "X\\d{2,4}+b")) .......... [PASS] 705. (ssre->sre (quote "X\\D{2,4}b")) .......... [PASS] 706. (ssre->sre (quote "X\\D{2,4}?b")) .......... [PASS] 707. (ssre->sre (quote "X\\D{2,4}+b")) .......... [PASS] 708. (ssre->sre (quote "X\\D{2,4}b")) .......... [PASS] 709. (ssre->sre (quote "X\\D{2,4}?b")) .......... [PASS] 710. (ssre->sre (quote "X\\D{2,4}+b")) .......... [PASS] 711. (ssre->sre (quote "X[abc]{2,4}b")) .......... [PASS] 712. (ssre->sre (quote "X[abc]{2,4}?b")) .......... [PASS] 713. (ssre->sre (quote "X[abc]{2,4}+b")) .......... [PASS] 714. (ssre->sre (quote "X[^a]{2,4}b")) .......... [PASS] 715. (ssre->sre (quote "X[^a]{2,4}?b")) .......... [PASS] 716. (ssre->sre (quote "X[^a]{2,4}+b")) .......... [PASS] 717. (ssre->sre (quote "X[^a]{2,4}b")) .......... [PASS] 718. (ssre->sre (quote "X[^a]{2,4}?b")) .......... [PASS] 719. (ssre->sre (quote "X[^a]{2,4}+b")) .......... [PASS] 720. (ssre->sre (quote "\\bthe cat\\b")) .......... [PASS] 721. (ssre->sre (quote "abcd*")) .......... [PASS] 722. (ssre->sre (quote "abcd*")) .......... [PASS] 723. (ssre->sre (quote "abc\\d*")) .......... [PASS] 724. (ssre->sre (quote "abc[de]*")) .......... [PASS] 725. (ssre->sre (quote "X\\W{3}X")) .......... [PASS] 726. (ssre->sre (quote "f.*")) .......... [PASS] 727. (ssre->sre (quote "f.*")) .......... [PASS] 728. (ssre->sre (quote "f.*")) .......... [PASS] 729. (ssre->sre (quote "f.*")) .......... [PASS] 730. (ssre->sre (quote "(?sre (quote "\\b...\\B")) .......... [PASS] 732. (ssre->sre (quote "\\b...\\B")) .......... [PASS] 733. (ssre->sre (quote "\\b...\\B")) .......... [PASS] 734. (ssre->sre (quote "is+t")) .......... [PASS] 735. (ssre->sre (quote "is+?t")) .......... [PASS] 736. (ssre->sre (quote "is?t")) .......... [PASS] 737. (ssre->sre (quote "is{2}t")) .......... [PASS] 738. (ssre->sre (quote "a[[:punct:]b]")) .......... [PASS] 739. (ssre->sre (quote "a[[:punct:]b]")) .......... [PASS] 740. (ssre->sre (quote "a[b[:punct:]]")) .......... [PASS] 741. (ssre->sre (quote "[\\D\\P{Nd}]")) .......... [PASS] 742. (ssre->sre (quote "[^\\D\\P{Nd}]")) .......... [PASS] 743. (ssre->sre (quote "(|@)7")) .......... [PASS] 744. (ssre->sre (quote "AskZ")) .......... [PASS] 745. (ssre->sre (quote "[AskZ]+")) .......... [PASS] 746. (ssre->sre (quote "[^s]+")) .......... [PASS] 747. (ssre->sre (quote "[^s]+")) .......... [PASS] 748. (ssre->sre (quote "[^k]+")) .......... [PASS] 749. (ssre->sre (quote "[^k]+")) .......... [PASS] 750. (ssre->sre (quote "[^sk]+")) .......... [PASS] 751. (ssre->sre (quote "[^sk]+")) .......... [PASS] 752. (ssre->sre (quote "(?:(?ss)|(?kk)) \\k")) .......... [PASS] 753. (ssre->sre (quote "(?:(?s)|(?k)) \\k{3,}!")) .......... [PASS] 754. (ssre->sre (quote "i")) .......... [PASS] 755. (ssre->sre (quote "I")) .......... [PASS] 756. (ssre->sre (quote "[i]")) .......... [PASS] 757. (ssre->sre (quote "[^i]")) .......... [PASS] 758. (ssre->sre (quote "[zi]")) .......... [PASS] 759. (ssre->sre (quote "[iI]")) .......... [PASS] 760. (ssre->sre (quote "\\d+")) .......... [PASS] 761. (ssre->sre (quote "\\d+")) .......... [PASS] 762. (ssre->sre (quote ">\\s+<")) .......... [PASS] 763. (ssre->sre (quote ">\\s+<")) .......... [PASS] 764. (ssre->sre (quote "\\w+")) .......... [PASS] 765. (ssre->sre (quote "\\w+")) .......... [PASS] 766. (ssre->sre (quote "\\bABC\\b")) .......... [PASS] 767. (ssre->sre (quote "\\bABC\\b")) .......... [PASS] 768. (ssre->sre (quote "(?sre (quote "abc")) .......... [PASS] 770. (ssre->sre (quote "ab*c")) .......... [PASS] 771. (ssre->sre (quote "ab+c")) .......... [PASS] 772. (ssre->sre (quote "(a|abcd|african)")) .......... [PASS] 773. (ssre->sre (quote "^abc")) .......... [PASS] 774. (ssre->sre (quote "^abc")) .......... [PASS] 775. (ssre->sre (quote "\\Aabc")) .......... [PASS] 776. (ssre->sre (quote "\\Aabc")) .......... [PASS] 777. (ssre->sre (quote "x\\dy\\Dz")) .......... [PASS] 778. (ssre->sre (quote "x\\sy\\Sz")) .......... [PASS] 779. (ssre->sre (quote "x\\wy\\Wz")) .......... [PASS] 780. (ssre->sre (quote "x.y")) .......... [PASS] 781. (ssre->sre (quote "x.y")) .......... [PASS] 782. (ssre->sre (quote "a\\d\\z")) .......... [PASS] 783. (ssre->sre (quote "a\\d\\z")) .......... [PASS] 784. (ssre->sre (quote "a\\d$")) .......... [PASS] 785. (ssre->sre (quote "a\\d$")) .......... [PASS] 786. (ssre->sre (quote "[^a]")) .......... [PASS] 787. (ssre->sre (quote "ab?\\w")) .......... [PASS] 788. (ssre->sre (quote "x{0,3}yz")) .......... [PASS] 789. (ssre->sre (quote "x{3}yz")) .......... [PASS] 790. (ssre->sre (quote "x{2,3}yz")) .......... [PASS] 791. (ssre->sre (quote "\\d*")) .......... [PASS] 792. (ssre->sre (quote "\\D*")) .......... [PASS] 793. (ssre->sre (quote "\\d+")) .......... [PASS] 794. (ssre->sre (quote "\\D+")) .......... [PASS] 795. (ssre->sre (quote "\\d?A")) .......... [PASS] 796. (ssre->sre (quote "\\D?A")) .......... [PASS] 797. (ssre->sre (quote "a+")) .......... [PASS] 798. (ssre->sre (quote "^.*xyz")) .......... [PASS] 799. (ssre->sre (quote "^.+xyz")) .......... [PASS] 800. (ssre->sre (quote "^.?xyz")) .......... [PASS] 801. (ssre->sre (quote "^\\d{2,3}X")) .......... [PASS] 802. (ssre->sre (quote "^[abcd]\\d")) .......... [PASS] 803. (ssre->sre (quote "^[abcd]*\\d")) .......... [PASS] 804. (ssre->sre (quote "^[abcd]+\\d")) .......... [PASS] 805. (ssre->sre (quote "^a+X")) .......... [PASS] 806. (ssre->sre (quote "^[abcd]?\\d")) .......... [PASS] 807. (ssre->sre (quote "^[abcd]{2,3}\\d")) .......... [PASS] 808. (ssre->sre (quote "^(abc)*\\d")) .......... [PASS] 809. (ssre->sre (quote "^(abc)+\\d")) .......... [PASS] 810. (ssre->sre (quote "^(abc)?\\d")) .......... [PASS] 811. (ssre->sre (quote "^(abc){2,3}\\d")) .......... [PASS] 812. (ssre->sre (quote "^(a*\\w|ab)=(a*\\w|ab)")) .......... [PASS] 813. (ssre->sre (quote "^(?=abc)\\w{5}:$")) .......... [PASS] 814. (ssre->sre (quote "^(?!abc)\\d\\d$")) .......... [PASS] 815. (ssre->sre (quote "(?<=abc|xy)123")) .......... [PASS] 816. (ssre->sre (quote "(?sre (quote "^abc")) .......... [PASS] 818. (ssre->sre (quote "^(a*|xyz)")) .......... [PASS] 819. (ssre->sre (quote "xyz$")) .......... [PASS] 820. (ssre->sre (quote "xyz$")) .......... [PASS] 821. (ssre->sre (quote "^abcdef")) .......... [PASS] 822. (ssre->sre (quote "^a{2,4}\\d+z")) .......... [PASS] 823. (ssre->sre (quote "^abcdef")) .......... [PASS] 824. (ssre->sre (quote "(?<=foo)bar")) .......... [PASS] 825. (ssre->sre (quote "(ab*(cd|ef))+X")) .......... [PASS] 826. (ssre->sre (quote "the quick brown fox")) .......... [PASS] 827. (ssre->sre (quote "a*abc?xyz+pqr{3}ab{2,}xy{4,5}pq{0,6}AB{0,}zz")) .......... [PASS] 828. (ssre->sre (quote "^(abc){1,2}zz")) .......... [PASS] 829. (ssre->sre (quote "^(b+?|a){1,2}?c")) .......... [PASS] 830. (ssre->sre (quote "^(b+|a){1,2}c")) .......... [PASS] 831. (ssre->sre (quote "^(b+|a){1,2}?bc")) .......... [PASS] 832. (ssre->sre (quote "^(b*|ba){1,2}?bc")) .......... [PASS] 833. (ssre->sre (quote "^(ba|b*){1,2}?bc")) .......... [PASS] 834. (ssre->sre (quote "^[ab\\]cde]")) .......... [PASS] 835. (ssre->sre (quote "^[]cde]")) .......... [PASS] 836. (ssre->sre (quote "^[^ab\\]cde]")) .......... [PASS] 837. (ssre->sre (quote "^[^]cde]")) .......... [PASS] 838. (ssre->sre (quote "^@")) .......... [PASS] 839. (ssre->sre (quote "^[0-9]+$")) .......... [PASS] 840. (ssre->sre (quote "^.*nter")) .......... [PASS] 841. (ssre->sre (quote "^xxx[0-9]+$")) .......... [PASS] 842. (ssre->sre (quote "^.+[0-9][0-9][0-9]$")) .......... [PASS] 843. (ssre->sre (quote "^.+?[0-9][0-9][0-9]$")) .......... [PASS] 844. (ssre->sre (quote "^([^!]+)!(.+)=apquxz\\.ixr\\.zzz\\.ac\\.uk$")) .......... [PASS] 845. (ssre->sre (quote ":")) .......... [PASS] 846. (ssre->sre (quote "^.*\\.(\\d{1,3})\\.(\\d{1,3})\\.(\\d{1,3})$")) .......... [PASS] 847. (ssre->sre (quote "^(\\d+)\\s+IN\\s+SOA\\s+(\\S+)\\s+(\\S+)\\s*\\(\\s*$")) .......... [PASS] 848. (ssre->sre (quote "^[a-zA-Z\\d][a-zA-Z\\d\\-]*(\\.[a-zA-Z\\d][a-zA-Z\\d\\-]*)*\\.$")) .......... [PASS] 849. (ssre->sre (quote "^\\*\\.[a-z]([a-z\\-\\d]*[a-z\\d]+)?(\\.[a-z]([a-z\\-\\d]*[a-z\\d]+)?)*$")) .......... [PASS] 850. (ssre->sre (quote "^(?=ab(de))(abd)(e)")) .......... [PASS] 851. (ssre->sre (quote "^(?!(ab)de|x)(abd)(f)")) .......... [PASS] 852. (ssre->sre (quote "^(?=(ab(cd)))(ab)")) .......... [PASS] 853. (ssre->sre (quote "^$")) .......... [PASS] 854. (ssre->sre (quote "(?x)^ a\\ b[c ]d $")) .......... [PASS] 855. (ssre->sre (quote "^(a(b(c)))(d(e(f)))(h(i(j)))(k(l(m)))$")) .......... [PASS] 856. (ssre->sre (quote "^(?:a(b(c)))(?:d(e(f)))(?:h(i(j)))(?:k(l(m)))$")) .......... [PASS] 857. (ssre->sre (quote "^[.^$|()*+?{,}]+")) .......... [PASS] 858. (ssre->sre (quote "^a*\\w")) .......... [PASS] 859. (ssre->sre (quote "^a*?\\w")) .......... [PASS] 860. (ssre->sre (quote "^a+\\w")) .......... [PASS] 861. (ssre->sre (quote "^a+?\\w")) .......... [PASS] 862. (ssre->sre (quote "^\\d{8}\\w{2,}")) .......... [PASS] 863. (ssre->sre (quote "^[aeiou\\d]{4,5}$")) .......... [PASS] 864. (ssre->sre (quote "^[aeiou\\d]{4,5}?")) .......... [PASS] 865. (ssre->sre (quote "^12.34")) .......... [PASS] 866. (ssre->sre (quote "foo(?!bar)(.*)")) .......... [PASS] 867. (ssre->sre (quote "(?:(?!foo)...|^.{0,2})bar(.*)")) .......... [PASS] 868. (ssre->sre (quote "^(\\D*)(?=\\d)(?!123)")) .......... [PASS] 869. (ssre->sre (quote "(?!^)abc")) .......... [PASS] 870. (ssre->sre (quote "(?=^)abc")) .......... [PASS] 871. (ssre->sre (quote "ab{1,3}bc")) .......... [PASS] 872. (ssre->sre (quote "([^.]*)\\.([^:]*):[T ]+(.*)")) .......... [PASS] 873. (ssre->sre (quote "^[W-c]+$")) .......... [PASS] 874. (ssre->sre (quote "^abc$")) .......... [PASS] 875. (ssre->sre (quote "^abc$")) .......... [PASS] 876. (ssre->sre (quote "\\Aabc\\Z")) .......... [PASS] 877. (ssre->sre (quote "\\A(.)*\\Z")) .......... [PASS] 878. (ssre->sre (quote "(?:b)|(?::+)")) .......... [PASS] 879. (ssre->sre (quote "[-az]+")) .......... [PASS] 880. (ssre->sre (quote "[az-]+")) .......... [PASS] 881. (ssre->sre (quote "[a\\-z]+")) .......... [PASS] 882. (ssre->sre (quote "[a-z]+")) .......... [PASS] 883. (ssre->sre (quote "[\\d-]+")) .......... [PASS] 884. (ssre->sre (quote "abc$")) .......... [PASS] 885. (ssre->sre (quote "a{0}bc")) .......... [PASS] 886. (ssre->sre (quote "(a|(bc)){0,0}?xyz")) .......... [PASS] 887. (ssre->sre (quote "[^a]")) .......... [PASS] 888. (ssre->sre (quote "[^a]+")) .......... [PASS] 889. (ssre->sre (quote "[^a]+")) .......... [PASS] 890. (ssre->sre (quote "[^k]$")) .......... [PASS] 891. (ssre->sre (quote "[^k]{2,3}$")) .......... [PASS] 892. (ssre->sre (quote "^\\d{8,}@.+[^k]$")) .......... [PASS] 893. (ssre->sre (quote "[^a]")) .......... [PASS] 894. (ssre->sre (quote "[^az]")) .......... [PASS] 895. (ssre->sre (quote "P[^*]TAIRE[^*]{1,6}?LL")) .......... [PASS] 896. (ssre->sre (quote "P[^*]TAIRE[^*]{1,}?LL")) .......... [PASS] 897. (ssre->sre (quote "(\\.\\d\\d[1-9]?)\\d+")) .......... [PASS] 898. (ssre->sre (quote "(\\.\\d\\d((?=0)|\\d(?=\\d)))")) .......... [PASS] 899. (ssre->sre (quote "foo(.*)bar")) .......... [PASS] 900. (ssre->sre (quote "foo(.*?)bar")) .......... [PASS] 901. (ssre->sre (quote "(.*)(\\d+)")) .......... [PASS] 902. (ssre->sre (quote "(.*?)(\\d+)")) .......... [PASS] 903. (ssre->sre (quote "(.*)(\\d+)$")) .......... [PASS] 904. (ssre->sre (quote "(.*?)(\\d+)$")) .......... [PASS] 905. (ssre->sre (quote "(.*)\\b(\\d+)$")) .......... [PASS] 906. (ssre->sre (quote "(.*\\D)(\\d+)$")) .......... [PASS] 907. (ssre->sre (quote "^\\D*(?!123)")) .......... [PASS] 908. (ssre->sre (quote "^(\\D*)(?=\\d)(?!123)")) .......... [PASS] 909. (ssre->sre (quote "^[W-\\]46]")) .......... [PASS] 910. (ssre->sre (quote "word (?:[a-zA-Z0-9]+ ){0,10}otherword")) .......... [PASS] 911. (ssre->sre (quote "word (?:[a-zA-Z0-9]+ ){0,300}otherword")) .......... [PASS] 912. (ssre->sre (quote "^(a){0,0}")) .......... [PASS] 913. (ssre->sre (quote "^(a){0,1}")) .......... [PASS] 914. (ssre->sre (quote "^(a){0,2}")) .......... [PASS] 915. (ssre->sre (quote "^(a){0,3}")) .......... [PASS] 916. (ssre->sre (quote "^(a){0,}")) .......... [PASS] 917. (ssre->sre (quote "^(a){1,1}")) .......... [PASS] 918. (ssre->sre (quote "^(a){1,2}")) .......... [PASS] 919. (ssre->sre (quote "^(a){1,3}")) .......... [PASS] 920. (ssre->sre (quote "^(a){1,}")) .......... [PASS] 921. (ssre->sre (quote ".*\\.gif")) .......... [PASS] 922. (ssre->sre (quote ".{0,}\\.gif")) .......... [PASS] 923. (ssre->sre (quote ".*\\.gif")) .......... [PASS] 924. (ssre->sre (quote ".*\\.gif")) .......... [PASS] 925. (ssre->sre (quote ".*\\.gif")) .......... [PASS] 926. (ssre->sre (quote ".*$")) .......... [PASS] 927. (ssre->sre (quote ".*$")) .......... [PASS] 928. (ssre->sre (quote ".*$")) .......... [PASS] 929. (ssre->sre (quote ".*$")) .......... [PASS] 930. (ssre->sre (quote ".*$")) .......... [PASS] 931. (ssre->sre (quote ".*$")) .......... [PASS] 932. (ssre->sre (quote ".*$")) .......... [PASS] 933. (ssre->sre (quote ".*$")) .......... [PASS] 934. (ssre->sre (quote "(.*X|^B)")) .......... [PASS] 935. (ssre->sre (quote "(.*X|^B)")) .......... [PASS] 936. (ssre->sre (quote "(.*X|^B)")) .......... [PASS] 937. (ssre->sre (quote "(.*X|^B)")) .......... [PASS] 938. (ssre->sre (quote "^.*B")) .......... [PASS] 939. (ssre->sre (quote "(?m)^.*B")) .......... [PASS] 940. (ssre->sre (quote "^[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]")) .......... [PASS] 941. (ssre->sre (quote "^\\d\\d\\d\\d\\d\\d\\d\\d\\d\\d\\d\\d")) .......... [PASS] 942. (ssre->sre (quote "^[\\d][\\d][\\d][\\d][\\d][\\d][\\d][\\d][\\d][\\d][\\d][\\d]")) .......... [PASS] 943. (ssre->sre (quote "^[abc]{12}")) .......... [PASS] 944. (ssre->sre (quote "^[a-c]{12}")) .......... [PASS] 945. (ssre->sre (quote "^(a|b|c){12}")) .......... [PASS] 946. (ssre->sre (quote "^[abcdefghijklmnopqrstuvwxy0123456789]")) .......... [PASS] 947. (ssre->sre (quote "abcde{0,0}")) .......... [PASS] 948. (ssre->sre (quote "ab[cd]{0,0}e")) .......... [PASS] 949. (ssre->sre (quote "ab(c){0,0}d")) .......... [PASS] 950. (ssre->sre (quote "a(b*)")) .......... [PASS] 951. (ssre->sre (quote "ab\\d{0}e")) .......... [PASS] 952. (ssre->sre (quote "\"([^\\\\\"]+|\\\\.)*\"")) .......... [PASS] 953. (ssre->sre (quote ".*?")) .......... [PASS] 954. (ssre->sre (quote "\\b")) .......... [PASS] 955. (ssre->sre (quote "\\b")) .......... [PASS] 956. (ssre->sre (quote "a[^a]b")) .......... [PASS] 957. (ssre->sre (quote "a.b")) .......... [PASS] 958. (ssre->sre (quote "a[^a]b")) .......... [PASS] 959. (ssre->sre (quote "a.b")) .......... [PASS] 960. (ssre->sre (quote "^(b+?|a){1,2}?c")) .......... [PASS] 961. (ssre->sre (quote "^(b+|a){1,2}?c")) .......... [PASS] 962. (ssre->sre (quote "(?!\\A)x")) .......... [PASS] 963. (ssre->sre (quote "(A|B)*CD")) .......... [PASS] 964. (ssre->sre (quote "(?sre (quote "\\w{3}(?sre (quote "(?<=(foo)a)bar")) .......... [PASS] 967. (ssre->sre (quote "\\Aabc\\z")) .......... [PASS] 968. (ssre->sre (quote "(\\d+)(\\w)")) .......... [PASS] 969. (ssre->sre (quote "(a+|b+|c+)*c")) .......... [PASS] 970. (ssre->sre (quote "([a]*?)*")) .......... [PASS] 971. (ssre->sre (quote "([ab]*?)*")) .......... [PASS] 972. (ssre->sre (quote "([^a]*?)*")) .......... [PASS] 973. (ssre->sre (quote "([^ab]*?)*")) .......... [PASS] 974. (ssre->sre (quote "(?<=(?sre (quote "abc")) .......... [PASS] 976. (ssre->sre (quote "ab*c")) .......... [PASS] 977. (ssre->sre (quote "ab*bc")) .......... [PASS] 978. (ssre->sre (quote ".{1}")) .......... [PASS] 979. (ssre->sre (quote ".{3,4}")) .......... [PASS] 980. (ssre->sre (quote "ab{0,}bc")) .......... [PASS] 981. (ssre->sre (quote "ab+bc")) .......... [PASS] 982. (ssre->sre (quote "ab+bc")) .......... [PASS] 983. (ssre->sre (quote "ab{1,}bc")) .......... [PASS] 984. (ssre->sre (quote "ab{1,3}bc")) .......... [PASS] 985. (ssre->sre (quote "ab{3,4}bc")) .......... [PASS] 986. (ssre->sre (quote "ab{4,5}bc")) .......... [PASS] 987. (ssre->sre (quote "ab?bc")) .......... [PASS] 988. (ssre->sre (quote "ab{0,1}bc")) .......... [PASS] 989. (ssre->sre (quote "ab?bc")) .......... [PASS] 990. (ssre->sre (quote "ab?c")) .......... [PASS] 991. (ssre->sre (quote "ab{0,1}c")) .......... [PASS] 992. (ssre->sre (quote "^abc$")) .......... [PASS] 993. (ssre->sre (quote "^abc")) .......... [PASS] 994. (ssre->sre (quote "^abc$")) .......... [PASS] 995. (ssre->sre (quote "abc$")) .......... [PASS] 996. (ssre->sre (quote "^")) .......... [PASS] 997. (ssre->sre (quote "$")) .......... [PASS] 998. (ssre->sre (quote "a.c")) .......... [PASS] 999. (ssre->sre (quote "a.*c")) .......... [PASS] 1000. (ssre->sre (quote "a[bc]d")) .......... [PASS] 1001. (ssre->sre (quote "a[b-d]e")) .......... [PASS] 1002. (ssre->sre (quote "a[b-d]")) .......... [PASS] 1003. (ssre->sre (quote "a[-b]")) .......... [PASS] 1004. (ssre->sre (quote "a[b-]")) .......... [PASS] 1005. (ssre->sre (quote "a[]]b")) .......... [PASS] 1006. (ssre->sre (quote "a[^bc]d")) .......... [PASS] 1007. (ssre->sre (quote "a[^-b]c")) .......... [PASS] 1008. (ssre->sre (quote "a[^]b]c")) .......... [PASS] 1009. (ssre->sre (quote "\\ba\\b")) .......... [PASS] 1010. (ssre->sre (quote "\\by\\b")) .......... [PASS] 1011. (ssre->sre (quote "\\Ba\\B")) .......... [PASS] 1012. (ssre->sre (quote "\\By\\b")) .......... [PASS] 1013. (ssre->sre (quote "\\by\\B")) .......... [PASS] 1014. (ssre->sre (quote "\\By\\B")) .......... [PASS] 1015. (ssre->sre (quote "\\w")) .......... [PASS] 1016. (ssre->sre (quote "\\W")) .......... [PASS] 1017. (ssre->sre (quote "a\\sb")) .......... [PASS] 1018. (ssre->sre (quote "a\\Sb")) .......... [PASS] 1019. (ssre->sre (quote "\\d")) .......... [PASS] 1020. (ssre->sre (quote "\\D")) .......... [PASS] 1021. (ssre->sre (quote "ab|cd")) .......... [PASS] 1022. (ssre->sre (quote "()ef")) .......... [PASS] 1023. (ssre->sre (quote "$b")) .......... [PASS] 1024. (ssre->sre (quote "a\\(b")) .......... [PASS] 1025. (ssre->sre (quote "a\\(*b")) .......... [PASS] 1026. (ssre->sre (quote "a\\\\b")) .......... [PASS] 1027. (ssre->sre (quote "((a))")) .......... [PASS] 1028. (ssre->sre (quote "(a)b(c)")) .......... [PASS] 1029. (ssre->sre (quote "a+b+c")) .......... [PASS] 1030. (ssre->sre (quote "a{1,}b{1,}c")) .......... [PASS] 1031. (ssre->sre (quote "a.+?c")) .......... [PASS] 1032. (ssre->sre (quote "(a+|b)*")) .......... [PASS] 1033. (ssre->sre (quote "(a+|b){0,}")) .......... [PASS] 1034. (ssre->sre (quote "(a+|b)+")) .......... [PASS] 1035. (ssre->sre (quote "(a+|b){1,}")) .......... [PASS] 1036. (ssre->sre (quote "(a+|b)?")) .......... [PASS] 1037. (ssre->sre (quote "(a+|b){0,1}")) .......... [PASS] 1038. (ssre->sre (quote "[^ab]*")) .......... [PASS] 1039. (ssre->sre (quote "abc")) .......... [PASS] 1040. (ssre->sre (quote "a*")) .......... [PASS] 1041. (ssre->sre (quote "([abc])*d")) .......... [PASS] 1042. (ssre->sre (quote "([abc])*bcd")) .......... [PASS] 1043. (ssre->sre (quote "a|b|c|d|e")) .......... [PASS] 1044. (ssre->sre (quote "(a|b|c|d|e)f")) .......... [PASS] 1045. (ssre->sre (quote "abcd*efg")) .......... [PASS] 1046. (ssre->sre (quote "ab*")) .......... [PASS] 1047. (ssre->sre (quote "(ab|cd)e")) .......... [PASS] 1048. (ssre->sre (quote "[abhgefdc]ij")) .......... [PASS] 1049. (ssre->sre (quote "^(ab|cd)e")) .......... [PASS] 1050. (ssre->sre (quote "(abc|)ef")) .......... [PASS] 1051. (ssre->sre (quote "(a|b)c*d")) .......... [PASS] 1052. (ssre->sre (quote "(ab|ab*)bc")) .......... [PASS] 1053. (ssre->sre (quote "a([bc]*)c*")) .......... [PASS] 1054. (ssre->sre (quote "a([bc]*)(c*d)")) .......... [PASS] 1055. (ssre->sre (quote "a([bc]+)(c*d)")) .......... [PASS] 1056. (ssre->sre (quote "a([bc]*)(c+d)")) .......... [PASS] 1057. (ssre->sre (quote "a[bcd]*dcdcde")) .......... [PASS] 1058. (ssre->sre (quote "a[bcd]+dcdcde")) .......... [PASS] 1059. (ssre->sre (quote "(ab|a)b*c")) .......... [PASS] 1060. (ssre->sre (quote "((a)(b)c)(d)")) .......... [PASS] 1061. (ssre->sre (quote "[a-zA-Z_][a-zA-Z0-9_]*")) .......... [PASS] 1062. (ssre->sre (quote "^a(bc+|b[eh])g|.h$")) .......... [PASS] 1063. (ssre->sre (quote "(bc+d$|ef*g.|h?i(j|k))")) .......... [PASS] 1064. (ssre->sre (quote "((((((((((a))))))))))")) .......... [PASS] 1065. (ssre->sre (quote "(((((((((a)))))))))")) .......... [PASS] 1066. (ssre->sre (quote "multiple words of text")) .......... [PASS] 1067. (ssre->sre (quote "multiple words")) .......... [PASS] 1068. (ssre->sre (quote "(.*)c(.*)")) .......... [PASS] 1069. (ssre->sre (quote "\\((.*), (.*)\\)")) .......... [PASS] 1070. (ssre->sre (quote "[k]")) .......... [PASS] 1071. (ssre->sre (quote "abcd")) .......... [PASS] 1072. (ssre->sre (quote "a(bc)d")) .......... [PASS] 1073. (ssre->sre (quote "a[-]?c")) .......... [PASS] 1074. (ssre->sre (quote "a(?!b).")) .......... [PASS] 1075. (ssre->sre (quote "a(?=d).")) .......... [PASS] 1076. (ssre->sre (quote "a(?=c|d).")) .......... [PASS] 1077. (ssre->sre (quote "a(?:b|c|d)(.)")) .......... [PASS] 1078. (ssre->sre (quote "a(?:b|c|d)*(.)")) .......... [PASS] 1079. (ssre->sre (quote "a(?:b|c|d)+?(.)")) .......... [PASS] 1080. (ssre->sre (quote "a(?:b|c|d)+(.)")) .......... [PASS] 1081. (ssre->sre (quote "a(?:b|c|d){2}(.)")) .......... [PASS] 1082. (ssre->sre (quote "a(?:b|c|d){4,5}(.)")) .......... [PASS] 1083. (ssre->sre (quote "a(?:b|c|d){4,5}?(.)")) .......... [PASS] 1084. (ssre->sre (quote "((foo)|(bar))*")) .......... [PASS] 1085. (ssre->sre (quote "a(?:b|c|d){6,7}(.)")) .......... [PASS] 1086. (ssre->sre (quote "a(?:b|c|d){6,7}?(.)")) .......... [PASS] 1087. (ssre->sre (quote "a(?:b|c|d){5,6}(.)")) .......... [PASS] 1088. (ssre->sre (quote "a(?:b|c|d){5,6}?(.)")) .......... [PASS] 1089. (ssre->sre (quote "a(?:b|c|d){5,7}(.)")) .......... [PASS] 1090. (ssre->sre (quote "a(?:b|c|d){5,7}?(.)")) .......... [PASS] 1091. (ssre->sre (quote "a(?:b|(c|e){1,2}?|d)+?(.)")) .......... [PASS] 1092. (ssre->sre (quote "^(.+)?B")) .......... [PASS] 1093. (ssre->sre (quote "^([^a-z])|(\\^)$")) .......... [PASS] 1094. (ssre->sre (quote "^[<>]&")) .......... [PASS] 1095. (ssre->sre (quote "(?:(f)(o)(o)|(b)(a)(r))*")) .......... [PASS] 1096. (ssre->sre (quote "(?<=a)b")) .......... [PASS] 1097. (ssre->sre (quote "(?sre (quote "(?:..)*a")) .......... [PASS] 1099. (ssre->sre (quote "(?:..)*?a")) .......... [PASS] 1100. (ssre->sre (quote "^(){3,5}")) .......... [PASS] 1101. (ssre->sre (quote "(a|x)*ab")) .......... [PASS] 1102. (ssre->sre (quote "(a)*ab")) .......... [PASS] 1103. (ssre->sre (quote "(?:c|d)(?:)(?:a(?:)(?:b)(?:b(?:))(?:b(?:)(?:b)))")) .......... [PASS] 1104. (ssre->sre (quote "(?:c|d)(?:)(?:aaaaaaaa(?:)(?:bbbbbbbb)(?:bbbbbbbb(?:))(?:bbbbbbbb(?:)(?:bbbbbbbb)))")) .......... [PASS] 1105. (ssre->sre (quote "foo\\w*\\d{4}baz")) .......... [PASS] 1106. (ssre->sre (quote "x(~~)*(?:(?:F)?)?")) .......... [PASS] 1107. (ssre->sre (quote "(?sre (quote "(?sre (quote "(?sre (quote "(?sre (quote "(?sre (quote "(?m)^b")) .......... [PASS] 1113. (ssre->sre (quote "(?m)^(b)")) .......... [PASS] 1114. (ssre->sre (quote "^b")) .......... [PASS] 1115. (ssre->sre (quote "()^b")) .......... [PASS] 1116. (ssre->sre (quote "(\\w+:)+")) .......... [PASS] 1117. (ssre->sre (quote "$(?<=^(a))")) .......... [PASS] 1118. (ssre->sre (quote "^[^bcd]*(c+)")) .......... [PASS] 1119. (ssre->sre (quote "(a*)b+")) .......... [PASS] 1120. (ssre->sre (quote "([\\w:]+::)?(\\w+)$")) .......... [PASS] 1121. (ssre->sre (quote "^[^bcd]*(c+)")) .......... [PASS] 1122. (ssre->sre (quote "(>a+)ab")) .......... [PASS] 1123. (ssre->sre (quote "a\\z")) .......... [PASS] 1124. (ssre->sre (quote "(?<=\\d{3}(?!999))foo")) .......... [PASS] 1125. (ssre->sre (quote "(?<=(?!...999)\\d{3})foo")) .......... [PASS] 1126. (ssre->sre (quote "(?<=\\d{3}(?!999)...)foo")) .......... [PASS] 1127. (ssre->sre (quote "(?<=\\d{3}...)(?sre (quote "((Z)+|A)*")) .......... [PASS] 1129. (ssre->sre (quote "(Z()|A)*")) .......... [PASS] 1130. (ssre->sre (quote "(Z(())|A)*")) .......... [PASS] 1131. (ssre->sre (quote "a*")) .......... [PASS] 1132. (ssre->sre (quote "\\s+")) .......... [PASS] 1133. (ssre->sre (quote "(?!\\A)x")) .......... [PASS] 1134. (ssre->sre (quote "(?!^)x")) .......... [PASS] 1135. (ssre->sre (quote "abc.")) .......... [PASS] 1136. (ssre->sre (quote "a(?x: b c )d")) .......... [PASS] 1137. (ssre->sre (quote "(?<=Z)X.")) .......... [PASS] 1138. (ssre->sre (quote "(?<=a|bbbb)c")) .......... [PASS] 1139. (ssre->sre (quote "1234")) .......... [PASS] 1140. (ssre->sre (quote "^")) .......... [PASS] 1141. (ssre->sre (quote "(?<=C\n)^")) .......... [PASS] 1142. (ssre->sre (quote "(?m)A?B")) .......... [PASS] 1143. (ssre->sre (quote "(?m)A*B")) .......... [PASS] 1144. (ssre->sre (quote "\\w+(.)(.)?def")) .......... [PASS] 1145. (ssre->sre (quote ".+foo")) .......... [PASS] 1146. (ssre->sre (quote ".+foo")) .......... [PASS] 1147. (ssre->sre (quote "^X")) .......... [PASS] 1148. (ssre->sre (quote "a(?!)|\\wbc")) .......... [PASS] 1149. (ssre->sre (quote "X$")) .......... [PASS] 1150. (ssre->sre (quote "\\d+X|9+Y")) .......... [PASS] 1151. (ssre->sre (quote "Z(?!)")) .......... [PASS] 1152. (ssre->sre (quote "dog(sbody)?")) .......... [PASS] 1153. (ssre->sre (quote "dog(sbody)??")) .......... [PASS] 1154. (ssre->sre (quote "dog|dogsbody")) .......... [PASS] 1155. (ssre->sre (quote "dogsbody|dog")) .......... [PASS] 1156. (ssre->sre (quote "\\bthe cat\\b")) .......... [PASS] 1157. (ssre->sre (quote "dog(sbody)?")) .......... [PASS] 1158. (ssre->sre (quote "dog(sbody)?")) .......... [PASS] 1159. (ssre->sre (quote "abc")) .......... [PASS] 1160. (ssre->sre (quote "(?<=abc)123")) .......... [PASS] 1161. (ssre->sre (quote "\\babc\\b")) .......... [PASS] 1162. (ssre->sre (quote "(?=C)")) .......... [PASS] 1163. (ssre->sre (quote "abcd*")) .......... [PASS] 1164. (ssre->sre (quote "abc\\d*")) .......... [PASS] 1165. (ssre->sre (quote "abc[de]*")) .......... [PASS] 1166. (ssre->sre (quote "(?<=abc)def")) .......... [PASS] 1167. (ssre->sre (quote "abc$")) .......... [PASS] 1168. (ssre->sre (quote "abc$")) .......... [PASS] 1169. (ssre->sre (quote "abc\\z")) .......... [PASS] 1170. (ssre->sre (quote "abc\\b")) .......... [PASS] 1171. (ssre->sre (quote "abc\\B")) .......... [PASS] 1172. (ssre->sre (quote ".+")) .......... [PASS] 1173. (ssre->sre (quote "(?=abc){3}abc")) .......... [PASS] 1174. (ssre->sre (quote "(?=abc){0}xyz")) .......... [PASS] 1175. (ssre->sre (quote "(?=abc){1}xyz")) .......... [PASS] 1176. (ssre->sre (quote "(?=(a))?.")) .......... [PASS] 1177. (ssre->sre (quote "(?=(a))??.")) .......... [PASS] 1178. (ssre->sre (quote "^(?!a){0}\\w+")) .......... [PASS] 1179. (ssre->sre (quote "(?<=(abc))?xyz")) .......... [PASS] 1180. (ssre->sre (quote "abcdef")) .......... [PASS] 1181. (ssre->sre (quote "abcd")) .......... [PASS] 1182. (ssre->sre (quote "[ab]*")) .......... [PASS] 1183. (ssre->sre (quote "[ab]*?")) .......... [PASS] 1184. (ssre->sre (quote "[ab]?")) .......... [PASS] 1185. (ssre->sre (quote "[ab]??")) .......... [PASS] 1186. (ssre->sre (quote "[ab]+")) .......... [PASS] 1187. (ssre->sre (quote "[ab]+?")) .......... [PASS] 1188. (ssre->sre (quote "[ab]{2,3}")) .......... [PASS] 1189. (ssre->sre (quote "[ab]{2,3}?")) .......... [PASS] 1190. (ssre->sre (quote "[ab]{2,}")) .......... [PASS] 1191. (ssre->sre (quote "[ab]{2,}?")) .......... [PASS] 1192. (ssre->sre (quote "abc(?=xyz)")) .......... [PASS] 1193. (ssre->sre (quote "(?<=pqr)abc(?=xyz)")) .......... [PASS] 1194. (ssre->sre (quote "a\\b")) .......... [PASS] 1195. (ssre->sre (quote "abc(?=abcde)(?=ab)")) .......... [PASS] 1196. (ssre->sre (quote "a*?b*?")) .......... [PASS] 1197. (ssre->sre (quote "(a)(b)|(c)")) .......... [PASS] 1198. (ssre->sre (quote "(?aa)")) .......... [PASS] 1199. (ssre->sre (quote "a(b)c(d)")) .......... [PASS] 1200. (ssre->sre (quote "^")) .......... [PASS] 1201. (ssre->sre (quote "(02-)?[0-9]{3}-[0-9]{3}")) .......... [PASS] 1202. (ssre->sre (quote "abc")) .......... [PASS] 1203. (ssre->sre (quote "abc")) .......... [PASS] 1204. (ssre->sre (quote "abc|bcd")) .......... [PASS] 1205. (ssre->sre (quote "(?<=abc|)")) .......... [PASS] 1206. (ssre->sre (quote "(?<=abc|)")) .......... [PASS] 1207. (ssre->sre (quote "(?<=|abc)")) .......... [PASS] 1208. (ssre->sre (quote "[abc]")) .......... [PASS] 1209. (ssre->sre (quote "foobar")) .......... [PASS] 1210. (ssre->sre (quote "foobar")) .......... [PASS] 1211. (ssre->sre (quote "(?<=pqr)abc(?=xyz)")) .......... [PASS] 1212. (ssre->sre (quote "\\z")) .......... [PASS] 1213. (ssre->sre (quote "\\Z")) .......... [PASS] 1214. (ssre->sre (quote "(?<=(?=.(?<=x)))")) .......... [PASS] 1215. (ssre->sre (quote "(?![ab]).*")) .......... [PASS] 1216. (ssre->sre (quote "[a[]")) .......... [PASS] 1217. (ssre->sre (quote "\\bX")) .......... [PASS] 1218. (ssre->sre (quote "\\BX")) .......... [PASS] 1219. (ssre->sre (quote "X\\b")) .......... [PASS] 1220. (ssre->sre (quote "X\\B")) .......... [PASS] 1221. (ssre->sre (quote "[^a]")) .......... [PASS] 1222. (ssre->sre (quote "a.b")) .......... [PASS] 1223. (ssre->sre (quote "a(.{3})b")) .......... [PASS] 1224. (ssre->sre (quote "a(.*?)(.)")) .......... [PASS] 1225. (ssre->sre (quote "a(.*?)(.)")) .......... [PASS] 1226. (ssre->sre (quote "a(.*)(.)")) .......... [PASS] 1227. (ssre->sre (quote "a(.*)(.)")) .......... [PASS] 1228. (ssre->sre (quote "a(.)(.)")) .......... [PASS] 1229. (ssre->sre (quote "a(.)(.)")) .......... [PASS] 1230. (ssre->sre (quote "a(.?)(.)")) .......... [PASS] 1231. (ssre->sre (quote "a(.?)(.)")) .......... [PASS] 1232. (ssre->sre (quote "a(.??)(.)")) .......... [PASS] 1233. (ssre->sre (quote "a(.??)(.)")) .......... [PASS] 1234. (ssre->sre (quote "a(.{3})b")) .......... [PASS] 1235. (ssre->sre (quote "a(.{3,})b")) .......... [PASS] 1236. (ssre->sre (quote "a(.{3,}?)b")) .......... [PASS] 1237. (ssre->sre (quote "a(.{3,5})b")) .......... [PASS] 1238. (ssre->sre (quote "a(.{3,5}?)b")) .......... [PASS] 1239. (ssre->sre (quote "(?<=aXb)cd")) .......... [PASS] 1240. (ssre->sre (quote "(?<=(.))X")) .......... [PASS] 1241. (ssre->sre (quote "[^a]+")) .......... [PASS] 1242. (ssre->sre (quote "^[^a]{2}")) .......... [PASS] 1243. (ssre->sre (quote "^[^a]{2,}")) .......... [PASS] 1244. (ssre->sre (quote "^[^a]{2,}?")) .......... [PASS] 1245. (ssre->sre (quote "[^a]+")) .......... [PASS] 1246. (ssre->sre (quote "^[^a]{2}")) .......... [PASS] 1247. (ssre->sre (quote "^[^a]{2,}")) .......... [PASS] 1248. (ssre->sre (quote "^[^a]{2,}?")) .......... [PASS] 1249. (ssre->sre (quote "\\D")) .......... [PASS] 1250. (ssre->sre (quote ">\\S")) .......... [PASS] 1251. (ssre->sre (quote "\\d")) .......... [PASS] 1252. (ssre->sre (quote "\\s")) .......... [PASS] 1253. (ssre->sre (quote "\\D+")) .......... [PASS] 1254. (ssre->sre (quote "\\D{2,3}")) .......... [PASS] 1255. (ssre->sre (quote "\\D{2,3}?")) .......... [PASS] 1256. (ssre->sre (quote "\\d+")) .......... [PASS] 1257. (ssre->sre (quote "\\d{2,3}")) .......... [PASS] 1258. (ssre->sre (quote "\\d{2,3}?")) .......... [PASS] 1259. (ssre->sre (quote "\\S+")) .......... [PASS] 1260. (ssre->sre (quote "\\S{2,3}")) .......... [PASS] 1261. (ssre->sre (quote "\\S{2,3}?")) .......... [PASS] 1262. (ssre->sre (quote ">\\s+<")) .......... [PASS] 1263. (ssre->sre (quote ">\\s{2,3}<")) .......... [PASS] 1264. (ssre->sre (quote ">\\s{2,3}?<")) .......... [PASS] 1265. (ssre->sre (quote "\\w+")) .......... [PASS] 1266. (ssre->sre (quote "\\w{2,3}")) .......... [PASS] 1267. (ssre->sre (quote "\\w{2,3}?")) .......... [PASS] 1268. (ssre->sre (quote "\\W+")) .......... [PASS] 1269. (ssre->sre (quote "\\W{2,3}")) .......... [PASS] 1270. (ssre->sre (quote "\\W{2,3}?")) .......... [PASS] 1271. (ssre->sre (quote "^[ac]*b")) .......... [PASS] 1272. (ssre->sre (quote "^[^x]*b")) .......... [PASS] 1273. (ssre->sre (quote "^[^x]*b")) .......... [PASS] 1274. (ssre->sre (quote "^\\d*b")) .......... [PASS] 1275. (ssre->sre (quote "(|a)")) .......... [PASS] 1276. (ssre->sre (quote "abcd*")) .......... [PASS] 1277. (ssre->sre (quote "abcd*")) .......... [PASS] 1278. (ssre->sre (quote "abc\\d*")) .......... [PASS] 1279. (ssre->sre (quote "abc[de]*")) .......... [PASS] 1280. (ssre->sre (quote "\\bthe cat\\b")) .......... [PASS] 1281. (ssre->sre (quote "[\\p{Nd}]")) .......... [PASS] 1282. (ssre->sre (quote "[\\p{Nd}+-]+")) .......... [PASS] 1283. (ssre->sre (quote "[\\P{Nd}]+")) .......... [PASS] 1284. (ssre->sre (quote "^[\\p{Vowel}]")) .......... [PASS] 1285. (ssre->sre (quote "^[\\p{Any}]X")) .......... [PASS] 1286. (ssre->sre (quote "^[\\P{Any}]X")) .......... [PASS] 1287. (ssre->sre (quote "^[\\p{Any}]?X")) .......... [PASS] 1288. (ssre->sre (quote "[.\\p{Lu}][.\\p{Ll}][.\\P{Lu}][.\\P{Ll}]")) .......... [PASS] 1289. (ssre->sre (quote "[\\p{L}]")) .......... [PASS] 1290. (ssre->sre (quote "[\\P{L}]")) .......... [PASS] 1291. (ssre->sre (quote "[\\pLu]")) .......... [PASS] 1292. (ssre->sre (quote "[\\PLu]")) .......... [PASS] 1293. (ssre->sre (quote "\\p{Nd}")) .......... [PASS] 1294. (ssre->sre (quote "\\p{Nd}+")) .......... [PASS] 1295. (ssre->sre (quote "\\P{Nd}+")) .......... [PASS] 1296. (ssre->sre (quote "^\\p{Vowel}")) .......... [PASS] 1297. (ssre->sre (quote "^\\p{Any}X")) .......... [PASS] 1298. (ssre->sre (quote "^\\P{Any}X")) .......... [PASS] 1299. (ssre->sre (quote "^\\p{Any}?X")) .......... [PASS] 1300. (ssre->sre (quote "\\p{L}")) .......... [PASS] 1301. (ssre->sre (quote "\\P{L}")) .......... [PASS] 1302. (ssre->sre (quote "\\pLu")) .......... [PASS] 1303. (ssre->sre (quote "\\PLu")) .......... [PASS] 1304. (ssre->sre (quote "\\b...\\B")) .......... [PASS] 1305. (ssre->sre (quote "\\b...\\B")) .......... [PASS] 1306. (ssre->sre (quote "\\b...\\B")) .......... [PASS] 1307. (ssre->sre (quote "ist")) .......... [PASS] 1308. (ssre->sre (quote "is+t")) .......... [PASS] 1309. (ssre->sre (quote "is+?t")) .......... [PASS] 1310. (ssre->sre (quote "is?t")) .......... [PASS] 1311. (ssre->sre (quote "is{2}t")) .......... [PASS] 1312. (ssre->sre (quote "^A\\s+Z")) .......... [PASS] 1313. (ssre->sre (quote "AskZ")) .......... [PASS] 1314. (ssre->sre (quote "[AskZ]+")) .......... [PASS] 1315. (ssre->sre (quote "[^s]+")) .......... [PASS] 1316. (ssre->sre (quote "[^s]+")) .......... [PASS] 1317. (ssre->sre (quote "[^k]+")) .......... [PASS] 1318. (ssre->sre (quote "[^k]+")) .......... [PASS] 1319. (ssre->sre (quote "[^sk]+")) .......... [PASS] 1320. (ssre->sre (quote "[^sk]+")) .......... [PASS] 1321. (ssre->sre (quote "i")) .......... [PASS] 1322. (ssre->sre (quote "I")) .......... [PASS] 1323. (ssre->sre (quote "[i]")) .......... [PASS] 1324. (ssre->sre (quote "[zi]")) .......... [PASS] 1325. (ssre->sre (quote "[iI]")) .......... [PASS] 1326. (ssre->sre (quote "\\d+")) .......... [PASS] 1327. (ssre->sre (quote "\\d+")) .......... [PASS] 1328. (ssre->sre (quote ">\\s+<")) .......... [PASS] 1329. (ssre->sre (quote ">\\s+<")) .......... [PASS] 1330. (ssre->sre (quote "\\w+")) .......... [PASS] 1331. (ssre->sre (quote "\\w+")) .......... [PASS] 1332. (ssre->sre (quote "\\w+")) .......... [PASS] 1333. (ssre->sre (quote "\\b.+?\\b")) .......... [PASS] 1334. (ssre->sre (quote "caf\\B.+?\\B")) .......... [PASS] 1335. (ssre->sre (quote "x{1,3}+")) .......... [PASS] 1336. (ssre->sre (quote "[a]")) .......... [PASS] 1337. (ssre->sre (quote "[^a]")) .......... [PASS] 1338. (ssre->sre (quote "(?<=C\n)^")) .......... [PASS] 1339. (ssre->sre (quote "\\w+(?=\t)")) .......... [PASS] 1340. (ssre->sre (quote "{Nd}")) .......... [PASS] 1341. (ssre->sre (quote "{Nd|[+]|[-]}+")) .......... [PASS] 1342. (ssre->sre (quote "{~Nd}+")) .......... [PASS] 1343. (ssre->sre (quote "^{Vowel}")) .......... [PASS] 1344. (ssre->sre (quote "^{Any}X")) .......... [PASS] 1345. (ssre->sre (quote "^{~Any}X")) .......... [PASS] 1346. (ssre->sre (quote "^{Any}?X")) .......... [PASS] 1347. (ssre->sre (quote "{[.]|Lu}{[.]|Ll}{[.]|~Lu}{[.]|~Ll}")) .......... [PASS] 1348. (ssre->sre (quote "{L}")) .......... [PASS] 1349. (ssre->sre (quote "{~L}")) .......... [PASS] 1350. (ssre->sre (quote "{L}u")) .......... [PASS] 1351. (ssre->sre (quote "{~L}u")) .......... [PASS] 1352. (ssre->sre (quote "{L-Vowel}u")) .......... [PASS] 1353. (ssre->sre (quote "{Nd}")) .......... [PASS] 1354. (ssre->sre (quote "{Nd}+")) .......... [PASS] 1355. (ssre->sre (quote "{~Nd}+")) .......... [PASS] 1356. (ssre->sre (quote "^{Vowel}")) .......... [PASS] 1357. (ssre->sre (quote "^{Any}X")) .......... [PASS] 1358. (ssre->sre (quote "^{~Any}X")) .......... [PASS] 1359. (ssre->sre (quote "^{Any}?X")) .......... [PASS] 1360. (ssre->sre (quote "{u}{l|d}*")) .......... [PASS] 1361. (ssre->sre (quote "{~d}{an|[']}*")) .......... [PASS] 1362. (ssre->sre (quote "{<}{u&~Vowel|d}{!b}{an-d}*{>}")) .......... [PASS] 1363. (ssre->sre (quote "{}\\X*")) .......... [PASS] 1364. (ssre->sre (quote "a{}b")) .......... [PASS] 1365. (ssre->sre (quote "a{{}}b")) .......... [PASS] 1366. (ssre->sre (quote "a{{}|{}|{}}b")) .......... [PASS] 1367. (ssre->sre (quote "a{{}&{}}b")) .......... [PASS] 1368. (ssre->sre (quote "a{{}&{{}-{}-{}}}b")) .......... [PASS] 1369. (ssre->sre (quote "{?i-u:?u:an&{l|d}}")) .......... [PASS] 1370. (ssre->sre (quote "(?x){ ?i-u: ?u: an & { l | d } }")) .......... [PASS] 1371. (ssre->sre (quote "(?x){ ?i-u: ?u: an & { l | d } }")) .......... [PASS] 1372. (ssre->sre (quote "{?x: an & { ?i-u: l | d } }")) .......... [PASS] 1373. (ssre->sre (quote "{an&{?i:{?-u:l|d}}}")) .......... [PASS] 1374. (ssre->sre (quote "(?i)(?-u){l|d}")) .......... [PASS] 1375. (ssre->sre (quote "(?i)A string")) .......... [PASS] 1376. (ssre->sre (quote "(?i)([^.]*)\\.([^:]*):[T ]+(.*)")) .......... [PASS] 1377. (ssre->sre (quote "(?i)^[W-c]+$")) .......... [PASS] 1378. (ssre->sre (quote "(?s)\\A(.)*\\z")) .......... [PASS] 1379. (ssre->sre (quote "(?i)[^a]")) .......... [PASS] 1380. (ssre->sre (quote "(?i:saturday|sunday)")) .......... [PASS] 1381. (ssre->sre (quote "(?i)(?i:a)b")) .......... [PASS] 1382. (ssre->sre (quote "(?i)((?i:a))b")) .......... [PASS] 1383. (ssre->sre (quote "(?i)(?-i:a)b")) .......... [PASS] 1384. (ssre->sre (quote "(?i)((?-i:a))b")) .......... [PASS] 1385. (ssre->sre (quote "(?i)(?-i:a)b")) .......... [PASS] 1386. (ssre->sre (quote "((?-i:a))b")) .......... [PASS] 1387. (ssre->sre (quote "(?-i:a)b")) .......... [PASS] 1388. (ssre->sre (quote "((?-i:a))b")) .......... [PASS] 1389. (ssre->sre (quote "(?is)((?-i:a.))b")) .......... [PASS] 1390. (ssre->sre (quote "(?m)^b$")) .......... [PASS] 1391. (ssre->sre (quote "(?ms)^b.")) .......... [PASS] 1392. (ssre->sre (quote "(?i)([\\w:]+::)?(\\w+)$")) .......... [PASS] 1393. (ssre->sre (quote "(?x)x y z | a b c")) .......... [PASS] 1394. (ssre->sre (quote "(?i)AB(?-i:C)")) .......... [PASS] 1395. (ssre->sre (quote "(?i)reg(?:ul(?:[a@]|ae)r|ex)")) .......... [PASS] 1396. (ssre->sre (quote "ab cd (?x: de fg)")) .......... [PASS] 1397. (ssre->sre (quote "ab cd(?x: de fg) h")) .......... [PASS] 1398. (ssre->sre (quote "(?s)^\\w+=.*(\\\\\n.*)*")) .......... [PASS] 1399. (ssre->sre (quote "(?i)[^a]*")) .......... [PASS] 1400. (ssre->sre (quote "(?i)[^a]*?X")) .......... [PASS] 1401. (ssre->sre (quote "(?i)[^a]+?X")) .......... [PASS] 1402. (ssre->sre (quote "(?i)[^a]?X")) .......... [PASS] 1403. (ssre->sre (quote "(?i)[^a]??X")) .......... [PASS] 1404. (ssre->sre (quote "(?i)[^a]{2,3}")) .......... [PASS] 1405. (ssre->sre (quote "(?i)[^a]{2,3}?")) .......... [PASS] 1406. (ssre->sre (quote "(?i)(?<=a{2})b")) .......... [PASS] 1407. (ssre->sre (quote "(?i)(?sre (quote "(?i)(?<=[^a]{2})b")) .......... [PASS] 1409. (ssre->sre (quote "(?i)^[^b]*\\w{4}")) .......... [PASS] 1410. (ssre->sre (quote "(?i)^a*\\w{4}")) .......... [PASS] 1411. (ssre->sre (quote "(?i)s")) .......... [PASS] 1412. (ssre->sre (quote "(?i)[^s]")) .......... [PASS] 1413. (ssre->sre (quote "(?i)the end")) .......... [PASS] 1414. (ssre->sre (quote "(?i)abcd*")) .......... [PASS] 1415. (ssre->sre (quote "(?i)abc\\Z")) .......... [PASS] 1416. (ssre->sre (quote "(?i)^[^d]*?$")) .......... [PASS] 1417. (ssre->sre (quote "(?i)^[^d]*?(?m:$)")) .......... [PASS] 1418. (ssre->sre (quote "(?:[\\PLa*]*){8,}")) .......... [PASS] 1419. (ssre->sre (quote "(?i)abc")) .......... [PASS] 1420. (ssre->sre (quote "(?i)(?-i)the end")) .......... [PASS] 1421. (ssre->sre (quote "(?i)([\\da-f:]+)$")) .......... [PASS] 1422. (ssre->sre (quote "(?i)^[\\da-f](\\.[\\da-f])*$")) .......... [PASS] 1423. (ssre->sre (quote "(?is)([^.]*)\\.([^:]*):[T ]+(.*)")) .......... [PASS] 1424. (ssre->sre (quote "(?isn)([^.]*)\\.([^:]*):[T ]+(.*)")) .......... [PASS] 1425. (ssre->sre (quote "(?i)^[W-c]+$")) .......... [PASS] 1426. (ssre->sre (quote "(?i)^[?-_]+$")) .......... [PASS] 1427. (ssre->sre (quote "(?i)[^a]")) .......... [PASS] 1428. (ssre->sre (quote "(?i)[^a]+")) .......... [PASS] 1429. (ssre->sre (quote "(?i)[^az]")) .......... [PASS] 1430. (ssre->sre (quote "(?i)\\b(foo)\\s+(\\w+)")) .......... [PASS] 1431. (ssre->sre (quote "a(?i:b)c")) .......... [PASS] 1432. (ssre->sre (quote "a(?i:b)*c")) .......... [PASS] 1433. (ssre->sre (quote "(?im)^(?-u:\\w\\s*\\w)$")) .......... [PASS] 1434. (ssre->sre (quote "(?i)abc\\X*")) .......... [PASS] 1435. (ssre->sre (quote "(?n)((((((((((a))))))))))")) .......... [PASS] 1436. (ssre->sre (quote "(?n)((((((((?-n:(a)))))))))")) .......... [PASS] 1437. (ssre->sre (quote "(?n)((((((((?-n:(a)|(a)))))))))")) .......... [PASS] 1438. (sre->ssre (quote (: #\t #\h #\e #\space #\q #\u #\i #\c #\k #\space #\b #\r #\o #\w #\n #\space #\f #\o #\x))) .......... [PASS] 1439. (sre->ssre (quote (: (* #\a) #\a #\b (? #\c) #\x #\y (+ #\z) #\p #\q (= 3 #\r) #\a (>= 2 #\b) #\x (** 4 5 #\y) #\p (** 0 6 #\q) #\A (>= 0 #\B) #\z #\z))) .......... [PASS] 1440. (sre->ssre (quote (: bos (** 1 2 ($ (: #\a #\b #\c))) #\z #\z))) .......... [PASS] 1441. (sre->ssre (quote (: bos (**? 1 2 ($ (or (**? 1 #f #\b) #\a))) #\c))) .......... [PASS] 1442. (sre->ssre (quote (: bos (** 1 2 ($ (or (+ #\b) #\a))) #\c))) .......... [PASS] 1443. (sre->ssre (quote (: bos (**? 1 2 ($ (or (: #\b #\a) (* #\b)))) #\b #\c))) .......... [PASS] 1444. (sre->ssre (quote (: bos (or #\a #\b #\] #\c #\d #\e)))) .......... [PASS] 1445. (sre->ssre (quote (: bos (or #\] #\c #\d #\e)))) .......... [PASS] 1446. (sre->ssre (quote (: bos (~ (or #\a #\b #\] #\c #\d #\e))))) .......... [PASS] 1447. (sre->ssre (quote (: bos (~ (or #\] #\c #\d #\e))))) .......... [PASS] 1448. (sre->ssre (quote (: bos #\@))) .......... [PASS] 1449. (sre->ssre (quote (: bos (+ (char-range #\0 #\9)) eos))) .......... [PASS] 1450. (sre->ssre (quote (: bos (* nonl) #\n #\t #\e #\r))) .......... [PASS] 1451. (sre->ssre (quote (: bos #\x #\x #\x (+ (char-range #\0 #\9)) eos))) .......... [PASS] 1452. (sre->ssre (quote (: bos (+ nonl) (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9) eos))) .......... [PASS] 1453. (sre->ssre (quote (: bos (**? 1 #f nonl) (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9) eos))) .......... [PASS] 1454. (sre->ssre (quote (: bos ($ (+ (~ #\!))) #\! ($ (+ nonl)) #\= #\a #\p #\q #\u #\x #\z #\. #\i #\x #\r #\. #\z #\z #\z #\. #\a #\c #\. #\u #\k eos))) .......... [PASS] 1455. (sre->ssre (quote #\:)) .......... [PASS] 1456. (sre->ssre (quote (: ($ (+ (or numeric (char-range #\a #\f) #\:))) eos))) .......... [PASS] 1457. (sre->ssre (quote (: bos (* nonl) #\. ($ (** 1 3 numeric)) #\. ($ (** 1 3 numeric)) #\. ($ (** 1 3 numeric)) eos))) .......... [PASS] 1458. (sre->ssre (quote (: bos ($ (+ numeric)) (+ space) #\I #\N (+ space) #\S #\O #\A (+ space) ($ (+ (~ space))) (+ space) ($ (+ (~ space))) (* space) #\( (* space) eos))) .......... [PASS] 1459. (sre->ssre (quote (: bos (or (char-range #\a #\z) (char-range #\A #\Z) numeric) (* (or (char-range #\a #\z) (char-range #\A #\Z) numeric #\-)) (* ($ (: #\. (or (char-range #\a #\z) (char-range #\A #\Z) numeric) (* (or (char-range #\a #\z) (char-range #\A #\Z) numeric #\-))))) #\. eos))) .......... [PASS] 1460. (sre->ssre (quote (: bos #\* #\. (char-range #\a #\z) (? ($ (: (* (or (char-range #\a #\z) #\- numeric)) (+ (or (char-range #\a #\z) numeric))))) (* ($ (: #\. (char-range #\a #\z) (? ($ (: (* (or (char-range #\a #\z) #\- numeric)) (+ (or (char-range #\a #\z) numeric)))))))) eos))) .......... [PASS] 1461. (sre->ssre (quote (: bos (look-ahead (: #\a #\b ($ (: #\d #\e)))) ($ (: #\a #\b #\d)) ($ #\e)))) .......... [PASS] 1462. (sre->ssre (quote (: bos (neg-look-ahead (or (: ($ (: #\a #\b)) #\d #\e) #\x)) ($ (: #\a #\b #\d)) ($ #\f)))) .......... [PASS] 1463. (sre->ssre (quote (: bos (look-ahead ($ (: #\a #\b ($ (: #\c #\d))))) ($ (: #\a #\b))))) .......... [PASS] 1464. (sre->ssre (quote (: bos (or numeric (char-range #\a #\f)) (* ($ (: #\. (or numeric (char-range #\a #\f))))) eos))) .......... [PASS] 1465. (sre->ssre (quote (: bos #\" (* nonl) #\" (* space) (? ($ (: #\; (* nonl)))) eos))) .......... [PASS] 1466. (sre->ssre (quote (: bos eos))) .......... [PASS] 1467. (sre->ssre (quote (: bos #\a #\space #\b (or #\c #\space) #\d eos))) .......... [PASS] 1468. (sre->ssre (quote (: bos ($ (: #\a ($ (: #\b ($ #\c))))) ($ (: #\d ($ (: #\e ($ #\f))))) ($ (: #\h ($ (: #\i ($ #\j))))) ($ (: #\k ($ (: #\l ($ #\m))))) eos))) .......... [PASS] 1469. (sre->ssre (quote (: bos (: #\a ($ (: #\b ($ #\c)))) (: #\d ($ (: #\e ($ #\f)))) (: #\h ($ (: #\i ($ #\j)))) (: #\k ($ (: #\l ($ #\m)))) eos))) .......... [PASS] 1470. (sre->ssre (quote (: bos (or alnum #\_) (~ (or alnum #\_)) space (~ space) numeric (~ numeric) #\]))) .......... [PASS] 1471. (sre->ssre (quote (: bos (+ (or #\. #\^ #\$ #\| #\( #\) #\* #\+ #\? #\{ #\, #\}))))) .......... [PASS] 1472. (sre->ssre (quote (: bos (* #\a) (or alnum #\_)))) .......... [PASS] 1473. (sre->ssre (quote (: bos (*? #\a) (or alnum #\_)))) .......... [PASS] 1474. (sre->ssre (quote (: bos (+ #\a) (or alnum #\_)))) .......... [PASS] 1475. (sre->ssre (quote (: bos (**? 1 #f #\a) (or alnum #\_)))) .......... [PASS] 1476. (sre->ssre (quote (: bos (= 8 numeric) (>= 2 (or alnum #\_))))) .......... [PASS] 1477. (sre->ssre (quote (: bos (** 4 5 (or #\a #\e #\i #\o #\u numeric)) eos))) .......... [PASS] 1478. (sre->ssre (quote (: bos (**? 4 5 (or #\a #\e #\i #\o #\u numeric))))) .......... [PASS] 1479. (sre->ssre (quote (: bos #\F #\r #\o #\m (+ #\space) ($ (+ (~ #\space))) (+ #\space) (or (char-range #\a #\z) (char-range #\A #\Z)) (or (char-range #\a #\z) (char-range #\A #\Z)) (or (char-range #\a #\z) (char-range #\A #\Z)) (+ #\space) (or (char-range #\a #\z) (char-range #\A #\Z)) (or (char-range #\a #\z) (char-range #\A #\Z)) (or (char-range #\a #\z) (char-range #\A #\Z)) (+ #\space) (? (char-range #\0 #\9)) (char-range #\0 #\9) (+ #\space) (char-range #\0 #\9) (char-range #\0 #\9) #\: (char-range #\0 #\9) (char-range #\0 #\9)))) .......... [PASS] 1480. (sre->ssre (quote (: bos #\F #\r #\o #\m (+ space) (+ (~ space)) (+ space) (= 2 ($ (: (= 3 (or (char-range #\a #\z) (char-range #\A #\Z))) (+ space)))) (** 1 2 numeric) (+ space) numeric numeric #\: numeric numeric))) .......... [PASS] 1481. (sre->ssre (quote (: bos #\1 #\2 nonl #\3 #\4))) .......... [PASS] 1482. (sre->ssre (quote (: #\f #\o #\o (neg-look-ahead (: #\b #\a #\r)) ($ (* nonl))))) .......... [PASS] 1483. (sre->ssre (quote (: (or (: (neg-look-ahead (: #\f #\o #\o)) nonl nonl nonl) (: bos (** 0 2 nonl))) #\b #\a #\r ($ (* nonl))))) .......... [PASS] 1484. (sre->ssre (quote (: bos ($ (* (~ numeric))) (look-ahead numeric) (neg-look-ahead (: #\1 #\2 #\3))))) .......... [PASS] 1485. (sre->ssre (quote (: (neg-look-ahead bos) #\a #\b #\c))) .......... [PASS] 1486. (sre->ssre (quote (: (look-ahead bos) #\a #\b #\c))) .......... [PASS] 1487. (sre->ssre (quote (: bos (** 1 3 (or #\a #\b)) ($ (or (: #\a (* #\b)) #\b))))) .......... [PASS] 1488. (sre->ssre (quote (: bos (**? 1 3 (or #\a #\b)) ($ (or (: #\a (* #\b)) #\b))))) .......... [PASS] 1489. (sre->ssre (quote (: bos (**? 1 3 (or #\a #\b)) ($ (or (: #\a (*? #\b)) #\b))))) .......... [PASS] 1490. (sre->ssre (quote (: bos (** 1 3 (or #\a #\b)) ($ (or (: #\a (*? #\b)) #\b))))) .......... [PASS] 1491. (sre->ssre (quote (: #\a (** 1 3 #\b) #\b #\c))) .......... [PASS] 1492. (sre->ssre (quote (: ($ (* (~ #\.))) #\. ($ (* (~ #\:))) #\: (+ (or #\T #\space)) ($ (* nonl))))) .......... [PASS] 1493. (sre->ssre (quote (: bos (+ (char-range #\W #\c)) eos))) .......... [PASS] 1494. (sre->ssre (quote (: bos (+ (char-range #\? #\_)) eos))) .......... [PASS] 1495. (sre->ssre (quote (: bos #\a #\b #\c eos))) .......... [PASS] 1496. (sre->ssre (quote (: bos (* ($ nonl)) eos))) .......... [PASS] 1497. (sre->ssre (quote (or #\b (+ #\:)))) .......... [PASS] 1498. (sre->ssre (quote (+ (or #\- #\a #\z)))) .......... [PASS] 1499. (sre->ssre (quote (+ (or #\a #\z #\-)))) .......... [PASS] 1500. (sre->ssre (quote (+ (or #\a #\- #\z)))) .......... [PASS] 1501. (sre->ssre (quote (+ (char-range #\a #\z)))) .......... [PASS] 1502. (sre->ssre (quote (+ (or numeric #\-)))) .......... [PASS] 1503. (sre->ssre (quote #\\)) .......... [PASS] 1504. (sre->ssre (quote (: (= 0 #\a) #\b #\c))) .......... [PASS] 1505. (sre->ssre (quote (: (**? 0 0 ($ (or #\a ($ (: #\b #\c))))) #\x #\y #\z))) .......... [PASS] 1506. (sre->ssre (quote (: bos ($ (~ #\a)) ($ (~ #\b)) ($ (* (~ #\c))) ($ (** 3 4 (~ #\d)))))) .......... [PASS] 1507. (sre->ssre (quote (~ #\a))) .......... [PASS] 1508. (sre->ssre (quote (+ (~ #\a)))) .......... [PASS] 1509. (sre->ssre (quote (+ (~ #\a)))) .......... [PASS] 1510. (sre->ssre (quote (+ (~ #\a)))) .......... [PASS] 1511. (sre->ssre (quote (: (~ #\k) eos))) .......... [PASS] 1512. (sre->ssre (quote (: (** 2 3 (~ #\k)) eos))) .......... [PASS] 1513. (sre->ssre (quote (: bos (>= 8 numeric) #\@ (+ nonl) (~ #\k) eos))) .......... [PASS] 1514. (sre->ssre (quote (~ #\a))) .......... [PASS] 1515. (sre->ssre (quote (~ (or #\a #\z)))) .......... [PASS] 1516. (sre->ssre (quote (: #\P (~ #\*) #\T #\A #\I #\R #\E (**? 1 6 (~ #\*)) #\L #\L))) .......... [PASS] 1517. (sre->ssre (quote (: #\P (~ #\*) #\T #\A #\I #\R #\E (**? 1 #f (~ #\*)) #\L #\L))) .......... [PASS] 1518. (sre->ssre (quote (: ($ (: #\. numeric numeric (? (char-range #\1 #\9)))) (+ numeric)))) .......... [PASS] 1519. (sre->ssre (quote ($ (: #\. numeric numeric ($ (or (look-ahead #\0) (: numeric (look-ahead numeric)))))))) .......... [PASS] 1520. (sre->ssre (quote (: (or bow eow) ($ (: #\f #\o #\o)) (+ space) ($ (+ (or alnum #\_)))))) .......... [PASS] 1521. (sre->ssre (quote (: #\f #\o #\o ($ (* nonl)) #\b #\a #\r))) .......... [PASS] 1522. (sre->ssre (quote (: #\f #\o #\o ($ (*? nonl)) #\b #\a #\r))) .......... [PASS] 1523. (sre->ssre (quote (: ($ (* nonl)) ($ (* numeric))))) .......... [PASS] 1524. (sre->ssre (quote (: ($ (* nonl)) ($ (+ numeric))))) .......... [PASS] 1525. (sre->ssre (quote (: ($ (*? nonl)) ($ (* numeric))))) .......... [PASS] 1526. (sre->ssre (quote (: ($ (*? nonl)) ($ (+ numeric))))) .......... [PASS] 1527. (sre->ssre (quote (: ($ (* nonl)) ($ (+ numeric)) eos))) .......... [PASS] 1528. (sre->ssre (quote (: ($ (*? nonl)) ($ (+ numeric)) eos))) .......... [PASS] 1529. (sre->ssre (quote (: ($ (* nonl)) (or bow eow) ($ (+ numeric)) eos))) .......... [PASS] 1530. (sre->ssre (quote (: ($ (: (* nonl) (~ numeric))) ($ (+ numeric)) eos))) .......... [PASS] 1531. (sre->ssre (quote (: bos (* (~ numeric)) (neg-look-ahead (: #\1 #\2 #\3))))) .......... [PASS] 1532. (sre->ssre (quote (: bos ($ (* (~ numeric))) (look-ahead numeric) (neg-look-ahead (: #\1 #\2 #\3))))) .......... [PASS] 1533. (sre->ssre (quote (: bos (or #\W #\-) #\4 #\6 #\]))) .......... [PASS] 1534. (sre->ssre (quote (: bos (or (char-range #\W #\]) #\4 #\6)))) .......... [PASS] 1535. (sre->ssre (quote (: #\w #\o #\r #\d #\space (** 0 10 (: (+ (or (char-range #\a #\z) (char-range #\A #\Z) (char-range #\0 #\9))) #\space)) #\o #\t #\h #\e #\r #\w #\o #\r #\d))) .......... [PASS] 1536. (sre->ssre (quote (: #\w #\o #\r #\d #\space (** 0 300 (: (+ (or (char-range #\a #\z) (char-range #\A #\Z) (char-range #\0 #\9))) #\space)) #\o #\t #\h #\e #\r #\w #\o #\r #\d))) .......... [PASS] 1537. (sre->ssre (quote (: bos (= 0 ($ #\a))))) .......... [PASS] 1538. (sre->ssre (quote (: bos (** 0 1 ($ #\a))))) .......... [PASS] 1539. (sre->ssre (quote (: bos (** 0 2 ($ #\a))))) .......... [PASS] 1540. (sre->ssre (quote (: bos (** 0 3 ($ #\a))))) .......... [PASS] 1541. (sre->ssre (quote (: bos (>= 0 ($ #\a))))) .......... [PASS] 1542. (sre->ssre (quote (: bos (= 1 ($ #\a))))) .......... [PASS] 1543. (sre->ssre (quote (: bos (** 1 2 ($ #\a))))) .......... [PASS] 1544. (sre->ssre (quote (: bos (** 1 3 ($ #\a))))) .......... [PASS] 1545. (sre->ssre (quote (: bos (>= 1 ($ #\a))))) .......... [PASS] 1546. (sre->ssre (quote (: (* nonl) #\. #\g #\i #\f))) .......... [PASS] 1547. (sre->ssre (quote (: (>= 0 nonl) #\. #\g #\i #\f))) .......... [PASS] 1548. (sre->ssre (quote (: (* nonl) eos))) .......... [PASS] 1549. (sre->ssre (quote ($ (or (: (* nonl) #\X) (: bos #\B))))) .......... [PASS] 1550. (sre->ssre (quote (: bos (* nonl) #\B))) .......... [PASS] 1551. (sre->ssre (quote (: bos (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9)))) .......... [PASS] 1552. (sre->ssre (quote (: bos numeric numeric numeric numeric numeric numeric numeric numeric numeric numeric numeric numeric))) .......... [PASS] 1553. (sre->ssre (quote (: bos (= 12 (or #\a #\b #\c))))) .......... [PASS] 1554. (sre->ssre (quote (: bos (= 12 (char-range #\a #\c))))) .......... [PASS] 1555. (sre->ssre (quote (: bos (= 12 ($ (or #\a #\b #\c)))))) .......... [PASS] 1556. (sre->ssre (quote (: bos (or #\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)))) .......... [PASS] 1557. (sre->ssre (quote (: #\a #\b #\c #\d (= 0 #\e)))) .......... [PASS] 1558. (sre->ssre (quote (: #\a #\b (= 0 (or #\c #\d)) #\e))) .......... [PASS] 1559. (sre->ssre (quote (: #\a #\b (= 0 ($ #\c)) #\d))) .......... [PASS] 1560. (sre->ssre (quote (: #\a ($ (* #\b))))) .......... [PASS] 1561. (sre->ssre (quote (: #\a #\b (= 0 numeric) #\e))) .......... [PASS] 1562. (sre->ssre (quote (: #\" (* ($ (or (+ (~ (or #\\ #\"))) (: #\\ nonl)))) #\"))) .......... [PASS] 1563. (sre->ssre (quote (*? nonl))) .......... [PASS] 1564. (sre->ssre (quote (or bow eow))) .......... [PASS] 1565. (sre->ssre (quote (or bow eow))) .......... [PASS] 1566. (sre->ssre (quote (: #\a (~ #\a) #\b))) .......... [PASS] 1567. (sre->ssre (quote (: #\a nonl #\b))) .......... [PASS] 1568. (sre->ssre (quote (: #\a (~ #\a) #\b))) .......... [PASS] 1569. (sre->ssre (quote (: #\a nonl #\b))) .......... [PASS] 1570. (sre->ssre (quote (: bos (**? 1 2 ($ (or (**? 1 #f #\b) #\a))) #\c))) .......... [PASS] 1571. (sre->ssre (quote (: bos (**? 1 2 ($ (or (+ #\b) #\a))) #\c))) .......... [PASS] 1572. (sre->ssre (quote (: (neg-look-ahead bos) #\x))) .......... [PASS] 1573. (sre->ssre (quote (: (*? ($ (or #\A #\B))) #\C #\D))) .......... [PASS] 1574. (sre->ssre (quote (: (* ($ (or #\A #\B))) #\C #\D))) .......... [PASS] 1575. (sre->ssre (quote (: (neg-look-behind (: #\b #\a #\r)) #\f #\o #\o))) .......... [PASS] 1576. (sre->ssre (quote (: (= 3 (or alnum #\_)) (neg-look-behind (: #\b #\a #\r)) #\f #\o #\o))) .......... [PASS] 1577. (sre->ssre (quote (: (look-behind (: ($ (: #\f #\o #\o)) #\a)) #\b #\a #\r))) .......... [PASS] 1578. (sre->ssre (quote (: bos #\a #\b #\c eos))) .......... [PASS] 1579. (sre->ssre (quote (: ($ (+ numeric)) ($ (or alnum #\_))))) .......... [PASS] 1580. (sre->ssre (quote (: #\a (w/nocase #\b) #\c))) .......... [PASS] 1581. (sre->ssre (quote (: #\a (* (w/nocase #\b)) #\c))) .......... [PASS] 1582. (sre->ssre (quote (* ($ (*? #\a))))) .......... [PASS] 1583. (sre->ssre (quote (* ($ (*? (or #\a #\b)))))) .......... [PASS] 1584. (sre->ssre (quote (* ($ (*? (~ #\a)))))) .......... [PASS] 1585. (sre->ssre (quote (* ($ (*? (~ (or #\a #\b))))))) .......... [PASS] 1586. (sre->ssre (quote (: (look-behind (: #\f #\o #\o #\newline)) bos #\b #\a #\r))) .......... [PASS] 1587. (sre->ssre (quote (: (look-behind (: (neg-look-behind (: #\f #\o #\o)) #\b #\a #\r)) #\b #\a #\z))) .......... [PASS] 1588. (sre->ssre (quote (: #\a #\b #\c))) .......... [PASS] 1589. (sre->ssre (quote (: #\a (* #\b) #\c))) .......... [PASS] 1590. (sre->ssre (quote (: #\a (* #\b) #\b #\c))) .......... [PASS] 1591. (sre->ssre (quote (= 1 nonl))) .......... [PASS] 1592. (sre->ssre (quote (** 3 4 nonl))) .......... [PASS] 1593. (sre->ssre (quote (: #\a (>= 0 #\b) #\b #\c))) .......... [PASS] 1594. (sre->ssre (quote (: #\a (+ #\b) #\b #\c))) .......... [PASS] 1595. (sre->ssre (quote (: #\a (>= 1 #\b) #\b #\c))) .......... [PASS] 1596. (sre->ssre (quote (: #\a (+ #\b) #\b #\c))) .......... [PASS] 1597. (sre->ssre (quote (: #\a (>= 1 #\b) #\b #\c))) .......... [PASS] 1598. (sre->ssre (quote (: #\a (** 1 3 #\b) #\b #\c))) .......... [PASS] 1599. (sre->ssre (quote (: #\a (** 3 4 #\b) #\b #\c))) .......... [PASS] 1600. (sre->ssre (quote (: #\a (** 4 5 #\b) #\b #\c))) .......... [PASS] 1601. (sre->ssre (quote (: #\a (? #\b) #\b #\c))) .......... [PASS] 1602. (sre->ssre (quote (: #\a (** 0 1 #\b) #\b #\c))) .......... [PASS] 1603. (sre->ssre (quote (: #\a (? #\b) #\b #\c))) .......... [PASS] 1604. (sre->ssre (quote (: #\a (? #\b) #\c))) .......... [PASS] 1605. (sre->ssre (quote (: #\a (** 0 1 #\b) #\c))) .......... [PASS] 1606. (sre->ssre (quote (: bos #\a #\b #\c eos))) .......... [PASS] 1607. (sre->ssre (quote (: bos #\a #\b #\c))) .......... [PASS] 1608. (sre->ssre (quote (: bos #\a #\b #\c eos))) .......... [PASS] 1609. (sre->ssre (quote (: #\a #\b #\c eos))) .......... [PASS] 1610. (sre->ssre (quote bos)) .......... [PASS] 1611. (sre->ssre (quote eos)) .......... [PASS] 1612. (sre->ssre (quote (: #\a nonl #\c))) .......... [PASS] 1613. (sre->ssre (quote (: #\a (* nonl) #\c))) .......... [PASS] 1614. (sre->ssre (quote (: #\a (or #\b #\c) #\d))) .......... [PASS] 1615. (sre->ssre (quote (: #\a (char-range #\b #\d) #\e))) .......... [PASS] 1616. (sre->ssre (quote (: #\a (char-range #\b #\d)))) .......... [PASS] 1617. (sre->ssre (quote (: #\a (or #\- #\b)))) .......... [PASS] 1618. (sre->ssre (quote (: #\a (or #\b #\-)))) .......... [PASS] 1619. (sre->ssre (quote (: #\a #\]))) .......... [PASS] 1620. (sre->ssre (quote (: #\a #\] #\b))) .......... [PASS] 1621. (sre->ssre (quote (: #\a (~ (or #\b #\c)) #\d))) .......... [PASS] 1622. (sre->ssre (quote (: #\a (~ (or #\- #\b)) #\c))) .......... [PASS] 1623. (sre->ssre (quote (: #\a (~ (or #\] #\b)) #\c))) .......... [PASS] 1624. (sre->ssre (quote (: (or bow eow) #\a (or bow eow)))) .......... [PASS] 1625. (sre->ssre (quote (: (or bow eow) #\y (or bow eow)))) .......... [PASS] 1626. (sre->ssre (quote (: nwb #\a nwb))) .......... [PASS] 1627. (sre->ssre (quote (: nwb #\y (or bow eow)))) .......... [PASS] 1628. (sre->ssre (quote (: (or bow eow) #\y nwb))) .......... [PASS] 1629. (sre->ssre (quote (: nwb #\y nwb))) .......... [PASS] 1630. (sre->ssre (quote (or alnum #\_))) .......... [PASS] 1631. (sre->ssre (quote (~ (or alnum #\_)))) .......... [PASS] 1632. (sre->ssre (quote (: #\a space #\b))) .......... [PASS] 1633. (sre->ssre (quote (: #\a (~ space) #\b))) .......... [PASS] 1634. (sre->ssre (quote numeric)) .......... [PASS] 1635. (sre->ssre (quote (~ numeric))) .......... [PASS] 1636. (sre->ssre (quote (or (: #\a #\b) (: #\c #\d)))) .......... [PASS] 1637. (sre->ssre (quote (: ($ (:)) #\e #\f))) .......... [PASS] 1638. (sre->ssre (quote (: eos #\b))) .......... [PASS] 1639. (sre->ssre (quote (: #\a #\( #\b))) .......... [PASS] 1640. (sre->ssre (quote (: #\a (* #\() #\b))) .......... [PASS] 1641. (sre->ssre (quote (: #\a #\\ #\b))) .......... [PASS] 1642. (sre->ssre (quote ($ ($ #\a)))) .......... [PASS] 1643. (sre->ssre (quote (: ($ #\a) #\b ($ #\c)))) .......... [PASS] 1644. (sre->ssre (quote (: (+ #\a) (+ #\b) #\c))) .......... [PASS] 1645. (sre->ssre (quote (: (>= 1 #\a) (>= 1 #\b) #\c))) .......... [PASS] 1646. (sre->ssre (quote (: #\a (**? 1 #f nonl) #\c))) .......... [PASS] 1647. (sre->ssre (quote (* ($ (or (+ #\a) #\b))))) .......... [PASS] 1648. (sre->ssre (quote (>= 0 ($ (or (+ #\a) #\b))))) .......... [PASS] 1649. (sre->ssre (quote (+ ($ (or (+ #\a) #\b))))) .......... [PASS] 1650. (sre->ssre (quote (>= 1 ($ (or (+ #\a) #\b))))) .......... [PASS] 1651. (sre->ssre (quote (? ($ (or (+ #\a) #\b))))) .......... [PASS] 1652. (sre->ssre (quote (** 0 1 ($ (or (+ #\a) #\b))))) .......... [PASS] 1653. (sre->ssre (quote (* (~ (or #\a #\b))))) .......... [PASS] 1654. (sre->ssre (quote (: #\a #\b #\c))) .......... [PASS] 1655. (sre->ssre (quote (* #\a))) .......... [PASS] 1656. (sre->ssre (quote (: (* ($ (or #\a #\b #\c))) #\d))) .......... [PASS] 1657. (sre->ssre (quote (: (* ($ (or #\a #\b #\c))) #\b #\c #\d))) .......... [PASS] 1658. (sre->ssre (quote (or #\a #\b #\c #\d #\e))) .......... [PASS] 1659. (sre->ssre (quote (: ($ (or #\a #\b #\c #\d #\e)) #\f))) .......... [PASS] 1660. (sre->ssre (quote (: #\a #\b #\c (* #\d) #\e #\f #\g))) .......... [PASS] 1661. (sre->ssre (quote (: #\a (* #\b)))) .......... [PASS] 1662. (sre->ssre (quote (: ($ (or (: #\a #\b) (: #\c #\d))) #\e))) .......... [PASS] 1663. (sre->ssre (quote (: (or #\a #\b #\h #\g #\e #\f #\d #\c) #\i #\j))) .......... [PASS] 1664. (sre->ssre (quote (: bos ($ (or (: #\a #\b) (: #\c #\d))) #\e))) .......... [PASS] 1665. (sre->ssre (quote (: ($ (or (: #\a #\b #\c) (:))) #\e #\f))) .......... [PASS] 1666. (sre->ssre (quote (: ($ (or #\a #\b)) (* #\c) #\d))) .......... [PASS] 1667. (sre->ssre (quote (: ($ (or (: #\a #\b) (: #\a (* #\b)))) #\b #\c))) .......... [PASS] 1668. (sre->ssre (quote (: #\a ($ (* (or #\b #\c))) (* #\c)))) .......... [PASS] 1669. (sre->ssre (quote (: #\a ($ (* (or #\b #\c))) ($ (: (* #\c) #\d))))) .......... [PASS] 1670. (sre->ssre (quote (: #\a ($ (+ (or #\b #\c))) ($ (: (* #\c) #\d))))) .......... [PASS] 1671. (sre->ssre (quote (: #\a ($ (* (or #\b #\c))) ($ (: (+ #\c) #\d))))) .......... [PASS] 1672. (sre->ssre (quote (: #\a (* (or #\b #\c #\d)) #\d #\c #\d #\c #\d #\e))) .......... [PASS] 1673. (sre->ssre (quote (: #\a (+ (or #\b #\c #\d)) #\d #\c #\d #\c #\d #\e))) .......... [PASS] 1674. (sre->ssre (quote (: ($ (or (: #\a #\b) #\a)) (* #\b) #\c))) .......... [PASS] 1675. (sre->ssre (quote (: ($ (: ($ #\a) ($ #\b) #\c)) ($ #\d)))) .......... [PASS] 1676. (sre->ssre (quote (: (or (char-range #\a #\z) (char-range #\A #\Z) #\_) (* (or (char-range #\a #\z) (char-range #\A #\Z) (char-range #\0 #\9) #\_))))) .......... [PASS] 1677. (sre->ssre (quote (or (: bos #\a ($ (or (: #\b (+ #\c)) (: #\b (or #\e #\h)))) #\g) (: nonl #\h eos)))) .......... [PASS] 1678. (sre->ssre (quote ($ (or (: #\b (+ #\c) #\d eos) (: #\e (* #\f) #\g nonl) (: (? #\h) #\i ($ (or #\j #\k))))))) .......... [PASS] 1679. (sre->ssre (quote ($ ($ ($ ($ ($ ($ ($ ($ ($ ($ #\a)))))))))))) .......... [PASS] 1680. (sre->ssre (quote ($ ($ ($ ($ ($ ($ ($ ($ ($ #\a))))))))))) .......... [PASS] 1681. (sre->ssre (quote (: #\m #\u #\l #\t #\i #\p #\l #\e #\space #\w #\o #\r #\d #\s #\space #\o #\f #\space #\t #\e #\x #\t))) .......... [PASS] 1682. (sre->ssre (quote (: #\m #\u #\l #\t #\i #\p #\l #\e #\space #\w #\o #\r #\d #\s))) .......... [PASS] 1683. (sre->ssre (quote (: ($ (* nonl)) #\c ($ (* nonl))))) .......... [PASS] 1684. (sre->ssre (quote (: #\( ($ (* nonl)) #\, #\space ($ (* nonl)) #\)))) .......... [PASS] 1685. (sre->ssre (quote #\k)) .......... [PASS] 1686. (sre->ssre (quote (: #\a #\b #\c #\d))) .......... [PASS] 1687. (sre->ssre (quote (: #\a ($ (: #\b #\c)) #\d))) .......... [PASS] 1688. (sre->ssre (quote (: #\a (? #\-) #\c))) .......... [PASS] 1689. (sre->ssre (quote (: #\a (neg-look-ahead #\b) nonl))) .......... [PASS] 1690. (sre->ssre (quote (: #\a (look-ahead #\d) nonl))) .......... [PASS] 1691. (sre->ssre (quote (: #\a (look-ahead (or #\c #\d)) nonl))) .......... [PASS] 1692. (sre->ssre (quote (: #\a (or #\b #\c #\d) ($ nonl)))) .......... [PASS] 1693. (sre->ssre (quote (: #\a (* (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 1694. (sre->ssre (quote (: #\a (**? 1 #f (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 1695. (sre->ssre (quote (: #\a (+ (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 1696. (sre->ssre (quote (: #\a (= 2 (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 1697. (sre->ssre (quote (: #\a (** 4 5 (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 1698. (sre->ssre (quote (: #\a (**? 4 5 (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 1699. (sre->ssre (quote (: #\a (** 6 7 (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 1700. (sre->ssre (quote (: #\a (**? 6 7 (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 1701. (sre->ssre (quote (: #\a (** 5 6 (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 1702. (sre->ssre (quote (: #\a (**? 5 6 (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 1703. (sre->ssre (quote (: #\a (** 5 7 (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 1704. (sre->ssre (quote (: #\a (**? 5 7 (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 1705. (sre->ssre (quote (: #\a (**? 1 #f (or #\b (**? 1 2 ($ (or #\c #\e))) #\d)) ($ nonl)))) .......... [PASS] 1706. (sre->ssre (quote (: bos (? ($ (+ nonl))) #\B))) .......... [PASS] 1707. (sre->ssre (quote (or (: bos ($ (~ (char-range #\a #\z)))) (: ($ #\^) eos)))) .......... [PASS] 1708. (sre->ssre (quote (: bos (or #\< #\>) #\&))) .......... [PASS] 1709. (sre->ssre (quote (: (look-behind #\a) #\b))) .......... [PASS] 1710. (sre->ssre (quote (: (neg-look-behind #\c) #\b))) .......... [PASS] 1711. (sre->ssre (quote (: (* (: nonl nonl)) #\a))) .......... [PASS] 1712. (sre->ssre (quote (: (*? (: nonl nonl)) #\a))) .......... [PASS] 1713. (sre->ssre (quote (: bos (** 3 5 ($ (:)))))) .......... [PASS] 1714. (sre->ssre (quote (: (* ($ (or #\a #\x))) #\a #\b))) .......... [PASS] 1715. (sre->ssre (quote (: (* ($ #\a)) #\a #\b))) .......... [PASS] 1716. (sre->ssre (quote (: (w/nocase #\a) #\b))) .......... [PASS] 1717. (sre->ssre (quote (: ($ (w/nocase #\a)) #\b))) .......... [PASS] 1718. (sre->ssre (quote (: (or #\c #\d) (:) (: #\a (:) #\b (: #\b (:)) (: #\b (:) #\b))))) .......... [PASS] 1719. (sre->ssre (quote (: (or #\c #\d) (:) (: #\a #\a #\a #\a #\a #\a #\a #\a (:) (: #\b #\b #\b #\b #\b #\b #\b #\b) (: #\b #\b #\b #\b #\b #\b #\b #\b (:)) (: #\b #\b #\b #\b #\b #\b #\b #\b (:) (: #\b #\b #\b #\b #\b #\b #\b #\b)))))) .......... [PASS] 1720. (sre->ssre (quote (: #\f #\o #\o (* (or alnum #\_)) (= 4 numeric) #\b #\a #\z))) .......... [PASS] 1721. (sre->ssre (quote (: #\x (* ($ (: #\~ #\~))) (? (? #\F))))) .......... [PASS] 1722. (sre->ssre (quote (: #\x (* ($ (: #\~ #\~))) (?? #\F)))) .......... [PASS] 1723. (sre->ssre (quote (: (neg-look-behind (or #\c #\d)) #\b))) .......... [PASS] 1724. (sre->ssre (quote (: (neg-look-behind (or #\c #\d)) (or #\a #\b)))) .......... [PASS] 1725. (sre->ssre (quote (: (neg-look-behind ($ (or #\c #\d))) #\b))) .......... [PASS] 1726. (sre->ssre (quote (: (neg-look-behind ($ (or #\c #\d))) (or #\a #\b)))) .......... [PASS] 1727. (sre->ssre (quote (: (neg-look-behind (: #\c #\d)) (or #\a #\b)))) .......... [PASS] 1728. (sre->ssre (quote (: bol #\b))) .......... [PASS] 1729. (sre->ssre (quote (: bol ($ #\b)))) .......... [PASS] 1730. (sre->ssre (quote (: bos #\b))) .......... [PASS] 1731. (sre->ssre (quote (: ($ (:)) bos #\b))) .......... [PASS] 1732. (sre->ssre (quote (+ ($ (: (+ (or alnum #\_)) #\:))))) .......... [PASS] 1733. (sre->ssre (quote (: eos (look-behind (: bos ($ #\a)))))) .......... [PASS] 1734. (sre->ssre (quote (: (? ($ (: (+ (or (or alnum #\_) #\:)) #\: #\:))) ($ (+ (or alnum #\_))) eos))) .......... [PASS] 1735. (sre->ssre (quote (: bos (* (~ (or #\b #\c #\d))) ($ (+ #\c))))) .......... [PASS] 1736. (sre->ssre (quote (: ($ (* #\a)) (+ #\b)))) .......... [PASS] 1737. (sre->ssre (quote (: bos (* (~ (or #\b #\c #\d))) ($ (+ #\c))))) .......... [PASS] 1738. (sre->ssre (quote (: ($ (: #\> (+ #\a))) #\a #\b))) .......... [PASS] 1739. (sre->ssre (quote (: #\b eos))) .......... [PASS] 1740. (sre->ssre (quote (: (look-behind (: (= 3 numeric) (neg-look-ahead (: #\9 #\9 #\9)))) #\f #\o #\o))) .......... [PASS] 1741. (sre->ssre (quote (: (look-behind (: (neg-look-ahead (: nonl nonl nonl #\9 #\9 #\9)) (= 3 numeric))) #\f #\o #\o))) .......... [PASS] 1742. (sre->ssre (quote (: (look-behind (: (= 3 numeric) (neg-look-ahead (: #\9 #\9 #\9)) nonl nonl nonl)) #\f #\o #\o))) .......... [PASS] 1743. (sre->ssre (quote (: (look-behind (: (= 3 numeric) nonl nonl nonl)) (neg-look-behind (: #\9 #\9 #\9)) #\f #\o #\o))) .......... [PASS] 1744. (sre->ssre (quote (* ($ (or (: #\Z ($ (:))) #\A))))) .......... [PASS] 1745. (sre->ssre (quote (* ($ (or (: #\Z ($ ($ (:)))) #\A))))) .......... [PASS] 1746. (sre->ssre (quote (* #\a))) .......... [PASS] 1747. (sre->ssre (quote (+ space))) .......... [PASS] 1748. (sre->ssre (quote (: (neg-look-ahead bos) #\x))) .......... [PASS] 1749. (sre->ssre (quote (: #\a #\b #\c nonl))) .......... [PASS] 1750. (sre->ssre (quote (: #\a (: #\b #\c) #\d))) .......... [PASS] 1751. (sre->ssre (quote (: (look-behind #\Z) #\X nonl))) .......... [PASS] 1752. (sre->ssre (quote (: (neg-look-behind (: (~ #\f) #\o #\o)) ($ (: #\b #\a #\r))))) .......... [PASS] 1753. (sre->ssre (quote (: (neg-look-behind (~ #\f)) #\X))) .......... [PASS] 1754. (sre->ssre (quote (: (look-behind (~ #\f)) #\X))) .......... [PASS] 1755. (sre->ssre (quote bos)) .......... [PASS] 1756. (sre->ssre (quote #\space)) .......... [PASS] 1757. (sre->ssre (quote (: #\space (* space) #\# (* space)))) .......... [PASS] 1758. (sre->ssre (quote (: (* #\a) (* #\b) (or alnum #\_)))) .......... [PASS] 1759. (sre->ssre (quote (: (* #\a) (? #\b) (or alnum #\_)))) .......... [PASS] 1760. (sre->ssre (quote (: (* #\a) (** 0 4 #\b) (or alnum #\_)))) .......... [PASS] 1761. (sre->ssre (quote (: (* #\a) (>= 0 #\b) (or alnum #\_)))) .......... [PASS] 1762. (sre->ssre (quote (: (* #\a) (* numeric) (or alnum #\_)))) .......... [PASS] 1763. (sre->ssre (quote (: (* #\a) (* #\b) (or alnum #\_)))) .......... [PASS] 1764. (sre->ssre (quote (: eos (neg-look-behind #\newline)))) .......... [PASS] 1765. (sre->ssre (quote (: (* nonl) (or #\o #\p) (or #\x #\y #\z)))) .......... [PASS] 1766. (sre->ssre (quote (or (: ($ #\a) #\b) (: ($ #\a) #\c)))) .......... [PASS] 1767. (sre->ssre (quote (: (+ (or (+ #\a) (: #\a #\b))) #\c))) .......... [PASS] 1768. (sre->ssre (quote (: bos (+ (or #\a (: #\a #\b))) #\c))) .......... [PASS] 1769. (sre->ssre (quote (: (= 3 (look-ahead (: #\a #\b #\c))) #\a #\b #\c))) .......... [PASS] 1770. (sre->ssre (quote (: (= 0 (look-ahead (: #\a #\b #\c))) #\x #\y #\z))) .......... [PASS] 1771. (sre->ssre (quote (: (= 1 (look-ahead (: #\a #\b #\c))) #\x #\y #\z))) .......... [PASS] 1772. (sre->ssre (quote (: (? (look-ahead ($ #\a))) nonl))) .......... [PASS] 1773. (sre->ssre (quote (: (?? (look-ahead ($ #\a))) nonl))) .......... [PASS] 1774. (sre->ssre (quote (: bos (= 0 (neg-look-ahead #\a)) (+ (or alnum #\_))))) .......... [PASS] 1775. (sre->ssre (quote (: (? (look-behind ($ (: #\a #\b #\c)))) #\x #\y #\z))) .......... [PASS] 1776. (sre->ssre (quote (: bos (+ (or #\: #\a numeric))))) .......... [PASS] 1777. (sre->ssre (quote (: bos (+ (or #\: #\a numeric #\: #\b))))) .......... [PASS] 1778. (sre->ssre (quote (: (or #\: #\a) #\x #\x #\x (or #\b #\:)))) .......... [PASS] 1779. (sre->ssre (quote (: (look-behind (= 2 (~ #\a))) #\b))) .......... [PASS] 1780. (sre->ssre (quote (: bos (+ (>= 2 ($ (** 2 3 #\a)))) #\a))) .......... [PASS] 1781. (sre->ssre (quote (look-ahead #\C))) .......... [PASS] 1782. (sre->ssre (quote (: (or (: #\a (-> quote (or (: #\space (-> apostrophe #\')) (-> realquote #\"))) #\space) (: #\b (-> quote (or (: #\space (-> apostrophe #\')) (-> realquote #\"))) #\space)) #\space ($ (or (: (backref quote) (+ (char-range #\a #\z))) (+ (char-range #\0 #\9))))))) .......... [PASS] 1783. (sre->ssre (quote (: bos (+ (>= 2 ($ #\a))) ($ (or alnum #\_))))) .......... [PASS] 1784. (sre->ssre (quote (: bos (+ (>= 2 #\a)) ($ (or alnum #\_))))) .......... [PASS] 1785. (sre->ssre (quote (: bos (*? nonl) ($ (or #\a (: #\b #\c)))))) .......... [PASS] 1786. (sre->ssre (quote (: bos (*? nonl) (or #\a (: #\b #\c) #\d)))) .......... [PASS] 1787. (sre->ssre (quote (: (*? nonl) #\a (look-behind (: #\b #\a))))) .......... [PASS] 1788. (sre->ssre (quote (or (: #\a (look-ahead (: #\b #\c)) nonl) (: #\a #\b #\d)))) .......... [PASS] 1789. (sre->ssre (quote (: bos (*? nonl) (or #\a (: #\b #\c))))) .......... [PASS] 1790. (sre->ssre (quote (: bos (* numeric) (= 4 (or alnum #\_))))) .......... [PASS] 1791. (sre->ssre (quote (: bos (* (~ #\b)) (= 4 (or alnum #\_))))) .......... [PASS] 1792. (sre->ssre (quote (: bos (* #\a) (= 4 (or alnum #\_))))) .......... [PASS] 1793. (sre->ssre (quote (: (or (-> n (: #\f #\o #\o)) (-> n (: #\b #\a #\r))) (backref n)))) .......... [PASS] 1794. (sre->ssre (quote (: (-> n #\A) (or (-> n (: #\f #\o #\o)) (-> n (: #\b #\a #\r))) (backref n)))) .......... [PASS] 1795. (sre->ssre (quote (: bos ($ (+ numeric)) (+ space) #\I #\N (+ space) #\S #\O #\A (+ space) ($ (+ (~ space))) (+ space) ($ (+ (~ space))) (* space) #\( (* space) eos))) .......... [PASS] 1796. (sre->ssre (quote (: (or #\x (or (+ ($ (or (: #\x #\x) (: #\y #\y)))) #\x #\x #\x #\x #\x) #\a #\a #\a) #\b #\c))) .......... [PASS] 1797. (sre->ssre (quote (: space #\a #\b #\c))) .......... [PASS] 1798. (sre->ssre (quote (: (* #\Z) (= 216 ($ (or (:) (* #\d))))))) .......... [PASS] 1799. (sre->ssre (quote (: (look-behind (: #\a (= 0 ($ #\B)) #\c)) #\X))) .......... [PASS] 1800. (sre->ssre (quote (: (+ #\a) (or (:) #\b) #\a))) .......... [PASS] 1801. (sre->ssre (quote (: (? #\X) (= 3335 ($ (or #\R (:) (:))))))) .......... [PASS] 1802. (sre->ssre (quote (or (: (neg-look-ahead ($ #\b)) #\c) #\b))) .......... [PASS] 1803. (sre->ssre (quote (or (: (look-ahead ($ #\b)) #\b) #\c))) .......... [PASS] 1804. (sre->ssre (quote (: #\< (or #\a #\space #\b) #\>))) .......... [PASS] 1805. (sre->ssre (quote (+ (or numeric #\-)))) .......... [PASS] 1806. (sre->ssre (quote (look-behind (? (look-ahead nonl))))) .......... [PASS] 1807. (sre->ssre (quote (look-behind (** 4 5 (look-ahead nonl))))) .......... [PASS] 1808. (sre->ssre (quote (look-behind (: (** 4 5 (look-ahead nonl)) #\x)))) .......... [PASS] 1809. (sre->ssre (quote (: #\space #\space #\space (* (-> word (: #\space (+ (or alnum #\_)) #\space))) #\space #\space #\space #\space #\. #\space #\space #\space))) .......... [PASS] 1810. (sre->ssre (quote (look-behind (look-ahead (: nonl (look-behind #\x)))))) .......... [PASS] 1811. (sre->ssre (quote (: (look-behind (look-ahead (look-behind #\a))) #\b))) .......... [PASS] 1812. (sre->ssre (quote (: (look-behind (: #\a (? #\b) #\c)) nonl nonl nonl))) .......... [PASS] 1813. (sre->ssre (quote (: (look-behind (or (: #\P #\Q #\R) (: #\a (? #\b) #\c))) nonl nonl nonl))) .......... [PASS] 1814. (sre->ssre (quote (: (look-behind (or (: #\a (? #\b) #\c) (: #\P #\Q #\R))) nonl nonl nonl))) .......... [PASS] 1815. (sre->ssre (quote (: (look-behind (or (: #\P #\Q) (: #\a (? #\b) #\c))) nonl nonl nonl))) .......... [PASS] 1816. (sre->ssre (quote (: (look-behind (or (: #\a (? #\b) #\c) (: #\P #\Q))) nonl nonl nonl))) .......... [PASS] 1817. (sre->ssre (quote (: (look-behind (: #\a ($ (or (: (? #\b) #\c) (: (? #\d) (? #\e) #\e))) #\f)) #\X nonl))) .......... [PASS] 1818. (sre->ssre (quote (: (neg-look-behind (: #\a ($ (or (: (? #\b) #\c) (: (? #\d) (? #\e) #\e))) #\f)) #\X nonl))) .......... [PASS] 1819. (sre->ssre (quote (: (look-behind (or (** 2 3 numeric) (: #\A #\B #\C))) nonl))) .......... [PASS] 1820. (sre->ssre (quote (: (look-behind ($ (** 1 255 numeric))) #\X))) .......... [PASS] 1821. (sre->ssre (quote (: (look-behind (: #\a (= 3 ($ (: (? #\b) #\c))) #\d)) #\X))) .......... [PASS] 1822. (sre->ssre (quote (: (look-behind (: #\a (= 0 ($ (: (? #\b) #\c))) #\d)) #\X))) .......... [PASS] 1823. (sre->ssre (quote (: (look-behind (: (? #\a) (= 0 ($ (: (? #\b) #\c))) #\d)) #\X nonl))) .......... [PASS] 1824. (sre->ssre (quote (neg-look-behind (? #\a)))) .......... [PASS] 1825. (sre->ssre (quote (: (look-behind (or (: #\P #\Q) (: #\P #\c nonl (? #\b)))) ($ (? nonl)) ($ (? #\b))))) .......... [PASS] 1826. (sre->ssre (quote (: (look-ahead #\a) (? #\b) #\a))) .......... [PASS] 1827. (sre->ssre (quote (: (look-ahead #\a) (? #\b) #\a nonl))) .......... [PASS] 1828. (sre->ssre (quote (: #\6 #\5 #\space #\0 #\0 #\space #\6 #\4))) .......... [PASS] 1829. (sre->ssre (quote (: bos (= 4 nonl)))) .......... [PASS] 1830. (sre->ssre (quote (: bos (+ ($ (: (** 3 6 nonl) #\!))) eos))) .......... [PASS] 1831. (sre->ssre (quote (or (: (>= 5 (char-range #\a #\z)) #\b) #\x))) .......... [PASS] 1832. (sre->ssre (quote (or (: (**? 1 6 (char-range #\a #\z)) #\s) #\x))) .......... [PASS] 1833. (sre->ssre (quote #\@)) .......... [PASS] 1834. (sre->ssre (quote (: #\@ #\@ #\@ #\x #\x #\x))) .......... [PASS] 1835. (sre->ssre (quote (: (look-behind #\x) #\b #\a #\d #\u #\t #\f))) .......... [PASS] 1836. (sre->ssre (quote (: (look-behind (: #\x #\x)) #\b #\a #\d #\u #\t #\f))) .......... [PASS] 1837. (sre->ssre (quote (: (look-behind (: #\x #\x #\x #\x)) #\b #\a #\d #\u #\t #\f))) .......... [PASS] 1838. (sre->ssre (quote #\X)) .......... [PASS] 1839. (sre->ssre (quote (+ #\a))) .......... [PASS] 1840. (sre->ssre (quote #\A)) .......... [PASS] 1841. (sre->ssre (quote #\x)) .......... [PASS] 1842. (sre->ssre (quote (: #\a #\b #\c))) .......... [PASS] 1843. (sre->ssre (quote #\X)) .......... [PASS] 1844. (sre->ssre (quote (: (look-behind nonl) #\X))) .......... [PASS] 1845. (sre->ssre (quote (+ #\a))) .......... [PASS] 1846. (sre->ssre (quote #\a)) .......... [PASS] 1847. (sre->ssre (quote nonl)) .......... [PASS] 1848. (sre->ssre (quote #\s)) .......... [PASS] 1849. (sre->ssre (quote (~ #\s))) .......... [PASS] 1850. (sre->ssre (quote (: #\a (*? nonl) #\a))) .......... [PASS] 1851. (sre->ssre (quote (: (look-behind (: #\p #\q #\r)) #\a #\b #\c (look-ahead (: #\x #\y #\z))))) .......... [PASS] 1852. (sre->ssre (quote (: #\a (or bow eow)))) .......... [PASS] 1853. (sre->ssre (quote (: #\a #\b #\c (look-ahead (: #\a #\b #\c #\d #\e)) (look-ahead (: #\a #\b))))) .......... [PASS] 1854. (sre->ssre (quote (: (look-behind (: #\a #\b #\c)) #\1 #\2 #\3))) .......... [PASS] 1855. (sre->ssre (quote (: (or bow eow) #\a #\b #\c (or bow eow)))) .......... [PASS] 1856. (sre->ssre (quote (: (look-behind (: #\a #\b #\c)) #\d #\e #\f))) .......... [PASS] 1857. (sre->ssre (quote (: #\a #\b #\c (look-behind (: #\b #\c)) #\d #\e #\f))) .......... [PASS] 1858. (sre->ssre (quote (: (look-behind (: #\a #\b)) #\c #\d #\e #\f))) .......... [PASS] 1859. (sre->ssre (quote (: #\b (neg-look-behind (: #\a #\x)) (neg-look-ahead (: #\c #\x))))) .......... [PASS] 1860. (sre->ssre (quote (: #\a #\b #\c #\d))) .......... [PASS] 1861. (sre->ssre (quote (: #\a #\b #\c #\d))) .......... [PASS] 1862. (sre->ssre (quote (: bos #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\a #\b #\c #\d))) .......... [PASS] 1863. (sre->ssre (quote (= 7 (or #\a #\x #\m)))) .......... [PASS] 1864. (sre->ssre (quote (: (*? ($ (or nonl nonl))) #\b #\x))) .......... [PASS] 1865. (sre->ssre (quote (: #\a #\b #\c))) .......... [PASS] 1866. (sre->ssre (quote (: #\a #\b #\c))) .......... [PASS] 1867. (sre->ssre (quote (: ($ (: nonl nonl nonl)) #\- ($ (: nonl nonl nonl))))) .......... [PASS] 1868. (sre->ssre (quote (: #\a #\b #\c))) .......... [PASS] 1869. (sre->ssre (quote (or (: bos #\a #\b #\c) (: #\d #\e #\f)))) .......... [PASS] 1870. (sre->ssre (quote (: (* nonl) ($ (or (: ($ (: #\a #\b #\c)) eos) ($ (: #\d #\e #\f))))))) .......... [PASS] 1871. (sre->ssre (quote (: #\t #\h #\e #\space #\q #\u #\i #\c #\k #\space #\b #\r #\o #\w #\n #\space #\f #\o #\x))) .......... [PASS] 1872. (sre->ssre (quote (: (* #\a) ($ (+ #\b)) ($ #\z) ($ #\z)))) .......... [PASS] 1873. (sre->ssre (quote (: #\a #\b nonl #\c #\d))) .......... [PASS] 1874. (sre->ssre (quote (or (? #\a) (? #\b)))) .......... [PASS] 1875. (sre->ssre (quote (: (+ (or alnum #\_)) #\A))) .......... [PASS] 1876. (sre->ssre (quote (: bos #\d ($ #\e) eos))) .......... [PASS] 1877. (sre->ssre (quote ($ (: ($ #\a) (? ($ #\b)) ($ #\c))))) .......... [PASS] 1878. (sre->ssre (quote (or alnum #\_))) .......... [PASS] 1879. (sre->ssre (quote (** 5 4 #\x))) .......... [PASS] 1880. (sre->ssre (quote (= 65536 #\z))) .......... [PASS] 1881. (sre->ssre (quote (: #\a #\b #\c (look-behind (+ #\a)) #\b))) .......... [PASS] 1882. (sre->ssre (quote (: (look-behind (: #\a #\b ($ (+ #\c)) #\d)) #\e #\f))) .......... [PASS] 1883. (sre->ssre (quote (: (look-behind (: #\a #\b (look-behind (+ #\c)) #\d)) #\e #\f))) .......... [PASS] 1884. (sre->ssre (quote (: #\T #\h #\e #\space #\n #\e #\x #\t #\space #\t #\h #\r #\e #\e #\space #\a #\r #\e #\space #\i #\n #\space #\t #\e #\s #\t #\i #\n #\p #\u #\t #\2 #\space #\b #\e #\c #\a #\u #\s #\e #\space #\t #\h #\e #\y #\space #\h #\a #\v #\e #\space #\v #\a #\r #\i #\a #\b #\l #\e #\space #\l #\e #\n #\g #\t #\h #\space #\b #\r #\a #\n #\c #\h #\e #\s))) .......... [PASS] 1885. (sre->ssre (quote (: (look-behind (+ #\x)) #\y))) .......... [PASS] 1886. (sre->ssre (quote (** 37 17 #\a))) .......... [PASS] 1887. (sre->ssre (quote (: (** 1 3 #\a) #\b))) .......... [PASS] 1888. (sre->ssre (quote (: (+ nonl) #\f #\o #\o))) .......... [PASS] 1889. (sre->ssre (quote (: (+ nonl) #\f #\o #\o))) .......... [PASS] 1890. (sre->ssre (quote (: bos #\X))) .......... [PASS] 1891. (sre->ssre (quote (: (-> A (or (: #\t #\o #\m) (: #\b #\o #\n))) #\- (backref A)))) .......... [PASS] 1892. (sre->ssre (quote (: #\X (** 2 4 #\a) #\b))) .......... [PASS] 1893. (sre->ssre (quote (: #\X (**? 2 4 #\a) #\b))) .......... [PASS] 1894. (sre->ssre (quote (: #\X (+ (** 2 4 #\a)) #\b))) .......... [PASS] 1895. (sre->ssre (quote (: #\X (** 2 4 numeric) #\b))) .......... [PASS] 1896. (sre->ssre (quote (: #\X (**? 2 4 numeric) #\b))) .......... [PASS] 1897. (sre->ssre (quote (: #\X (+ (** 2 4 numeric)) #\b))) .......... [PASS] 1898. (sre->ssre (quote (: #\X (** 2 4 (~ numeric)) #\b))) .......... [PASS] 1899. (sre->ssre (quote (: #\X (**? 2 4 (~ numeric)) #\b))) .......... [PASS] 1900. (sre->ssre (quote (: #\X (+ (** 2 4 (~ numeric))) #\b))) .......... [PASS] 1901. (sre->ssre (quote (: #\X (** 2 4 (or #\a #\b #\c)) #\b))) .......... [PASS] 1902. (sre->ssre (quote (: #\X (**? 2 4 (or #\a #\b #\c)) #\b))) .......... [PASS] 1903. (sre->ssre (quote (: #\X (+ (** 2 4 (or #\a #\b #\c))) #\b))) .......... [PASS] 1904. (sre->ssre (quote (: #\X (** 2 4 (~ #\a)) #\b))) .......... [PASS] 1905. (sre->ssre (quote (: #\X (**? 2 4 (~ #\a)) #\b))) .......... [PASS] 1906. (sre->ssre (quote (: #\X (+ (** 2 4 (~ #\a))) #\b))) .......... [PASS] 1907. (sre->ssre (quote (: #\Z (neg-look-ahead (:))))) .......... [PASS] 1908. (sre->ssre (quote (: #\d #\o #\g (? ($ (: #\s #\b #\o #\d #\y)))))) .......... [PASS] 1909. (sre->ssre (quote (: #\d #\o #\g (?? ($ (: #\s #\b #\o #\d #\y)))))) .......... [PASS] 1910. (sre->ssre (quote (or (: #\d #\o #\g) (: #\d #\o #\g #\s #\b #\o #\d #\y)))) .......... [PASS] 1911. (sre->ssre (quote (or (: #\d #\o #\g #\s #\b #\o #\d #\y) (: #\d #\o #\g)))) .......... [PASS] 1912. (sre->ssre (quote (: (or bow eow) #\t #\h #\e #\space #\c #\a #\t (or bow eow)))) .......... [PASS] 1913. (sre->ssre (quote (: #\a #\b #\c))) .......... [PASS] 1914. (sre->ssre (quote (: (look-behind (: #\a #\b #\c)) #\1 #\2 #\3))) .......... [PASS] 1915. (sre->ssre (quote (: (or bow eow) #\a #\b #\c (or bow eow)))) .......... [PASS] 1916. (sre->ssre (quote (: (? #\a) (? #\b)))) .......... [PASS] 1917. (sre->ssre (quote (: bos (? #\a) (? #\b)))) .......... [PASS] 1918. (sre->ssre (quote (: #\a #\b #\c (* #\d)))) .......... [PASS] 1919. (sre->ssre (quote (: #\a #\b #\c (* numeric)))) .......... [PASS] 1920. (sre->ssre (quote (: #\a #\b #\c (* (or #\d #\e))))) .......... [PASS] 1921. (sre->ssre (quote (: (look-behind (: #\a #\b #\c)) #\d #\e #\f))) .......... [PASS] 1922. (sre->ssre (quote (: #\a #\b #\c eos))) .......... [PASS] 1923. (sre->ssre (quote (: #\a #\b #\c (or bow eow)))) .......... [PASS] 1924. (sre->ssre (quote (: #\a #\b #\c nwb))) .......... [PASS] 1925. (sre->ssre (quote (+ nonl))) .......... [PASS] 1926. (sre->ssre (quote (: (look-behind (+ ($ (: #\a #\b #\c)))) #\X))) .......... [PASS] 1927. (sre->ssre (quote (or (: ($ #\a) #\b) (: #\a #\c)))) .......... [PASS] 1928. (sre->ssre (quote (or (: ($ #\a) ($ #\b) #\x) (: #\a #\b #\c)))) .......... [PASS] 1929. (sre->ssre (quote (: (or ($ (: #\f #\o #\o)) ($ (: #\b #\a #\r)) ($ (: #\b #\a #\z))) #\X))) .......... [PASS] 1930. (sre->ssre (quote (or (: ($ (: #\a #\b)) #\x) (: #\a #\b)))) .......... [PASS] 1931. (sre->ssre (quote ($ ($ ($ ($ ($ #\a))))))) .......... [PASS] 1932. (sre->ssre (quote (: (*? #\a) (*? #\b)))) .......... [PASS] 1933. (sre->ssre (quote (: #\a #\b #\c))) .......... [PASS] 1934. (sre->ssre (quote (: #\a ($ #\b) #\c))) .......... [PASS] 1935. (sre->ssre (quote (or (: ($ #\a) ($ #\b)) ($ #\c)))) .......... [PASS] 1936. (sre->ssre (quote (or (-> A #\a) (-> A #\b)))) .......... [PASS] 1937. (sre->ssre (quote (: #\a ($ #\b) #\c ($ #\d)))) .......... [PASS] 1938. (sre->ssre (quote (: bos #\a #\b #\c))) .......... [PASS] 1939. (sre->ssre (quote (: (* nonl) numeric))) .......... [PASS] 1940. (sre->ssre (quote (* ($ (: #\a #\b #\c))))) .......... [PASS] 1941. (sre->ssre (quote bos)) .......... [PASS] 1942. (sre->ssre (quote (: (? (: #\a #\b)) (: #\a #\b) (: #\a #\b)))) .......... [PASS] 1943. (sre->ssre (quote (: #\a #\b #\c))) .......... [PASS] 1944. (sre->ssre (quote ($ (: #\a #\b #\c #\d)))) .......... [PASS] 1945. (sre->ssre (quote (: #\a #\b #\c #\d))) .......... [PASS] 1946. (sre->ssre (quote (: #\a ($ #\b) #\c))) .......... [PASS] 1947. (sre->ssre (quote (: #\a (or punct #\b)))) .......... [PASS] 1948. (sre->ssre (quote (: #\a (or #\b punct)))) .......... [PASS] 1949. (sre->ssre (quote (: #\0 #\b #\space #\2 #\8 #\space #\3 #\f #\space #\2 #\d #\space #\7 #\8 #\space #\2 #\9 #\space #\3 #\a))) .......... [PASS] 1950. (sre->ssre (quote (or #\a (: ($ #\b) #\c)))) .......... [PASS] 1951. (sre->ssre (quote (: #\e #\f #\g))) .......... [PASS] 1952. (sre->ssre (quote (: #\e #\f #\f))) .......... [PASS] 1953. (sre->ssre (quote (: #\e #\f #\f #\g))) .......... [PASS] 1954. (sre->ssre (quote (: #\a #\a #\a))) .......... [PASS] 1955. (sre->ssre (quote (neg-look-behind (or (:) (: #\! (neg-look-behind (:))))))) .......... [PASS] 1956. (sre->ssre (quote (or (: (neg-look-behind (or (:) #\! #\! (:) (:) (:) (:) (:) (neg-look-behind (:)) (:) (: (neg-look-behind (:)) #\!) #\! (:) (: (neg-look-behind (:)) #\!) (: #\! (neg-look-behind (:)) #\!) #\! #\! #\! (:) (:) (:) (: #\! #\!) (: #\< #\!))) #\!) #\! (:) (:) (:) #\! (:)))) .......... [PASS] 1957. (sre->ssre (quote (= 65 ($ (? #\R))))) .......... [PASS] 1958. (sre->ssre (quote (: #\a #\b #\c))) .......... [PASS] 1959. (sre->ssre (quote (or (: #\a #\b #\c) (: #\b #\c #\d)))) .......... [PASS] 1960. (sre->ssre (quote (: bos (**? 1 2 ($ (or (+ #\b) #\a))) #\b #\c))) .......... [PASS] 1961. (sre->ssre (quote (: bos (**? 1 2 ($ (or (* #\b) (: #\b #\a)))) #\b #\c))) .......... [PASS] 1962. (sre->ssre (quote (or #\a #\b #\c))) .......... [PASS] 1963. (sre->ssre (quote (or (: #\a ($ #\b) #\c) (: #\x #\y #\z)))) .......... [PASS] 1964. (sre->ssre (quote (: #\f #\o #\o #\b #\a #\r))) .......... [PASS] 1965. (sre->ssre (quote (: #\[ ($ (:)) (= 65535 #\]) (-> A (:))))) .......... [PASS] 1966. (sre->ssre (quote (look-behind (look-ahead (: nonl (look-behind #\x)))))) .......... [PASS] 1967. (sre->ssre (quote eos)) .......... [PASS] 1968. (sre->ssre (quote (: (? #\newline) eos))) .......... [PASS] 1969. (sre->ssre (quote (: (neg-look-ahead (or #\a #\b)) (* nonl)))) .......... [PASS] 1970. (sre->ssre (quote (: #\a #\b #\c #\d))) .......... [PASS] 1971. (sre->ssre (quote (: #\1 #\2 #\3 #\4 #\5 (look-behind (** 1 256 numeric)) #\X))) .......... [PASS] 1972. (sre->ssre (quote (neg-look-behind (** 9 44965 ($ (= 65054 #\space)))))) .......... [PASS] 1973. (sre->ssre (quote (look-behind ($ (: ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (: ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ ($ (:))) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (: ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ ($ (:))) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (: ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (: ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ ($ (:))) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (: ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (: ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (:)) ($ (: ($ (:)) ($ (:))))))))))))))))))))) .......... [PASS] 1974. (sre->ssre (quote (* ($ (or ($ (: #\f #\o #\o)) ($ (: #\b #\a #\r))))))) .......... [PASS] 1975. (sre->ssre (quote (* (or (: ($ #\f) ($ #\o) ($ #\o)) (: ($ #\b) ($ #\a) ($ #\r)))))) .......... [PASS] 1976. (sre->ssre (quote (* ($ (or (+ ($ #\Z)) #\A))))) .......... [PASS] 1977. (sre->ssre (quote (: #\A (+ #\space)))) .......... [PASS] 1978. (sre->ssre (quote (: #\a eos))) .......... [PASS] 1979. (sre->ssre (quote (or #\a #\[))) .......... [PASS] 1980. (sre->ssre (quote (or numeric #\space #\space (char-range #\space #\Z)))) .......... [PASS] 1981. (sre->ssre (quote (: (look-behind (: #\a #\b #\c)) ($ (or (:) (: #\D #\E #\F)))))) .......... [PASS] 1982. (sre->ssre (quote (: #\a ($ (: #\b #\b)) #\c))) .......... [PASS] 1983. (sre->ssre (quote (: #\a ($ (:)) #\c))) .......... [PASS] 1984. (sre->ssre (quote (: (or (-> n (: #\f #\o #\o)) (-> n (: #\b #\a #\r))) (backref n)))) .......... [PASS] 1985. (sre->ssre (quote (: (? #\a) #\b (* (or #\] #\x #\y)) #\c))) .......... [PASS] 1986. (sre->ssre (quote (* #\f))) .......... [PASS] 1987. (sre->ssre (quote (: #\f #\o #\o #\*))) .......... [PASS] 1988. (sre->ssre (quote (: #\f #\o #\o #\* #\b #\a #\r))) .......... [PASS] 1989. (sre->ssre (quote (: #\f #\\ #\o #\o))) .......... [PASS] 1990. (sre->ssre (quote (or #\t #\e #\n))) .......... [PASS] 1991. (sre->ssre (quote (: #\t (char-range #\a #\g) #\n))) .......... [PASS] 1992. (sre->ssre (quote (: #\a #\] #\b))) .......... [PASS] 1993. (sre->ssre (quote (: #\a (or #\] #\a #\-) #\b))) .......... [PASS] 1994. (sre->ssre (quote (: #\a (or #\] #\-) #\b))) .......... [PASS] 1995. (sre->ssre (quote (: #\a (or #\] (char-range #\a #\z)) #\b))) .......... [PASS] 1996. (sre->ssre (quote #\])) .......... [PASS] 1997. (sre->ssre (quote (: #\t (or #\! (char-range #\a #\g)) #\n))) .......... [PASS] 1998. (sre->ssre (quote (: #\A (char-range #\+ #\0) #\B))) .......... [PASS] 1999. (sre->ssre (quote (: #\a (char-range #\- #\0) #\z))) .......... [PASS] 2000. (sre->ssre (quote (: #\a (or numeric #\.) #\z))) .......... [PASS] 2001. (sre->ssre (quote (: #\A nwb #\\ #\C (~ numeric)))) .......... [PASS] 2002. (sre->ssre (quote (: (* #\a) #\b))) .......... [PASS] 2003. (sre->ssre (quote (: #\< (or #\] #\b #\c) #\>))) .......... [PASS] 2004. (sre->ssre (quote (: #\< (~ (or #\] #\b #\c)) #\>))) .......... [PASS] 2005. (sre->ssre (quote (: (* #\a) (+ #\b) #\c #\+ (or #\d #\e #\f) ($ (: #\a #\b)) #\( #\c #\d #\)))) .......... [PASS] 2006. (sre->ssre (quote (: #\h #\o #\w nonl #\t #\o #\space #\h #\o #\w #\. #\t #\o))) .......... [PASS] 2007. (sre->ssre (quote (: bos #\h #\o #\w #\space #\t #\o #\space #\^ #\h #\o #\w #\space #\t #\o))) .......... [PASS] 2008. (sre->ssre (quote (: bos #\b #\( #\c bos #\d #\) #\( bos #\e bos #\f #\)))) .......... [PASS] 2009. (sre->ssre (quote (: #\[ ($ (:)) (= 65535 #\]) ($ (:))))) .......... [PASS] 2010. (sre->ssre (quote (: bos #\A))) .......... [PASS] 2011. (sre->ssre (quote (: bos (+ (or alnum #\_))))) .......... [PASS] 2012. (sre->ssre (quote (: ($ (+ nonl)) (or bow eow) ($ (+ nonl))))) .......... [PASS] 2013. (sre->ssre (quote (+ (~ (or alnum #\_))))) .......... [PASS] 2014. (sre->ssre (quote (+ (or alnum #\_)))) .......... [PASS] 2015. (sre->ssre (quote (: #\a nonl #\b))) .......... [PASS] 2016. (sre->ssre (quote (: #\a ($ (= 3 nonl)) #\b))) .......... [PASS] 2017. (sre->ssre (quote (: #\a ($ (*? nonl)) ($ nonl)))) .......... [PASS] 2018. (sre->ssre (quote (: #\a ($ (*? nonl)) ($ nonl)))) .......... [PASS] 2019. (sre->ssre (quote (: #\a ($ (* nonl)) ($ nonl)))) .......... [PASS] 2020. (sre->ssre (quote (: #\a ($ (* nonl)) ($ nonl)))) .......... [PASS] 2021. (sre->ssre (quote (: #\a ($ nonl) ($ nonl)))) .......... [PASS] 2022. (sre->ssre (quote (: #\a ($ nonl) ($ nonl)))) .......... [PASS] 2023. (sre->ssre (quote (: #\a ($ (? nonl)) ($ nonl)))) .......... [PASS] 2024. (sre->ssre (quote (: #\a ($ (? nonl)) ($ nonl)))) .......... [PASS] 2025. (sre->ssre (quote (: #\a ($ (?? nonl)) ($ nonl)))) .......... [PASS] 2026. (sre->ssre (quote (: #\a ($ (?? nonl)) ($ nonl)))) .......... [PASS] 2027. (sre->ssre (quote (: #\a ($ (= 3 nonl)) #\b))) .......... [PASS] 2028. (sre->ssre (quote (: #\a ($ (>= 3 nonl)) #\b))) .......... [PASS] 2029. (sre->ssre (quote (: #\a ($ (**? 3 #f nonl)) #\b))) .......... [PASS] 2030. (sre->ssre (quote (: #\a ($ (** 3 5 nonl)) #\b))) .......... [PASS] 2031. (sre->ssre (quote (: #\a ($ (**? 3 5 nonl)) #\b))) .......... [PASS] 2032. (sre->ssre (quote (: (look-behind (: #\a #\X #\b)) #\c #\d))) .......... [PASS] 2033. (sre->ssre (quote (: (look-behind ($ nonl)) #\X))) .......... [PASS] 2034. (sre->ssre (quote (+ (~ #\a)))) .......... [PASS] 2035. (sre->ssre (quote (: bos (= 2 (~ #\a))))) .......... [PASS] 2036. (sre->ssre (quote (: bos (>= 2 (~ #\a))))) .......... [PASS] 2037. (sre->ssre (quote (: bos (**? 2 #f (~ #\a))))) .......... [PASS] 2038. (sre->ssre (quote (+ (~ #\a)))) .......... [PASS] 2039. (sre->ssre (quote (: bos (= 2 (~ #\a))))) .......... [PASS] 2040. (sre->ssre (quote (: bos (>= 2 (~ #\a))))) .......... [PASS] 2041. (sre->ssre (quote (: bos (**? 2 #f (~ #\a))))) .......... [PASS] 2042. (sre->ssre (quote (* (~ numeric)))) .......... [PASS] 2043. (sre->ssre (quote (* (~ numeric)))) .......... [PASS] 2044. (sre->ssre (quote (~ numeric))) .......... [PASS] 2045. (sre->ssre (quote (: #\> (~ space)))) .......... [PASS] 2046. (sre->ssre (quote numeric)) .......... [PASS] 2047. (sre->ssre (quote space)) .......... [PASS] 2048. (sre->ssre (quote (+ (~ numeric)))) .......... [PASS] 2049. (sre->ssre (quote (** 2 3 (~ numeric)))) .......... [PASS] 2050. (sre->ssre (quote (**? 2 3 (~ numeric)))) .......... [PASS] 2051. (sre->ssre (quote (+ numeric))) .......... [PASS] 2052. (sre->ssre (quote (** 2 3 numeric))) .......... [PASS] 2053. (sre->ssre (quote (**? 2 3 numeric))) .......... [PASS] 2054. (sre->ssre (quote (+ (~ space)))) .......... [PASS] 2055. (sre->ssre (quote (** 2 3 (~ space)))) .......... [PASS] 2056. (sre->ssre (quote (**? 2 3 (~ space)))) .......... [PASS] 2057. (sre->ssre (quote (: #\> (+ space) #\<))) .......... [PASS] 2058. (sre->ssre (quote (: #\> (** 2 3 space) #\<))) .......... [PASS] 2059. (sre->ssre (quote (: #\> (**? 2 3 space) #\<))) .......... [PASS] 2060. (sre->ssre (quote (+ (or alnum #\_)))) .......... [PASS] 2061. (sre->ssre (quote (** 2 3 (or alnum #\_)))) .......... [PASS] 2062. (sre->ssre (quote (**? 2 3 (or alnum #\_)))) .......... [PASS] 2063. (sre->ssre (quote (+ (~ (or alnum #\_))))) .......... [PASS] 2064. (sre->ssre (quote (** 2 3 (~ (or alnum #\_))))) .......... [PASS] 2065. (sre->ssre (quote (**? 2 3 (~ (or alnum #\_))))) .......... [PASS] 2066. (sre->ssre (quote (: bos (* (or #\a #\c)) #\b))) .......... [PASS] 2067. (sre->ssre (quote (: bos (* (~ #\x)) #\b))) .......... [PASS] 2068. (sre->ssre (quote (: bos (* (~ #\x)) #\b))) .......... [PASS] 2069. (sre->ssre (quote (: bos (* numeric) #\b))) .......... [PASS] 2070. (sre->ssre (quote ($ (or (:) #\a)))) .......... [PASS] 2071. (sre->ssre (quote (: (~ space) (~ space)))) .......... [PASS] 2072. (sre->ssre (quote (= 2 (~ space)))) .......... [PASS] 2073. (sre->ssre (quote (: (~ (or alnum #\_)) (~ (or alnum #\_))))) .......... [PASS] 2074. (sre->ssre (quote (= 2 (~ (or alnum #\_))))) .......... [PASS] 2075. (sre->ssre (quote (~ space))) .......... [PASS] 2076. (sre->ssre (quote (~ numeric))) .......... [PASS] 2077. (sre->ssre (quote (~ (or alnum #\_)))) .......... [PASS] 2078. (sre->ssre (quote (: nonl (~ (or (~ space) #\newline)) nonl))) .......... [PASS] 2079. (sre->ssre (quote (: bos (*? (~ #\d)) eos))) .......... [PASS] 2080. (sre->ssre (quote (: bos (*? (~ #\d)) eos))) .......... [PASS] 2081. (sre->ssre (quote (: bos (*? (~ #\d)) eos))) .......... [PASS] 2082. (sre->ssre (quote (* #\A))) .......... [PASS] 2083. (sre->ssre (quote nonl)) .......... [PASS] 2084. (sre->ssre (quote (: bos (* numeric) (= 4 (or alnum #\_))))) .......... [PASS] 2085. (sre->ssre (quote (: bos (* (~ #\b)) (= 4 (or alnum #\_))))) .......... [PASS] 2086. (sre->ssre (quote (: bos (* (~ #\b)) (= 4 (or alnum #\_))))) .......... [PASS] 2087. (sre->ssre (quote (: bos nonl nwb nonl nwb nonl))) .......... [PASS] 2088. (sre->ssre (quote (+ (~ numeric)))) .......... [PASS] 2089. (sre->ssre (quote (: bos (+ (or alnum #\_))))) .......... [PASS] 2090. (sre->ssre (quote (: bos (+ numeric)))) .......... [PASS] 2091. (sre->ssre (quote (: bos #\> (+ space)))) .......... [PASS] 2092. (sre->ssre (quote (: bos #\A (+ space) #\Z))) .......... [PASS] 2093. (sre->ssre (quote (+ (or #\R #\S #\T)))) .......... [PASS] 2094. (sre->ssre (quote (+ (char-range #\R #\T)))) .......... [PASS] 2095. (sre->ssre (quote (+ (char-range #\q #\u)))) .......... [PASS] 2096. (sre->ssre (quote (: bos (? #\s) #\c))) .......... [PASS] 2097. (sre->ssre (quote (char-range #\A #\`))) .......... [PASS] 2098. (sre->ssre (quote (+ (or alnum #\_)))) .......... [PASS] 2099. (sre->ssre (quote (: (or bow eow) (**? 1 #f nonl) (or bow eow)))) .......... [PASS] 2100. (sre->ssre (quote (: #\c #\a #\f nwb (**? 1 #f nonl) nwb))) .......... [PASS] 2101. (sre->ssre (quote (: #\c #\3 #\space #\b #\1))) .......... [PASS] 2102. (sre->ssre (quote (: bos #\A (+ space) #\Z))) .......... [PASS] 2103. (sre->ssre (quote (~ (or alnum #\_)))) .......... [PASS] 2104. (sre->ssre (quote (or alnum #\_))) .......... [PASS] 2105. (sre->ssre (quote (: #\X (** 2 4 #\a) #\b))) .......... [PASS] 2106. (sre->ssre (quote (: #\X (**? 2 4 #\a) #\b))) .......... [PASS] 2107. (sre->ssre (quote (: #\X (+ (** 2 4 #\a)) #\b))) .......... [PASS] 2108. (sre->ssre (quote (: #\X (** 2 4 numeric) #\b))) .......... [PASS] 2109. (sre->ssre (quote (: #\X (**? 2 4 numeric) #\b))) .......... [PASS] 2110. (sre->ssre (quote (: #\X (+ (** 2 4 numeric)) #\b))) .......... [PASS] 2111. (sre->ssre (quote (: #\X (** 2 4 (~ numeric)) #\b))) .......... [PASS] 2112. (sre->ssre (quote (: #\X (**? 2 4 (~ numeric)) #\b))) .......... [PASS] 2113. (sre->ssre (quote (: #\X (+ (** 2 4 (~ numeric))) #\b))) .......... [PASS] 2114. (sre->ssre (quote (: #\X (** 2 4 (~ numeric)) #\b))) .......... [PASS] 2115. (sre->ssre (quote (: #\X (**? 2 4 (~ numeric)) #\b))) .......... [PASS] 2116. (sre->ssre (quote (: #\X (+ (** 2 4 (~ numeric))) #\b))) .......... [PASS] 2117. (sre->ssre (quote (: #\X (** 2 4 (or #\a #\b #\c)) #\b))) .......... [PASS] 2118. (sre->ssre (quote (: #\X (**? 2 4 (or #\a #\b #\c)) #\b))) .......... [PASS] 2119. (sre->ssre (quote (: #\X (+ (** 2 4 (or #\a #\b #\c))) #\b))) .......... [PASS] 2120. (sre->ssre (quote (: #\X (** 2 4 (~ #\a)) #\b))) .......... [PASS] 2121. (sre->ssre (quote (: #\X (**? 2 4 (~ #\a)) #\b))) .......... [PASS] 2122. (sre->ssre (quote (: #\X (+ (** 2 4 (~ #\a))) #\b))) .......... [PASS] 2123. (sre->ssre (quote (: #\X (** 2 4 (~ #\a)) #\b))) .......... [PASS] 2124. (sre->ssre (quote (: #\X (**? 2 4 (~ #\a)) #\b))) .......... [PASS] 2125. (sre->ssre (quote (: #\X (+ (** 2 4 (~ #\a))) #\b))) .......... [PASS] 2126. (sre->ssre (quote (: (or bow eow) #\t #\h #\e #\space #\c #\a #\t (or bow eow)))) .......... [PASS] 2127. (sre->ssre (quote (: #\a #\b #\c (* #\d)))) .......... [PASS] 2128. (sre->ssre (quote (: #\a #\b #\c (* #\d)))) .......... [PASS] 2129. (sre->ssre (quote (: #\a #\b #\c (* numeric)))) .......... [PASS] 2130. (sre->ssre (quote (: #\a #\b #\c (* (or #\d #\e))))) .......... [PASS] 2131. (sre->ssre (quote (: #\X (= 3 (~ (or alnum #\_))) #\X))) .......... [PASS] 2132. (sre->ssre (quote (: #\f (* nonl)))) .......... [PASS] 2133. (sre->ssre (quote (: #\f (* nonl)))) .......... [PASS] 2134. (sre->ssre (quote (: #\f (* nonl)))) .......... [PASS] 2135. (sre->ssre (quote (: #\f (* nonl)))) .......... [PASS] 2136. (sre->ssre (quote (: (neg-look-behind bos) #\E #\T #\A))) .......... [PASS] 2137. (sre->ssre (quote (: (or bow eow) nonl nonl nonl nwb))) .......... [PASS] 2138. (sre->ssre (quote (: (or bow eow) nonl nonl nonl nwb))) .......... [PASS] 2139. (sre->ssre (quote (: (or bow eow) nonl nonl nonl nwb))) .......... [PASS] 2140. (sre->ssre (quote (: #\i (+ #\s) #\t))) .......... [PASS] 2141. (sre->ssre (quote (: #\i (**? 1 #f #\s) #\t))) .......... [PASS] 2142. (sre->ssre (quote (: #\i (? #\s) #\t))) .......... [PASS] 2143. (sre->ssre (quote (: #\i (= 2 #\s) #\t))) .......... [PASS] 2144. (sre->ssre (quote (or (~ numeric) (~ numeric)))) .......... [PASS] 2145. (sre->ssre (quote (~ (or (~ numeric) (~ numeric))))) .......... [PASS] 2146. (sre->ssre (quote (: ($ (or (:) #\@)) #\7))) .......... [PASS] 2147. (sre->ssre (quote (: #\A #\s #\k #\Z))) .......... [PASS] 2148. (sre->ssre (quote (+ (or #\A #\s #\k #\Z)))) .......... [PASS] 2149. (sre->ssre (quote (+ (~ #\s)))) .......... [PASS] 2150. (sre->ssre (quote (+ (~ #\s)))) .......... [PASS] 2151. (sre->ssre (quote (+ (~ #\k)))) .......... [PASS] 2152. (sre->ssre (quote (+ (~ #\k)))) .......... [PASS] 2153. (sre->ssre (quote (+ (~ (or #\s #\k))))) .......... [PASS] 2154. (sre->ssre (quote (+ (~ (or #\s #\k))))) .......... [PASS] 2155. (sre->ssre (quote (: (or (-> A (: #\s #\s)) (-> A (: #\k #\k))) #\space (backref A)))) .......... [PASS] 2156. (sre->ssre (quote (: (or (-> A #\s) (-> A #\k)) #\space (>= 3 (backref A)) #\!))) .......... [PASS] 2157. (sre->ssre (quote #\i)) .......... [PASS] 2158. (sre->ssre (quote #\I)) .......... [PASS] 2159. (sre->ssre (quote #\i)) .......... [PASS] 2160. (sre->ssre (quote (~ #\i))) .......... [PASS] 2161. (sre->ssre (quote (or #\z #\i))) .......... [PASS] 2162. (sre->ssre (quote (or #\i #\I))) .......... [PASS] 2163. (sre->ssre (quote (+ numeric))) .......... [PASS] 2164. (sre->ssre (quote (+ numeric))) .......... [PASS] 2165. (sre->ssre (quote (: #\> (+ space) #\<))) .......... [PASS] 2166. (sre->ssre (quote (: #\> (+ space) #\<))) .......... [PASS] 2167. (sre->ssre (quote (+ (or alnum #\_)))) .......... [PASS] 2168. (sre->ssre (quote (+ (or alnum #\_)))) .......... [PASS] 2169. (sre->ssre (quote (: (or bow eow) #\A #\B #\C (or bow eow)))) .......... [PASS] 2170. (sre->ssre (quote (: (or bow eow) #\A #\B #\C (or bow eow)))) .......... [PASS] 2171. (sre->ssre (quote (neg-look-behind ($ (or (:) (: #\l #\space)))))) .......... [PASS] 2172. (sre->ssre (quote (: #\a #\b #\c))) .......... [PASS] 2173. (sre->ssre (quote (: #\a (* #\b) #\c))) .......... [PASS] 2174. (sre->ssre (quote (: #\a (+ #\b) #\c))) .......... [PASS] 2175. (sre->ssre (quote ($ (or #\a (: #\a #\b #\c #\d) (: #\a #\f #\r #\i #\c #\a #\n))))) .......... [PASS] 2176. (sre->ssre (quote (: bos #\a #\b #\c))) .......... [PASS] 2177. (sre->ssre (quote (: bos #\a #\b #\c))) .......... [PASS] 2178. (sre->ssre (quote (: #\x numeric #\y (~ numeric) #\z))) .......... [PASS] 2179. (sre->ssre (quote (: #\x space #\y (~ space) #\z))) .......... [PASS] 2180. (sre->ssre (quote (: #\x (or alnum #\_) #\y (~ (or alnum #\_)) #\z))) .......... [PASS] 2181. (sre->ssre (quote (: #\x nonl #\y))) .......... [PASS] 2182. (sre->ssre (quote (: #\x nonl #\y))) .......... [PASS] 2183. (sre->ssre (quote (: #\a numeric eos))) .......... [PASS] 2184. (sre->ssre (quote (~ #\a))) .......... [PASS] 2185. (sre->ssre (quote (: #\a (? #\b) (or alnum #\_)))) .......... [PASS] 2186. (sre->ssre (quote (: (** 0 3 #\x) #\y #\z))) .......... [PASS] 2187. (sre->ssre (quote (: (= 3 #\x) #\y #\z))) .......... [PASS] 2188. (sre->ssre (quote (: (** 2 3 #\x) #\y #\z))) .......... [PASS] 2189. (sre->ssre (quote (* numeric))) .......... [PASS] 2190. (sre->ssre (quote (* (~ numeric)))) .......... [PASS] 2191. (sre->ssre (quote (+ numeric))) .......... [PASS] 2192. (sre->ssre (quote (+ (~ numeric)))) .......... [PASS] 2193. (sre->ssre (quote (: (? numeric) #\A))) .......... [PASS] 2194. (sre->ssre (quote (: (? (~ numeric)) #\A))) .......... [PASS] 2195. (sre->ssre (quote (+ #\a))) .......... [PASS] 2196. (sre->ssre (quote (: bos (* nonl) #\x #\y #\z))) .......... [PASS] 2197. (sre->ssre (quote (: bos (+ nonl) #\x #\y #\z))) .......... [PASS] 2198. (sre->ssre (quote (: bos (? nonl) #\x #\y #\z))) .......... [PASS] 2199. (sre->ssre (quote (: bos (** 2 3 numeric) #\X))) .......... [PASS] 2200. (sre->ssre (quote (: bos (or #\a #\b #\c #\d) numeric))) .......... [PASS] 2201. (sre->ssre (quote (: bos (* (or #\a #\b #\c #\d)) numeric))) .......... [PASS] 2202. (sre->ssre (quote (: bos (+ (or #\a #\b #\c #\d)) numeric))) .......... [PASS] 2203. (sre->ssre (quote (: bos (+ #\a) #\X))) .......... [PASS] 2204. (sre->ssre (quote (: bos (? (or #\a #\b #\c #\d)) numeric))) .......... [PASS] 2205. (sre->ssre (quote (: bos (** 2 3 (or #\a #\b #\c #\d)) numeric))) .......... [PASS] 2206. (sre->ssre (quote (: bos (* ($ (: #\a #\b #\c))) numeric))) .......... [PASS] 2207. (sre->ssre (quote (: bos (+ ($ (: #\a #\b #\c))) numeric))) .......... [PASS] 2208. (sre->ssre (quote (: bos (? ($ (: #\a #\b #\c))) numeric))) .......... [PASS] 2209. (sre->ssre (quote (: bos (** 2 3 ($ (: #\a #\b #\c))) numeric))) .......... [PASS] 2210. (sre->ssre (quote (: bos ($ (or (: (* #\a) (or alnum #\_)) (: #\a #\b))) #\= ($ (or (: (* #\a) (or alnum #\_)) (: #\a #\b)))))) .......... [PASS] 2211. (sre->ssre (quote (: bos (look-ahead (: #\a #\b #\c)) (= 5 (or alnum #\_)) #\: eos))) .......... [PASS] 2212. (sre->ssre (quote (: bos (neg-look-ahead (: #\a #\b #\c)) numeric numeric eos))) .......... [PASS] 2213. (sre->ssre (quote (: (look-behind (or (: #\a #\b #\c) (: #\x #\y))) #\1 #\2 #\3))) .......... [PASS] 2214. (sre->ssre (quote (: (neg-look-behind (or (: #\a #\b #\c) (: #\x #\y))) #\1 #\2 #\3))) .......... [PASS] 2215. (sre->ssre (quote (: bos #\a #\b #\c))) .......... [PASS] 2216. (sre->ssre (quote (: bos ($ (or (* #\a) (: #\x #\y #\z)))))) .......... [PASS] 2217. (sre->ssre (quote (: #\x #\y #\z eos))) .......... [PASS] 2218. (sre->ssre (quote (: #\x #\y #\z eos))) .......... [PASS] 2219. (sre->ssre (quote (: bos #\a #\b #\c #\d #\e #\f))) .......... [PASS] 2220. (sre->ssre (quote (: bos (** 2 4 #\a) (+ numeric) #\z))) .......... [PASS] 2221. (sre->ssre (quote (: bos #\a #\b #\c #\d #\e #\f))) .......... [PASS] 2222. (sre->ssre (quote (: (look-behind (: #\f #\o #\o)) #\b #\a #\r))) .......... [PASS] 2223. (sre->ssre (quote (: (+ ($ (: #\a (* #\b) ($ (or (: #\c #\d) (: #\e #\f)))))) #\X))) .......... [PASS] 2224. (sre->ssre (quote (: #\t #\h #\e #\space #\q #\u #\i #\c #\k #\space #\b #\r #\o #\w #\n #\space #\f #\o #\x))) .......... [PASS] 2225. (sre->ssre (quote (: (* #\a) #\a #\b (? #\c) #\x #\y (+ #\z) #\p #\q (= 3 #\r) #\a (>= 2 #\b) #\x (** 4 5 #\y) #\p (** 0 6 #\q) #\A (>= 0 #\B) #\z #\z))) .......... [PASS] 2226. (sre->ssre (quote (: bos (** 1 2 ($ (: #\a #\b #\c))) #\z #\z))) .......... [PASS] 2227. (sre->ssre (quote (: bos (**? 1 2 ($ (or (**? 1 #f #\b) #\a))) #\c))) .......... [PASS] 2228. (sre->ssre (quote (: bos (** 1 2 ($ (or (+ #\b) #\a))) #\c))) .......... [PASS] 2229. (sre->ssre (quote (: bos (**? 1 2 ($ (or (+ #\b) #\a))) #\b #\c))) .......... [PASS] 2230. (sre->ssre (quote (: bos (**? 1 2 ($ (or (* #\b) (: #\b #\a)))) #\b #\c))) .......... [PASS] 2231. (sre->ssre (quote (: bos (**? 1 2 ($ (or (: #\b #\a) (* #\b)))) #\b #\c))) .......... [PASS] 2232. (sre->ssre (quote (: bos (or #\a #\b #\] #\c #\d #\e)))) .......... [PASS] 2233. (sre->ssre (quote (: bos (or #\] #\c #\d #\e)))) .......... [PASS] 2234. (sre->ssre (quote (: bos (~ (or #\a #\b #\] #\c #\d #\e))))) .......... [PASS] 2235. (sre->ssre (quote (: bos (~ (or #\] #\c #\d #\e))))) .......... [PASS] 2236. (sre->ssre (quote (: bos #\@))) .......... [PASS] 2237. (sre->ssre (quote (: bos (+ (char-range #\0 #\9)) eos))) .......... [PASS] 2238. (sre->ssre (quote (: bos (* nonl) #\n #\t #\e #\r))) .......... [PASS] 2239. (sre->ssre (quote (: bos #\x #\x #\x (+ (char-range #\0 #\9)) eos))) .......... [PASS] 2240. (sre->ssre (quote (: bos (+ nonl) (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9) eos))) .......... [PASS] 2241. (sre->ssre (quote (: bos (**? 1 #f nonl) (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9) eos))) .......... [PASS] 2242. (sre->ssre (quote (: bos ($ (+ (~ #\!))) #\! ($ (+ nonl)) #\= #\a #\p #\q #\u #\x #\z #\. #\i #\x #\r #\. #\z #\z #\z #\. #\a #\c #\. #\u #\k eos))) .......... [PASS] 2243. (sre->ssre (quote #\:)) .......... [PASS] 2244. (sre->ssre (quote (: bos (* nonl) #\. ($ (** 1 3 numeric)) #\. ($ (** 1 3 numeric)) #\. ($ (** 1 3 numeric)) eos))) .......... [PASS] 2245. (sre->ssre (quote (: bos ($ (+ numeric)) (+ space) #\I #\N (+ space) #\S #\O #\A (+ space) ($ (+ (~ space))) (+ space) ($ (+ (~ space))) (* space) #\( (* space) eos))) .......... [PASS] 2246. (sre->ssre (quote (: bos (or (char-range #\a #\z) (char-range #\A #\Z) numeric) (* (or (char-range #\a #\z) (char-range #\A #\Z) numeric #\-)) (* ($ (: #\. (or (char-range #\a #\z) (char-range #\A #\Z) numeric) (* (or (char-range #\a #\z) (char-range #\A #\Z) numeric #\-))))) #\. eos))) .......... [PASS] 2247. (sre->ssre (quote (: bos #\* #\. (char-range #\a #\z) (? ($ (: (* (or (char-range #\a #\z) #\- numeric)) (+ (or (char-range #\a #\z) numeric))))) (* ($ (: #\. (char-range #\a #\z) (? ($ (: (* (or (char-range #\a #\z) #\- numeric)) (+ (or (char-range #\a #\z) numeric)))))))) eos))) .......... [PASS] 2248. (sre->ssre (quote (: bos (look-ahead (: #\a #\b ($ (: #\d #\e)))) ($ (: #\a #\b #\d)) ($ #\e)))) .......... [PASS] 2249. (sre->ssre (quote (: bos (neg-look-ahead (or (: ($ (: #\a #\b)) #\d #\e) #\x)) ($ (: #\a #\b #\d)) ($ #\f)))) .......... [PASS] 2250. (sre->ssre (quote (: bos (look-ahead ($ (: #\a #\b ($ (: #\c #\d))))) ($ (: #\a #\b))))) .......... [PASS] 2251. (sre->ssre (quote (: bos eos))) .......... [PASS] 2252. (sre->ssre (quote (: bos #\a #\space #\b (or #\c #\space) #\d eos))) .......... [PASS] 2253. (sre->ssre (quote (: bos ($ (: #\a ($ (: #\b ($ #\c))))) ($ (: #\d ($ (: #\e ($ #\f))))) ($ (: #\h ($ (: #\i ($ #\j))))) ($ (: #\k ($ (: #\l ($ #\m))))) eos))) .......... [PASS] 2254. (sre->ssre (quote (: bos (: #\a ($ (: #\b ($ #\c)))) (: #\d ($ (: #\e ($ #\f)))) (: #\h ($ (: #\i ($ #\j)))) (: #\k ($ (: #\l ($ #\m)))) eos))) .......... [PASS] 2255. (sre->ssre (quote (: bos (+ (or #\. #\^ #\$ #\| #\( #\) #\* #\+ #\? #\{ #\, #\}))))) .......... [PASS] 2256. (sre->ssre (quote (: bos (* #\a) (or alnum #\_)))) .......... [PASS] 2257. (sre->ssre (quote (: bos (*? #\a) (or alnum #\_)))) .......... [PASS] 2258. (sre->ssre (quote (: bos (+ #\a) (or alnum #\_)))) .......... [PASS] 2259. (sre->ssre (quote (: bos (**? 1 #f #\a) (or alnum #\_)))) .......... [PASS] 2260. (sre->ssre (quote (: bos (= 8 numeric) (>= 2 (or alnum #\_))))) .......... [PASS] 2261. (sre->ssre (quote (: bos (** 4 5 (or #\a #\e #\i #\o #\u numeric)) eos))) .......... [PASS] 2262. (sre->ssre (quote (: bos (**? 4 5 (or #\a #\e #\i #\o #\u numeric))))) .......... [PASS] 2263. (sre->ssre (quote (: bos #\1 #\2 nonl #\3 #\4))) .......... [PASS] 2264. (sre->ssre (quote (: #\f #\o #\o (neg-look-ahead (: #\b #\a #\r)) ($ (* nonl))))) .......... [PASS] 2265. (sre->ssre (quote (: (or (: (neg-look-ahead (: #\f #\o #\o)) nonl nonl nonl) (: bos (** 0 2 nonl))) #\b #\a #\r ($ (* nonl))))) .......... [PASS] 2266. (sre->ssre (quote (: bos ($ (* (~ numeric))) (look-ahead numeric) (neg-look-ahead (: #\1 #\2 #\3))))) .......... [PASS] 2267. (sre->ssre (quote (: (neg-look-ahead bos) #\a #\b #\c))) .......... [PASS] 2268. (sre->ssre (quote (: (look-ahead bos) #\a #\b #\c))) .......... [PASS] 2269. (sre->ssre (quote (: #\a (** 1 3 #\b) #\b #\c))) .......... [PASS] 2270. (sre->ssre (quote (: ($ (* (~ #\.))) #\. ($ (* (~ #\:))) #\: (+ (or #\T #\space)) ($ (* nonl))))) .......... [PASS] 2271. (sre->ssre (quote (: bos (+ (char-range #\W #\c)) eos))) .......... [PASS] 2272. (sre->ssre (quote (: bos #\a #\b #\c eos))) .......... [PASS] 2273. (sre->ssre (quote (: bos #\a #\b #\c eos))) .......... [PASS] 2274. (sre->ssre (quote (: bos #\a #\b #\c (: (? #\newline) eos)))) .......... [PASS] 2275. (sre->ssre (quote (: bos (* ($ nonl)) (: (? #\newline) eos)))) .......... [PASS] 2276. (sre->ssre (quote (or #\b (+ #\:)))) .......... [PASS] 2277. (sre->ssre (quote (+ (or #\- #\a #\z)))) .......... [PASS] 2278. (sre->ssre (quote (+ (or #\a #\z #\-)))) .......... [PASS] 2279. (sre->ssre (quote (+ (or #\a #\- #\z)))) .......... [PASS] 2280. (sre->ssre (quote (+ (char-range #\a #\z)))) .......... [PASS] 2281. (sre->ssre (quote (+ (or numeric #\-)))) .......... [PASS] 2282. (sre->ssre (quote (: #\a #\b #\c eos))) .......... [PASS] 2283. (sre->ssre (quote (: (= 0 #\a) #\b #\c))) .......... [PASS] 2284. (sre->ssre (quote (: (**? 0 0 ($ (or #\a ($ (: #\b #\c))))) #\x #\y #\z))) .......... [PASS] 2285. (sre->ssre (quote (~ #\a))) .......... [PASS] 2286. (sre->ssre (quote (+ (~ #\a)))) .......... [PASS] 2287. (sre->ssre (quote (+ (~ #\a)))) .......... [PASS] 2288. (sre->ssre (quote (: (~ #\k) eos))) .......... [PASS] 2289. (sre->ssre (quote (: (** 2 3 (~ #\k)) eos))) .......... [PASS] 2290. (sre->ssre (quote (: bos (>= 8 numeric) #\@ (+ nonl) (~ #\k) eos))) .......... [PASS] 2291. (sre->ssre (quote (~ #\a))) .......... [PASS] 2292. (sre->ssre (quote (~ (or #\a #\z)))) .......... [PASS] 2293. (sre->ssre (quote (: #\P (~ #\*) #\T #\A #\I #\R #\E (**? 1 6 (~ #\*)) #\L #\L))) .......... [PASS] 2294. (sre->ssre (quote (: #\P (~ #\*) #\T #\A #\I #\R #\E (**? 1 #f (~ #\*)) #\L #\L))) .......... [PASS] 2295. (sre->ssre (quote (: ($ (: #\. numeric numeric (? (char-range #\1 #\9)))) (+ numeric)))) .......... [PASS] 2296. (sre->ssre (quote ($ (: #\. numeric numeric ($ (or (look-ahead #\0) (: numeric (look-ahead numeric)))))))) .......... [PASS] 2297. (sre->ssre (quote (: #\f #\o #\o ($ (* nonl)) #\b #\a #\r))) .......... [PASS] 2298. (sre->ssre (quote (: #\f #\o #\o ($ (*? nonl)) #\b #\a #\r))) .......... [PASS] 2299. (sre->ssre (quote (: ($ (* nonl)) ($ (+ numeric))))) .......... [PASS] 2300. (sre->ssre (quote (: ($ (*? nonl)) ($ (+ numeric))))) .......... [PASS] 2301. (sre->ssre (quote (: ($ (* nonl)) ($ (+ numeric)) eos))) .......... [PASS] 2302. (sre->ssre (quote (: ($ (*? nonl)) ($ (+ numeric)) eos))) .......... [PASS] 2303. (sre->ssre (quote (: ($ (* nonl)) (or bow eow) ($ (+ numeric)) eos))) .......... [PASS] 2304. (sre->ssre (quote (: ($ (: (* nonl) (~ numeric))) ($ (+ numeric)) eos))) .......... [PASS] 2305. (sre->ssre (quote (: bos (* (~ numeric)) (neg-look-ahead (: #\1 #\2 #\3))))) .......... [PASS] 2306. (sre->ssre (quote (: bos ($ (* (~ numeric))) (look-ahead numeric) (neg-look-ahead (: #\1 #\2 #\3))))) .......... [PASS] 2307. (sre->ssre (quote (: bos (or (char-range #\W #\]) #\4 #\6)))) .......... [PASS] 2308. (sre->ssre (quote (: #\w #\o #\r #\d #\space (** 0 10 (: (+ (or (char-range #\a #\z) (char-range #\A #\Z) (char-range #\0 #\9))) #\space)) #\o #\t #\h #\e #\r #\w #\o #\r #\d))) .......... [PASS] 2309. (sre->ssre (quote (: #\w #\o #\r #\d #\space (** 0 300 (: (+ (or (char-range #\a #\z) (char-range #\A #\Z) (char-range #\0 #\9))) #\space)) #\o #\t #\h #\e #\r #\w #\o #\r #\d))) .......... [PASS] 2310. (sre->ssre (quote (: bos (= 0 ($ #\a))))) .......... [PASS] 2311. (sre->ssre (quote (: bos (** 0 1 ($ #\a))))) .......... [PASS] 2312. (sre->ssre (quote (: bos (** 0 2 ($ #\a))))) .......... [PASS] 2313. (sre->ssre (quote (: bos (** 0 3 ($ #\a))))) .......... [PASS] 2314. (sre->ssre (quote (: bos (>= 0 ($ #\a))))) .......... [PASS] 2315. (sre->ssre (quote (: bos (= 1 ($ #\a))))) .......... [PASS] 2316. (sre->ssre (quote (: bos (** 1 2 ($ #\a))))) .......... [PASS] 2317. (sre->ssre (quote (: bos (** 1 3 ($ #\a))))) .......... [PASS] 2318. (sre->ssre (quote (: bos (>= 1 ($ #\a))))) .......... [PASS] 2319. (sre->ssre (quote (: (* nonl) #\. #\g #\i #\f))) .......... [PASS] 2320. (sre->ssre (quote (: (>= 0 nonl) #\. #\g #\i #\f))) .......... [PASS] 2321. (sre->ssre (quote (: (* nonl) eos))) .......... [PASS] 2322. (sre->ssre (quote ($ (or (: (* nonl) #\X) (: bos #\B))))) .......... [PASS] 2323. (sre->ssre (quote (: bos (* nonl) #\B))) .......... [PASS] 2324. (sre->ssre (quote (: bol (* nonl) #\B))) .......... [PASS] 2325. (sre->ssre (quote (: bos (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9) (char-range #\0 #\9)))) .......... [PASS] 2326. (sre->ssre (quote (: bos numeric numeric numeric numeric numeric numeric numeric numeric numeric numeric numeric numeric))) .......... [PASS] 2327. (sre->ssre (quote (: bos (= 12 (or #\a #\b #\c))))) .......... [PASS] 2328. (sre->ssre (quote (: bos (= 12 (char-range #\a #\c))))) .......... [PASS] 2329. (sre->ssre (quote (: bos (= 12 ($ (or #\a #\b #\c)))))) .......... [PASS] 2330. (sre->ssre (quote (: bos (or #\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)))) .......... [PASS] 2331. (sre->ssre (quote (: #\a #\b #\c #\d (= 0 #\e)))) .......... [PASS] 2332. (sre->ssre (quote (: #\a #\b (= 0 (or #\c #\d)) #\e))) .......... [PASS] 2333. (sre->ssre (quote (: #\a #\b (= 0 ($ #\c)) #\d))) .......... [PASS] 2334. (sre->ssre (quote (: #\a ($ (* #\b))))) .......... [PASS] 2335. (sre->ssre (quote (: #\a #\b (= 0 numeric) #\e))) .......... [PASS] 2336. (sre->ssre (quote (: #\" (* ($ (or (+ (~ (or #\\ #\"))) (: #\\ nonl)))) #\"))) .......... [PASS] 2337. (sre->ssre (quote (*? nonl))) .......... [PASS] 2338. (sre->ssre (quote (or bow eow))) .......... [PASS] 2339. (sre->ssre (quote (or bow eow))) .......... [PASS] 2340. (sre->ssre (quote (: #\a (~ #\a) #\b))) .......... [PASS] 2341. (sre->ssre (quote (: #\a nonl #\b))) .......... [PASS] 2342. (sre->ssre (quote (: #\a (~ #\a) #\b))) .......... [PASS] 2343. (sre->ssre (quote (: #\a nonl #\b))) .......... [PASS] 2344. (sre->ssre (quote (: bos (**? 1 2 ($ (or (**? 1 #f #\b) #\a))) #\c))) .......... [PASS] 2345. (sre->ssre (quote (: bos (**? 1 2 ($ (or (+ #\b) #\a))) #\c))) .......... [PASS] 2346. (sre->ssre (quote (: (neg-look-ahead bos) #\x))) .......... [PASS] 2347. (sre->ssre (quote (: (* ($ (or #\A #\B))) #\C #\D))) .......... [PASS] 2348. (sre->ssre (quote (: (neg-look-behind (: #\b #\a #\r)) #\f #\o #\o))) .......... [PASS] 2349. (sre->ssre (quote (: (= 3 (or alnum #\_)) (neg-look-behind (: #\b #\a #\r)) #\f #\o #\o))) .......... [PASS] 2350. (sre->ssre (quote (: (look-behind (: ($ (: #\f #\o #\o)) #\a)) #\b #\a #\r))) .......... [PASS] 2351. (sre->ssre (quote (: bos #\a #\b #\c eos))) .......... [PASS] 2352. (sre->ssre (quote (: ($ (+ numeric)) ($ (or alnum #\_))))) .......... [PASS] 2353. (sre->ssre (quote (: (* ($ (or (+ #\a) (+ #\b) (+ #\c)))) #\c))) .......... [PASS] 2354. (sre->ssre (quote (* ($ (*? #\a))))) .......... [PASS] 2355. (sre->ssre (quote (* ($ (*? (or #\a #\b)))))) .......... [PASS] 2356. (sre->ssre (quote (* ($ (*? (~ #\a)))))) .......... [PASS] 2357. (sre->ssre (quote (* ($ (*? (~ (or #\a #\b))))))) .......... [PASS] 2358. (sre->ssre (quote (: (look-behind (: (neg-look-behind (: #\f #\o #\o)) #\b #\a #\r)) #\b #\a #\z))) .......... [PASS] 2359. (sre->ssre (quote (: #\a #\b #\c))) .......... [PASS] 2360. (sre->ssre (quote (: #\a (* #\b) #\c))) .......... [PASS] 2361. (sre->ssre (quote (: #\a (* #\b) #\b #\c))) .......... [PASS] 2362. (sre->ssre (quote (= 1 nonl))) .......... [PASS] 2363. (sre->ssre (quote (** 3 4 nonl))) .......... [PASS] 2364. (sre->ssre (quote (: #\a (>= 0 #\b) #\b #\c))) .......... [PASS] 2365. (sre->ssre (quote (: #\a (+ #\b) #\b #\c))) .......... [PASS] 2366. (sre->ssre (quote (: #\a (+ #\b) #\b #\c))) .......... [PASS] 2367. (sre->ssre (quote (: #\a (>= 1 #\b) #\b #\c))) .......... [PASS] 2368. (sre->ssre (quote (: #\a (** 1 3 #\b) #\b #\c))) .......... [PASS] 2369. (sre->ssre (quote (: #\a (** 3 4 #\b) #\b #\c))) .......... [PASS] 2370. (sre->ssre (quote (: #\a (** 4 5 #\b) #\b #\c))) .......... [PASS] 2371. (sre->ssre (quote (: #\a (? #\b) #\b #\c))) .......... [PASS] 2372. (sre->ssre (quote (: #\a (** 0 1 #\b) #\b #\c))) .......... [PASS] 2373. (sre->ssre (quote (: #\a (? #\b) #\b #\c))) .......... [PASS] 2374. (sre->ssre (quote (: #\a (? #\b) #\c))) .......... [PASS] 2375. (sre->ssre (quote (: #\a (** 0 1 #\b) #\c))) .......... [PASS] 2376. (sre->ssre (quote (: bos #\a #\b #\c eos))) .......... [PASS] 2377. (sre->ssre (quote (: bos #\a #\b #\c))) .......... [PASS] 2378. (sre->ssre (quote (: bos #\a #\b #\c eos))) .......... [PASS] 2379. (sre->ssre (quote (: #\a #\b #\c eos))) .......... [PASS] 2380. (sre->ssre (quote bos)) .......... [PASS] 2381. (sre->ssre (quote eos)) .......... [PASS] 2382. (sre->ssre (quote (: #\a nonl #\c))) .......... [PASS] 2383. (sre->ssre (quote (: #\a (* nonl) #\c))) .......... [PASS] 2384. (sre->ssre (quote (: #\a (or #\b #\c) #\d))) .......... [PASS] 2385. (sre->ssre (quote (: #\a (char-range #\b #\d) #\e))) .......... [PASS] 2386. (sre->ssre (quote (: #\a (char-range #\b #\d)))) .......... [PASS] 2387. (sre->ssre (quote (: #\a (or #\- #\b)))) .......... [PASS] 2388. (sre->ssre (quote (: #\a (or #\b #\-)))) .......... [PASS] 2389. (sre->ssre (quote (: #\a #\] #\b))) .......... [PASS] 2390. (sre->ssre (quote (: #\a (~ (or #\b #\c)) #\d))) .......... [PASS] 2391. (sre->ssre (quote (: #\a (~ (or #\- #\b)) #\c))) .......... [PASS] 2392. (sre->ssre (quote (: #\a (~ (or #\] #\b)) #\c))) .......... [PASS] 2393. (sre->ssre (quote (: (or bow eow) #\a (or bow eow)))) .......... [PASS] 2394. (sre->ssre (quote (: (or bow eow) #\y (or bow eow)))) .......... [PASS] 2395. (sre->ssre (quote (: nwb #\a nwb))) .......... [PASS] 2396. (sre->ssre (quote (: nwb #\y (or bow eow)))) .......... [PASS] 2397. (sre->ssre (quote (: (or bow eow) #\y nwb))) .......... [PASS] 2398. (sre->ssre (quote (: nwb #\y nwb))) .......... [PASS] 2399. (sre->ssre (quote (or alnum #\_))) .......... [PASS] 2400. (sre->ssre (quote (~ (or alnum #\_)))) .......... [PASS] 2401. (sre->ssre (quote (: #\a space #\b))) .......... [PASS] 2402. (sre->ssre (quote (: #\a (~ space) #\b))) .......... [PASS] 2403. (sre->ssre (quote numeric)) .......... [PASS] 2404. (sre->ssre (quote (~ numeric))) .......... [PASS] 2405. (sre->ssre (quote (or (: #\a #\b) (: #\c #\d)))) .......... [PASS] 2406. (sre->ssre (quote (: ($ (:)) #\e #\f))) .......... [PASS] 2407. (sre->ssre (quote (: eos #\b))) .......... [PASS] 2408. (sre->ssre (quote (: #\a #\( #\b))) .......... [PASS] 2409. (sre->ssre (quote (: #\a (* #\() #\b))) .......... [PASS] 2410. (sre->ssre (quote (: #\a #\\ #\b))) .......... [PASS] 2411. (sre->ssre (quote ($ ($ #\a)))) .......... [PASS] 2412. (sre->ssre (quote (: ($ #\a) #\b ($ #\c)))) .......... [PASS] 2413. (sre->ssre (quote (: (+ #\a) (+ #\b) #\c))) .......... [PASS] 2414. (sre->ssre (quote (: (>= 1 #\a) (>= 1 #\b) #\c))) .......... [PASS] 2415. (sre->ssre (quote (: #\a (**? 1 #f nonl) #\c))) .......... [PASS] 2416. (sre->ssre (quote (* ($ (or (+ #\a) #\b))))) .......... [PASS] 2417. (sre->ssre (quote (>= 0 ($ (or (+ #\a) #\b))))) .......... [PASS] 2418. (sre->ssre (quote (+ ($ (or (+ #\a) #\b))))) .......... [PASS] 2419. (sre->ssre (quote (>= 1 ($ (or (+ #\a) #\b))))) .......... [PASS] 2420. (sre->ssre (quote (? ($ (or (+ #\a) #\b))))) .......... [PASS] 2421. (sre->ssre (quote (** 0 1 ($ (or (+ #\a) #\b))))) .......... [PASS] 2422. (sre->ssre (quote (* (~ (or #\a #\b))))) .......... [PASS] 2423. (sre->ssre (quote (: #\a #\b #\c))) .......... [PASS] 2424. (sre->ssre (quote (* #\a))) .......... [PASS] 2425. (sre->ssre (quote (: (* ($ (or #\a #\b #\c))) #\d))) .......... [PASS] 2426. (sre->ssre (quote (: (* ($ (or #\a #\b #\c))) #\b #\c #\d))) .......... [PASS] 2427. (sre->ssre (quote (or #\a #\b #\c #\d #\e))) .......... [PASS] 2428. (sre->ssre (quote (: ($ (or #\a #\b #\c #\d #\e)) #\f))) .......... [PASS] 2429. (sre->ssre (quote (: #\a #\b #\c (* #\d) #\e #\f #\g))) .......... [PASS] 2430. (sre->ssre (quote (: #\a (* #\b)))) .......... [PASS] 2431. (sre->ssre (quote (: ($ (or (: #\a #\b) (: #\c #\d))) #\e))) .......... [PASS] 2432. (sre->ssre (quote (: (or #\a #\b #\h #\g #\e #\f #\d #\c) #\i #\j))) .......... [PASS] 2433. (sre->ssre (quote (: bos ($ (or (: #\a #\b) (: #\c #\d))) #\e))) .......... [PASS] 2434. (sre->ssre (quote (: ($ (or (: #\a #\b #\c) (:))) #\e #\f))) .......... [PASS] 2435. (sre->ssre (quote (: ($ (or #\a #\b)) (* #\c) #\d))) .......... [PASS] 2436. (sre->ssre (quote (: ($ (or (: #\a #\b) (: #\a (* #\b)))) #\b #\c))) .......... [PASS] 2437. (sre->ssre (quote (: #\a ($ (* (or #\b #\c))) (* #\c)))) .......... [PASS] 2438. (sre->ssre (quote (: #\a ($ (* (or #\b #\c))) ($ (: (* #\c) #\d))))) .......... [PASS] 2439. (sre->ssre (quote (: #\a ($ (+ (or #\b #\c))) ($ (: (* #\c) #\d))))) .......... [PASS] 2440. (sre->ssre (quote (: #\a ($ (* (or #\b #\c))) ($ (: (+ #\c) #\d))))) .......... [PASS] 2441. (sre->ssre (quote (: #\a (* (or #\b #\c #\d)) #\d #\c #\d #\c #\d #\e))) .......... [PASS] 2442. (sre->ssre (quote (: #\a (+ (or #\b #\c #\d)) #\d #\c #\d #\c #\d #\e))) .......... [PASS] 2443. (sre->ssre (quote (: ($ (or (: #\a #\b) #\a)) (* #\b) #\c))) .......... [PASS] 2444. (sre->ssre (quote (: ($ (: ($ #\a) ($ #\b) #\c)) ($ #\d)))) .......... [PASS] 2445. (sre->ssre (quote (: (or (char-range #\a #\z) (char-range #\A #\Z) #\_) (* (or (char-range #\a #\z) (char-range #\A #\Z) (char-range #\0 #\9) #\_))))) .......... [PASS] 2446. (sre->ssre (quote (or (: bos #\a ($ (or (: #\b (+ #\c)) (: #\b (or #\e #\h)))) #\g) (: nonl #\h eos)))) .......... [PASS] 2447. (sre->ssre (quote ($ (or (: #\b (+ #\c) #\d eos) (: #\e (* #\f) #\g nonl) (: (? #\h) #\i ($ (or #\j #\k))))))) .......... [PASS] 2448. (sre->ssre (quote ($ ($ ($ ($ ($ ($ ($ ($ ($ ($ #\a)))))))))))) .......... [PASS] 2449. (sre->ssre (quote ($ ($ ($ ($ ($ ($ ($ ($ ($ #\a))))))))))) .......... [PASS] 2450. (sre->ssre (quote (: #\m #\u #\l #\t #\i #\p #\l #\e #\space #\w #\o #\r #\d #\s #\space #\o #\f #\space #\t #\e #\x #\t))) .......... [PASS] 2451. (sre->ssre (quote (: #\m #\u #\l #\t #\i #\p #\l #\e #\space #\w #\o #\r #\d #\s))) .......... [PASS] 2452. (sre->ssre (quote (: ($ (* nonl)) #\c ($ (* nonl))))) .......... [PASS] 2453. (sre->ssre (quote (: #\( ($ (* nonl)) #\, #\space ($ (* nonl)) #\)))) .......... [PASS] 2454. (sre->ssre (quote #\k)) .......... [PASS] 2455. (sre->ssre (quote (: #\a #\b #\c #\d))) .......... [PASS] 2456. (sre->ssre (quote (: #\a ($ (: #\b #\c)) #\d))) .......... [PASS] 2457. (sre->ssre (quote (: #\a (? #\-) #\c))) .......... [PASS] 2458. (sre->ssre (quote (: #\a (neg-look-ahead #\b) nonl))) .......... [PASS] 2459. (sre->ssre (quote (: #\a (look-ahead #\d) nonl))) .......... [PASS] 2460. (sre->ssre (quote (: #\a (look-ahead (or #\c #\d)) nonl))) .......... [PASS] 2461. (sre->ssre (quote (: #\a (or #\b #\c #\d) ($ nonl)))) .......... [PASS] 2462. (sre->ssre (quote (: #\a (* (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 2463. (sre->ssre (quote (: #\a (**? 1 #f (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 2464. (sre->ssre (quote (: #\a (+ (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 2465. (sre->ssre (quote (: #\a (= 2 (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 2466. (sre->ssre (quote (: #\a (** 4 5 (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 2467. (sre->ssre (quote (: #\a (**? 4 5 (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 2468. (sre->ssre (quote (* ($ (or ($ (: #\f #\o #\o)) ($ (: #\b #\a #\r))))))) .......... [PASS] 2469. (sre->ssre (quote (: #\a (** 6 7 (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 2470. (sre->ssre (quote (: #\a (**? 6 7 (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 2471. (sre->ssre (quote (: #\a (** 5 6 (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 2472. (sre->ssre (quote (: #\a (**? 5 6 (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 2473. (sre->ssre (quote (: #\a (** 5 7 (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 2474. (sre->ssre (quote (: #\a (**? 5 7 (or #\b #\c #\d)) ($ nonl)))) .......... [PASS] 2475. (sre->ssre (quote (: #\a (**? 1 #f (or #\b (**? 1 2 ($ (or #\c #\e))) #\d)) ($ nonl)))) .......... [PASS] 2476. (sre->ssre (quote (: bos (? ($ (+ nonl))) #\B))) .......... [PASS] 2477. (sre->ssre (quote (or (: bos ($ (~ (char-range #\a #\z)))) (: ($ #\^) eos)))) .......... [PASS] 2478. (sre->ssre (quote (: bos (or #\< #\>) #\&))) .......... [PASS] 2479. (sre->ssre (quote (* (or (: ($ #\f) ($ #\o) ($ #\o)) (: ($ #\b) ($ #\a) ($ #\r)))))) .......... [PASS] 2480. (sre->ssre (quote (: (look-behind #\a) #\b))) .......... [PASS] 2481. (sre->ssre (quote (: (neg-look-behind #\c) #\b))) .......... [PASS] 2482. (sre->ssre (quote (: (* (: nonl nonl)) #\a))) .......... [PASS] 2483. (sre->ssre (quote (: (*? (: nonl nonl)) #\a))) .......... [PASS] 2484. (sre->ssre (quote (: bos (** 3 5 ($ (:)))))) .......... [PASS] 2485. (sre->ssre (quote (: (* ($ (or #\a #\x))) #\a #\b))) .......... [PASS] 2486. (sre->ssre (quote (: (* ($ #\a)) #\a #\b))) .......... [PASS] 2487. (sre->ssre (quote (: (or #\c #\d) (:) (: #\a (:) #\b (: #\b (:)) (: #\b (:) #\b))))) .......... [PASS] 2488. (sre->ssre (quote (: (or #\c #\d) (:) (: #\a #\a #\a #\a #\a #\a #\a #\a (:) (: #\b #\b #\b #\b #\b #\b #\b #\b) (: #\b #\b #\b #\b #\b #\b #\b #\b (:)) (: #\b #\b #\b #\b #\b #\b #\b #\b (:) (: #\b #\b #\b #\b #\b #\b #\b #\b)))))) .......... [PASS] 2489. (sre->ssre (quote (: #\f #\o #\o (* (or alnum #\_)) (= 4 numeric) #\b #\a #\z))) .......... [PASS] 2490. (sre->ssre (quote (: #\x (* ($ (: #\~ #\~))) (?? #\F)))) .......... [PASS] 2491. (sre->ssre (quote (: #\x (* ($ (: #\~ #\~))) (? (? #\F))))) .......... [PASS] 2492. (sre->ssre (quote (: (neg-look-behind (or #\c #\d)) #\b))) .......... [PASS] 2493. (sre->ssre (quote (: (neg-look-behind (or #\c #\d)) (or #\a #\b)))) .......... [PASS] 2494. (sre->ssre (quote (: (neg-look-behind ($ (or #\c #\d))) #\b))) .......... [PASS] 2495. (sre->ssre (quote (: (neg-look-behind ($ (or #\c #\d))) (or #\a #\b)))) .......... [PASS] 2496. (sre->ssre (quote (: (neg-look-behind (: #\c #\d)) (or #\a #\b)))) .......... [PASS] 2497. (sre->ssre (quote (: bol #\b))) .......... [PASS] 2498. (sre->ssre (quote (: bol ($ #\b)))) .......... [PASS] 2499. (sre->ssre (quote (: bos #\b))) .......... [PASS] 2500. (sre->ssre (quote (: ($ (:)) bos #\b))) .......... [PASS] 2501. (sre->ssre (quote (+ ($ (: (+ (or alnum #\_)) #\:))))) .......... [PASS] 2502. (sre->ssre (quote (: eos (look-behind (: bos ($ #\a)))))) .......... [PASS] 2503. (sre->ssre (quote (: bos (* (~ (or #\b #\c #\d))) ($ (+ #\c))))) .......... [PASS] 2504. (sre->ssre (quote (: ($ (* #\a)) (+ #\b)))) .......... [PASS] 2505. (sre->ssre (quote (: (? ($ (: (+ (or (or alnum #\_) #\:))) #\: #\:)) ($ (+ (or alnum #\_))) eos))) .......... [PASS] 2506. (sre->ssre (quote (: bos (* (~ (or #\b #\c #\d))) ($ (+ #\c))))) .......... [PASS] 2507. (sre->ssre (quote (: ($ (: #\> (+ #\a))) #\a #\b))) .......... [PASS] 2508. (sre->ssre (quote (: #\a eos))) .......... [PASS] 2509. (sre->ssre (quote (: (look-behind (: (= 3 numeric) (neg-look-ahead (: #\9 #\9 #\9)))) #\f #\o #\o))) .......... [PASS] 2510. (sre->ssre (quote (: (look-behind (: (neg-look-ahead (: nonl nonl nonl #\9 #\9 #\9)) (= 3 numeric))) #\f #\o #\o))) .......... [PASS] 2511. (sre->ssre (quote (: (look-behind (: (= 3 numeric) (neg-look-ahead (: #\9 #\9 #\9)) nonl nonl nonl)) #\f #\o #\o))) .......... [PASS] 2512. (sre->ssre (quote (: (look-behind (: (= 3 numeric) nonl nonl nonl)) (neg-look-behind (: #\9 #\9 #\9)) #\f #\o #\o))) .......... [PASS] 2513. (sre->ssre (quote (* ($ (or (+ ($ #\Z)) #\A))))) .......... [PASS] 2514. (sre->ssre (quote (* ($ (or (: #\Z ($ (:))) #\A))))) .......... [PASS] 2515. (sre->ssre (quote (* ($ (or (: #\Z ($ ($ (:)))) #\A))))) .......... [PASS] 2516. (sre->ssre (quote (* #\a))) .......... [PASS] 2517. (sre->ssre (quote (+ space))) .......... [PASS] 2518. (sre->ssre (quote (: (neg-look-ahead bos) #\x))) .......... [PASS] 2519. (sre->ssre (quote (: #\a #\b #\c nonl))) .......... [PASS] 2520. (sre->ssre (quote (: #\a (: #\b #\c) #\d))) .......... [PASS] 2521. (sre->ssre (quote (: (look-behind #\Z) #\X nonl))) .......... [PASS] 2522. (sre->ssre (quote (: (look-behind (or #\a (: #\b #\b #\b #\b))) #\c))) .......... [PASS] 2523. (sre->ssre (quote (: #\1 #\2 #\3 #\4))) .......... [PASS] 2524. (sre->ssre (quote bos)) .......... [PASS] 2525. (sre->ssre (quote (: (look-behind (: #\C #\newline)) bos))) .......... [PASS] 2526. (sre->ssre (quote (: (? #\A) #\B))) .......... [PASS] 2527. (sre->ssre (quote (: (* #\A) #\B))) .......... [PASS] 2528. (sre->ssre (quote (: (+ (or alnum #\_)) ($ nonl) (? ($ nonl)) #\d #\e #\f))) .......... [PASS] 2529. (sre->ssre (quote (: (+ nonl) #\f #\o #\o))) .......... [PASS] 2530. (sre->ssre (quote (: (+ nonl) #\f #\o #\o))) .......... [PASS] 2531. (sre->ssre (quote (: bos #\X))) .......... [PASS] 2532. (sre->ssre (quote (or (: #\a (neg-look-ahead (:))) (: (or alnum #\_) #\b #\c)))) .......... [PASS] 2533. (sre->ssre (quote (: #\X eos))) .......... [PASS] 2534. (sre->ssre (quote (or (: (+ numeric) #\X) (: (+ #\9) #\Y)))) .......... [PASS] 2535. (sre->ssre (quote (: #\Z (neg-look-ahead (:))))) .......... [PASS] 2536. (sre->ssre (quote (: #\d #\o #\g (? ($ (: #\s #\b #\o #\d #\y)))))) .......... [PASS] 2537. (sre->ssre (quote (: #\d #\o #\g (?? ($ (: #\s #\b #\o #\d #\y)))))) .......... [PASS] 2538. (sre->ssre (quote (or (: #\d #\o #\g) (: #\d #\o #\g #\s #\b #\o #\d #\y)))) .......... [PASS] 2539. (sre->ssre (quote (or (: #\d #\o #\g #\s #\b #\o #\d #\y) (: #\d #\o #\g)))) .......... [PASS] 2540. (sre->ssre (quote (: (or bow eow) #\t #\h #\e #\space #\c #\a #\t (or bow eow)))) .......... [PASS] 2541. (sre->ssre (quote (: #\d #\o #\g (? ($ (: #\s #\b #\o #\d #\y)))))) .......... [PASS] 2542. (sre->ssre (quote (: #\d #\o #\g (? ($ (: #\s #\b #\o #\d #\y)))))) .......... [PASS] 2543. (sre->ssre (quote (: #\a #\b #\c))) .......... [PASS] 2544. (sre->ssre (quote (: (look-behind (: #\a #\b #\c)) #\1 #\2 #\3))) .......... [PASS] 2545. (sre->ssre (quote (: (or bow eow) #\a #\b #\c (or bow eow)))) .......... [PASS] 2546. (sre->ssre (quote (look-ahead #\C))) .......... [PASS] 2547. (sre->ssre (quote (: #\a #\b #\c (* #\d)))) .......... [PASS] 2548. (sre->ssre (quote (: #\a #\b #\c (* numeric)))) .......... [PASS] 2549. (sre->ssre (quote (: #\a #\b #\c (* (or #\d #\e))))) .......... [PASS] 2550. (sre->ssre (quote (: (look-behind (: #\a #\b #\c)) #\d #\e #\f))) .......... [PASS] 2551. (sre->ssre (quote (: #\a #\b #\c eos))) .......... [PASS] 2552. (sre->ssre (quote (: #\a #\b #\c (or bow eow)))) .......... [PASS] 2553. (sre->ssre (quote (: #\a #\b #\c nwb))) .......... [PASS] 2554. (sre->ssre (quote (+ nonl))) .......... [PASS] 2555. (sre->ssre (quote (: (= 3 (look-ahead (: #\a #\b #\c))) #\a #\b #\c))) .......... [PASS] 2556. (sre->ssre (quote (: (= 0 (look-ahead (: #\a #\b #\c))) #\x #\y #\z))) .......... [PASS] 2557. (sre->ssre (quote (: (= 1 (look-ahead (: #\a #\b #\c))) #\x #\y #\z))) .......... [PASS] 2558. (sre->ssre (quote (: (? (look-ahead ($ #\a))) nonl))) .......... [PASS] 2559. (sre->ssre (quote (: (?? (look-ahead ($ #\a))) nonl))) .......... [PASS] 2560. (sre->ssre (quote (: bos (= 0 (neg-look-ahead #\a)) (+ (or alnum #\_))))) .......... [PASS] 2561. (sre->ssre (quote (: (? (look-behind ($ (: #\a #\b #\c)))) #\x #\y #\z))) .......... [PASS] 2562. (sre->ssre (quote (: #\a #\b #\c #\d #\e #\f))) .......... [PASS] 2563. (sre->ssre (quote (: #\a #\b #\c #\d))) .......... [PASS] 2564. (sre->ssre (quote (* (or #\a #\b)))) .......... [PASS] 2565. (sre->ssre (quote (*? (or #\a #\b)))) .......... [PASS] 2566. (sre->ssre (quote (? (or #\a #\b)))) .......... [PASS] 2567. (sre->ssre (quote (?? (or #\a #\b)))) .......... [PASS] 2568. (sre->ssre (quote (+ (or #\a #\b)))) .......... [PASS] 2569. (sre->ssre (quote (**? 1 #f (or #\a #\b)))) .......... [PASS] 2570. (sre->ssre (quote (** 2 3 (or #\a #\b)))) .......... [PASS] 2571. (sre->ssre (quote (**? 2 3 (or #\a #\b)))) .......... [PASS] 2572. (sre->ssre (quote (>= 2 (or #\a #\b)))) .......... [PASS] 2573. (sre->ssre (quote (**? 2 #f (or #\a #\b)))) .......... [PASS] 2574. (sre->ssre (quote (: #\a #\b #\c (look-ahead (: #\x #\y #\z))))) .......... [PASS] 2575. (sre->ssre (quote (: (look-behind (: #\p #\q #\r)) #\a #\b #\c (look-ahead (: #\x #\y #\z))))) .......... [PASS] 2576. (sre->ssre (quote (: #\a (or bow eow)))) .......... [PASS] 2577. (sre->ssre (quote (: #\a #\b #\c (look-ahead (: #\a #\b #\c #\d #\e)) (look-ahead (: #\a #\b))))) .......... [PASS] 2578. (sre->ssre (quote (: (*? #\a) (*? #\b)))) .......... [PASS] 2579. (sre->ssre (quote (or (: ($ #\a) ($ #\b)) ($ #\c)))) .......... [PASS] 2580. (sre->ssre (quote (-> A (: #\a #\a)))) .......... [PASS] 2581. (sre->ssre (quote (: #\a ($ #\b) #\c ($ #\d)))) .......... [PASS] 2582. (sre->ssre (quote bos)) .......... [PASS] 2583. (sre->ssre (quote (: (? ($ (: #\0 #\2 #\-))) (= 3 (char-range #\0 #\9)) #\- (= 3 (char-range #\0 #\9))))) .......... [PASS] 2584. (sre->ssre (quote (: #\a #\b #\c))) .......... [PASS] 2585. (sre->ssre (quote (: #\a #\b #\c))) .......... [PASS] 2586. (sre->ssre (quote (or (: #\a #\b #\c) (: #\b #\c #\d)))) .......... [PASS] 2587. (sre->ssre (quote (look-behind (or (: #\a #\b #\c) (:))))) .......... [PASS] 2588. (sre->ssre (quote (look-behind (or (: #\a #\b #\c) (:))))) .......... [PASS] 2589. (sre->ssre (quote (look-behind (or (:) (: #\a #\b #\c))))) .......... [PASS] 2590. (sre->ssre (quote (or #\a #\b #\c))) .......... [PASS] 2591. (sre->ssre (quote (: #\f #\o #\o #\b #\a #\r))) .......... [PASS] 2592. (sre->ssre (quote (: #\f #\o #\o #\b #\a #\r))) .......... [PASS] 2593. (sre->ssre (quote (: (look-behind (: #\p #\q #\r)) #\a #\b #\c (look-ahead (: #\x #\y #\z))))) .......... [PASS] 2594. (sre->ssre (quote eos)) .......... [PASS] 2595. (sre->ssre (quote (: (? #\newline) eos))) .......... [PASS] 2596. (sre->ssre (quote (look-behind (look-ahead (: nonl (look-behind #\x)))))) .......... [PASS] 2597. (sre->ssre (quote (: (neg-look-ahead (or #\a #\b)) (* nonl)))) .......... [PASS] 2598. (sre->ssre (quote (or #\a #\[))) .......... [PASS] 2599. (sre->ssre (quote (: (or bow eow) #\X))) .......... [PASS] 2600. (sre->ssre (quote (: nwb #\X))) .......... [PASS] 2601. (sre->ssre (quote (: #\X (or bow eow)))) .......... [PASS] 2602. (sre->ssre (quote (: #\X nwb))) .......... [PASS] 2603. (sre->ssre (quote (~ #\a))) .......... [PASS] 2604. (sre->ssre (quote (: #\a nonl #\b))) .......... [PASS] 2605. (sre->ssre (quote (: #\a ($ (= 3 nonl)) #\b))) .......... [PASS] 2606. (sre->ssre (quote (: #\a ($ (*? nonl)) ($ nonl)))) .......... [PASS] 2607. (sre->ssre (quote (: #\a ($ (*? nonl)) ($ nonl)))) .......... [PASS] 2608. (sre->ssre (quote (: #\a ($ (* nonl)) ($ nonl)))) .......... [PASS] 2609. (sre->ssre (quote (: #\a ($ (* nonl)) ($ nonl)))) .......... [PASS] 2610. (sre->ssre (quote (: #\a ($ nonl) ($ nonl)))) .......... [PASS] 2611. (sre->ssre (quote (: #\a ($ nonl) ($ nonl)))) .......... [PASS] 2612. (sre->ssre (quote (: #\a ($ (? nonl)) ($ nonl)))) .......... [PASS] 2613. (sre->ssre (quote (: #\a ($ (? nonl)) ($ nonl)))) .......... [PASS] 2614. (sre->ssre (quote (: #\a ($ (?? nonl)) ($ nonl)))) .......... [PASS] 2615. (sre->ssre (quote (: #\a ($ (?? nonl)) ($ nonl)))) .......... [PASS] 2616. (sre->ssre (quote (: #\a ($ (= 3 nonl)) #\b))) .......... [PASS] 2617. (sre->ssre (quote (: #\a ($ (>= 3 nonl)) #\b))) .......... [PASS] 2618. (sre->ssre (quote (: #\a ($ (**? 3 #f nonl)) #\b))) .......... [PASS] 2619. (sre->ssre (quote (: #\a ($ (** 3 5 nonl)) #\b))) .......... [PASS] 2620. (sre->ssre (quote (: #\a ($ (**? 3 5 nonl)) #\b))) .......... [PASS] 2621. (sre->ssre (quote (: (look-behind (: #\a #\X #\b)) #\c #\d))) .......... [PASS] 2622. (sre->ssre (quote (: (look-behind ($ nonl)) #\X))) .......... [PASS] 2623. (sre->ssre (quote (+ (~ #\a)))) .......... [PASS] 2624. (sre->ssre (quote (: bos (= 2 (~ #\a))))) .......... [PASS] 2625. (sre->ssre (quote (: bos (>= 2 (~ #\a))))) .......... [PASS] 2626. (sre->ssre (quote (: bos (**? 2 #f (~ #\a))))) .......... [PASS] 2627. (sre->ssre (quote (+ (~ #\a)))) .......... [PASS] 2628. (sre->ssre (quote (: bos (= 2 (~ #\a))))) .......... [PASS] 2629. (sre->ssre (quote (: bos (>= 2 (~ #\a))))) .......... [PASS] 2630. (sre->ssre (quote (: bos (**? 2 #f (~ #\a))))) .......... [PASS] 2631. (sre->ssre (quote (~ numeric))) .......... [PASS] 2632. (sre->ssre (quote (: #\> (~ space)))) .......... [PASS] 2633. (sre->ssre (quote numeric)) .......... [PASS] 2634. (sre->ssre (quote space)) .......... [PASS] 2635. (sre->ssre (quote (+ (~ numeric)))) .......... [PASS] 2636. (sre->ssre (quote (** 2 3 (~ numeric)))) .......... [PASS] 2637. (sre->ssre (quote (**? 2 3 (~ numeric)))) .......... [PASS] 2638. (sre->ssre (quote (+ numeric))) .......... [PASS] 2639. (sre->ssre (quote (** 2 3 numeric))) .......... [PASS] 2640. (sre->ssre (quote (**? 2 3 numeric))) .......... [PASS] 2641. (sre->ssre (quote (+ (~ space)))) .......... [PASS] 2642. (sre->ssre (quote (** 2 3 (~ space)))) .......... [PASS] 2643. (sre->ssre (quote (**? 2 3 (~ space)))) .......... [PASS] 2644. (sre->ssre (quote (: #\> (+ space) #\<))) .......... [PASS] 2645. (sre->ssre (quote (: #\> (** 2 3 space) #\<))) .......... [PASS] 2646. (sre->ssre (quote (: #\> (**? 2 3 space) #\<))) .......... [PASS] 2647. (sre->ssre (quote (+ (or alnum #\_)))) .......... [PASS] 2648. (sre->ssre (quote (** 2 3 (or alnum #\_)))) .......... [PASS] 2649. (sre->ssre (quote (**? 2 3 (or alnum #\_)))) .......... [PASS] 2650. (sre->ssre (quote (+ (~ (or alnum #\_))))) .......... [PASS] 2651. (sre->ssre (quote (** 2 3 (~ (or alnum #\_))))) .......... [PASS] 2652. (sre->ssre (quote (**? 2 3 (~ (or alnum #\_))))) .......... [PASS] 2653. (sre->ssre (quote (: bos (* (or #\a #\c)) #\b))) .......... [PASS] 2654. (sre->ssre (quote (: bos (* (~ #\x)) #\b))) .......... [PASS] 2655. (sre->ssre (quote (: bos (* (~ #\x)) #\b))) .......... [PASS] 2656. (sre->ssre (quote (: bos (* numeric) #\b))) .......... [PASS] 2657. (sre->ssre (quote ($ (or (:) #\a)))) .......... [PASS] 2658. (sre->ssre (quote (: #\a #\b #\c (* #\d)))) .......... [PASS] 2659. (sre->ssre (quote (: #\a #\b #\c (* #\d)))) .......... [PASS] 2660. (sre->ssre (quote (: #\a #\b #\c (* numeric)))) .......... [PASS] 2661. (sre->ssre (quote (: #\a #\b #\c (* (or #\d #\e))))) .......... [PASS] 2662. (sre->ssre (quote (: (or bow eow) #\t #\h #\e #\space #\c #\a #\t (or bow eow)))) .......... [PASS] 2663. (sre->ssre (quote (: (or bow eow) nonl nonl nonl nwb))) .......... [PASS] 2664. (sre->ssre (quote (: (or bow eow) nonl nonl nonl nwb))) .......... [PASS] 2665. (sre->ssre (quote (: (or bow eow) nonl nonl nonl nwb))) .......... [PASS] 2666. (sre->ssre (quote (: #\i #\s #\t))) .......... [PASS] 2667. (sre->ssre (quote (: #\i (+ #\s) #\t))) .......... [PASS] 2668. (sre->ssre (quote (: #\i (**? 1 #f #\s) #\t))) .......... [PASS] 2669. (sre->ssre (quote (: #\i (? #\s) #\t))) .......... [PASS] 2670. (sre->ssre (quote (: #\i (= 2 #\s) #\t))) .......... [PASS] 2671. (sre->ssre (quote (: bos #\A (+ space) #\Z))) .......... [PASS] 2672. (sre->ssre (quote (: #\A #\s #\k #\Z))) .......... [PASS] 2673. (sre->ssre (quote (+ (or #\A #\s #\k #\Z)))) .......... [PASS] 2674. (sre->ssre (quote (+ (~ #\s)))) .......... [PASS] 2675. (sre->ssre (quote (+ (~ #\s)))) .......... [PASS] 2676. (sre->ssre (quote (+ (~ #\k)))) .......... [PASS] 2677. (sre->ssre (quote (+ (~ #\k)))) .......... [PASS] 2678. (sre->ssre (quote (+ (~ (or #\s #\k))))) .......... [PASS] 2679. (sre->ssre (quote (+ (~ (or #\s #\k))))) .......... [PASS] 2680. (sre->ssre (quote #\i)) .......... [PASS] 2681. (sre->ssre (quote #\I)) .......... [PASS] 2682. (sre->ssre (quote (or #\z #\i))) .......... [PASS] 2683. (sre->ssre (quote (or #\i #\I))) .......... [PASS] 2684. (sre->ssre (quote (+ numeric))) .......... [PASS] 2685. (sre->ssre (quote (+ numeric))) .......... [PASS] 2686. (sre->ssre (quote (: #\> (+ space) #\<))) .......... [PASS] 2687. (sre->ssre (quote (: #\> (+ space) #\<))) .......... [PASS] 2688. (sre->ssre (quote (+ (or alnum #\_)))) .......... [PASS] 2689. (sre->ssre (quote (+ (or alnum #\_)))) .......... [PASS] 2690. (sre->ssre (quote (+ (or alnum #\_)))) .......... [PASS] 2691. (sre->ssre (quote (: (or bow eow) (**? 1 #f nonl) (or bow eow)))) .......... [PASS] 2692. (sre->ssre (quote (: #\c #\a #\f nwb (**? 1 #f nonl) nwb))) .......... [PASS] 2693. (sre->ssre (quote (+ (** 1 3 #\x)))) .......... [PASS] 2694. (sre->ssre (quote (~ #\a))) .......... [PASS] 2695. (sre->ssre (quote (: (look-behind (: #\C #\newline)) bos))) .......... [PASS] 2696. (sre->ssre (quote (: (+ (or alnum #\_)) (look-ahead #\tab)))) .......... [PASS] 2697. (sre->ssre (quote (w/nocase (: #\A #\space #\s #\t #\r #\i #\n #\g)))) .......... [PASS] 2698. (sre->ssre (quote (w/nocase (: ($ (* (~ #\.))) #\. ($ (* (~ #\:))) #\: (+ (or #\T #\space)) ($ (* nonl)))))) .......... [PASS] 2699. (sre->ssre (quote (w/nocase (: bos (+ (char-range #\W #\c)) eos)))) .......... [PASS] 2700. (sre->ssre (quote (w/nocase (~ #\a)))) .......... [PASS] 2701. (sre->ssre (quote (: (w/nocase (or (: #\s #\a #\t #\u #\r #\d #\a #\y) (: #\s #\u #\n #\d #\a #\y))) #\:))) .......... [PASS] 2702. (sre->ssre (quote (: (w/nocase #\a) #\b))) .......... [PASS] 2703. (sre->ssre (quote (w/nocase (: ($ (w/nocase #\a)) #\b)))) .......... [PASS] 2704. (sre->ssre (quote (w/nocase (: (w/case #\a) #\b)))) .......... [PASS] 2705. (sre->ssre (quote (w/nocase (: ($ (w/case #\a)) #\b)))) .......... [PASS] 2706. (sre->ssre (quote (w/nocase (: (w/case #\a) #\b)))) .......... [PASS] 2707. (sre->ssre (quote (w/nocase (: (? ($ (: (+ (or (or alnum #\_) #\:))) #\: #\:))) ($ (+ (or alnum #\_))) eos))) .......... [PASS] 2708. (sre->ssre (quote (w/nocase (: #\A #\B (w/case #\C))))) .......... [PASS] 2709. (sre->ssre (quote (w/nocase (: #\r #\e #\g (or (: #\u #\l (or #\a #\@ (: #\a #\e)) #\r) (: #\e #\x)))))) .......... [PASS] 2710. (sre->ssre (quote (w/nocase (* (~ #\a))))) .......... [PASS] 2711. (sre->ssre (quote (w/nocase (: (*? (~ #\a)) #\X)))) .......... [PASS] 2712. (sre->ssre (quote (w/nocase (: (**? 1 #f (~ #\a)) #\X)))) .......... [PASS] 2713. (sre->ssre (quote (w/nocase (: (? (~ #\a)) #\X)))) .......... [PASS] 2714. (sre->ssre (quote (w/nocase (: (?? (~ #\a)) #\X)))) .......... [PASS] 2715. (sre->ssre (quote (w/nocase (** 2 3 (~ #\a))))) .......... [PASS] 2716. (sre->ssre (quote (w/nocase (**? 2 3 (~ #\a))))) .......... [PASS] 2717. (sre->ssre (quote (w/nocase (: (look-behind (= 2 #\a)) #\b)))) .......... [PASS] 2718. (sre->ssre (quote (w/nocase (: (neg-look-behind (= 2 #\a)) #\b)))) .......... [PASS] 2719. (sre->ssre (quote (w/nocase (: (look-behind (= 2 (~ #\a))) #\b)))) .......... [PASS] 2720. (sre->ssre (quote (w/nocase (: bos (* (~ #\b)) (= 4 (or alnum #\_)))))) .......... [PASS] 2721. (sre->ssre (quote (w/nocase (: bos (* #\a) (= 4 (or alnum #\_)))))) .......... [PASS] 2722. (sre->ssre (quote (w/nocase #\s))) .......... [PASS] 2723. (sre->ssre (quote (w/nocase (~ #\s)))) .......... [PASS] 2724. (sre->ssre (quote (w/nocase (: #\t #\h #\e #\space #\e #\n #\d)))) .......... [PASS] 2725. (sre->ssre (quote (w/nocase (: #\a #\b #\c (* #\d))))) .......... [PASS] 2726. (sre->ssre (quote (w/nocase (: #\a #\b #\c (: (? #\newline) eos))))) .......... [PASS] 2727. (sre->ssre (quote (w/nocase (: bos (*? (~ #\d)) eos)))) .......... [PASS] 2728. (sre->ssre (quote (w/nocase (: #\a #\b #\c)))) .......... [PASS] 2729. (sre->ssre (quote (w/nocase (w/case (: #\t #\h #\e #\space #\e #\n #\d))))) .......... [PASS] 2730. (sre->ssre (quote (w/nocase (: ($ (+ (or numeric (char-range #\a #\f) #\:))) eos)))) .......... [PASS] 2731. (sre->ssre (quote (w/nocase (: bos (or numeric (char-range #\a #\f)) (* ($ (: #\. (or numeric (char-range #\a #\f))))) eos)))) .......... [PASS] 2732. (sre->ssre (quote (w/nocase (: bos (+ (char-range #\W #\c)) eos)))) .......... [PASS] 2733. (sre->ssre (quote (w/nocase (: bos (+ (char-range #\? #\_)) eos)))) .......... [PASS] 2734. (sre->ssre (quote (w/nocase (~ #\a)))) .......... [PASS] 2735. (sre->ssre (quote (w/nocase (+ (~ #\a))))) .......... [PASS] 2736. (sre->ssre (quote (w/nocase (~ (or #\a #\z))))) .......... [PASS] 2737. (sre->ssre (quote (w/nocase (: (or bow eow) ($ (: #\f #\o #\o)) (+ space) ($ (+ (or alnum #\_))))))) .......... [PASS] 2738. (sre->ssre (quote (: #\a (w/nocase #\b) #\c))) .......... [PASS] 2739. (sre->ssre (quote (: #\a (* (w/nocase #\b)) #\c))) .......... [PASS] 2740. (sre->ssre (quote (w/nocase (: #\a #\b #\c (* grapheme))))) .......... [PASS] 2741. (sre->ssre (quote (: #\a (or) #\b))) .......... [PASS] 2742. (sre->ssre (quote (: #\a (or (or)) #\b))) .......... [PASS] 2743. (sre->ssre (quote (: #\a (or (or (or))) #\b))) .......... [PASS] 2744. (sre->ssre (quote (: #\a (or (or (or) (or))) #\b))) .......... [PASS] 2745. (sre->ssre (quote (: #\a (/) #\b))) .......... [PASS] 2746. (sre->ssre (quote (: #\a (or ("") (/ "" "" "")) #\b))) .......... [PASS] 2747. (sre->ssre (quote (: #\a (or (or (or) ("")) (or (or (/)) (/ "" "" ""))) #\b))) .......... [PASS] 2748. (sre->ssre (quote (or ($ #\a) ($ #\a)))) .......... [PASS] 2749. (sre->ssre (quote (and alnum (w/nocase (w/ascii (or lower numeric)))))) .......... [PASS] 2750. (sre->ssre (quote (or alnum (w/nocase (w/ascii (or lower numeric)))))) .......... [PASS] 2751. (sre->ssre (quote (w/nocase (w/ascii (or lower numeric))))) .......... [PASS] 2751 out of 2751 passed (100.00%) 1. (format-hexadecimal-float 2.781342323134002e-309) .......... [PASS] 2. (format-hexadecimal-float 1.1125369292536007e-308) .......... [PASS] 3. (format-hexadecimal-float 4.450147717014403e-308) .......... [PASS] 4. (format-hexadecimal-float 1.7800590868057611e-307) .......... [PASS] 5. (format-hexadecimal-float 7.1202363472230444e-307) .......... [PASS] 6. (format-hexadecimal-float 2.848094538889218e-306) .......... [PASS] 7. (format-hexadecimal-float 1.1392378155556871e-305) .......... [PASS] 8. (format-hexadecimal-float 4.5569512622227484e-305) .......... [PASS] 9. (format-hexadecimal-float 1.8227805048890994e-304) .......... [PASS] 10. (format-hexadecimal-float 7.2911220195563975e-304) .......... [PASS] 11. (format-hexadecimal-float 2.916448807822559e-303) .......... [PASS] 12. (format-hexadecimal-float 1.1665795231290236e-302) .......... [PASS] 13. (format-hexadecimal-float 4.6663180925160944e-302) .......... [PASS] 14. (format-hexadecimal-float 1.8665272370064378e-301) .......... [PASS] 15. (format-hexadecimal-float 7.466108948025751e-301) .......... [PASS] 16. (format-hexadecimal-float 2.9864435792103004e-300) .......... [PASS] 17. (format-hexadecimal-float 1.1945774316841202e-299) .......... [PASS] 18. (format-hexadecimal-float 4.778309726736481e-299) .......... [PASS] 19. (format-hexadecimal-float 1.9113238906945923e-298) .......... [PASS] 20. (format-hexadecimal-float 7.645295562778369e-298) .......... [PASS] 21. (format-hexadecimal-float 3.0581182251113476e-297) .......... [PASS] 22. (format-hexadecimal-float 1.223247290044539e-296) .......... [PASS] 23. (format-hexadecimal-float 4.892989160178156e-296) .......... [PASS] 24. (format-hexadecimal-float 1.9571956640712625e-295) .......... [PASS] 25. (format-hexadecimal-float 7.82878265628505e-295) .......... [PASS] 26. (format-hexadecimal-float 3.13151306251402e-294) .......... [PASS] 27. (format-hexadecimal-float 1.252605225005608e-293) .......... [PASS] 28. (format-hexadecimal-float 5.010420900022432e-293) .......... [PASS] 29. (format-hexadecimal-float 2.004168360008973e-292) .......... [PASS] 30. (format-hexadecimal-float 8.016673440035891e-292) .......... [PASS] 31. (format-hexadecimal-float 3.2066693760143564e-291) .......... [PASS] 32. (format-hexadecimal-float 1.2826677504057426e-290) .......... [PASS] 33. (format-hexadecimal-float 5.1306710016229703e-290) .......... [PASS] 34. (format-hexadecimal-float 2.0522684006491881e-289) .......... [PASS] 35. (format-hexadecimal-float 8.2090736025967525e-289) .......... [PASS] 36. (format-hexadecimal-float 3.283629441038701e-288) .......... [PASS] 37. (format-hexadecimal-float 1.3134517764154804e-287) .......... [PASS] 38. (format-hexadecimal-float 5.253807105661922e-287) .......... [PASS] 39. (format-hexadecimal-float 2.1015228422647686e-286) .......... [PASS] 40. (format-hexadecimal-float 8.406091369059075e-286) .......... [PASS] 41. (format-hexadecimal-float 3.36243654762363e-285) .......... [PASS] 42. (format-hexadecimal-float 1.344974619049452e-284) .......... [PASS] 43. (format-hexadecimal-float 5.379898476197808e-284) .......... [PASS] 44. (format-hexadecimal-float 2.151959390479123e-283) .......... [PASS] 45. (format-hexadecimal-float 8.607837561916492e-283) .......... [PASS] 46. (format-hexadecimal-float 3.443135024766597e-282) .......... [PASS] 47. (format-hexadecimal-float 1.3772540099066388e-281) .......... [PASS] 48. (format-hexadecimal-float 5.509016039626555e-281) .......... [PASS] 49. (format-hexadecimal-float 2.203606415850622e-280) .......... [PASS] 50. (format-hexadecimal-float 8.814425663402488e-280) .......... [PASS] 51. (format-hexadecimal-float 3.5257702653609953e-279) .......... [PASS] 52. (format-hexadecimal-float 1.4103081061443981e-278) .......... [PASS] 53. (format-hexadecimal-float 5.6412324245775924e-278) .......... [PASS] 54. (format-hexadecimal-float 2.256492969831037e-277) .......... [PASS] 55. (format-hexadecimal-float 9.025971879324148e-277) .......... [PASS] 56. (format-hexadecimal-float 3.610388751729659e-276) .......... [PASS] 57. (format-hexadecimal-float 1.4441555006918637e-275) .......... [PASS] 58. (format-hexadecimal-float 5.776622002767455e-275) .......... [PASS] 59. (format-hexadecimal-float 2.310648801106982e-274) .......... [PASS] 60. (format-hexadecimal-float 9.242595204427927e-274) .......... [PASS] 61. (format-hexadecimal-float 3.697038081771171e-273) .......... [PASS] 62. (format-hexadecimal-float 1.4788152327084684e-272) .......... [PASS] 63. (format-hexadecimal-float 5.915260930833874e-272) .......... [PASS] 64. (format-hexadecimal-float 2.3661043723335494e-271) .......... [PASS] 65. (format-hexadecimal-float 9.464417489334198e-271) .......... [PASS] 66. (format-hexadecimal-float 3.785766995733679e-270) .......... [PASS] 67. (format-hexadecimal-float 1.5143067982934716e-269) .......... [PASS] 68. (format-hexadecimal-float 6.057227193173887e-269) .......... [PASS] 69. (format-hexadecimal-float 2.4228908772695546e-268) .......... [PASS] 70. (format-hexadecimal-float 9.691563509078218e-268) .......... [PASS] 71. (format-hexadecimal-float 3.8766254036312874e-267) .......... [PASS] 72. (format-hexadecimal-float 1.550650161452515e-266) .......... [PASS] 73. (format-hexadecimal-float 6.20260064581006e-266) .......... [PASS] 74. (format-hexadecimal-float 2.481040258324024e-265) .......... [PASS] 75. (format-hexadecimal-float 9.924161033296096e-265) .......... [PASS] 76. (format-hexadecimal-float 3.9696644133184383e-264) .......... [PASS] 77. (format-hexadecimal-float 1.5878657653273753e-263) .......... [PASS] 78. (format-hexadecimal-float 6.351463061309501e-263) .......... [PASS] 79. (format-hexadecimal-float 2.5405852245238005e-262) .......... [PASS] 80. (format-hexadecimal-float 1.0162340898095202e-261) .......... [PASS] 81. (format-hexadecimal-float 4.064936359238081e-261) .......... [PASS] 82. (format-hexadecimal-float 1.6259745436952323e-260) .......... [PASS] 83. (format-hexadecimal-float 6.503898174780929e-260) .......... [PASS] 84. (format-hexadecimal-float 2.6015592699123717e-259) .......... [PASS] 85. (format-hexadecimal-float 1.0406237079649487e-258) .......... [PASS] 86. (format-hexadecimal-float 4.162494831859795e-258) .......... [PASS] 87. (format-hexadecimal-float 1.664997932743918e-257) .......... [PASS] 88. (format-hexadecimal-float 6.659991730975672e-257) .......... [PASS] 89. (format-hexadecimal-float 2.6639966923902686e-256) .......... [PASS] 90. (format-hexadecimal-float 1.0655986769561075e-255) .......... [PASS] 91. (format-hexadecimal-float 4.26239470782443e-255) .......... [PASS] 92. (format-hexadecimal-float 1.704957883129772e-254) .......... [PASS] 93. (format-hexadecimal-float 6.819831532519088e-254) .......... [PASS] 94. (format-hexadecimal-float 2.727932613007635e-253) .......... [PASS] 95. (format-hexadecimal-float 1.091173045203054e-252) .......... [PASS] 96. (format-hexadecimal-float 4.364692180812216e-252) .......... [PASS] 97. (format-hexadecimal-float 1.7458768723248864e-251) .......... [PASS] 98. (format-hexadecimal-float 6.983507489299546e-251) .......... [PASS] 99. (format-hexadecimal-float 2.7934029957198183e-250) .......... [PASS] 100. (format-hexadecimal-float 1.1173611982879273e-249) .......... [PASS] 101. (format-hexadecimal-float 4.4694447931517093e-249) .......... [PASS] 102. (format-hexadecimal-float 1.7877779172606837e-248) .......... [PASS] 103. (format-hexadecimal-float 7.151111669042735e-248) .......... [PASS] 104. (format-hexadecimal-float 2.860444667617094e-247) .......... [PASS] 105. (format-hexadecimal-float 1.1441778670468376e-246) .......... [PASS] 106. (format-hexadecimal-float 4.5767114681873503e-246) .......... [PASS] 107. (format-hexadecimal-float 1.8306845872749401e-245) .......... [PASS] 108. (format-hexadecimal-float 7.322738349099761e-245) .......... [PASS] 109. (format-hexadecimal-float 2.9290953396399042e-244) .......... [PASS] 110. (format-hexadecimal-float 1.1716381358559617e-243) .......... [PASS] 111. (format-hexadecimal-float 4.686552543423847e-243) .......... [PASS] 112. (format-hexadecimal-float 1.8746210173695387e-242) .......... [PASS] 113. (format-hexadecimal-float 7.498484069478155e-242) .......... [PASS] 114. (format-hexadecimal-float 2.999393627791262e-241) .......... [PASS] 115. (format-hexadecimal-float 1.1997574511165048e-240) .......... [PASS] 116. (format-hexadecimal-float 4.799029804466019e-240) .......... [PASS] 117. (format-hexadecimal-float 1.9196119217864076e-239) .......... [PASS] 118. (format-hexadecimal-float 7.6784476871456305e-239) .......... [PASS] 119. (format-hexadecimal-float 3.0713790748582522e-238) .......... [PASS] 120. (format-hexadecimal-float 1.228551629943301e-237) .......... [PASS] 121. (format-hexadecimal-float 4.914206519773204e-237) .......... [PASS] 122. (format-hexadecimal-float 1.9656826079092814e-236) .......... [PASS] 123. (format-hexadecimal-float 7.862730431637126e-236) .......... [PASS] 124. (format-hexadecimal-float 3.1450921726548502e-235) .......... [PASS] 125. (format-hexadecimal-float 1.2580368690619401e-234) .......... [PASS] 126. (format-hexadecimal-float 5.0321474762477604e-234) .......... [PASS] 127. (format-hexadecimal-float 2.0128589904991042e-233) .......... [PASS] 128. (format-hexadecimal-float 8.051435961996417e-233) .......... [PASS] 129. (format-hexadecimal-float 3.220574384798567e-232) .......... [PASS] 130. (format-hexadecimal-float 1.2882297539194267e-231) .......... [PASS] 131. (format-hexadecimal-float 5.152919015677707e-231) .......... [PASS] 132. (format-hexadecimal-float 2.0611676062710827e-230) .......... [PASS] 133. (format-hexadecimal-float 8.244670425084331e-230) .......... [PASS] 134. (format-hexadecimal-float 3.2978681700337323e-229) .......... [PASS] 135. (format-hexadecimal-float 1.319147268013493e-228) .......... [PASS] 136. (format-hexadecimal-float 5.276589072053972e-228) .......... [PASS] 137. (format-hexadecimal-float 2.1106356288215886e-227) .......... [PASS] 138. (format-hexadecimal-float 8.442542515286355e-227) .......... [PASS] 139. (format-hexadecimal-float 3.377017006114542e-226) .......... [PASS] 140. (format-hexadecimal-float 1.3508068024458167e-225) .......... [PASS] 141. (format-hexadecimal-float 5.403227209783267e-225) .......... [PASS] 142. (format-hexadecimal-float 2.161290883913307e-224) .......... [PASS] 143. (format-hexadecimal-float 8.645163535653227e-224) .......... [PASS] 144. (format-hexadecimal-float 3.458065414261291e-223) .......... [PASS] 145. (format-hexadecimal-float 1.3832261657045163e-222) .......... [PASS] 146. (format-hexadecimal-float 5.5329046628180653e-222) .......... [PASS] 147. (format-hexadecimal-float 2.2131618651272261e-221) .......... [PASS] 148. (format-hexadecimal-float 8.852647460508905e-221) .......... [PASS] 149. (format-hexadecimal-float 3.541058984203562e-220) .......... [PASS] 150. (format-hexadecimal-float 1.4164235936814247e-219) .......... [PASS] 151. (format-hexadecimal-float 5.665694374725699e-219) .......... [PASS] 152. (format-hexadecimal-float 2.2662777498902796e-218) .......... [PASS] 153. (format-hexadecimal-float 9.065110999561118e-218) .......... [PASS] 154. (format-hexadecimal-float 3.6260443998244473e-217) .......... [PASS] 155. (format-hexadecimal-float 1.450417759929779e-216) .......... [PASS] 156. (format-hexadecimal-float 5.801671039719116e-216) .......... [PASS] 157. (format-hexadecimal-float 2.3206684158876463e-215) .......... [PASS] 158. (format-hexadecimal-float 9.282673663550585e-215) .......... [PASS] 159. (format-hexadecimal-float 3.713069465420234e-214) .......... [PASS] 160. (format-hexadecimal-float 1.4852277861680936e-213) .......... [PASS] 161. (format-hexadecimal-float 5.9409111446723744e-213) .......... [PASS] 162. (format-hexadecimal-float 2.37636445786895e-212) .......... [PASS] 163. (format-hexadecimal-float 9.505457831475799e-212) .......... [PASS] 164. (format-hexadecimal-float 3.80218313259032e-211) .......... [PASS] 165. (format-hexadecimal-float 1.520873253036128e-210) .......... [PASS] 166. (format-hexadecimal-float 6.0834930121445114e-210) .......... [PASS] 167. (format-hexadecimal-float 2.4333972048578046e-209) .......... [PASS] 168. (format-hexadecimal-float 9.733588819431218e-209) .......... [PASS] 169. (format-hexadecimal-float 3.8934355277724873e-208) .......... [PASS] 170. (format-hexadecimal-float 1.557374211108995e-207) .......... [PASS] 171. (format-hexadecimal-float 6.22949684443598e-207) .......... [PASS] 172. (format-hexadecimal-float 2.491798737774392e-206) .......... [PASS] 173. (format-hexadecimal-float 9.967194951097568e-206) .......... [PASS] 174. (format-hexadecimal-float 3.986877980439027e-205) .......... [PASS] 175. (format-hexadecimal-float 1.5947511921756108e-204) .......... [PASS] 176. (format-hexadecimal-float 6.379004768702443e-204) .......... [PASS] 177. (format-hexadecimal-float 2.5516019074809773e-203) .......... [PASS] 178. (format-hexadecimal-float 1.020640762992391e-202) .......... [PASS] 179. (format-hexadecimal-float 4.082563051969564e-202) .......... [PASS] 180. (format-hexadecimal-float 1.6330252207878255e-201) .......... [PASS] 181. (format-hexadecimal-float 6.532100883151302e-201) .......... [PASS] 182. (format-hexadecimal-float 2.612840353260521e-200) .......... [PASS] 183. (format-hexadecimal-float 1.0451361413042083e-199) .......... [PASS] 184. (format-hexadecimal-float 4.180544565216833e-199) .......... [PASS] 185. (format-hexadecimal-float 1.6722178260867333e-198) .......... [PASS] 186. (format-hexadecimal-float 6.688871304346933e-198) .......... [PASS] 187. (format-hexadecimal-float 2.6755485217387732e-197) .......... [PASS] 188. (format-hexadecimal-float 1.0702194086955093e-196) .......... [PASS] 189. (format-hexadecimal-float 4.280877634782037e-196) .......... [PASS] 190. (format-hexadecimal-float 1.712351053912815e-195) .......... [PASS] 191. (format-hexadecimal-float 6.8494042156512595e-195) .......... [PASS] 192. (format-hexadecimal-float 2.739761686260504e-194) .......... [PASS] 193. (format-hexadecimal-float 1.0959046745042015e-193) .......... [PASS] 194. (format-hexadecimal-float 4.383618698016806e-193) .......... [PASS] 195. (format-hexadecimal-float 1.7534474792067224e-192) .......... [PASS] 196. (format-hexadecimal-float 7.01378991682689e-192) .......... [PASS] 197. (format-hexadecimal-float 2.805515966730756e-191) .......... [PASS] 198. (format-hexadecimal-float 1.1222063866923024e-190) .......... [PASS] 199. (format-hexadecimal-float 4.4888255467692094e-190) .......... [PASS] 200. (format-hexadecimal-float 1.7955302187076838e-189) .......... [PASS] 201. (format-hexadecimal-float 7.182120874830735e-189) .......... [PASS] 202. (format-hexadecimal-float 2.872848349932294e-188) .......... [PASS] 203. (format-hexadecimal-float 1.1491393399729176e-187) .......... [PASS] 204. (format-hexadecimal-float 4.5965573598916705e-187) .......... [PASS] 205. (format-hexadecimal-float 1.8386229439566682e-186) .......... [PASS] 206. (format-hexadecimal-float 7.354491775826673e-186) .......... [PASS] 207. (format-hexadecimal-float 2.941796710330669e-185) .......... [PASS] 208. (format-hexadecimal-float 1.1767186841322676e-184) .......... [PASS] 209. (format-hexadecimal-float 4.706874736529071e-184) .......... [PASS] 210. (format-hexadecimal-float 1.8827498946116282e-183) .......... [PASS] 211. (format-hexadecimal-float 7.530999578446513e-183) .......... [PASS] 212. (format-hexadecimal-float 3.012399831378605e-182) .......... [PASS] 213. (format-hexadecimal-float 1.204959932551442e-181) .......... [PASS] 214. (format-hexadecimal-float 4.819839730205768e-181) .......... [PASS] 215. (format-hexadecimal-float 1.9279358920823073e-180) .......... [PASS] 216. (format-hexadecimal-float 7.711743568329229e-180) .......... [PASS] 217. (format-hexadecimal-float 3.084697427331692e-179) .......... [PASS] 218. (format-hexadecimal-float 1.2338789709326767e-178) .......... [PASS] 219. (format-hexadecimal-float 4.935515883730707e-178) .......... [PASS] 220. (format-hexadecimal-float 1.9742063534922827e-177) .......... [PASS] 221. (format-hexadecimal-float 7.896825413969131e-177) .......... [PASS] 222. (format-hexadecimal-float 3.1587301655876523e-176) .......... [PASS] 223. (format-hexadecimal-float 1.263492066235061e-175) .......... [PASS] 224. (format-hexadecimal-float 5.053968264940244e-175) .......... [PASS] 225. (format-hexadecimal-float 2.0215873059760975e-174) .......... [PASS] 226. (format-hexadecimal-float 8.08634922390439e-174) .......... [PASS] 227. (format-hexadecimal-float 3.234539689561756e-173) .......... [PASS] 228. (format-hexadecimal-float 1.2938158758247024e-172) .......... [PASS] 229. (format-hexadecimal-float 5.1752635032988095e-172) .......... [PASS] 230. (format-hexadecimal-float 2.070105401319524e-171) .......... [PASS] 231. (format-hexadecimal-float 8.280421605278095e-171) .......... [PASS] 232. (format-hexadecimal-float 3.312168642111238e-170) .......... [PASS] 233. (format-hexadecimal-float 1.3248674568444952e-169) .......... [PASS] 234. (format-hexadecimal-float 5.299469827377981e-169) .......... [PASS] 235. (format-hexadecimal-float 2.1197879309511924e-168) .......... [PASS] 236. (format-hexadecimal-float 8.479151723804769e-168) .......... [PASS] 237. (format-hexadecimal-float 3.391660689521908e-167) .......... [PASS] 238. (format-hexadecimal-float 1.3566642758087631e-166) .......... [PASS] 239. (format-hexadecimal-float 5.4266571032350524e-166) .......... [PASS] 240. (format-hexadecimal-float 2.170662841294021e-165) .......... [PASS] 241. (format-hexadecimal-float 8.682651365176084e-165) .......... [PASS] 242. (format-hexadecimal-float 3.4730605460704336e-164) .......... [PASS] 243. (format-hexadecimal-float 1.3892242184281734e-163) .......... [PASS] 244. (format-hexadecimal-float 5.556896873712694e-163) .......... [PASS] 245. (format-hexadecimal-float 2.2227587494850775e-162) .......... [PASS] 246. (format-hexadecimal-float 8.89103499794031e-162) .......... [PASS] 247. (format-hexadecimal-float 3.556413999176124e-161) .......... [PASS] 248. (format-hexadecimal-float 1.4225655996704496e-160) .......... [PASS] 249. (format-hexadecimal-float 5.6902623986817984e-160) .......... [PASS] 250. (format-hexadecimal-float 2.2761049594727193e-159) .......... [PASS] 251. (format-hexadecimal-float 9.104419837890877e-159) .......... [PASS] 252. (format-hexadecimal-float 3.641767935156351e-158) .......... [PASS] 253. (format-hexadecimal-float 1.4567071740625404e-157) .......... [PASS] 254. (format-hexadecimal-float 5.826828696250162e-157) .......... [PASS] 255. (format-hexadecimal-float 2.3307314785000646e-156) .......... [PASS] 256. (format-hexadecimal-float 9.322925914000258e-156) .......... [PASS] 257. (format-hexadecimal-float 3.7291703656001034e-155) .......... [PASS] 258. (format-hexadecimal-float 1.4916681462400413e-154) .......... [PASS] 259. (format-hexadecimal-float 5.9666725849601654e-154) .......... [PASS] 260. (format-hexadecimal-float 2.3866690339840662e-153) .......... [PASS] 261. (format-hexadecimal-float 9.546676135936265e-153) .......... [PASS] 262. (format-hexadecimal-float 3.818670454374506e-152) .......... [PASS] 263. (format-hexadecimal-float 1.5274681817498023e-151) .......... [PASS] 264. (format-hexadecimal-float 6.1098727269992094e-151) .......... [PASS] 265. (format-hexadecimal-float 2.443949090799684e-150) .......... [PASS] 266. (format-hexadecimal-float 9.775796363198735e-150) .......... [PASS] 267. (format-hexadecimal-float 3.910318545279494e-149) .......... [PASS] 268. (format-hexadecimal-float 1.5641274181117976e-148) .......... [PASS] 269. (format-hexadecimal-float 6.2565096724471904e-148) .......... [PASS] 270. (format-hexadecimal-float 2.5026038689788762e-147) .......... [PASS] 271. (format-hexadecimal-float 1.0010415475915505e-146) .......... [PASS] 272. (format-hexadecimal-float 4.004166190366202e-146) .......... [PASS] 273. (format-hexadecimal-float 1.6016664761464807e-145) .......... [PASS] 274. (format-hexadecimal-float 6.406665904585923e-145) .......... [PASS] 275. (format-hexadecimal-float 2.5626663618343692e-144) .......... [PASS] 276. (format-hexadecimal-float 1.0250665447337477e-143) .......... [PASS] 277. (format-hexadecimal-float 4.100266178934991e-143) .......... [PASS] 278. (format-hexadecimal-float 1.6401064715739963e-142) .......... [PASS] 279. (format-hexadecimal-float 6.560425886295985e-142) .......... [PASS] 280. (format-hexadecimal-float 2.624170354518394e-141) .......... [PASS] 281. (format-hexadecimal-float 1.0496681418073576e-140) .......... [PASS] 282. (format-hexadecimal-float 4.1986725672294305e-140) .......... [PASS] 283. (format-hexadecimal-float 1.6794690268917722e-139) .......... [PASS] 284. (format-hexadecimal-float 6.717876107567089e-139) .......... [PASS] 285. (format-hexadecimal-float 2.6871504430268355e-138) .......... [PASS] 286. (format-hexadecimal-float 1.0748601772107342e-137) .......... [PASS] 287. (format-hexadecimal-float 4.299440708842937e-137) .......... [PASS] 288. (format-hexadecimal-float 1.7197762835371747e-136) .......... [PASS] 289. (format-hexadecimal-float 6.879105134148699e-136) .......... [PASS] 290. (format-hexadecimal-float 2.7516420536594796e-135) .......... [PASS] 291. (format-hexadecimal-float 1.1006568214637918e-134) .......... [PASS] 292. (format-hexadecimal-float 4.4026272858551673e-134) .......... [PASS] 293. (format-hexadecimal-float 1.761050914342067e-133) .......... [PASS] 294. (format-hexadecimal-float 7.044203657368268e-133) .......... [PASS] 295. (format-hexadecimal-float 2.817681462947307e-132) .......... [PASS] 296. (format-hexadecimal-float 1.1270725851789228e-131) .......... [PASS] 297. (format-hexadecimal-float 4.5082903407156913e-131) .......... [PASS] 298. (format-hexadecimal-float 1.8033161362862765e-130) .......... [PASS] 299. (format-hexadecimal-float 7.213264545145106e-130) .......... [PASS] 300. (format-hexadecimal-float 2.8853058180580424e-129) .......... [PASS] 301. (format-hexadecimal-float 1.154122327223217e-128) .......... [PASS] 302. (format-hexadecimal-float 4.616489308892868e-128) .......... [PASS] 303. (format-hexadecimal-float 1.8465957235571472e-127) .......... [PASS] 304. (format-hexadecimal-float 7.386382894228589e-127) .......... [PASS] 305. (format-hexadecimal-float 2.9545531576914354e-126) .......... [PASS] 306. (format-hexadecimal-float 1.1818212630765742e-125) .......... [PASS] 307. (format-hexadecimal-float 4.727285052306297e-125) .......... [PASS] 308. (format-hexadecimal-float 1.8909140209225187e-124) .......... [PASS] 309. (format-hexadecimal-float 7.563656083690075e-124) .......... [PASS] 310. (format-hexadecimal-float 3.02546243347603e-123) .......... [PASS] 311. (format-hexadecimal-float 1.210184973390412e-122) .......... [PASS] 312. (format-hexadecimal-float 4.840739893561648e-122) .......... [PASS] 313. (format-hexadecimal-float 1.9362959574246591e-121) .......... [PASS] 314. (format-hexadecimal-float 7.745183829698637e-121) .......... [PASS] 315. (format-hexadecimal-float 3.0980735318794546e-120) .......... [PASS] 316. (format-hexadecimal-float 1.2392294127517818e-119) .......... [PASS] 317. (format-hexadecimal-float 4.9569176510071274e-119) .......... [PASS] 318. (format-hexadecimal-float 1.982767060402851e-118) .......... [PASS] 319. (format-hexadecimal-float 7.931068241611404e-118) .......... [PASS] 320. (format-hexadecimal-float 3.1724272966445615e-117) .......... [PASS] 321. (format-hexadecimal-float 1.2689709186578246e-116) .......... [PASS] 322. (format-hexadecimal-float 5.0758836746312984e-116) .......... [PASS] 323. (format-hexadecimal-float 2.0303534698525194e-115) .......... [PASS] 324. (format-hexadecimal-float 8.121413879410078e-115) .......... [PASS] 325. (format-hexadecimal-float 3.248565551764031e-114) .......... [PASS] 326. (format-hexadecimal-float 1.2994262207056124e-113) .......... [PASS] 327. (format-hexadecimal-float 5.19770488282245e-113) .......... [PASS] 328. (format-hexadecimal-float 2.07908195312898e-112) .......... [PASS] 329. (format-hexadecimal-float 8.316327812515919e-112) .......... [PASS] 330. (format-hexadecimal-float 3.326531125006368e-111) .......... [PASS] 331. (format-hexadecimal-float 1.3306124500025471e-110) .......... [PASS] 332. (format-hexadecimal-float 5.3224498000101884e-110) .......... [PASS] 333. (format-hexadecimal-float 2.1289799200040754e-109) .......... [PASS] 334. (format-hexadecimal-float 8.515919680016301e-109) .......... [PASS] 335. (format-hexadecimal-float 3.4063678720065206e-108) .......... [PASS] 336. (format-hexadecimal-float 1.3625471488026082e-107) .......... [PASS] 337. (format-hexadecimal-float 5.450188595210433e-107) .......... [PASS] 338. (format-hexadecimal-float 2.1800754380841732e-106) .......... [PASS] 339. (format-hexadecimal-float 8.720301752336693e-106) .......... [PASS] 340. (format-hexadecimal-float 3.488120700934677e-105) .......... [PASS] 341. (format-hexadecimal-float 1.3952482803738708e-104) .......... [PASS] 342. (format-hexadecimal-float 5.5809931214954833e-104) .......... [PASS] 343. (format-hexadecimal-float 2.2323972485981933e-103) .......... [PASS] 344. (format-hexadecimal-float 8.929588994392773e-103) .......... [PASS] 345. (format-hexadecimal-float 3.5718355977571093e-102) .......... [PASS] 346. (format-hexadecimal-float 1.4287342391028437e-101) .......... [PASS] 347. (format-hexadecimal-float 5.714936956411375e-101) .......... [PASS] 348. (format-hexadecimal-float 2.28597478256455e-100) .......... [PASS] 349. (format-hexadecimal-float 9.1438991302582e-100) .......... [PASS] 350. (format-hexadecimal-float 3.65755965210328e-99) .......... [PASS] 351. (format-hexadecimal-float 1.463023860841312e-98) .......... [PASS] 352. (format-hexadecimal-float 5.852095443365248e-98) .......... [PASS] 353. (format-hexadecimal-float 2.3408381773460992e-97) .......... [PASS] 354. (format-hexadecimal-float 9.363352709384397e-97) .......... [PASS] 355. (format-hexadecimal-float 3.745341083753759e-96) .......... [PASS] 356. (format-hexadecimal-float 1.4981364335015035e-95) .......... [PASS] 357. (format-hexadecimal-float 5.992545734006014e-95) .......... [PASS] 358. (format-hexadecimal-float 2.3970182936024055e-94) .......... [PASS] 359. (format-hexadecimal-float 9.588073174409622e-94) .......... [PASS] 360. (format-hexadecimal-float 3.835229269763849e-93) .......... [PASS] 361. (format-hexadecimal-float 1.5340917079055395e-92) .......... [PASS] 362. (format-hexadecimal-float 6.136366831622158e-92) .......... [PASS] 363. (format-hexadecimal-float 2.4545467326488633e-91) .......... [PASS] 364. (format-hexadecimal-float 9.818186930595453e-91) .......... [PASS] 365. (format-hexadecimal-float 3.9272747722381812e-90) .......... [PASS] 366. (format-hexadecimal-float 1.5709099088952725e-89) .......... [PASS] 367. (format-hexadecimal-float 6.28363963558109e-89) .......... [PASS] 368. (format-hexadecimal-float 2.513455854232436e-88) .......... [PASS] 369. (format-hexadecimal-float 1.0053823416929744e-87) .......... [PASS] 370. (format-hexadecimal-float 4.021529366771898e-87) .......... [PASS] 371. (format-hexadecimal-float 1.608611746708759e-86) .......... [PASS] 372. (format-hexadecimal-float 6.434446986835036e-86) .......... [PASS] 373. (format-hexadecimal-float 2.5737787947340145e-85) .......... [PASS] 374. (format-hexadecimal-float 1.0295115178936058e-84) .......... [PASS] 375. (format-hexadecimal-float 4.118046071574423e-84) .......... [PASS] 376. (format-hexadecimal-float 1.6472184286297693e-83) .......... [PASS] 377. (format-hexadecimal-float 6.588873714519077e-83) .......... [PASS] 378. (format-hexadecimal-float 2.635549485807631e-82) .......... [PASS] 379. (format-hexadecimal-float 1.0542197943230523e-81) .......... [PASS] 380. (format-hexadecimal-float 4.2168791772922093e-81) .......... [PASS] 381. (format-hexadecimal-float 1.6867516709168837e-80) .......... [PASS] 382. (format-hexadecimal-float 6.747006683667535e-80) .......... [PASS] 383. (format-hexadecimal-float 2.698802673467014e-79) .......... [PASS] 384. (format-hexadecimal-float 1.0795210693868056e-78) .......... [PASS] 385. (format-hexadecimal-float 4.3180842775472223e-78) .......... [PASS] 386. (format-hexadecimal-float 1.727233711018889e-77) .......... [PASS] 387. (format-hexadecimal-float 6.908934844075556e-77) .......... [PASS] 388. (format-hexadecimal-float 2.7635739376302223e-76) .......... [PASS] 389. (format-hexadecimal-float 1.105429575052089e-75) .......... [PASS] 390. (format-hexadecimal-float 4.421718300208356e-75) .......... [PASS] 391. (format-hexadecimal-float 1.7686873200833423e-74) .......... [PASS] 392. (format-hexadecimal-float 7.074749280333369e-74) .......... [PASS] 393. (format-hexadecimal-float 2.8298997121333476e-73) .......... [PASS] 394. (format-hexadecimal-float 1.131959884853339e-72) .......... [PASS] 395. (format-hexadecimal-float 4.527839539413356e-72) .......... [PASS] 396. (format-hexadecimal-float 1.8111358157653425e-71) .......... [PASS] 397. (format-hexadecimal-float 7.24454326306137e-71) .......... [PASS] 398. (format-hexadecimal-float 2.897817305224548e-70) .......... [PASS] 399. (format-hexadecimal-float 1.1591269220898192e-69) .......... [PASS] 400. (format-hexadecimal-float 4.636507688359277e-69) .......... [PASS] 401. (format-hexadecimal-float 1.8546030753437107e-68) .......... [PASS] 402. (format-hexadecimal-float 7.418412301374843e-68) .......... [PASS] 403. (format-hexadecimal-float 2.967364920549937e-67) .......... [PASS] 404. (format-hexadecimal-float 1.1869459682199748e-66) .......... [PASS] 405. (format-hexadecimal-float 4.7477838728798994e-66) .......... [PASS] 406. (format-hexadecimal-float 1.8991135491519597e-65) .......... [PASS] 407. (format-hexadecimal-float 7.596454196607839e-65) .......... [PASS] 408. (format-hexadecimal-float 3.0385816786431356e-64) .......... [PASS] 409. (format-hexadecimal-float 1.2154326714572542e-63) .......... [PASS] 410. (format-hexadecimal-float 4.861730685829017e-63) .......... [PASS] 411. (format-hexadecimal-float 1.9446922743316068e-62) .......... [PASS] 412. (format-hexadecimal-float 7.778769097326427e-62) .......... [PASS] 413. (format-hexadecimal-float 3.111507638930571e-61) .......... [PASS] 414. (format-hexadecimal-float 1.2446030555722283e-60) .......... [PASS] 415. (format-hexadecimal-float 4.9784122222889134e-60) .......... [PASS] 416. (format-hexadecimal-float 1.9913648889155653e-59) .......... [PASS] 417. (format-hexadecimal-float 7.965459555662261e-59) .......... [PASS] 418. (format-hexadecimal-float 3.1861838222649046e-58) .......... [PASS] 419. (format-hexadecimal-float 1.2744735289059618e-57) .......... [PASS] 420. (format-hexadecimal-float 5.0978941156238473e-57) .......... [PASS] 421. (format-hexadecimal-float 2.039157646249539e-56) .......... [PASS] 422. (format-hexadecimal-float 8.156630584998156e-56) .......... [PASS] 423. (format-hexadecimal-float 3.2626522339992623e-55) .......... [PASS] 424. (format-hexadecimal-float 1.305060893599705e-54) .......... [PASS] 425. (format-hexadecimal-float 5.22024357439882e-54) .......... [PASS] 426. (format-hexadecimal-float 2.088097429759528e-53) .......... [PASS] 427. (format-hexadecimal-float 8.352389719038111e-53) .......... [PASS] 428. (format-hexadecimal-float 3.3409558876152446e-52) .......... [PASS] 429. (format-hexadecimal-float 1.3363823550460978e-51) .......... [PASS] 430. (format-hexadecimal-float 5.345529420184391e-51) .......... [PASS] 431. (format-hexadecimal-float 2.1382117680737565e-50) .......... [PASS] 432. (format-hexadecimal-float 8.552847072295026e-50) .......... [PASS] 433. (format-hexadecimal-float 3.4211388289180104e-49) .......... [PASS] 434. (format-hexadecimal-float 1.3684555315672042e-48) .......... [PASS] 435. (format-hexadecimal-float 5.473822126268817e-48) .......... [PASS] 436. (format-hexadecimal-float 2.1895288505075267e-47) .......... [PASS] 437. (format-hexadecimal-float 8.758115402030107e-47) .......... [PASS] 438. (format-hexadecimal-float 3.503246160812043e-46) .......... [PASS] 439. (format-hexadecimal-float 1.401298464324817e-45) .......... [PASS] 440. (format-hexadecimal-float 5.605193857299268e-45) .......... [PASS] 441. (format-hexadecimal-float 2.2420775429197073e-44) .......... [PASS] 442. (format-hexadecimal-float 8.968310171678829e-44) .......... [PASS] 443. (format-hexadecimal-float 3.587324068671532e-43) .......... [PASS] 444. (format-hexadecimal-float 1.4349296274686127e-42) .......... [PASS] 445. (format-hexadecimal-float 5.739718509874451e-42) .......... [PASS] 446. (format-hexadecimal-float 2.2958874039497803e-41) .......... [PASS] 447. (format-hexadecimal-float 9.183549615799121e-41) .......... [PASS] 448. (format-hexadecimal-float 3.6734198463196485e-40) .......... [PASS] 449. (format-hexadecimal-float 1.4693679385278594e-39) .......... [PASS] 450. (format-hexadecimal-float 5.877471754111438e-39) .......... [PASS] 451. (format-hexadecimal-float 2.350988701644575e-38) .......... [PASS] 452. (format-hexadecimal-float 9.4039548065783e-38) .......... [PASS] 453. (format-hexadecimal-float 3.76158192263132e-37) .......... [PASS] 454. (format-hexadecimal-float 1.504632769052528e-36) .......... [PASS] 455. (format-hexadecimal-float 6.018531076210112e-36) .......... [PASS] 456. (format-hexadecimal-float 2.407412430484045e-35) .......... [PASS] 457. (format-hexadecimal-float 9.629649721936179e-35) .......... [PASS] 458. (format-hexadecimal-float 3.851859888774472e-34) .......... [PASS] 459. (format-hexadecimal-float 1.5407439555097887e-33) .......... [PASS] 460. (format-hexadecimal-float 6.162975822039155e-33) .......... [PASS] 461. (format-hexadecimal-float 2.465190328815662e-32) .......... [PASS] 462. (format-hexadecimal-float 9.860761315262648e-32) .......... [PASS] 463. (format-hexadecimal-float 3.944304526105059e-31) .......... [PASS] 464. (format-hexadecimal-float 1.5777218104420236e-30) .......... [PASS] 465. (format-hexadecimal-float 6.3108872417680944e-30) .......... [PASS] 466. (format-hexadecimal-float 2.524354896707238e-29) .......... [PASS] 467. (format-hexadecimal-float 1.0097419586828951e-28) .......... [PASS] 468. (format-hexadecimal-float 4.0389678347315804e-28) .......... [PASS] 469. (format-hexadecimal-float 1.6155871338926322e-27) .......... [PASS] 470. (format-hexadecimal-float 6.462348535570529e-27) .......... [PASS] 471. (format-hexadecimal-float 2.5849394142282115e-26) .......... [PASS] 472. (format-hexadecimal-float 1.0339757656912846e-25) .......... [PASS] 473. (format-hexadecimal-float 4.1359030627651384e-25) .......... [PASS] 474. (format-hexadecimal-float 1.6543612251060553e-24) .......... [PASS] 475. (format-hexadecimal-float 6.6174449004242214e-24) .......... [PASS] 476. (format-hexadecimal-float 2.6469779601696886e-23) .......... [PASS] 477. (format-hexadecimal-float 1.0587911840678754e-22) .......... [PASS] 478. (format-hexadecimal-float 4.235164736271502e-22) .......... [PASS] 479. (format-hexadecimal-float 1.6940658945086007e-21) .......... [PASS] 480. (format-hexadecimal-float 6.776263578034403e-21) .......... [PASS] 481. (format-hexadecimal-float 2.710505431213761e-20) .......... [PASS] 482. (format-hexadecimal-float 1.0842021724855044e-19) .......... [PASS] 483. (format-hexadecimal-float 4.336808689942018e-19) .......... [PASS] 484. (format-hexadecimal-float 1.734723475976807e-18) .......... [PASS] 485. (format-hexadecimal-float 6.938893903907228e-18) .......... [PASS] 486. (format-hexadecimal-float 2.7755575615628914e-17) .......... [PASS] 487. (format-hexadecimal-float 1.1102230246251565e-16) .......... [PASS] 488. (format-hexadecimal-float 4.440892098500626e-16) .......... [PASS] 489. (format-hexadecimal-float 1.7763568394002505e-15) .......... [PASS] 490. (format-hexadecimal-float 7.105427357601002e-15) .......... [PASS] 491. (format-hexadecimal-float 2.842170943040401e-14) .......... [PASS] 492. (format-hexadecimal-float 1.1368683772161603e-13) .......... [PASS] 493. (format-hexadecimal-float 4.547473508864641e-13) .......... [PASS] 494. (format-hexadecimal-float 1.8189894035458565e-12) .......... [PASS] 495. (format-hexadecimal-float 7.275957614183426e-12) .......... [PASS] 496. (format-hexadecimal-float 2.9103830456733704e-11) .......... [PASS] 497. (format-hexadecimal-float 1.1641532182693481e-10) .......... [PASS] 498. (format-hexadecimal-float 4.656612873077393e-10) .......... [PASS] 499. (format-hexadecimal-float 1.862645149230957e-9) .......... [PASS] 500. (format-hexadecimal-float 7.450580596923828e-9) .......... [PASS] 501. (format-hexadecimal-float 2.9802322387695312e-8) .......... [PASS] 502. (format-hexadecimal-float 1.1920928955078125e-7) .......... [PASS] 503. (format-hexadecimal-float 4.76837158203125e-7) .......... [PASS] 504. (format-hexadecimal-float 1.9073486328125e-6) .......... [PASS] 505. (format-hexadecimal-float 7.62939453125e-6) .......... [PASS] 506. (format-hexadecimal-float 3.0517578125e-5) .......... [PASS] 507. (format-hexadecimal-float 0.0001220703125) .......... [PASS] 508. (format-hexadecimal-float 0.00048828125) .......... [PASS] 509. (format-hexadecimal-float 0.001953125) .......... [PASS] 510. (format-hexadecimal-float 0.0078125) .......... [PASS] 511. (format-hexadecimal-float 0.03125) .......... [PASS] 512. (format-hexadecimal-float 0.125) .......... [PASS] 513. (format-hexadecimal-float 0.5) .......... [PASS] 514. (format-hexadecimal-float 2.0) .......... [PASS] 515. (format-hexadecimal-float 8.0) .......... [PASS] 516. (format-hexadecimal-float 32.0) .......... [PASS] 517. (format-hexadecimal-float 128.0) .......... [PASS] 518. (format-hexadecimal-float 512.0) .......... [PASS] 519. (format-hexadecimal-float 2048.0) .......... [PASS] 520. (format-hexadecimal-float 8192.0) .......... [PASS] 521. (format-hexadecimal-float 32768.0) .......... [PASS] 522. (format-hexadecimal-float 131072.0) .......... [PASS] 523. (format-hexadecimal-float 524288.0) .......... [PASS] 524. (format-hexadecimal-float 2097152.0) .......... [PASS] 525. (format-hexadecimal-float 8388608.0) .......... [PASS] 526. (format-hexadecimal-float 33554432.0) .......... [PASS] 527. (format-hexadecimal-float 134217728.0) .......... [PASS] 528. (format-hexadecimal-float 536870912.0) .......... [PASS] 529. (format-hexadecimal-float 2147483648.0) .......... [PASS] 530. (format-hexadecimal-float 8589934592.0) .......... [PASS] 531. (format-hexadecimal-float 34359738368.0) .......... [PASS] 532. (format-hexadecimal-float 137438953472.0) .......... [PASS] 533. (format-hexadecimal-float 549755813888.0) .......... [PASS] 534. (format-hexadecimal-float 2199023255552.0) .......... [PASS] 535. (format-hexadecimal-float 8796093022208.0) .......... [PASS] 536. (format-hexadecimal-float 35184372088832.0) .......... [PASS] 537. (format-hexadecimal-float 140737488355328.0) .......... [PASS] 538. (format-hexadecimal-float 562949953421312.0) .......... [PASS] 539. (format-hexadecimal-float 2251799813685248.0) .......... [PASS] 540. (format-hexadecimal-float 9007199254740992.0) .......... [PASS] 541. (format-hexadecimal-float 3.602879701896397e16) .......... [PASS] 542. (format-hexadecimal-float 1.4411518807585587e17) .......... [PASS] 543. (format-hexadecimal-float 5.764607523034235e17) .......... [PASS] 544. (format-hexadecimal-float 2.305843009213694e18) .......... [PASS] 545. (format-hexadecimal-float 9.223372036854776e18) .......... [PASS] 546. (format-hexadecimal-float 3.6893488147419103e19) .......... [PASS] 547. (format-hexadecimal-float 1.4757395258967641e20) .......... [PASS] 548. (format-hexadecimal-float 5.902958103587057e20) .......... [PASS] 549. (format-hexadecimal-float 2.3611832414348226e21) .......... [PASS] 550. (format-hexadecimal-float 9.44473296573929e21) .......... [PASS] 551. (format-hexadecimal-float 3.777893186295716e22) .......... [PASS] 552. (format-hexadecimal-float 1.5111572745182865e23) .......... [PASS] 553. (format-hexadecimal-float 6.044629098073146e23) .......... [PASS] 554. (format-hexadecimal-float 2.4178516392292583e24) .......... [PASS] 555. (format-hexadecimal-float 9.671406556917033e24) .......... [PASS] 556. (format-hexadecimal-float 3.8685626227668134e25) .......... [PASS] 557. (format-hexadecimal-float 1.5474250491067253e26) .......... [PASS] 558. (format-hexadecimal-float 6.1897001964269014e26) .......... [PASS] 559. (format-hexadecimal-float 2.4758800785707605e27) .......... [PASS] 560. (format-hexadecimal-float 9.903520314283042e27) .......... [PASS] 561. (format-hexadecimal-float 3.961408125713217e28) .......... [PASS] 562. (format-hexadecimal-float 1.5845632502852868e29) .......... [PASS] 563. (format-hexadecimal-float 6.338253001141147e29) .......... [PASS] 564. (format-hexadecimal-float 2.535301200456459e30) .......... [PASS] 565. (format-hexadecimal-float 1.0141204801825835e31) .......... [PASS] 566. (format-hexadecimal-float 4.056481920730334e31) .......... [PASS] 567. (format-hexadecimal-float 1.6225927682921336e32) .......... [PASS] 568. (format-hexadecimal-float 6.490371073168535e32) .......... [PASS] 569. (format-hexadecimal-float 2.596148429267414e33) .......... [PASS] 570. (format-hexadecimal-float 1.0384593717069655e34) .......... [PASS] 571. (format-hexadecimal-float 4.153837486827862e34) .......... [PASS] 572. (format-hexadecimal-float 1.661534994731145e35) .......... [PASS] 573. (format-hexadecimal-float 6.646139978924579e35) .......... [PASS] 574. (format-hexadecimal-float 2.658455991569832e36) .......... [PASS] 575. (format-hexadecimal-float 1.0633823966279327e37) .......... [PASS] 576. (format-hexadecimal-float 4.253529586511731e37) .......... [PASS] 577. (format-hexadecimal-float 1.7014118346046923e38) .......... [PASS] 578. (format-hexadecimal-float 6.805647338418769e38) .......... [PASS] 579. (format-hexadecimal-float 2.722258935367508e39) .......... [PASS] 580. (format-hexadecimal-float 1.0889035741470031e40) .......... [PASS] 581. (format-hexadecimal-float 4.3556142965880123e40) .......... [PASS] 582. (format-hexadecimal-float 1.742245718635205e41) .......... [PASS] 583. (format-hexadecimal-float 6.96898287454082e41) .......... [PASS] 584. (format-hexadecimal-float 2.787593149816328e42) .......... [PASS] 585. (format-hexadecimal-float 1.1150372599265312e43) .......... [PASS] 586. (format-hexadecimal-float 4.460149039706125e43) .......... [PASS] 587. (format-hexadecimal-float 1.78405961588245e44) .......... [PASS] 588. (format-hexadecimal-float 7.1362384635297994e44) .......... [PASS] 589. (format-hexadecimal-float 2.85449538541192e45) .......... [PASS] 590. (format-hexadecimal-float 1.141798154164768e46) .......... [PASS] 591. (format-hexadecimal-float 4.567192616659072e46) .......... [PASS] 592. (format-hexadecimal-float 1.8268770466636286e47) .......... [PASS] 593. (format-hexadecimal-float 7.307508186654515e47) .......... [PASS] 594. (format-hexadecimal-float 2.923003274661806e48) .......... [PASS] 595. (format-hexadecimal-float 1.1692013098647223e49) .......... [PASS] 596. (format-hexadecimal-float 4.6768052394588893e49) .......... [PASS] 597. (format-hexadecimal-float 1.8707220957835557e50) .......... [PASS] 598. (format-hexadecimal-float 7.482888383134223e50) .......... [PASS] 599. (format-hexadecimal-float 2.9931553532536892e51) .......... [PASS] 600. (format-hexadecimal-float 1.1972621413014757e52) .......... [PASS] 601. (format-hexadecimal-float 4.789048565205903e52) .......... [PASS] 602. (format-hexadecimal-float 1.915619426082361e53) .......... [PASS] 603. (format-hexadecimal-float 7.662477704329444e53) .......... [PASS] 604. (format-hexadecimal-float 3.064991081731778e54) .......... [PASS] 605. (format-hexadecimal-float 1.2259964326927111e55) .......... [PASS] 606. (format-hexadecimal-float 4.9039857307708443e55) .......... [PASS] 607. (format-hexadecimal-float 1.9615942923083377e56) .......... [PASS] 608. (format-hexadecimal-float 7.846377169233351e56) .......... [PASS] 609. (format-hexadecimal-float 3.1385508676933404e57) .......... [PASS] 610. (format-hexadecimal-float 1.2554203470773362e58) .......... [PASS] 611. (format-hexadecimal-float 5.021681388309345e58) .......... [PASS] 612. (format-hexadecimal-float 2.008672555323738e59) .......... [PASS] 613. (format-hexadecimal-float 8.034690221294951e59) .......... [PASS] 614. (format-hexadecimal-float 3.2138760885179806e60) .......... [PASS] 615. (format-hexadecimal-float 1.2855504354071922e61) .......... [PASS] 616. (format-hexadecimal-float 5.142201741628769e61) .......... [PASS] 617. (format-hexadecimal-float 2.0568806966515076e62) .......... [PASS] 618. (format-hexadecimal-float 8.22752278660603e62) .......... [PASS] 619. (format-hexadecimal-float 3.291009114642412e63) .......... [PASS] 620. (format-hexadecimal-float 1.3164036458569648e64) .......... [PASS] 621. (format-hexadecimal-float 5.2656145834278593e64) .......... [PASS] 622. (format-hexadecimal-float 2.1062458333711437e65) .......... [PASS] 623. (format-hexadecimal-float 8.424983333484575e65) .......... [PASS] 624. (format-hexadecimal-float 3.36999333339383e66) .......... [PASS] 625. (format-hexadecimal-float 1.347997333357532e67) .......... [PASS] 626. (format-hexadecimal-float 5.391989333430128e67) .......... [PASS] 627. (format-hexadecimal-float 2.1567957333720512e68) .......... [PASS] 628. (format-hexadecimal-float 8.627182933488205e68) .......... [PASS] 629. (format-hexadecimal-float 3.450873173395282e69) .......... [PASS] 630. (format-hexadecimal-float 1.3803492693581128e70) .......... [PASS] 631. (format-hexadecimal-float 5.521397077432451e70) .......... [PASS] 632. (format-hexadecimal-float 2.2085588309729804e71) .......... [PASS] 633. (format-hexadecimal-float 8.834235323891922e71) .......... [PASS] 634. (format-hexadecimal-float 3.533694129556769e72) .......... [PASS] 635. (format-hexadecimal-float 1.4134776518227075e73) .......... [PASS] 636. (format-hexadecimal-float 5.65391060729083e73) .......... [PASS] 637. (format-hexadecimal-float 2.261564242916332e74) .......... [PASS] 638. (format-hexadecimal-float 9.046256971665328e74) .......... [PASS] 639. (format-hexadecimal-float 3.618502788666131e75) .......... [PASS] 640. (format-hexadecimal-float 1.4474011154664524e76) .......... [PASS] 641. (format-hexadecimal-float 5.78960446186581e76) .......... [PASS] 642. (format-hexadecimal-float 2.315841784746324e77) .......... [PASS] 643. (format-hexadecimal-float 9.263367138985296e77) .......... [PASS] 644. (format-hexadecimal-float 3.7053468555941183e78) .......... [PASS] 645. (format-hexadecimal-float 1.4821387422376473e79) .......... [PASS] 646. (format-hexadecimal-float 5.928554968950589e79) .......... [PASS] 647. (format-hexadecimal-float 2.3714219875802357e80) .......... [PASS] 648. (format-hexadecimal-float 9.485687950320943e80) .......... [PASS] 649. (format-hexadecimal-float 3.794275180128377e81) .......... [PASS] 650. (format-hexadecimal-float 1.517710072051351e82) .......... [PASS] 651. (format-hexadecimal-float 6.0708402882054033e82) .......... [PASS] 652. (format-hexadecimal-float 2.4283361152821613e83) .......... [PASS] 653. (format-hexadecimal-float 9.713344461128645e83) .......... [PASS] 654. (format-hexadecimal-float 3.885337784451458e84) .......... [PASS] 655. (format-hexadecimal-float 1.5541351137805833e85) .......... [PASS] 656. (format-hexadecimal-float 6.216540455122333e85) .......... [PASS] 657. (format-hexadecimal-float 2.4866161820489332e86) .......... [PASS] 658. (format-hexadecimal-float 9.946464728195733e86) .......... [PASS] 659. (format-hexadecimal-float 3.978585891278293e87) .......... [PASS] 660. (format-hexadecimal-float 1.5914343565113173e88) .......... [PASS] 661. (format-hexadecimal-float 6.365737426045269e88) .......... [PASS] 662. (format-hexadecimal-float 2.5462949704181076e89) .......... [PASS] 663. (format-hexadecimal-float 1.018517988167243e90) .......... [PASS] 664. (format-hexadecimal-float 4.074071952668972e90) .......... [PASS] 665. (format-hexadecimal-float 1.629628781067589e91) .......... [PASS] 666. (format-hexadecimal-float 6.5185151242703555e91) .......... [PASS] 667. (format-hexadecimal-float 2.6074060497081422e92) .......... [PASS] 668. (format-hexadecimal-float 1.0429624198832569e93) .......... [PASS] 669. (format-hexadecimal-float 4.1718496795330275e93) .......... [PASS] 670. (format-hexadecimal-float 1.668739871813211e94) .......... [PASS] 671. (format-hexadecimal-float 6.674959487252844e94) .......... [PASS] 672. (format-hexadecimal-float 2.6699837949011376e95) .......... [PASS] 673. (format-hexadecimal-float 1.067993517960455e96) .......... [PASS] 674. (format-hexadecimal-float 4.27197407184182e96) .......... [PASS] 675. (format-hexadecimal-float 1.708789628736728e97) .......... [PASS] 676. (format-hexadecimal-float 6.835158514946912e97) .......... [PASS] 677. (format-hexadecimal-float 2.734063405978765e98) .......... [PASS] 678. (format-hexadecimal-float 1.093625362391506e99) .......... [PASS] 679. (format-hexadecimal-float 4.374501449566024e99) .......... [PASS] 680. (format-hexadecimal-float 1.7498005798264095e100) .......... [PASS] 681. (format-hexadecimal-float 6.999202319305638e100) .......... [PASS] 682. (format-hexadecimal-float 2.7996809277222553e101) .......... [PASS] 683. (format-hexadecimal-float 1.1198723710889021e102) .......... [PASS] 684. (format-hexadecimal-float 4.4794894843556084e102) .......... [PASS] 685. (format-hexadecimal-float 1.7917957937422434e103) .......... [PASS] 686. (format-hexadecimal-float 7.1671831749689735e103) .......... [PASS] 687. (format-hexadecimal-float 2.8668732699875894e104) .......... [PASS] 688. (format-hexadecimal-float 1.1467493079950358e105) .......... [PASS] 689. (format-hexadecimal-float 4.586997231980143e105) .......... [PASS] 690. (format-hexadecimal-float 1.8347988927920572e106) .......... [PASS] 691. (format-hexadecimal-float 7.339195571168229e106) .......... [PASS] 692. (format-hexadecimal-float 2.9356782284672915e107) .......... [PASS] 693. (format-hexadecimal-float 1.1742712913869166e108) .......... [PASS] 694. (format-hexadecimal-float 4.6970851655476665e108) .......... [PASS] 695. (format-hexadecimal-float 1.8788340662190666e109) .......... [PASS] 696. (format-hexadecimal-float 7.515336264876266e109) .......... [PASS] 697. (format-hexadecimal-float 3.0061345059505065e110) .......... [PASS] 698. (format-hexadecimal-float 1.2024538023802026e111) .......... [PASS] 699. (format-hexadecimal-float 4.8098152095208105e111) .......... [PASS] 700. (format-hexadecimal-float 1.9239260838083242e112) .......... [PASS] 701. (format-hexadecimal-float 7.695704335233297e112) .......... [PASS] 702. (format-hexadecimal-float 3.078281734093319e113) .......... [PASS] 703. (format-hexadecimal-float 1.2313126936373275e114) .......... [PASS] 704. (format-hexadecimal-float 4.92525077454931e114) .......... [PASS] 705. (format-hexadecimal-float 1.970100309819724e115) .......... [PASS] 706. (format-hexadecimal-float 7.880401239278896e115) .......... [PASS] 707. (format-hexadecimal-float 3.1521604957115583e116) .......... [PASS] 708. (format-hexadecimal-float 1.2608641982846233e117) .......... [PASS] 709. (format-hexadecimal-float 5.0434567931384933e117) .......... [PASS] 710. (format-hexadecimal-float 2.0173827172553973e118) .......... [PASS] 711. (format-hexadecimal-float 8.069530869021589e118) .......... [PASS] 712. (format-hexadecimal-float 3.227812347608636e119) .......... [PASS] 713. (format-hexadecimal-float 1.2911249390434543e120) .......... [PASS] 714. (format-hexadecimal-float 5.164499756173817e120) .......... [PASS] 715. (format-hexadecimal-float 2.065799902469527e121) .......... [PASS] 716. (format-hexadecimal-float 8.2631996098781075e121) .......... [PASS] 717. (format-hexadecimal-float 3.305279843951243e122) .......... [PASS] 718. (format-hexadecimal-float 1.3221119375804972e123) .......... [PASS] 719. (format-hexadecimal-float 5.288447750321989e123) .......... [PASS] 720. (format-hexadecimal-float 2.1153791001287955e124) .......... [PASS] 721. (format-hexadecimal-float 8.461516400515182e124) .......... [PASS] 722. (format-hexadecimal-float 3.384606560206073e125) .......... [PASS] 723. (format-hexadecimal-float 1.3538426240824291e126) .......... [PASS] 724. (format-hexadecimal-float 5.415370496329717e126) .......... [PASS] 725. (format-hexadecimal-float 2.1661481985318866e127) .......... [PASS] 726. (format-hexadecimal-float 8.664592794127546e127) .......... [PASS] 727. (format-hexadecimal-float 3.4658371176510186e128) .......... [PASS] 728. (format-hexadecimal-float 1.3863348470604074e129) .......... [PASS] 729. (format-hexadecimal-float 5.54533938824163e129) .......... [PASS] 730. (format-hexadecimal-float 2.218135755296652e130) .......... [PASS] 731. (format-hexadecimal-float 8.872543021186608e130) .......... [PASS] 732. (format-hexadecimal-float 3.549017208474643e131) .......... [PASS] 733. (format-hexadecimal-float 1.4196068833898572e132) .......... [PASS] 734. (format-hexadecimal-float 5.678427533559429e132) .......... [PASS] 735. (format-hexadecimal-float 2.2713710134237715e133) .......... [PASS] 736. (format-hexadecimal-float 9.085484053695086e133) .......... [PASS] 737. (format-hexadecimal-float 3.6341936214780345e134) .......... [PASS] 738. (format-hexadecimal-float 1.4536774485912138e135) .......... [PASS] 739. (format-hexadecimal-float 5.814709794364855e135) .......... [PASS] 740. (format-hexadecimal-float 2.325883917745942e136) .......... [PASS] 741. (format-hexadecimal-float 9.303535670983768e136) .......... [PASS] 742. (format-hexadecimal-float 3.7214142683935073e137) .......... [PASS] 743. (format-hexadecimal-float 1.488565707357403e138) .......... [PASS] 744. (format-hexadecimal-float 5.954262829429612e138) .......... [PASS] 745. (format-hexadecimal-float 2.3817051317718447e139) .......... [PASS] 746. (format-hexadecimal-float 9.526820527087379e139) .......... [PASS] 747. (format-hexadecimal-float 3.8107282108349515e140) .......... [PASS] 748. (format-hexadecimal-float 1.5242912843339806e141) .......... [PASS] 749. (format-hexadecimal-float 6.097165137335922e141) .......... [PASS] 750. (format-hexadecimal-float 2.438866054934369e142) .......... [PASS] 751. (format-hexadecimal-float 9.755464219737476e142) .......... [PASS] 752. (format-hexadecimal-float 3.9021856878949903e143) .......... [PASS] 753. (format-hexadecimal-float 1.5608742751579961e144) .......... [PASS] 754. (format-hexadecimal-float 6.2434971006319845e144) .......... [PASS] 755. (format-hexadecimal-float 2.497398840252794e145) .......... [PASS] 756. (format-hexadecimal-float 9.989595361011175e145) .......... [PASS] 757. (format-hexadecimal-float 3.99583814440447e146) .......... [PASS] 758. (format-hexadecimal-float 1.598335257761788e147) .......... [PASS] 759. (format-hexadecimal-float 6.393341031047152e147) .......... [PASS] 760. (format-hexadecimal-float 2.557336412418861e148) .......... [PASS] 761. (format-hexadecimal-float 1.0229345649675443e149) .......... [PASS] 762. (format-hexadecimal-float 4.0917382598701773e149) .......... [PASS] 763. (format-hexadecimal-float 1.636695303948071e150) .......... [PASS] 764. (format-hexadecimal-float 6.546781215792284e150) .......... [PASS] 765. (format-hexadecimal-float 2.6187124863169135e151) .......... [PASS] 766. (format-hexadecimal-float 1.0474849945267654e152) .......... [PASS] 767. (format-hexadecimal-float 4.189939978107062e152) .......... [PASS] 768. (format-hexadecimal-float 1.6759759912428246e153) .......... [PASS] 769. (format-hexadecimal-float 6.703903964971299e153) .......... [PASS] 770. (format-hexadecimal-float 2.6815615859885194e154) .......... [PASS] 771. (format-hexadecimal-float 1.0726246343954078e155) .......... [PASS] 772. (format-hexadecimal-float 4.290498537581631e155) .......... [PASS] 773. (format-hexadecimal-float 1.7161994150326524e156) .......... [PASS] 774. (format-hexadecimal-float 6.86479766013061e156) .......... [PASS] 775. (format-hexadecimal-float 2.745919064052244e157) .......... [PASS] 776. (format-hexadecimal-float 1.0983676256208976e158) .......... [PASS] 777. (format-hexadecimal-float 4.39347050248359e158) .......... [PASS] 778. (format-hexadecimal-float 1.757388200993436e159) .......... [PASS] 779. (format-hexadecimal-float 7.029552803973744e159) .......... [PASS] 780. (format-hexadecimal-float 2.811821121589498e160) .......... [PASS] 781. (format-hexadecimal-float 1.1247284486357991e161) .......... [PASS] 782. (format-hexadecimal-float 4.4989137945431964e161) .......... [PASS] 783. (format-hexadecimal-float 1.7995655178172786e162) .......... [PASS] 784. (format-hexadecimal-float 7.198262071269114e162) .......... [PASS] 785. (format-hexadecimal-float 2.879304828507646e163) .......... [PASS] 786. (format-hexadecimal-float 1.1517219314030583e164) .......... [PASS] 787. (format-hexadecimal-float 4.606887725612233e164) .......... [PASS] 788. (format-hexadecimal-float 1.8427550902448932e165) .......... [PASS] 789. (format-hexadecimal-float 7.371020360979573e165) .......... [PASS] 790. (format-hexadecimal-float 2.9484081443918292e166) .......... [PASS] 791. (format-hexadecimal-float 1.1793632577567317e167) .......... [PASS] 792. (format-hexadecimal-float 4.717453031026927e167) .......... [PASS] 793. (format-hexadecimal-float 1.8869812124107707e168) .......... [PASS] 794. (format-hexadecimal-float 7.547924849643083e168) .......... [PASS] 795. (format-hexadecimal-float 3.019169939857233e169) .......... [PASS] 796. (format-hexadecimal-float 1.2076679759428932e170) .......... [PASS] 797. (format-hexadecimal-float 4.830671903771573e170) .......... [PASS] 798. (format-hexadecimal-float 1.9322687615086292e171) .......... [PASS] 799. (format-hexadecimal-float 7.729075046034517e171) .......... [PASS] 800. (format-hexadecimal-float 3.091630018413807e172) .......... [PASS] 801. (format-hexadecimal-float 1.2366520073655227e173) .......... [PASS] 802. (format-hexadecimal-float 4.946608029462091e173) .......... [PASS] 803. (format-hexadecimal-float 1.9786432117848363e174) .......... [PASS] 804. (format-hexadecimal-float 7.914572847139345e174) .......... [PASS] 805. (format-hexadecimal-float 3.165829138855738e175) .......... [PASS] 806. (format-hexadecimal-float 1.2663316555422952e176) .......... [PASS] 807. (format-hexadecimal-float 5.065326622169181e176) .......... [PASS] 808. (format-hexadecimal-float 2.0261306488676723e177) .......... [PASS] 809. (format-hexadecimal-float 8.104522595470689e177) .......... [PASS] 810. (format-hexadecimal-float 3.241809038188276e178) .......... [PASS] 811. (format-hexadecimal-float 1.2967236152753103e179) .......... [PASS] 812. (format-hexadecimal-float 5.186894461101241e179) .......... [PASS] 813. (format-hexadecimal-float 2.0747577844404965e180) .......... [PASS] 814. (format-hexadecimal-float 8.299031137761986e180) .......... [PASS] 815. (format-hexadecimal-float 3.3196124551047944e181) .......... [PASS] 816. (format-hexadecimal-float 1.3278449820419177e182) .......... [PASS] 817. (format-hexadecimal-float 5.311379928167671e182) .......... [PASS] 818. (format-hexadecimal-float 2.1245519712670684e183) .......... [PASS] 819. (format-hexadecimal-float 8.498207885068274e183) .......... [PASS] 820. (format-hexadecimal-float 3.3992831540273094e184) .......... [PASS] 821. (format-hexadecimal-float 1.3597132616109238e185) .......... [PASS] 822. (format-hexadecimal-float 5.438853046443695e185) .......... [PASS] 823. (format-hexadecimal-float 2.175541218577478e186) .......... [PASS] 824. (format-hexadecimal-float 8.702164874309912e186) .......... [PASS] 825. (format-hexadecimal-float 3.480865949723965e187) .......... [PASS] 826. (format-hexadecimal-float 1.392346379889586e188) .......... [PASS] 827. (format-hexadecimal-float 5.569385519558344e188) .......... [PASS] 828. (format-hexadecimal-float 2.2277542078233375e189) .......... [PASS] 829. (format-hexadecimal-float 8.91101683129335e189) .......... [PASS] 830. (format-hexadecimal-float 3.56440673251734e190) .......... [PASS] 831. (format-hexadecimal-float 1.425762693006936e191) .......... [PASS] 832. (format-hexadecimal-float 5.703050772027744e191) .......... [PASS] 833. (format-hexadecimal-float 2.2812203088110976e192) .......... [PASS] 834. (format-hexadecimal-float 9.12488123524439e192) .......... [PASS] 835. (format-hexadecimal-float 3.649952494097756e193) .......... [PASS] 836. (format-hexadecimal-float 1.4599809976391025e194) .......... [PASS] 837. (format-hexadecimal-float 5.83992399055641e194) .......... [PASS] 838. (format-hexadecimal-float 2.335969596222564e195) .......... [PASS] 839. (format-hexadecimal-float 9.343878384890256e195) .......... [PASS] 840. (format-hexadecimal-float 3.7375513539561023e196) .......... [PASS] 841. (format-hexadecimal-float 1.495020541582441e197) .......... [PASS] 842. (format-hexadecimal-float 5.980082166329764e197) .......... [PASS] 843. (format-hexadecimal-float 2.3920328665319055e198) .......... [PASS] 844. (format-hexadecimal-float 9.568131466127622e198) .......... [PASS] 845. (format-hexadecimal-float 3.827252586451049e199) .......... [PASS] 846. (format-hexadecimal-float 1.5309010345804195e200) .......... [PASS] 847. (format-hexadecimal-float 6.123604138321678e200) .......... [PASS] 848. (format-hexadecimal-float 2.4494416553286712e201) .......... [PASS] 849. (format-hexadecimal-float 9.797766621314685e201) .......... [PASS] 850. (format-hexadecimal-float 3.919106648525874e202) .......... [PASS] 851. (format-hexadecimal-float 1.5676426594103496e203) .......... [PASS] 852. (format-hexadecimal-float 6.270570637641398e203) .......... [PASS] 853. (format-hexadecimal-float 2.5082282550565593e204) .......... [PASS] 854. (format-hexadecimal-float 1.0032913020226237e205) .......... [PASS] 855. (format-hexadecimal-float 4.013165208090495e205) .......... [PASS] 856. (format-hexadecimal-float 1.605266083236198e206) .......... [PASS] 857. (format-hexadecimal-float 6.421064332944792e206) .......... [PASS] 858. (format-hexadecimal-float 2.568425733177917e207) .......... [PASS] 859. (format-hexadecimal-float 1.0273702932711667e208) .......... [PASS] 860. (format-hexadecimal-float 4.109481173084667e208) .......... [PASS] 861. (format-hexadecimal-float 1.6437924692338667e209) .......... [PASS] 862. (format-hexadecimal-float 6.575169876935467e209) .......... [PASS] 863. (format-hexadecimal-float 2.630067950774187e210) .......... [PASS] 864. (format-hexadecimal-float 1.0520271803096747e211) .......... [PASS] 865. (format-hexadecimal-float 4.208108721238699e211) .......... [PASS] 866. (format-hexadecimal-float 1.6832434884954795e212) .......... [PASS] 867. (format-hexadecimal-float 6.732973953981918e212) .......... [PASS] 868. (format-hexadecimal-float 2.6931895815927672e213) .......... [PASS] 869. (format-hexadecimal-float 1.077275832637107e214) .......... [PASS] 870. (format-hexadecimal-float 4.309103330548428e214) .......... [PASS] 871. (format-hexadecimal-float 1.723641332219371e215) .......... [PASS] 872. (format-hexadecimal-float 6.894565328877484e215) .......... [PASS] 873. (format-hexadecimal-float 2.7578261315509936e216) .......... [PASS] 874. (format-hexadecimal-float 1.1031304526203975e217) .......... [PASS] 875. (format-hexadecimal-float 4.41252181048159e217) .......... [PASS] 876. (format-hexadecimal-float 1.765008724192636e218) .......... [PASS] 877. (format-hexadecimal-float 7.060034896770544e218) .......... [PASS] 878. (format-hexadecimal-float 2.8240139587082175e219) .......... [PASS] 879. (format-hexadecimal-float 1.129605583483287e220) .......... [PASS] 880. (format-hexadecimal-float 4.518422333933148e220) .......... [PASS] 881. (format-hexadecimal-float 1.8073689335732592e221) .......... [PASS] 882. (format-hexadecimal-float 7.229475734293037e221) .......... [PASS] 883. (format-hexadecimal-float 2.891790293717215e222) .......... [PASS] 884. (format-hexadecimal-float 1.156716117486886e223) .......... [PASS] 885. (format-hexadecimal-float 4.626864469947544e223) .......... [PASS] 886. (format-hexadecimal-float 1.8507457879790174e224) .......... [PASS] 887. (format-hexadecimal-float 7.40298315191607e224) .......... [PASS] 888. (format-hexadecimal-float 2.961193260766428e225) .......... [PASS] 889. (format-hexadecimal-float 1.1844773043065711e226) .......... [PASS] 890. (format-hexadecimal-float 4.737909217226285e226) .......... [PASS] 891. (format-hexadecimal-float 1.895163686890514e227) .......... [PASS] 892. (format-hexadecimal-float 7.580654747562055e227) .......... [PASS] 893. (format-hexadecimal-float 3.032261899024822e228) .......... [PASS] 894. (format-hexadecimal-float 1.2129047596099289e229) .......... [PASS] 895. (format-hexadecimal-float 4.8516190384397154e229) .......... [PASS] 896. (format-hexadecimal-float 1.9406476153758862e230) .......... [PASS] 897. (format-hexadecimal-float 7.762590461503545e230) .......... [PASS] 898. (format-hexadecimal-float 3.105036184601418e231) .......... [PASS] 899. (format-hexadecimal-float 1.2420144738405671e232) .......... [PASS] 900. (format-hexadecimal-float 4.968057895362269e232) .......... [PASS] 901. (format-hexadecimal-float 1.9872231581449074e233) .......... [PASS] 902. (format-hexadecimal-float 7.94889263257963e233) .......... [PASS] 903. (format-hexadecimal-float 3.179557053031852e234) .......... [PASS] 904. (format-hexadecimal-float 1.2718228212127408e235) .......... [PASS] 905. (format-hexadecimal-float 5.087291284850963e235) .......... [PASS] 906. (format-hexadecimal-float 2.0349165139403852e236) .......... [PASS] 907. (format-hexadecimal-float 8.139666055761541e236) .......... [PASS] 908. (format-hexadecimal-float 3.2558664223046163e237) .......... [PASS] 909. (format-hexadecimal-float 1.3023465689218465e238) .......... [PASS] 910. (format-hexadecimal-float 5.209386275687386e238) .......... [PASS] 911. (format-hexadecimal-float 2.0837545102749545e239) .......... [PASS] 912. (format-hexadecimal-float 8.335018041099818e239) .......... [PASS] 913. (format-hexadecimal-float 3.334007216439927e240) .......... [PASS] 914. (format-hexadecimal-float 1.333602886575971e241) .......... [PASS] 915. (format-hexadecimal-float 5.3344115463038834e241) .......... [PASS] 916. (format-hexadecimal-float 2.1337646185215534e242) .......... [PASS] 917. (format-hexadecimal-float 8.535058474086213e242) .......... [PASS] 918. (format-hexadecimal-float 3.4140233896344854e243) .......... [PASS] 919. (format-hexadecimal-float 1.3656093558537942e244) .......... [PASS] 920. (format-hexadecimal-float 5.462437423415177e244) .......... [PASS] 921. (format-hexadecimal-float 2.1849749693660706e245) .......... [PASS] 922. (format-hexadecimal-float 8.739899877464283e245) .......... [PASS] 923. (format-hexadecimal-float 3.495959950985713e246) .......... [PASS] 924. (format-hexadecimal-float 1.3983839803942852e247) .......... [PASS] 925. (format-hexadecimal-float 5.593535921577141e247) .......... [PASS] 926. (format-hexadecimal-float 2.2374143686308563e248) .......... [PASS] 927. (format-hexadecimal-float 8.949657474523425e248) .......... [PASS] 928. (format-hexadecimal-float 3.57986298980937e249) .......... [PASS] 929. (format-hexadecimal-float 1.431945195923748e250) .......... [PASS] 930. (format-hexadecimal-float 5.727780783694992e250) .......... [PASS] 931. (format-hexadecimal-float 2.291112313477997e251) .......... [PASS] 932. (format-hexadecimal-float 9.164449253911988e251) .......... [PASS] 933. (format-hexadecimal-float 3.665779701564795e252) .......... [PASS] 934. (format-hexadecimal-float 1.466311880625918e253) .......... [PASS] 935. (format-hexadecimal-float 5.865247522503672e253) .......... [PASS] 936. (format-hexadecimal-float 2.346099009001469e254) .......... [PASS] 937. (format-hexadecimal-float 9.384396036005875e254) .......... [PASS] 938. (format-hexadecimal-float 3.75375841440235e255) .......... [PASS] 939. (format-hexadecimal-float 1.50150336576094e256) .......... [PASS] 940. (format-hexadecimal-float 6.00601346304376e256) .......... [PASS] 941. (format-hexadecimal-float 2.402405385217504e257) .......... [PASS] 942. (format-hexadecimal-float 9.609621540870016e257) .......... [PASS] 943. (format-hexadecimal-float 3.8438486163480065e258) .......... [PASS] 944. (format-hexadecimal-float 1.5375394465392026e259) .......... [PASS] 945. (format-hexadecimal-float 6.1501577861568104e259) .......... [PASS] 946. (format-hexadecimal-float 2.4600631144627242e260) .......... [PASS] 947. (format-hexadecimal-float 9.840252457850897e260) .......... [PASS] 948. (format-hexadecimal-float 3.936100983140359e261) .......... [PASS] 949. (format-hexadecimal-float 1.5744403932561435e262) .......... [PASS] 950. (format-hexadecimal-float 6.297761573024574e262) .......... [PASS] 951. (format-hexadecimal-float 2.5191046292098296e263) .......... [PASS] 952. (format-hexadecimal-float 1.0076418516839318e264) .......... [PASS] 953. (format-hexadecimal-float 4.0305674067357273e264) .......... [PASS] 954. (format-hexadecimal-float 1.612226962694291e265) .......... [PASS] 955. (format-hexadecimal-float 6.448907850777164e265) .......... [PASS] 956. (format-hexadecimal-float 2.5795631403108655e266) .......... [PASS] 957. (format-hexadecimal-float 1.0318252561243462e267) .......... [PASS] 958. (format-hexadecimal-float 4.127301024497385e267) .......... [PASS] 959. (format-hexadecimal-float 1.650920409798954e268) .......... [PASS] 960. (format-hexadecimal-float 6.603681639195816e268) .......... [PASS] 961. (format-hexadecimal-float 2.6414726556783262e269) .......... [PASS] 962. (format-hexadecimal-float 1.0565890622713305e270) .......... [PASS] 963. (format-hexadecimal-float 4.226356249085322e270) .......... [PASS] 964. (format-hexadecimal-float 1.6905424996341288e271) .......... [PASS] 965. (format-hexadecimal-float 6.762169998536515e271) .......... [PASS] 966. (format-hexadecimal-float 2.704867999414606e272) .......... [PASS] 967. (format-hexadecimal-float 1.0819471997658424e273) .......... [PASS] 968. (format-hexadecimal-float 4.32778879906337e273) .......... [PASS] 969. (format-hexadecimal-float 1.731115519625348e274) .......... [PASS] 970. (format-hexadecimal-float 6.924462078501392e274) .......... [PASS] 971. (format-hexadecimal-float 2.7697848314005566e275) .......... [PASS] 972. (format-hexadecimal-float 1.1079139325602226e276) .......... [PASS] 973. (format-hexadecimal-float 4.431655730240891e276) .......... [PASS] 974. (format-hexadecimal-float 1.7726622920963562e277) .......... [PASS] 975. (format-hexadecimal-float 7.090649168385425e277) .......... [PASS] 976. (format-hexadecimal-float 2.83625966735417e278) .......... [PASS] 977. (format-hexadecimal-float 1.134503866941668e279) .......... [PASS] 978. (format-hexadecimal-float 4.538015467766672e279) .......... [PASS] 979. (format-hexadecimal-float 1.8152061871066688e280) .......... [PASS] 980. (format-hexadecimal-float 7.260824748426675e280) .......... [PASS] 981. (format-hexadecimal-float 2.90432989937067e281) .......... [PASS] 982. (format-hexadecimal-float 1.161731959748268e282) .......... [PASS] 983. (format-hexadecimal-float 4.646927838993072e282) .......... [PASS] 984. (format-hexadecimal-float 1.858771135597229e283) .......... [PASS] 985. (format-hexadecimal-float 7.435084542388915e283) .......... [PASS] 986. (format-hexadecimal-float 2.974033816955566e284) .......... [PASS] 987. (format-hexadecimal-float 1.1896135267822265e285) .......... [PASS] 988. (format-hexadecimal-float 4.758454107128906e285) .......... [PASS] 989. (format-hexadecimal-float 1.9033816428515623e286) .......... [PASS] 990. (format-hexadecimal-float 7.613526571406249e286) .......... [PASS] 991. (format-hexadecimal-float 3.0454106285625e287) .......... [PASS] 992. (format-hexadecimal-float 1.218164251425e288) .......... [PASS] 993. (format-hexadecimal-float 4.8726570057e288) .......... [PASS] 994. (format-hexadecimal-float 1.94906280228e289) .......... [PASS] 995. (format-hexadecimal-float 7.796251209119999e289) .......... [PASS] 996. (format-hexadecimal-float 3.118500483648e290) .......... [PASS] 997. (format-hexadecimal-float 1.2474001934592e291) .......... [PASS] 998. (format-hexadecimal-float 4.9896007738368e291) .......... [PASS] 999. (format-hexadecimal-float 1.99584030953472e292) .......... [PASS] 1000. (format-hexadecimal-float 7.983361238138879e292) .......... [PASS] 1001. (format-hexadecimal-float 3.193344495255552e293) .......... [PASS] 1002. (format-hexadecimal-float 1.2773377981022207e294) .......... [PASS] 1003. (format-hexadecimal-float 5.109351192408883e294) .......... [PASS] 1004. (format-hexadecimal-float 2.043740476963553e295) .......... [PASS] 1005. (format-hexadecimal-float 8.174961907854212e295) .......... [PASS] 1006. (format-hexadecimal-float 3.269984763141685e296) .......... [PASS] 1007. (format-hexadecimal-float 1.307993905256674e297) .......... [PASS] 1008. (format-hexadecimal-float 5.231975621026696e297) .......... [PASS] 1009. (format-hexadecimal-float 2.0927902484106784e298) .......... [PASS] 1010. (format-hexadecimal-float 8.371160993642713e298) .......... [PASS] 1011. (format-hexadecimal-float 3.3484643974570854e299) .......... [PASS] 1012. (format-hexadecimal-float 1.3393857589828342e300) .......... [PASS] 1013. (format-hexadecimal-float 5.357543035931337e300) .......... [PASS] 1014. (format-hexadecimal-float 2.1430172143725346e301) .......... [PASS] 1015. (format-hexadecimal-float 8.572068857490139e301) .......... [PASS] 1016. (format-hexadecimal-float 3.4288275429960554e302) .......... [PASS] 1017. (format-hexadecimal-float 1.3715310171984222e303) .......... [PASS] 1018. (format-hexadecimal-float 5.486124068793689e303) .......... [PASS] 1019. (format-hexadecimal-float 2.1944496275174755e304) .......... [PASS] 1020. (format-hexadecimal-float 8.777798510069902e304) .......... [PASS] 1021. (format-hexadecimal-float 3.511119404027961e305) .......... [PASS] 1022. (format-hexadecimal-float 1.4044477616111843e306) .......... [PASS] 1023. (format-hexadecimal-float 5.617791046444737e306) .......... [PASS] 1024. (format-hexadecimal-float 2.247116418577895e307) .......... [PASS] 1025. (format-hexadecimal-float 8.98846567431158e307) .......... [PASS] 1026. (format-hexadecimal-float -8.0) .......... [PASS] 1027. (format-hexadecimal-float -7.984375) .......... [PASS] 1028. (format-hexadecimal-float -7.96875) .......... [PASS] 1029. (format-hexadecimal-float -7.953125) .......... [PASS] 1030. (format-hexadecimal-float -7.9375) .......... [PASS] 1031. (format-hexadecimal-float -7.921875) .......... [PASS] 1032. (format-hexadecimal-float -7.90625) .......... [PASS] 1033. (format-hexadecimal-float -7.890625) .......... [PASS] 1034. (format-hexadecimal-float -7.875) .......... [PASS] 1035. (format-hexadecimal-float -7.859375) .......... [PASS] 1036. (format-hexadecimal-float -7.84375) .......... [PASS] 1037. (format-hexadecimal-float -7.828125) .......... [PASS] 1038. (format-hexadecimal-float -7.8125) .......... [PASS] 1039. (format-hexadecimal-float -7.796875) .......... [PASS] 1040. (format-hexadecimal-float -7.78125) .......... [PASS] 1041. (format-hexadecimal-float -7.765625) .......... [PASS] 1042. (format-hexadecimal-float -7.75) .......... [PASS] 1043. (format-hexadecimal-float -7.734375) .......... [PASS] 1044. (format-hexadecimal-float -7.71875) .......... [PASS] 1045. (format-hexadecimal-float -7.703125) .......... [PASS] 1046. (format-hexadecimal-float -7.6875) .......... [PASS] 1047. (format-hexadecimal-float -7.671875) .......... [PASS] 1048. (format-hexadecimal-float -7.65625) .......... [PASS] 1049. (format-hexadecimal-float -7.640625) .......... [PASS] 1050. (format-hexadecimal-float -7.625) .......... [PASS] 1051. (format-hexadecimal-float -7.609375) .......... [PASS] 1052. (format-hexadecimal-float -7.59375) .......... [PASS] 1053. (format-hexadecimal-float -7.578125) .......... [PASS] 1054. (format-hexadecimal-float -7.5625) .......... [PASS] 1055. (format-hexadecimal-float -7.546875) .......... [PASS] 1056. (format-hexadecimal-float -7.53125) .......... [PASS] 1057. (format-hexadecimal-float -7.515625) .......... [PASS] 1058. (format-hexadecimal-float -7.5) .......... [PASS] 1059. (format-hexadecimal-float -7.484375) .......... [PASS] 1060. (format-hexadecimal-float -7.46875) .......... [PASS] 1061. (format-hexadecimal-float -7.453125) .......... [PASS] 1062. (format-hexadecimal-float -7.4375) .......... [PASS] 1063. (format-hexadecimal-float -7.421875) .......... [PASS] 1064. (format-hexadecimal-float -7.40625) .......... [PASS] 1065. (format-hexadecimal-float -7.390625) .......... [PASS] 1066. (format-hexadecimal-float -7.375) .......... [PASS] 1067. (format-hexadecimal-float -7.359375) .......... [PASS] 1068. (format-hexadecimal-float -7.34375) .......... [PASS] 1069. (format-hexadecimal-float -7.328125) .......... [PASS] 1070. (format-hexadecimal-float -7.3125) .......... [PASS] 1071. (format-hexadecimal-float -7.296875) .......... [PASS] 1072. (format-hexadecimal-float -7.28125) .......... [PASS] 1073. (format-hexadecimal-float -7.265625) .......... [PASS] 1074. (format-hexadecimal-float -7.25) .......... [PASS] 1075. (format-hexadecimal-float -7.234375) .......... [PASS] 1076. (format-hexadecimal-float -7.21875) .......... [PASS] 1077. (format-hexadecimal-float -7.203125) .......... [PASS] 1078. (format-hexadecimal-float -7.1875) .......... [PASS] 1079. (format-hexadecimal-float -7.171875) .......... [PASS] 1080. (format-hexadecimal-float -7.15625) .......... [PASS] 1081. (format-hexadecimal-float -7.140625) .......... [PASS] 1082. (format-hexadecimal-float -7.125) .......... [PASS] 1083. (format-hexadecimal-float -7.109375) .......... [PASS] 1084. (format-hexadecimal-float -7.09375) .......... [PASS] 1085. (format-hexadecimal-float -7.078125) .......... [PASS] 1086. (format-hexadecimal-float -7.0625) .......... [PASS] 1087. (format-hexadecimal-float -7.046875) .......... [PASS] 1088. (format-hexadecimal-float -7.03125) .......... [PASS] 1089. (format-hexadecimal-float -7.015625) .......... [PASS] 1090. (format-hexadecimal-float -7.0) .......... [PASS] 1091. (format-hexadecimal-float -6.984375) .......... [PASS] 1092. (format-hexadecimal-float -6.96875) .......... [PASS] 1093. (format-hexadecimal-float -6.953125) .......... [PASS] 1094. (format-hexadecimal-float -6.9375) .......... [PASS] 1095. (format-hexadecimal-float -6.921875) .......... [PASS] 1096. (format-hexadecimal-float -6.90625) .......... [PASS] 1097. (format-hexadecimal-float -6.890625) .......... [PASS] 1098. (format-hexadecimal-float -6.875) .......... [PASS] 1099. (format-hexadecimal-float -6.859375) .......... [PASS] 1100. (format-hexadecimal-float -6.84375) .......... [PASS] 1101. (format-hexadecimal-float -6.828125) .......... [PASS] 1102. (format-hexadecimal-float -6.8125) .......... [PASS] 1103. (format-hexadecimal-float -6.796875) .......... [PASS] 1104. (format-hexadecimal-float -6.78125) .......... [PASS] 1105. (format-hexadecimal-float -6.765625) .......... [PASS] 1106. (format-hexadecimal-float -6.75) .......... [PASS] 1107. (format-hexadecimal-float -6.734375) .......... [PASS] 1108. (format-hexadecimal-float -6.71875) .......... [PASS] 1109. (format-hexadecimal-float -6.703125) .......... [PASS] 1110. (format-hexadecimal-float -6.6875) .......... [PASS] 1111. (format-hexadecimal-float -6.671875) .......... [PASS] 1112. (format-hexadecimal-float -6.65625) .......... [PASS] 1113. (format-hexadecimal-float -6.640625) .......... [PASS] 1114. (format-hexadecimal-float -6.625) .......... [PASS] 1115. (format-hexadecimal-float -6.609375) .......... [PASS] 1116. (format-hexadecimal-float -6.59375) .......... [PASS] 1117. (format-hexadecimal-float -6.578125) .......... [PASS] 1118. (format-hexadecimal-float -6.5625) .......... [PASS] 1119. (format-hexadecimal-float -6.546875) .......... [PASS] 1120. (format-hexadecimal-float -6.53125) .......... [PASS] 1121. (format-hexadecimal-float -6.515625) .......... [PASS] 1122. (format-hexadecimal-float -6.5) .......... [PASS] 1123. (format-hexadecimal-float -6.484375) .......... [PASS] 1124. (format-hexadecimal-float -6.46875) .......... [PASS] 1125. (format-hexadecimal-float -6.453125) .......... [PASS] 1126. (format-hexadecimal-float -6.4375) .......... [PASS] 1127. (format-hexadecimal-float -6.421875) .......... [PASS] 1128. (format-hexadecimal-float -6.40625) .......... [PASS] 1129. (format-hexadecimal-float -6.390625) .......... [PASS] 1130. (format-hexadecimal-float -6.375) .......... [PASS] 1131. (format-hexadecimal-float -6.359375) .......... [PASS] 1132. (format-hexadecimal-float -6.34375) .......... [PASS] 1133. (format-hexadecimal-float -6.328125) .......... [PASS] 1134. (format-hexadecimal-float -6.3125) .......... [PASS] 1135. (format-hexadecimal-float -6.296875) .......... [PASS] 1136. (format-hexadecimal-float -6.28125) .......... [PASS] 1137. (format-hexadecimal-float -6.265625) .......... [PASS] 1138. (format-hexadecimal-float -6.25) .......... [PASS] 1139. (format-hexadecimal-float -6.234375) .......... [PASS] 1140. (format-hexadecimal-float -6.21875) .......... [PASS] 1141. (format-hexadecimal-float -6.203125) .......... [PASS] 1142. (format-hexadecimal-float -6.1875) .......... [PASS] 1143. (format-hexadecimal-float -6.171875) .......... [PASS] 1144. (format-hexadecimal-float -6.15625) .......... [PASS] 1145. (format-hexadecimal-float -6.140625) .......... [PASS] 1146. (format-hexadecimal-float -6.125) .......... [PASS] 1147. (format-hexadecimal-float -6.109375) .......... [PASS] 1148. (format-hexadecimal-float -6.09375) .......... [PASS] 1149. (format-hexadecimal-float -6.078125) .......... [PASS] 1150. (format-hexadecimal-float -6.0625) .......... [PASS] 1151. (format-hexadecimal-float -6.046875) .......... [PASS] 1152. (format-hexadecimal-float -6.03125) .......... [PASS] 1153. (format-hexadecimal-float -6.015625) .......... [PASS] 1154. (format-hexadecimal-float -6.0) .......... [PASS] 1155. (format-hexadecimal-float -5.984375) .......... [PASS] 1156. (format-hexadecimal-float -5.96875) .......... [PASS] 1157. (format-hexadecimal-float -5.953125) .......... [PASS] 1158. (format-hexadecimal-float -5.9375) .......... [PASS] 1159. (format-hexadecimal-float -5.921875) .......... [PASS] 1160. (format-hexadecimal-float -5.90625) .......... [PASS] 1161. (format-hexadecimal-float -5.890625) .......... [PASS] 1162. (format-hexadecimal-float -5.875) .......... [PASS] 1163. (format-hexadecimal-float -5.859375) .......... [PASS] 1164. (format-hexadecimal-float -5.84375) .......... [PASS] 1165. (format-hexadecimal-float -5.828125) .......... [PASS] 1166. (format-hexadecimal-float -5.8125) .......... [PASS] 1167. (format-hexadecimal-float -5.796875) .......... [PASS] 1168. (format-hexadecimal-float -5.78125) .......... [PASS] 1169. (format-hexadecimal-float -5.765625) .......... [PASS] 1170. (format-hexadecimal-float -5.75) .......... [PASS] 1171. (format-hexadecimal-float -5.734375) .......... [PASS] 1172. (format-hexadecimal-float -5.71875) .......... [PASS] 1173. (format-hexadecimal-float -5.703125) .......... [PASS] 1174. (format-hexadecimal-float -5.6875) .......... [PASS] 1175. (format-hexadecimal-float -5.671875) .......... [PASS] 1176. (format-hexadecimal-float -5.65625) .......... [PASS] 1177. (format-hexadecimal-float -5.640625) .......... [PASS] 1178. (format-hexadecimal-float -5.625) .......... [PASS] 1179. (format-hexadecimal-float -5.609375) .......... [PASS] 1180. (format-hexadecimal-float -5.59375) .......... [PASS] 1181. (format-hexadecimal-float -5.578125) .......... [PASS] 1182. (format-hexadecimal-float -5.5625) .......... [PASS] 1183. (format-hexadecimal-float -5.546875) .......... [PASS] 1184. (format-hexadecimal-float -5.53125) .......... [PASS] 1185. (format-hexadecimal-float -5.515625) .......... [PASS] 1186. (format-hexadecimal-float -5.5) .......... [PASS] 1187. (format-hexadecimal-float -5.484375) .......... [PASS] 1188. (format-hexadecimal-float -5.46875) .......... [PASS] 1189. (format-hexadecimal-float -5.453125) .......... [PASS] 1190. (format-hexadecimal-float -5.4375) .......... [PASS] 1191. (format-hexadecimal-float -5.421875) .......... [PASS] 1192. (format-hexadecimal-float -5.40625) .......... [PASS] 1193. (format-hexadecimal-float -5.390625) .......... [PASS] 1194. (format-hexadecimal-float -5.375) .......... [PASS] 1195. (format-hexadecimal-float -5.359375) .......... [PASS] 1196. (format-hexadecimal-float -5.34375) .......... [PASS] 1197. (format-hexadecimal-float -5.328125) .......... [PASS] 1198. (format-hexadecimal-float -5.3125) .......... [PASS] 1199. (format-hexadecimal-float -5.296875) .......... [PASS] 1200. (format-hexadecimal-float -5.28125) .......... [PASS] 1201. (format-hexadecimal-float -5.265625) .......... [PASS] 1202. (format-hexadecimal-float -5.25) .......... [PASS] 1203. (format-hexadecimal-float -5.234375) .......... [PASS] 1204. (format-hexadecimal-float -5.21875) .......... [PASS] 1205. (format-hexadecimal-float -5.203125) .......... [PASS] 1206. (format-hexadecimal-float -5.1875) .......... [PASS] 1207. (format-hexadecimal-float -5.171875) .......... [PASS] 1208. (format-hexadecimal-float -5.15625) .......... [PASS] 1209. (format-hexadecimal-float -5.140625) .......... [PASS] 1210. (format-hexadecimal-float -5.125) .......... [PASS] 1211. (format-hexadecimal-float -5.109375) .......... [PASS] 1212. (format-hexadecimal-float -5.09375) .......... [PASS] 1213. (format-hexadecimal-float -5.078125) .......... [PASS] 1214. (format-hexadecimal-float -5.0625) .......... [PASS] 1215. (format-hexadecimal-float -5.046875) .......... [PASS] 1216. (format-hexadecimal-float -5.03125) .......... [PASS] 1217. (format-hexadecimal-float -5.015625) .......... [PASS] 1218. (format-hexadecimal-float -5.0) .......... [PASS] 1219. (format-hexadecimal-float -4.984375) .......... [PASS] 1220. (format-hexadecimal-float -4.96875) .......... [PASS] 1221. (format-hexadecimal-float -4.953125) .......... [PASS] 1222. (format-hexadecimal-float -4.9375) .......... [PASS] 1223. (format-hexadecimal-float -4.921875) .......... [PASS] 1224. (format-hexadecimal-float -4.90625) .......... [PASS] 1225. (format-hexadecimal-float -4.890625) .......... [PASS] 1226. (format-hexadecimal-float -4.875) .......... [PASS] 1227. (format-hexadecimal-float -4.859375) .......... [PASS] 1228. (format-hexadecimal-float -4.84375) .......... [PASS] 1229. (format-hexadecimal-float -4.828125) .......... [PASS] 1230. (format-hexadecimal-float -4.8125) .......... [PASS] 1231. (format-hexadecimal-float -4.796875) .......... [PASS] 1232. (format-hexadecimal-float -4.78125) .......... [PASS] 1233. (format-hexadecimal-float -4.765625) .......... [PASS] 1234. (format-hexadecimal-float -4.75) .......... [PASS] 1235. (format-hexadecimal-float -4.734375) .......... [PASS] 1236. (format-hexadecimal-float -4.71875) .......... [PASS] 1237. (format-hexadecimal-float -4.703125) .......... [PASS] 1238. (format-hexadecimal-float -4.6875) .......... [PASS] 1239. (format-hexadecimal-float -4.671875) .......... [PASS] 1240. (format-hexadecimal-float -4.65625) .......... [PASS] 1241. (format-hexadecimal-float -4.640625) .......... [PASS] 1242. (format-hexadecimal-float -4.625) .......... [PASS] 1243. (format-hexadecimal-float -4.609375) .......... [PASS] 1244. (format-hexadecimal-float -4.59375) .......... [PASS] 1245. (format-hexadecimal-float -4.578125) .......... [PASS] 1246. (format-hexadecimal-float -4.5625) .......... [PASS] 1247. (format-hexadecimal-float -4.546875) .......... [PASS] 1248. (format-hexadecimal-float -4.53125) .......... [PASS] 1249. (format-hexadecimal-float -4.515625) .......... [PASS] 1250. (format-hexadecimal-float -4.5) .......... [PASS] 1251. (format-hexadecimal-float -4.484375) .......... [PASS] 1252. (format-hexadecimal-float -4.46875) .......... [PASS] 1253. (format-hexadecimal-float -4.453125) .......... [PASS] 1254. (format-hexadecimal-float -4.4375) .......... [PASS] 1255. (format-hexadecimal-float -4.421875) .......... [PASS] 1256. (format-hexadecimal-float -4.40625) .......... [PASS] 1257. (format-hexadecimal-float -4.390625) .......... [PASS] 1258. (format-hexadecimal-float -4.375) .......... [PASS] 1259. (format-hexadecimal-float -4.359375) .......... [PASS] 1260. (format-hexadecimal-float -4.34375) .......... [PASS] 1261. (format-hexadecimal-float -4.328125) .......... [PASS] 1262. (format-hexadecimal-float -4.3125) .......... [PASS] 1263. (format-hexadecimal-float -4.296875) .......... [PASS] 1264. (format-hexadecimal-float -4.28125) .......... [PASS] 1265. (format-hexadecimal-float -4.265625) .......... [PASS] 1266. (format-hexadecimal-float -4.25) .......... [PASS] 1267. (format-hexadecimal-float -4.234375) .......... [PASS] 1268. (format-hexadecimal-float -4.21875) .......... [PASS] 1269. (format-hexadecimal-float -4.203125) .......... [PASS] 1270. (format-hexadecimal-float -4.1875) .......... [PASS] 1271. (format-hexadecimal-float -4.171875) .......... [PASS] 1272. (format-hexadecimal-float -4.15625) .......... [PASS] 1273. (format-hexadecimal-float -4.140625) .......... [PASS] 1274. (format-hexadecimal-float -4.125) .......... [PASS] 1275. (format-hexadecimal-float -4.109375) .......... [PASS] 1276. (format-hexadecimal-float -4.09375) .......... [PASS] 1277. (format-hexadecimal-float -4.078125) .......... [PASS] 1278. (format-hexadecimal-float -4.0625) .......... [PASS] 1279. (format-hexadecimal-float -4.046875) .......... [PASS] 1280. (format-hexadecimal-float -4.03125) .......... [PASS] 1281. (format-hexadecimal-float -4.015625) .......... [PASS] 1282. (format-hexadecimal-float -4.0) .......... [PASS] 1283. (format-hexadecimal-float -3.984375) .......... [PASS] 1284. (format-hexadecimal-float -3.96875) .......... [PASS] 1285. (format-hexadecimal-float -3.953125) .......... [PASS] 1286. (format-hexadecimal-float -3.9375) .......... [PASS] 1287. (format-hexadecimal-float -3.921875) .......... [PASS] 1288. (format-hexadecimal-float -3.90625) .......... [PASS] 1289. (format-hexadecimal-float -3.890625) .......... [PASS] 1290. (format-hexadecimal-float -3.875) .......... [PASS] 1291. (format-hexadecimal-float -3.859375) .......... [PASS] 1292. (format-hexadecimal-float -3.84375) .......... [PASS] 1293. (format-hexadecimal-float -3.828125) .......... [PASS] 1294. (format-hexadecimal-float -3.8125) .......... [PASS] 1295. (format-hexadecimal-float -3.796875) .......... [PASS] 1296. (format-hexadecimal-float -3.78125) .......... [PASS] 1297. (format-hexadecimal-float -3.765625) .......... [PASS] 1298. (format-hexadecimal-float -3.75) .......... [PASS] 1299. (format-hexadecimal-float -3.734375) .......... [PASS] 1300. (format-hexadecimal-float -3.71875) .......... [PASS] 1301. (format-hexadecimal-float -3.703125) .......... [PASS] 1302. (format-hexadecimal-float -3.6875) .......... [PASS] 1303. (format-hexadecimal-float -3.671875) .......... [PASS] 1304. (format-hexadecimal-float -3.65625) .......... [PASS] 1305. (format-hexadecimal-float -3.640625) .......... [PASS] 1306. (format-hexadecimal-float -3.625) .......... [PASS] 1307. (format-hexadecimal-float -3.609375) .......... [PASS] 1308. (format-hexadecimal-float -3.59375) .......... [PASS] 1309. (format-hexadecimal-float -3.578125) .......... [PASS] 1310. (format-hexadecimal-float -3.5625) .......... [PASS] 1311. (format-hexadecimal-float -3.546875) .......... [PASS] 1312. (format-hexadecimal-float -3.53125) .......... [PASS] 1313. (format-hexadecimal-float -3.515625) .......... [PASS] 1314. (format-hexadecimal-float -3.5) .......... [PASS] 1315. (format-hexadecimal-float -3.484375) .......... [PASS] 1316. (format-hexadecimal-float -3.46875) .......... [PASS] 1317. (format-hexadecimal-float -3.453125) .......... [PASS] 1318. (format-hexadecimal-float -3.4375) .......... [PASS] 1319. (format-hexadecimal-float -3.421875) .......... [PASS] 1320. (format-hexadecimal-float -3.40625) .......... [PASS] 1321. (format-hexadecimal-float -3.390625) .......... [PASS] 1322. (format-hexadecimal-float -3.375) .......... [PASS] 1323. (format-hexadecimal-float -3.359375) .......... [PASS] 1324. (format-hexadecimal-float -3.34375) .......... [PASS] 1325. (format-hexadecimal-float -3.328125) .......... [PASS] 1326. (format-hexadecimal-float -3.3125) .......... [PASS] 1327. (format-hexadecimal-float -3.296875) .......... [PASS] 1328. (format-hexadecimal-float -3.28125) .......... [PASS] 1329. (format-hexadecimal-float -3.265625) .......... [PASS] 1330. (format-hexadecimal-float -3.25) .......... [PASS] 1331. (format-hexadecimal-float -3.234375) .......... [PASS] 1332. (format-hexadecimal-float -3.21875) .......... [PASS] 1333. (format-hexadecimal-float -3.203125) .......... [PASS] 1334. (format-hexadecimal-float -3.1875) .......... [PASS] 1335. (format-hexadecimal-float -3.171875) .......... [PASS] 1336. (format-hexadecimal-float -3.15625) .......... [PASS] 1337. (format-hexadecimal-float -3.140625) .......... [PASS] 1338. (format-hexadecimal-float -3.125) .......... [PASS] 1339. (format-hexadecimal-float -3.109375) .......... [PASS] 1340. (format-hexadecimal-float -3.09375) .......... [PASS] 1341. (format-hexadecimal-float -3.078125) .......... [PASS] 1342. (format-hexadecimal-float -3.0625) .......... [PASS] 1343. (format-hexadecimal-float -3.046875) .......... [PASS] 1344. (format-hexadecimal-float -3.03125) .......... [PASS] 1345. (format-hexadecimal-float -3.015625) .......... [PASS] 1346. (format-hexadecimal-float -3.0) .......... [PASS] 1347. (format-hexadecimal-float -2.984375) .......... [PASS] 1348. (format-hexadecimal-float -2.96875) .......... [PASS] 1349. (format-hexadecimal-float -2.953125) .......... [PASS] 1350. (format-hexadecimal-float -2.9375) .......... [PASS] 1351. (format-hexadecimal-float -2.921875) .......... [PASS] 1352. (format-hexadecimal-float -2.90625) .......... [PASS] 1353. (format-hexadecimal-float -2.890625) .......... [PASS] 1354. (format-hexadecimal-float -2.875) .......... [PASS] 1355. (format-hexadecimal-float -2.859375) .......... [PASS] 1356. (format-hexadecimal-float -2.84375) .......... [PASS] 1357. (format-hexadecimal-float -2.828125) .......... [PASS] 1358. (format-hexadecimal-float -2.8125) .......... [PASS] 1359. (format-hexadecimal-float -2.796875) .......... [PASS] 1360. (format-hexadecimal-float -2.78125) .......... [PASS] 1361. (format-hexadecimal-float -2.765625) .......... [PASS] 1362. (format-hexadecimal-float -2.75) .......... [PASS] 1363. (format-hexadecimal-float -2.734375) .......... [PASS] 1364. (format-hexadecimal-float -2.71875) .......... [PASS] 1365. (format-hexadecimal-float -2.703125) .......... [PASS] 1366. (format-hexadecimal-float -2.6875) .......... [PASS] 1367. (format-hexadecimal-float -2.671875) .......... [PASS] 1368. (format-hexadecimal-float -2.65625) .......... [PASS] 1369. (format-hexadecimal-float -2.640625) .......... [PASS] 1370. (format-hexadecimal-float -2.625) .......... [PASS] 1371. (format-hexadecimal-float -2.609375) .......... [PASS] 1372. (format-hexadecimal-float -2.59375) .......... [PASS] 1373. (format-hexadecimal-float -2.578125) .......... [PASS] 1374. (format-hexadecimal-float -2.5625) .......... [PASS] 1375. (format-hexadecimal-float -2.546875) .......... [PASS] 1376. (format-hexadecimal-float -2.53125) .......... [PASS] 1377. (format-hexadecimal-float -2.515625) .......... [PASS] 1378. (format-hexadecimal-float -2.5) .......... [PASS] 1379. (format-hexadecimal-float -2.484375) .......... [PASS] 1380. (format-hexadecimal-float -2.46875) .......... [PASS] 1381. (format-hexadecimal-float -2.453125) .......... [PASS] 1382. (format-hexadecimal-float -2.4375) .......... [PASS] 1383. (format-hexadecimal-float -2.421875) .......... [PASS] 1384. (format-hexadecimal-float -2.40625) .......... [PASS] 1385. (format-hexadecimal-float -2.390625) .......... [PASS] 1386. (format-hexadecimal-float -2.375) .......... [PASS] 1387. (format-hexadecimal-float -2.359375) .......... [PASS] 1388. (format-hexadecimal-float -2.34375) .......... [PASS] 1389. (format-hexadecimal-float -2.328125) .......... [PASS] 1390. (format-hexadecimal-float -2.3125) .......... [PASS] 1391. (format-hexadecimal-float -2.296875) .......... [PASS] 1392. (format-hexadecimal-float -2.28125) .......... [PASS] 1393. (format-hexadecimal-float -2.265625) .......... [PASS] 1394. (format-hexadecimal-float -2.25) .......... [PASS] 1395. (format-hexadecimal-float -2.234375) .......... [PASS] 1396. (format-hexadecimal-float -2.21875) .......... [PASS] 1397. (format-hexadecimal-float -2.203125) .......... [PASS] 1398. (format-hexadecimal-float -2.1875) .......... [PASS] 1399. (format-hexadecimal-float -2.171875) .......... [PASS] 1400. (format-hexadecimal-float -2.15625) .......... [PASS] 1401. (format-hexadecimal-float -2.140625) .......... [PASS] 1402. (format-hexadecimal-float -2.125) .......... [PASS] 1403. (format-hexadecimal-float -2.109375) .......... [PASS] 1404. (format-hexadecimal-float -2.09375) .......... [PASS] 1405. (format-hexadecimal-float -2.078125) .......... [PASS] 1406. (format-hexadecimal-float -2.0625) .......... [PASS] 1407. (format-hexadecimal-float -2.046875) .......... [PASS] 1408. (format-hexadecimal-float -2.03125) .......... [PASS] 1409. (format-hexadecimal-float -2.015625) .......... [PASS] 1410. (format-hexadecimal-float -2.0) .......... [PASS] 1411. (format-hexadecimal-float -1.984375) .......... [PASS] 1412. (format-hexadecimal-float -1.96875) .......... [PASS] 1413. (format-hexadecimal-float -1.953125) .......... [PASS] 1414. (format-hexadecimal-float -1.9375) .......... [PASS] 1415. (format-hexadecimal-float -1.921875) .......... [PASS] 1416. (format-hexadecimal-float -1.90625) .......... [PASS] 1417. (format-hexadecimal-float -1.890625) .......... [PASS] 1418. (format-hexadecimal-float -1.875) .......... [PASS] 1419. (format-hexadecimal-float -1.859375) .......... [PASS] 1420. (format-hexadecimal-float -1.84375) .......... [PASS] 1421. (format-hexadecimal-float -1.828125) .......... [PASS] 1422. (format-hexadecimal-float -1.8125) .......... [PASS] 1423. (format-hexadecimal-float -1.796875) .......... [PASS] 1424. (format-hexadecimal-float -1.78125) .......... [PASS] 1425. (format-hexadecimal-float -1.765625) .......... [PASS] 1426. (format-hexadecimal-float -1.75) .......... [PASS] 1427. (format-hexadecimal-float -1.734375) .......... [PASS] 1428. (format-hexadecimal-float -1.71875) .......... [PASS] 1429. (format-hexadecimal-float -1.703125) .......... [PASS] 1430. (format-hexadecimal-float -1.6875) .......... [PASS] 1431. (format-hexadecimal-float -1.671875) .......... [PASS] 1432. (format-hexadecimal-float -1.65625) .......... [PASS] 1433. (format-hexadecimal-float -1.640625) .......... [PASS] 1434. (format-hexadecimal-float -1.625) .......... [PASS] 1435. (format-hexadecimal-float -1.609375) .......... [PASS] 1436. (format-hexadecimal-float -1.59375) .......... [PASS] 1437. (format-hexadecimal-float -1.578125) .......... [PASS] 1438. (format-hexadecimal-float -1.5625) .......... [PASS] 1439. (format-hexadecimal-float -1.546875) .......... [PASS] 1440. (format-hexadecimal-float -1.53125) .......... [PASS] 1441. (format-hexadecimal-float -1.515625) .......... [PASS] 1442. (format-hexadecimal-float -1.5) .......... [PASS] 1443. (format-hexadecimal-float -1.484375) .......... [PASS] 1444. (format-hexadecimal-float -1.46875) .......... [PASS] 1445. (format-hexadecimal-float -1.453125) .......... [PASS] 1446. (format-hexadecimal-float -1.4375) .......... [PASS] 1447. (format-hexadecimal-float -1.421875) .......... [PASS] 1448. (format-hexadecimal-float -1.40625) .......... [PASS] 1449. (format-hexadecimal-float -1.390625) .......... [PASS] 1450. (format-hexadecimal-float -1.375) .......... [PASS] 1451. (format-hexadecimal-float -1.359375) .......... [PASS] 1452. (format-hexadecimal-float -1.34375) .......... [PASS] 1453. (format-hexadecimal-float -1.328125) .......... [PASS] 1454. (format-hexadecimal-float -1.3125) .......... [PASS] 1455. (format-hexadecimal-float -1.296875) .......... [PASS] 1456. (format-hexadecimal-float -1.28125) .......... [PASS] 1457. (format-hexadecimal-float -1.265625) .......... [PASS] 1458. (format-hexadecimal-float -1.25) .......... [PASS] 1459. (format-hexadecimal-float -1.234375) .......... [PASS] 1460. (format-hexadecimal-float -1.21875) .......... [PASS] 1461. (format-hexadecimal-float -1.203125) .......... [PASS] 1462. (format-hexadecimal-float -1.1875) .......... [PASS] 1463. (format-hexadecimal-float -1.171875) .......... [PASS] 1464. (format-hexadecimal-float -1.15625) .......... [PASS] 1465. (format-hexadecimal-float -1.140625) .......... [PASS] 1466. (format-hexadecimal-float -1.125) .......... [PASS] 1467. (format-hexadecimal-float -1.109375) .......... [PASS] 1468. (format-hexadecimal-float -1.09375) .......... [PASS] 1469. (format-hexadecimal-float -1.078125) .......... [PASS] 1470. (format-hexadecimal-float -1.0625) .......... [PASS] 1471. (format-hexadecimal-float -1.046875) .......... [PASS] 1472. (format-hexadecimal-float -1.03125) .......... [PASS] 1473. (format-hexadecimal-float -1.015625) .......... [PASS] 1474. (format-hexadecimal-float -1.0) .......... [PASS] 1475. (format-hexadecimal-float -0.984375) .......... [PASS] 1476. (format-hexadecimal-float -0.96875) .......... [PASS] 1477. (format-hexadecimal-float -0.953125) .......... [PASS] 1478. (format-hexadecimal-float -0.9375) .......... [PASS] 1479. (format-hexadecimal-float -0.921875) .......... [PASS] 1480. (format-hexadecimal-float -0.90625) .......... [PASS] 1481. (format-hexadecimal-float -0.890625) .......... [PASS] 1482. (format-hexadecimal-float -0.875) .......... [PASS] 1483. (format-hexadecimal-float -0.859375) .......... [PASS] 1484. (format-hexadecimal-float -0.84375) .......... [PASS] 1485. (format-hexadecimal-float -0.828125) .......... [PASS] 1486. (format-hexadecimal-float -0.8125) .......... [PASS] 1487. (format-hexadecimal-float -0.796875) .......... [PASS] 1488. (format-hexadecimal-float -0.78125) .......... [PASS] 1489. (format-hexadecimal-float -0.765625) .......... [PASS] 1490. (format-hexadecimal-float -0.75) .......... [PASS] 1491. (format-hexadecimal-float -0.734375) .......... [PASS] 1492. (format-hexadecimal-float -0.71875) .......... [PASS] 1493. (format-hexadecimal-float -0.703125) .......... [PASS] 1494. (format-hexadecimal-float -0.6875) .......... [PASS] 1495. (format-hexadecimal-float -0.671875) .......... [PASS] 1496. (format-hexadecimal-float -0.65625) .......... [PASS] 1497. (format-hexadecimal-float -0.640625) .......... [PASS] 1498. (format-hexadecimal-float -0.625) .......... [PASS] 1499. (format-hexadecimal-float -0.609375) .......... [PASS] 1500. (format-hexadecimal-float -0.59375) .......... [PASS] 1501. (format-hexadecimal-float -0.578125) .......... [PASS] 1502. (format-hexadecimal-float -0.5625) .......... [PASS] 1503. (format-hexadecimal-float -0.546875) .......... [PASS] 1504. (format-hexadecimal-float -0.53125) .......... [PASS] 1505. (format-hexadecimal-float -0.515625) .......... [PASS] 1506. (format-hexadecimal-float -0.5) .......... [PASS] 1507. (format-hexadecimal-float -0.484375) .......... [PASS] 1508. (format-hexadecimal-float -0.46875) .......... [PASS] 1509. (format-hexadecimal-float -0.453125) .......... [PASS] 1510. (format-hexadecimal-float -0.4375) .......... [PASS] 1511. (format-hexadecimal-float -0.421875) .......... [PASS] 1512. (format-hexadecimal-float -0.40625) .......... [PASS] 1513. (format-hexadecimal-float -0.390625) .......... [PASS] 1514. (format-hexadecimal-float -0.375) .......... [PASS] 1515. (format-hexadecimal-float -0.359375) .......... [PASS] 1516. (format-hexadecimal-float -0.34375) .......... [PASS] 1517. (format-hexadecimal-float -0.328125) .......... [PASS] 1518. (format-hexadecimal-float -0.3125) .......... [PASS] 1519. (format-hexadecimal-float -0.296875) .......... [PASS] 1520. (format-hexadecimal-float -0.28125) .......... [PASS] 1521. (format-hexadecimal-float -0.265625) .......... [PASS] 1522. (format-hexadecimal-float -0.25) .......... [PASS] 1523. (format-hexadecimal-float -0.234375) .......... [PASS] 1524. (format-hexadecimal-float -0.21875) .......... [PASS] 1525. (format-hexadecimal-float -0.203125) .......... [PASS] 1526. (format-hexadecimal-float -0.1875) .......... [PASS] 1527. (format-hexadecimal-float -0.171875) .......... [PASS] 1528. (format-hexadecimal-float -0.15625) .......... [PASS] 1529. (format-hexadecimal-float -0.140625) .......... [PASS] 1530. (format-hexadecimal-float -0.125) .......... [PASS] 1531. (format-hexadecimal-float -0.109375) .......... [PASS] 1532. (format-hexadecimal-float -0.09375) .......... [PASS] 1533. (format-hexadecimal-float -0.078125) .......... [PASS] 1534. (format-hexadecimal-float -0.0625) .......... [PASS] 1535. (format-hexadecimal-float -0.046875) .......... [PASS] 1536. (format-hexadecimal-float -0.03125) .......... [PASS] 1537. (format-hexadecimal-float -0.015625) .......... [PASS] 1538. (format-hexadecimal-float 0.0) .......... [PASS] 1539. (format-hexadecimal-float 0.015625) .......... [PASS] 1540. (format-hexadecimal-float 0.03125) .......... [PASS] 1541. (format-hexadecimal-float 0.046875) .......... [PASS] 1542. (format-hexadecimal-float 0.0625) .......... [PASS] 1543. (format-hexadecimal-float 0.078125) .......... [PASS] 1544. (format-hexadecimal-float 0.09375) .......... [PASS] 1545. (format-hexadecimal-float 0.109375) .......... [PASS] 1546. (format-hexadecimal-float 0.125) .......... [PASS] 1547. (format-hexadecimal-float 0.140625) .......... [PASS] 1548. (format-hexadecimal-float 0.15625) .......... [PASS] 1549. (format-hexadecimal-float 0.171875) .......... [PASS] 1550. (format-hexadecimal-float 0.1875) .......... [PASS] 1551. (format-hexadecimal-float 0.203125) .......... [PASS] 1552. (format-hexadecimal-float 0.21875) .......... [PASS] 1553. (format-hexadecimal-float 0.234375) .......... [PASS] 1554. (format-hexadecimal-float 0.25) .......... [PASS] 1555. (format-hexadecimal-float 0.265625) .......... [PASS] 1556. (format-hexadecimal-float 0.28125) .......... [PASS] 1557. (format-hexadecimal-float 0.296875) .......... [PASS] 1558. (format-hexadecimal-float 0.3125) .......... [PASS] 1559. (format-hexadecimal-float 0.328125) .......... [PASS] 1560. (format-hexadecimal-float 0.34375) .......... [PASS] 1561. (format-hexadecimal-float 0.359375) .......... [PASS] 1562. (format-hexadecimal-float 0.375) .......... [PASS] 1563. (format-hexadecimal-float 0.390625) .......... [PASS] 1564. (format-hexadecimal-float 0.40625) .......... [PASS] 1565. (format-hexadecimal-float 0.421875) .......... [PASS] 1566. (format-hexadecimal-float 0.4375) .......... [PASS] 1567. (format-hexadecimal-float 0.453125) .......... [PASS] 1568. (format-hexadecimal-float 0.46875) .......... [PASS] 1569. (format-hexadecimal-float 0.484375) .......... [PASS] 1570. (format-hexadecimal-float 0.5) .......... [PASS] 1571. (format-hexadecimal-float 0.515625) .......... [PASS] 1572. (format-hexadecimal-float 0.53125) .......... [PASS] 1573. (format-hexadecimal-float 0.546875) .......... [PASS] 1574. (format-hexadecimal-float 0.5625) .......... [PASS] 1575. (format-hexadecimal-float 0.578125) .......... [PASS] 1576. (format-hexadecimal-float 0.59375) .......... [PASS] 1577. (format-hexadecimal-float 0.609375) .......... [PASS] 1578. (format-hexadecimal-float 0.625) .......... [PASS] 1579. (format-hexadecimal-float 0.640625) .......... [PASS] 1580. (format-hexadecimal-float 0.65625) .......... [PASS] 1581. (format-hexadecimal-float 0.671875) .......... [PASS] 1582. (format-hexadecimal-float 0.6875) .......... [PASS] 1583. (format-hexadecimal-float 0.703125) .......... [PASS] 1584. (format-hexadecimal-float 0.71875) .......... [PASS] 1585. (format-hexadecimal-float 0.734375) .......... [PASS] 1586. (format-hexadecimal-float 0.75) .......... [PASS] 1587. (format-hexadecimal-float 0.765625) .......... [PASS] 1588. (format-hexadecimal-float 0.78125) .......... [PASS] 1589. (format-hexadecimal-float 0.796875) .......... [PASS] 1590. (format-hexadecimal-float 0.8125) .......... [PASS] 1591. (format-hexadecimal-float 0.828125) .......... [PASS] 1592. (format-hexadecimal-float 0.84375) .......... [PASS] 1593. (format-hexadecimal-float 0.859375) .......... [PASS] 1594. (format-hexadecimal-float 0.875) .......... [PASS] 1595. (format-hexadecimal-float 0.890625) .......... [PASS] 1596. (format-hexadecimal-float 0.90625) .......... [PASS] 1597. (format-hexadecimal-float 0.921875) .......... [PASS] 1598. (format-hexadecimal-float 0.9375) .......... [PASS] 1599. (format-hexadecimal-float 0.953125) .......... [PASS] 1600. (format-hexadecimal-float 0.96875) .......... [PASS] 1601. (format-hexadecimal-float 0.984375) .......... [PASS] 1602. (format-hexadecimal-float 1.0) .......... [PASS] 1603. (format-hexadecimal-float 1.015625) .......... [PASS] 1604. (format-hexadecimal-float 1.03125) .......... [PASS] 1605. (format-hexadecimal-float 1.046875) .......... [PASS] 1606. (format-hexadecimal-float 1.0625) .......... [PASS] 1607. (format-hexadecimal-float 1.078125) .......... [PASS] 1608. (format-hexadecimal-float 1.09375) .......... [PASS] 1609. (format-hexadecimal-float 1.109375) .......... [PASS] 1610. (format-hexadecimal-float 1.125) .......... [PASS] 1611. (format-hexadecimal-float 1.140625) .......... [PASS] 1612. (format-hexadecimal-float 1.15625) .......... [PASS] 1613. (format-hexadecimal-float 1.171875) .......... [PASS] 1614. (format-hexadecimal-float 1.1875) .......... [PASS] 1615. (format-hexadecimal-float 1.203125) .......... [PASS] 1616. (format-hexadecimal-float 1.21875) .......... [PASS] 1617. (format-hexadecimal-float 1.234375) .......... [PASS] 1618. (format-hexadecimal-float 1.25) .......... [PASS] 1619. (format-hexadecimal-float 1.265625) .......... [PASS] 1620. (format-hexadecimal-float 1.28125) .......... [PASS] 1621. (format-hexadecimal-float 1.296875) .......... [PASS] 1622. (format-hexadecimal-float 1.3125) .......... [PASS] 1623. (format-hexadecimal-float 1.328125) .......... [PASS] 1624. (format-hexadecimal-float 1.34375) .......... [PASS] 1625. (format-hexadecimal-float 1.359375) .......... [PASS] 1626. (format-hexadecimal-float 1.375) .......... [PASS] 1627. (format-hexadecimal-float 1.390625) .......... [PASS] 1628. (format-hexadecimal-float 1.40625) .......... [PASS] 1629. (format-hexadecimal-float 1.421875) .......... [PASS] 1630. (format-hexadecimal-float 1.4375) .......... [PASS] 1631. (format-hexadecimal-float 1.453125) .......... [PASS] 1632. (format-hexadecimal-float 1.46875) .......... [PASS] 1633. (format-hexadecimal-float 1.484375) .......... [PASS] 1634. (format-hexadecimal-float 1.5) .......... [PASS] 1635. (format-hexadecimal-float 1.515625) .......... [PASS] 1636. (format-hexadecimal-float 1.53125) .......... [PASS] 1637. (format-hexadecimal-float 1.546875) .......... [PASS] 1638. (format-hexadecimal-float 1.5625) .......... [PASS] 1639. (format-hexadecimal-float 1.578125) .......... [PASS] 1640. (format-hexadecimal-float 1.59375) .......... [PASS] 1641. (format-hexadecimal-float 1.609375) .......... [PASS] 1642. (format-hexadecimal-float 1.625) .......... [PASS] 1643. (format-hexadecimal-float 1.640625) .......... [PASS] 1644. (format-hexadecimal-float 1.65625) .......... [PASS] 1645. (format-hexadecimal-float 1.671875) .......... [PASS] 1646. (format-hexadecimal-float 1.6875) .......... [PASS] 1647. (format-hexadecimal-float 1.703125) .......... [PASS] 1648. (format-hexadecimal-float 1.71875) .......... [PASS] 1649. (format-hexadecimal-float 1.734375) .......... [PASS] 1650. (format-hexadecimal-float 1.75) .......... [PASS] 1651. (format-hexadecimal-float 1.765625) .......... [PASS] 1652. (format-hexadecimal-float 1.78125) .......... [PASS] 1653. (format-hexadecimal-float 1.796875) .......... [PASS] 1654. (format-hexadecimal-float 1.8125) .......... [PASS] 1655. (format-hexadecimal-float 1.828125) .......... [PASS] 1656. (format-hexadecimal-float 1.84375) .......... [PASS] 1657. (format-hexadecimal-float 1.859375) .......... [PASS] 1658. (format-hexadecimal-float 1.875) .......... [PASS] 1659. (format-hexadecimal-float 1.890625) .......... [PASS] 1660. (format-hexadecimal-float 1.90625) .......... [PASS] 1661. (format-hexadecimal-float 1.921875) .......... [PASS] 1662. (format-hexadecimal-float 1.9375) .......... [PASS] 1663. (format-hexadecimal-float 1.953125) .......... [PASS] 1664. (format-hexadecimal-float 1.96875) .......... [PASS] 1665. (format-hexadecimal-float 1.984375) .......... [PASS] 1666. (format-hexadecimal-float 2.0) .......... [PASS] 1667. (format-hexadecimal-float 2.015625) .......... [PASS] 1668. (format-hexadecimal-float 2.03125) .......... [PASS] 1669. (format-hexadecimal-float 2.046875) .......... [PASS] 1670. (format-hexadecimal-float 2.0625) .......... [PASS] 1671. (format-hexadecimal-float 2.078125) .......... [PASS] 1672. (format-hexadecimal-float 2.09375) .......... [PASS] 1673. (format-hexadecimal-float 2.109375) .......... [PASS] 1674. (format-hexadecimal-float 2.125) .......... [PASS] 1675. (format-hexadecimal-float 2.140625) .......... [PASS] 1676. (format-hexadecimal-float 2.15625) .......... [PASS] 1677. (format-hexadecimal-float 2.171875) .......... [PASS] 1678. (format-hexadecimal-float 2.1875) .......... [PASS] 1679. (format-hexadecimal-float 2.203125) .......... [PASS] 1680. (format-hexadecimal-float 2.21875) .......... [PASS] 1681. (format-hexadecimal-float 2.234375) .......... [PASS] 1682. (format-hexadecimal-float 2.25) .......... [PASS] 1683. (format-hexadecimal-float 2.265625) .......... [PASS] 1684. (format-hexadecimal-float 2.28125) .......... [PASS] 1685. (format-hexadecimal-float 2.296875) .......... [PASS] 1686. (format-hexadecimal-float 2.3125) .......... [PASS] 1687. (format-hexadecimal-float 2.328125) .......... [PASS] 1688. (format-hexadecimal-float 2.34375) .......... [PASS] 1689. (format-hexadecimal-float 2.359375) .......... [PASS] 1690. (format-hexadecimal-float 2.375) .......... [PASS] 1691. (format-hexadecimal-float 2.390625) .......... [PASS] 1692. (format-hexadecimal-float 2.40625) .......... [PASS] 1693. (format-hexadecimal-float 2.421875) .......... [PASS] 1694. (format-hexadecimal-float 2.4375) .......... [PASS] 1695. (format-hexadecimal-float 2.453125) .......... [PASS] 1696. (format-hexadecimal-float 2.46875) .......... [PASS] 1697. (format-hexadecimal-float 2.484375) .......... [PASS] 1698. (format-hexadecimal-float 2.5) .......... [PASS] 1699. (format-hexadecimal-float 2.515625) .......... [PASS] 1700. (format-hexadecimal-float 2.53125) .......... [PASS] 1701. (format-hexadecimal-float 2.546875) .......... [PASS] 1702. (format-hexadecimal-float 2.5625) .......... [PASS] 1703. (format-hexadecimal-float 2.578125) .......... [PASS] 1704. (format-hexadecimal-float 2.59375) .......... [PASS] 1705. (format-hexadecimal-float 2.609375) .......... [PASS] 1706. (format-hexadecimal-float 2.625) .......... [PASS] 1707. (format-hexadecimal-float 2.640625) .......... [PASS] 1708. (format-hexadecimal-float 2.65625) .......... [PASS] 1709. (format-hexadecimal-float 2.671875) .......... [PASS] 1710. (format-hexadecimal-float 2.6875) .......... [PASS] 1711. (format-hexadecimal-float 2.703125) .......... [PASS] 1712. (format-hexadecimal-float 2.71875) .......... [PASS] 1713. (format-hexadecimal-float 2.734375) .......... [PASS] 1714. (format-hexadecimal-float 2.75) .......... [PASS] 1715. (format-hexadecimal-float 2.765625) .......... [PASS] 1716. (format-hexadecimal-float 2.78125) .......... [PASS] 1717. (format-hexadecimal-float 2.796875) .......... [PASS] 1718. (format-hexadecimal-float 2.8125) .......... [PASS] 1719. (format-hexadecimal-float 2.828125) .......... [PASS] 1720. (format-hexadecimal-float 2.84375) .......... [PASS] 1721. (format-hexadecimal-float 2.859375) .......... [PASS] 1722. (format-hexadecimal-float 2.875) .......... [PASS] 1723. (format-hexadecimal-float 2.890625) .......... [PASS] 1724. (format-hexadecimal-float 2.90625) .......... [PASS] 1725. (format-hexadecimal-float 2.921875) .......... [PASS] 1726. (format-hexadecimal-float 2.9375) .......... [PASS] 1727. (format-hexadecimal-float 2.953125) .......... [PASS] 1728. (format-hexadecimal-float 2.96875) .......... [PASS] 1729. (format-hexadecimal-float 2.984375) .......... [PASS] 1730. (format-hexadecimal-float 3.0) .......... [PASS] 1731. (format-hexadecimal-float 3.015625) .......... [PASS] 1732. (format-hexadecimal-float 3.03125) .......... [PASS] 1733. (format-hexadecimal-float 3.046875) .......... [PASS] 1734. (format-hexadecimal-float 3.0625) .......... [PASS] 1735. (format-hexadecimal-float 3.078125) .......... [PASS] 1736. (format-hexadecimal-float 3.09375) .......... [PASS] 1737. (format-hexadecimal-float 3.109375) .......... [PASS] 1738. (format-hexadecimal-float 3.125) .......... [PASS] 1739. (format-hexadecimal-float 3.140625) .......... [PASS] 1740. (format-hexadecimal-float 3.15625) .......... [PASS] 1741. (format-hexadecimal-float 3.171875) .......... [PASS] 1742. (format-hexadecimal-float 3.1875) .......... [PASS] 1743. (format-hexadecimal-float 3.203125) .......... [PASS] 1744. (format-hexadecimal-float 3.21875) .......... [PASS] 1745. (format-hexadecimal-float 3.234375) .......... [PASS] 1746. (format-hexadecimal-float 3.25) .......... [PASS] 1747. (format-hexadecimal-float 3.265625) .......... [PASS] 1748. (format-hexadecimal-float 3.28125) .......... [PASS] 1749. (format-hexadecimal-float 3.296875) .......... [PASS] 1750. (format-hexadecimal-float 3.3125) .......... [PASS] 1751. (format-hexadecimal-float 3.328125) .......... [PASS] 1752. (format-hexadecimal-float 3.34375) .......... [PASS] 1753. (format-hexadecimal-float 3.359375) .......... [PASS] 1754. (format-hexadecimal-float 3.375) .......... [PASS] 1755. (format-hexadecimal-float 3.390625) .......... [PASS] 1756. (format-hexadecimal-float 3.40625) .......... [PASS] 1757. (format-hexadecimal-float 3.421875) .......... [PASS] 1758. (format-hexadecimal-float 3.4375) .......... [PASS] 1759. (format-hexadecimal-float 3.453125) .......... [PASS] 1760. (format-hexadecimal-float 3.46875) .......... [PASS] 1761. (format-hexadecimal-float 3.484375) .......... [PASS] 1762. (format-hexadecimal-float 3.5) .......... [PASS] 1763. (format-hexadecimal-float 3.515625) .......... [PASS] 1764. (format-hexadecimal-float 3.53125) .......... [PASS] 1765. (format-hexadecimal-float 3.546875) .......... [PASS] 1766. (format-hexadecimal-float 3.5625) .......... [PASS] 1767. (format-hexadecimal-float 3.578125) .......... [PASS] 1768. (format-hexadecimal-float 3.59375) .......... [PASS] 1769. (format-hexadecimal-float 3.609375) .......... [PASS] 1770. (format-hexadecimal-float 3.625) .......... [PASS] 1771. (format-hexadecimal-float 3.640625) .......... [PASS] 1772. (format-hexadecimal-float 3.65625) .......... [PASS] 1773. (format-hexadecimal-float 3.671875) .......... [PASS] 1774. (format-hexadecimal-float 3.6875) .......... [PASS] 1775. (format-hexadecimal-float 3.703125) .......... [PASS] 1776. (format-hexadecimal-float 3.71875) .......... [PASS] 1777. (format-hexadecimal-float 3.734375) .......... [PASS] 1778. (format-hexadecimal-float 3.75) .......... [PASS] 1779. (format-hexadecimal-float 3.765625) .......... [PASS] 1780. (format-hexadecimal-float 3.78125) .......... [PASS] 1781. (format-hexadecimal-float 3.796875) .......... [PASS] 1782. (format-hexadecimal-float 3.8125) .......... [PASS] 1783. (format-hexadecimal-float 3.828125) .......... [PASS] 1784. (format-hexadecimal-float 3.84375) .......... [PASS] 1785. (format-hexadecimal-float 3.859375) .......... [PASS] 1786. (format-hexadecimal-float 3.875) .......... [PASS] 1787. (format-hexadecimal-float 3.890625) .......... [PASS] 1788. (format-hexadecimal-float 3.90625) .......... [PASS] 1789. (format-hexadecimal-float 3.921875) .......... [PASS] 1790. (format-hexadecimal-float 3.9375) .......... [PASS] 1791. (format-hexadecimal-float 3.953125) .......... [PASS] 1792. (format-hexadecimal-float 3.96875) .......... [PASS] 1793. (format-hexadecimal-float 3.984375) .......... [PASS] 1794. (format-hexadecimal-float 4.0) .......... [PASS] 1795. (format-hexadecimal-float 4.015625) .......... [PASS] 1796. (format-hexadecimal-float 4.03125) .......... [PASS] 1797. (format-hexadecimal-float 4.046875) .......... [PASS] 1798. (format-hexadecimal-float 4.0625) .......... [PASS] 1799. (format-hexadecimal-float 4.078125) .......... [PASS] 1800. (format-hexadecimal-float 4.09375) .......... [PASS] 1801. (format-hexadecimal-float 4.109375) .......... [PASS] 1802. (format-hexadecimal-float 4.125) .......... [PASS] 1803. (format-hexadecimal-float 4.140625) .......... [PASS] 1804. (format-hexadecimal-float 4.15625) .......... [PASS] 1805. (format-hexadecimal-float 4.171875) .......... [PASS] 1806. (format-hexadecimal-float 4.1875) .......... [PASS] 1807. (format-hexadecimal-float 4.203125) .......... [PASS] 1808. (format-hexadecimal-float 4.21875) .......... [PASS] 1809. (format-hexadecimal-float 4.234375) .......... [PASS] 1810. (format-hexadecimal-float 4.25) .......... [PASS] 1811. (format-hexadecimal-float 4.265625) .......... [PASS] 1812. (format-hexadecimal-float 4.28125) .......... [PASS] 1813. (format-hexadecimal-float 4.296875) .......... [PASS] 1814. (format-hexadecimal-float 4.3125) .......... [PASS] 1815. (format-hexadecimal-float 4.328125) .......... [PASS] 1816. (format-hexadecimal-float 4.34375) .......... [PASS] 1817. (format-hexadecimal-float 4.359375) .......... [PASS] 1818. (format-hexadecimal-float 4.375) .......... [PASS] 1819. (format-hexadecimal-float 4.390625) .......... [PASS] 1820. (format-hexadecimal-float 4.40625) .......... [PASS] 1821. (format-hexadecimal-float 4.421875) .......... [PASS] 1822. (format-hexadecimal-float 4.4375) .......... [PASS] 1823. (format-hexadecimal-float 4.453125) .......... [PASS] 1824. (format-hexadecimal-float 4.46875) .......... [PASS] 1825. (format-hexadecimal-float 4.484375) .......... [PASS] 1826. (format-hexadecimal-float 4.5) .......... [PASS] 1827. (format-hexadecimal-float 4.515625) .......... [PASS] 1828. (format-hexadecimal-float 4.53125) .......... [PASS] 1829. (format-hexadecimal-float 4.546875) .......... [PASS] 1830. (format-hexadecimal-float 4.5625) .......... [PASS] 1831. (format-hexadecimal-float 4.578125) .......... [PASS] 1832. (format-hexadecimal-float 4.59375) .......... [PASS] 1833. (format-hexadecimal-float 4.609375) .......... [PASS] 1834. (format-hexadecimal-float 4.625) .......... [PASS] 1835. (format-hexadecimal-float 4.640625) .......... [PASS] 1836. (format-hexadecimal-float 4.65625) .......... [PASS] 1837. (format-hexadecimal-float 4.671875) .......... [PASS] 1838. (format-hexadecimal-float 4.6875) .......... [PASS] 1839. (format-hexadecimal-float 4.703125) .......... [PASS] 1840. (format-hexadecimal-float 4.71875) .......... [PASS] 1841. (format-hexadecimal-float 4.734375) .......... [PASS] 1842. (format-hexadecimal-float 4.75) .......... [PASS] 1843. (format-hexadecimal-float 4.765625) .......... [PASS] 1844. (format-hexadecimal-float 4.78125) .......... [PASS] 1845. (format-hexadecimal-float 4.796875) .......... [PASS] 1846. (format-hexadecimal-float 4.8125) .......... [PASS] 1847. (format-hexadecimal-float 4.828125) .......... [PASS] 1848. (format-hexadecimal-float 4.84375) .......... [PASS] 1849. (format-hexadecimal-float 4.859375) .......... [PASS] 1850. (format-hexadecimal-float 4.875) .......... [PASS] 1851. (format-hexadecimal-float 4.890625) .......... [PASS] 1852. (format-hexadecimal-float 4.90625) .......... [PASS] 1853. (format-hexadecimal-float 4.921875) .......... [PASS] 1854. (format-hexadecimal-float 4.9375) .......... [PASS] 1855. (format-hexadecimal-float 4.953125) .......... [PASS] 1856. (format-hexadecimal-float 4.96875) .......... [PASS] 1857. (format-hexadecimal-float 4.984375) .......... [PASS] 1858. (format-hexadecimal-float 5.0) .......... [PASS] 1859. (format-hexadecimal-float 5.015625) .......... [PASS] 1860. (format-hexadecimal-float 5.03125) .......... [PASS] 1861. (format-hexadecimal-float 5.046875) .......... [PASS] 1862. (format-hexadecimal-float 5.0625) .......... [PASS] 1863. (format-hexadecimal-float 5.078125) .......... [PASS] 1864. (format-hexadecimal-float 5.09375) .......... [PASS] 1865. (format-hexadecimal-float 5.109375) .......... [PASS] 1866. (format-hexadecimal-float 5.125) .......... [PASS] 1867. (format-hexadecimal-float 5.140625) .......... [PASS] 1868. (format-hexadecimal-float 5.15625) .......... [PASS] 1869. (format-hexadecimal-float 5.171875) .......... [PASS] 1870. (format-hexadecimal-float 5.1875) .......... [PASS] 1871. (format-hexadecimal-float 5.203125) .......... [PASS] 1872. (format-hexadecimal-float 5.21875) .......... [PASS] 1873. (format-hexadecimal-float 5.234375) .......... [PASS] 1874. (format-hexadecimal-float 5.25) .......... [PASS] 1875. (format-hexadecimal-float 5.265625) .......... [PASS] 1876. (format-hexadecimal-float 5.28125) .......... [PASS] 1877. (format-hexadecimal-float 5.296875) .......... [PASS] 1878. (format-hexadecimal-float 5.3125) .......... [PASS] 1879. (format-hexadecimal-float 5.328125) .......... [PASS] 1880. (format-hexadecimal-float 5.34375) .......... [PASS] 1881. (format-hexadecimal-float 5.359375) .......... [PASS] 1882. (format-hexadecimal-float 5.375) .......... [PASS] 1883. (format-hexadecimal-float 5.390625) .......... [PASS] 1884. (format-hexadecimal-float 5.40625) .......... [PASS] 1885. (format-hexadecimal-float 5.421875) .......... [PASS] 1886. (format-hexadecimal-float 5.4375) .......... [PASS] 1887. (format-hexadecimal-float 5.453125) .......... [PASS] 1888. (format-hexadecimal-float 5.46875) .......... [PASS] 1889. (format-hexadecimal-float 5.484375) .......... [PASS] 1890. (format-hexadecimal-float 5.5) .......... [PASS] 1891. (format-hexadecimal-float 5.515625) .......... [PASS] 1892. (format-hexadecimal-float 5.53125) .......... [PASS] 1893. (format-hexadecimal-float 5.546875) .......... [PASS] 1894. (format-hexadecimal-float 5.5625) .......... [PASS] 1895. (format-hexadecimal-float 5.578125) .......... [PASS] 1896. (format-hexadecimal-float 5.59375) .......... [PASS] 1897. (format-hexadecimal-float 5.609375) .......... [PASS] 1898. (format-hexadecimal-float 5.625) .......... [PASS] 1899. (format-hexadecimal-float 5.640625) .......... [PASS] 1900. (format-hexadecimal-float 5.65625) .......... [PASS] 1901. (format-hexadecimal-float 5.671875) .......... [PASS] 1902. (format-hexadecimal-float 5.6875) .......... [PASS] 1903. (format-hexadecimal-float 5.703125) .......... [PASS] 1904. (format-hexadecimal-float 5.71875) .......... [PASS] 1905. (format-hexadecimal-float 5.734375) .......... [PASS] 1906. (format-hexadecimal-float 5.75) .......... [PASS] 1907. (format-hexadecimal-float 5.765625) .......... [PASS] 1908. (format-hexadecimal-float 5.78125) .......... [PASS] 1909. (format-hexadecimal-float 5.796875) .......... [PASS] 1910. (format-hexadecimal-float 5.8125) .......... [PASS] 1911. (format-hexadecimal-float 5.828125) .......... [PASS] 1912. (format-hexadecimal-float 5.84375) .......... [PASS] 1913. (format-hexadecimal-float 5.859375) .......... [PASS] 1914. (format-hexadecimal-float 5.875) .......... [PASS] 1915. (format-hexadecimal-float 5.890625) .......... [PASS] 1916. (format-hexadecimal-float 5.90625) .......... [PASS] 1917. (format-hexadecimal-float 5.921875) .......... [PASS] 1918. (format-hexadecimal-float 5.9375) .......... [PASS] 1919. (format-hexadecimal-float 5.953125) .......... [PASS] 1920. (format-hexadecimal-float 5.96875) .......... [PASS] 1921. (format-hexadecimal-float 5.984375) .......... [PASS] 1922. (format-hexadecimal-float 6.0) .......... [PASS] 1923. (format-hexadecimal-float 6.015625) .......... [PASS] 1924. (format-hexadecimal-float 6.03125) .......... [PASS] 1925. (format-hexadecimal-float 6.046875) .......... [PASS] 1926. (format-hexadecimal-float 6.0625) .......... [PASS] 1927. (format-hexadecimal-float 6.078125) .......... [PASS] 1928. (format-hexadecimal-float 6.09375) .......... [PASS] 1929. (format-hexadecimal-float 6.109375) .......... [PASS] 1930. (format-hexadecimal-float 6.125) .......... [PASS] 1931. (format-hexadecimal-float 6.140625) .......... [PASS] 1932. (format-hexadecimal-float 6.15625) .......... [PASS] 1933. (format-hexadecimal-float 6.171875) .......... [PASS] 1934. (format-hexadecimal-float 6.1875) .......... [PASS] 1935. (format-hexadecimal-float 6.203125) .......... [PASS] 1936. (format-hexadecimal-float 6.21875) .......... [PASS] 1937. (format-hexadecimal-float 6.234375) .......... [PASS] 1938. (format-hexadecimal-float 6.25) .......... [PASS] 1939. (format-hexadecimal-float 6.265625) .......... [PASS] 1940. (format-hexadecimal-float 6.28125) .......... [PASS] 1941. (format-hexadecimal-float 6.296875) .......... [PASS] 1942. (format-hexadecimal-float 6.3125) .......... [PASS] 1943. (format-hexadecimal-float 6.328125) .......... [PASS] 1944. (format-hexadecimal-float 6.34375) .......... [PASS] 1945. (format-hexadecimal-float 6.359375) .......... [PASS] 1946. (format-hexadecimal-float 6.375) .......... [PASS] 1947. (format-hexadecimal-float 6.390625) .......... [PASS] 1948. (format-hexadecimal-float 6.40625) .......... [PASS] 1949. (format-hexadecimal-float 6.421875) .......... [PASS] 1950. (format-hexadecimal-float 6.4375) .......... [PASS] 1951. (format-hexadecimal-float 6.453125) .......... [PASS] 1952. (format-hexadecimal-float 6.46875) .......... [PASS] 1953. (format-hexadecimal-float 6.484375) .......... [PASS] 1954. (format-hexadecimal-float 6.5) .......... [PASS] 1955. (format-hexadecimal-float 6.515625) .......... [PASS] 1956. (format-hexadecimal-float 6.53125) .......... [PASS] 1957. (format-hexadecimal-float 6.546875) .......... [PASS] 1958. (format-hexadecimal-float 6.5625) .......... [PASS] 1959. (format-hexadecimal-float 6.578125) .......... [PASS] 1960. (format-hexadecimal-float 6.59375) .......... [PASS] 1961. (format-hexadecimal-float 6.609375) .......... [PASS] 1962. (format-hexadecimal-float 6.625) .......... [PASS] 1963. (format-hexadecimal-float 6.640625) .......... [PASS] 1964. (format-hexadecimal-float 6.65625) .......... [PASS] 1965. (format-hexadecimal-float 6.671875) .......... [PASS] 1966. (format-hexadecimal-float 6.6875) .......... [PASS] 1967. (format-hexadecimal-float 6.703125) .......... [PASS] 1968. (format-hexadecimal-float 6.71875) .......... [PASS] 1969. (format-hexadecimal-float 6.734375) .......... [PASS] 1970. (format-hexadecimal-float 6.75) .......... [PASS] 1971. (format-hexadecimal-float 6.765625) .......... [PASS] 1972. (format-hexadecimal-float 6.78125) .......... [PASS] 1973. (format-hexadecimal-float 6.796875) .......... [PASS] 1974. (format-hexadecimal-float 6.8125) .......... [PASS] 1975. (format-hexadecimal-float 6.828125) .......... [PASS] 1976. (format-hexadecimal-float 6.84375) .......... [PASS] 1977. (format-hexadecimal-float 6.859375) .......... [PASS] 1978. (format-hexadecimal-float 6.875) .......... [PASS] 1979. (format-hexadecimal-float 6.890625) .......... [PASS] 1980. (format-hexadecimal-float 6.90625) .......... [PASS] 1981. (format-hexadecimal-float 6.921875) .......... [PASS] 1982. (format-hexadecimal-float 6.9375) .......... [PASS] 1983. (format-hexadecimal-float 6.953125) .......... [PASS] 1984. (format-hexadecimal-float 6.96875) .......... [PASS] 1985. (format-hexadecimal-float 6.984375) .......... [PASS] 1986. (format-hexadecimal-float 7.0) .......... [PASS] 1987. (format-hexadecimal-float 7.015625) .......... [PASS] 1988. (format-hexadecimal-float 7.03125) .......... [PASS] 1989. (format-hexadecimal-float 7.046875) .......... [PASS] 1990. (format-hexadecimal-float 7.0625) .......... [PASS] 1991. (format-hexadecimal-float 7.078125) .......... [PASS] 1992. (format-hexadecimal-float 7.09375) .......... [PASS] 1993. (format-hexadecimal-float 7.109375) .......... [PASS] 1994. (format-hexadecimal-float 7.125) .......... [PASS] 1995. (format-hexadecimal-float 7.140625) .......... [PASS] 1996. (format-hexadecimal-float 7.15625) .......... [PASS] 1997. (format-hexadecimal-float 7.171875) .......... [PASS] 1998. (format-hexadecimal-float 7.1875) .......... [PASS] 1999. (format-hexadecimal-float 7.203125) .......... [PASS] 2000. (format-hexadecimal-float 7.21875) .......... [PASS] 2001. (format-hexadecimal-float 7.234375) .......... [PASS] 2002. (format-hexadecimal-float 7.25) .......... [PASS] 2003. (format-hexadecimal-float 7.265625) .......... [PASS] 2004. (format-hexadecimal-float 7.28125) .......... [PASS] 2005. (format-hexadecimal-float 7.296875) .......... [PASS] 2006. (format-hexadecimal-float 7.3125) .......... [PASS] 2007. (format-hexadecimal-float 7.328125) .......... [PASS] 2008. (format-hexadecimal-float 7.34375) .......... [PASS] 2009. (format-hexadecimal-float 7.359375) .......... [PASS] 2010. (format-hexadecimal-float 7.375) .......... [PASS] 2011. (format-hexadecimal-float 7.390625) .......... [PASS] 2012. (format-hexadecimal-float 7.40625) .......... [PASS] 2013. (format-hexadecimal-float 7.421875) .......... [PASS] 2014. (format-hexadecimal-float 7.4375) .......... [PASS] 2015. (format-hexadecimal-float 7.453125) .......... [PASS] 2016. (format-hexadecimal-float 7.46875) .......... [PASS] 2017. (format-hexadecimal-float 7.484375) .......... [PASS] 2018. (format-hexadecimal-float 7.5) .......... [PASS] 2019. (format-hexadecimal-float 7.515625) .......... [PASS] 2020. (format-hexadecimal-float 7.53125) .......... [PASS] 2021. (format-hexadecimal-float 7.546875) .......... [PASS] 2022. (format-hexadecimal-float 7.5625) .......... [PASS] 2023. (format-hexadecimal-float 7.578125) .......... [PASS] 2024. (format-hexadecimal-float 7.59375) .......... [PASS] 2025. (format-hexadecimal-float 7.609375) .......... [PASS] 2026. (format-hexadecimal-float 7.625) .......... [PASS] 2027. (format-hexadecimal-float 7.640625) .......... [PASS] 2028. (format-hexadecimal-float 7.65625) .......... [PASS] 2029. (format-hexadecimal-float 7.671875) .......... [PASS] 2030. (format-hexadecimal-float 7.6875) .......... [PASS] 2031. (format-hexadecimal-float 7.703125) .......... [PASS] 2032. (format-hexadecimal-float 7.71875) .......... [PASS] 2033. (format-hexadecimal-float 7.734375) .......... [PASS] 2034. (format-hexadecimal-float 7.75) .......... [PASS] 2035. (format-hexadecimal-float 7.765625) .......... [PASS] 2036. (format-hexadecimal-float 7.78125) .......... [PASS] 2037. (format-hexadecimal-float 7.796875) .......... [PASS] 2038. (format-hexadecimal-float 7.8125) .......... [PASS] 2039. (format-hexadecimal-float 7.828125) .......... [PASS] 2040. (format-hexadecimal-float 7.84375) .......... [PASS] 2041. (format-hexadecimal-float 7.859375) .......... [PASS] 2042. (format-hexadecimal-float 7.875) .......... [PASS] 2043. (format-hexadecimal-float 7.890625) .......... [PASS] 2044. (format-hexadecimal-float 7.90625) .......... [PASS] 2045. (format-hexadecimal-float 7.921875) .......... [PASS] 2046. (format-hexadecimal-float 7.9375) .......... [PASS] 2047. (format-hexadecimal-float 7.953125) .......... [PASS] 2048. (format-hexadecimal-float 7.96875) .......... [PASS] 2049. (format-hexadecimal-float 7.984375) .......... [PASS] 2050. (format-hexadecimal-float 8.0) .......... [PASS] 2051. (format-hexadecimal-float 2.781342323134002e-309) .......... [PASS] 2052. (format-hexadecimal-float 1.1125369292536007e-308) .......... [PASS] 2053. (format-hexadecimal-float 4.450147717014403e-308) .......... [PASS] 2054. (format-hexadecimal-float 1.7800590868057611e-307) .......... [PASS] 2055. (format-hexadecimal-float 7.1202363472230444e-307) .......... [PASS] 2056. (format-hexadecimal-float 2.848094538889218e-306) .......... [PASS] 2057. (format-hexadecimal-float 1.1392378155556871e-305) .......... [PASS] 2058. (format-hexadecimal-float 4.5569512622227484e-305) .......... [PASS] 2059. (format-hexadecimal-float 1.8227805048890994e-304) .......... [PASS] 2060. (format-hexadecimal-float 7.2911220195563975e-304) .......... [PASS] 2061. (format-hexadecimal-float 2.916448807822559e-303) .......... [PASS] 2062. (format-hexadecimal-float 1.1665795231290236e-302) .......... [PASS] 2063. (format-hexadecimal-float 4.6663180925160944e-302) .......... [PASS] 2064. (format-hexadecimal-float 1.8665272370064378e-301) .......... [PASS] 2065. (format-hexadecimal-float 7.466108948025751e-301) .......... [PASS] 2066. (format-hexadecimal-float 2.9864435792103004e-300) .......... [PASS] 2067. (format-hexadecimal-float 1.1945774316841202e-299) .......... [PASS] 2068. (format-hexadecimal-float 4.778309726736481e-299) .......... [PASS] 2069. (format-hexadecimal-float 1.9113238906945923e-298) .......... [PASS] 2070. (format-hexadecimal-float 7.645295562778369e-298) .......... [PASS] 2071. (format-hexadecimal-float 3.0581182251113476e-297) .......... [PASS] 2072. (format-hexadecimal-float 1.223247290044539e-296) .......... [PASS] 2073. (format-hexadecimal-float 4.892989160178156e-296) .......... [PASS] 2074. (format-hexadecimal-float 1.9571956640712625e-295) .......... [PASS] 2075. (format-hexadecimal-float 7.82878265628505e-295) .......... [PASS] 2076. (format-hexadecimal-float 3.13151306251402e-294) .......... [PASS] 2077. (format-hexadecimal-float 1.252605225005608e-293) .......... [PASS] 2078. (format-hexadecimal-float 5.010420900022432e-293) .......... [PASS] 2079. (format-hexadecimal-float 2.004168360008973e-292) .......... [PASS] 2080. (format-hexadecimal-float 8.016673440035891e-292) .......... [PASS] 2081. (format-hexadecimal-float 3.2066693760143564e-291) .......... [PASS] 2082. (format-hexadecimal-float 1.2826677504057426e-290) .......... [PASS] 2083. (format-hexadecimal-float 5.1306710016229703e-290) .......... [PASS] 2084. (format-hexadecimal-float 2.0522684006491881e-289) .......... [PASS] 2085. (format-hexadecimal-float 8.2090736025967525e-289) .......... [PASS] 2086. (format-hexadecimal-float 3.283629441038701e-288) .......... [PASS] 2087. (format-hexadecimal-float 1.3134517764154804e-287) .......... [PASS] 2088. (format-hexadecimal-float 5.253807105661922e-287) .......... [PASS] 2089. (format-hexadecimal-float 2.1015228422647686e-286) .......... [PASS] 2090. (format-hexadecimal-float 8.406091369059075e-286) .......... [PASS] 2091. (format-hexadecimal-float 3.36243654762363e-285) .......... [PASS] 2092. (format-hexadecimal-float 1.344974619049452e-284) .......... [PASS] 2093. (format-hexadecimal-float 5.379898476197808e-284) .......... [PASS] 2094. (format-hexadecimal-float 2.151959390479123e-283) .......... [PASS] 2095. (format-hexadecimal-float 8.607837561916492e-283) .......... [PASS] 2096. (format-hexadecimal-float 3.443135024766597e-282) .......... [PASS] 2097. (format-hexadecimal-float 1.3772540099066388e-281) .......... [PASS] 2098. (format-hexadecimal-float 5.509016039626555e-281) .......... [PASS] 2099. (format-hexadecimal-float 2.203606415850622e-280) .......... [PASS] 2100. (format-hexadecimal-float 8.814425663402488e-280) .......... [PASS] 2101. (format-hexadecimal-float 3.5257702653609953e-279) .......... [PASS] 2102. (format-hexadecimal-float 1.4103081061443981e-278) .......... [PASS] 2103. (format-hexadecimal-float 5.6412324245775924e-278) .......... [PASS] 2104. (format-hexadecimal-float 2.256492969831037e-277) .......... [PASS] 2105. (format-hexadecimal-float 9.025971879324148e-277) .......... [PASS] 2106. (format-hexadecimal-float 3.610388751729659e-276) .......... [PASS] 2107. (format-hexadecimal-float 1.4441555006918637e-275) .......... [PASS] 2108. (format-hexadecimal-float 5.776622002767455e-275) .......... [PASS] 2109. (format-hexadecimal-float 2.310648801106982e-274) .......... [PASS] 2110. (format-hexadecimal-float 9.242595204427927e-274) .......... [PASS] 2111. (format-hexadecimal-float 3.697038081771171e-273) .......... [PASS] 2112. (format-hexadecimal-float 1.4788152327084684e-272) .......... [PASS] 2113. (format-hexadecimal-float 5.915260930833874e-272) .......... [PASS] 2114. (format-hexadecimal-float 2.3661043723335494e-271) .......... [PASS] 2115. (format-hexadecimal-float 9.464417489334198e-271) .......... [PASS] 2116. (format-hexadecimal-float 3.785766995733679e-270) .......... [PASS] 2117. (format-hexadecimal-float 1.5143067982934716e-269) .......... [PASS] 2118. (format-hexadecimal-float 6.057227193173887e-269) .......... [PASS] 2119. (format-hexadecimal-float 2.4228908772695546e-268) .......... [PASS] 2120. (format-hexadecimal-float 9.691563509078218e-268) .......... [PASS] 2121. (format-hexadecimal-float 3.8766254036312874e-267) .......... [PASS] 2122. (format-hexadecimal-float 1.550650161452515e-266) .......... [PASS] 2123. (format-hexadecimal-float 6.20260064581006e-266) .......... [PASS] 2124. (format-hexadecimal-float 2.481040258324024e-265) .......... [PASS] 2125. (format-hexadecimal-float 9.924161033296096e-265) .......... [PASS] 2126. (format-hexadecimal-float 3.9696644133184383e-264) .......... [PASS] 2127. (format-hexadecimal-float 1.5878657653273753e-263) .......... [PASS] 2128. (format-hexadecimal-float 6.351463061309501e-263) .......... [PASS] 2129. (format-hexadecimal-float 2.5405852245238005e-262) .......... [PASS] 2130. (format-hexadecimal-float 1.0162340898095202e-261) .......... [PASS] 2131. (format-hexadecimal-float 4.064936359238081e-261) .......... [PASS] 2132. (format-hexadecimal-float 1.6259745436952323e-260) .......... [PASS] 2133. (format-hexadecimal-float 6.503898174780929e-260) .......... [PASS] 2134. (format-hexadecimal-float 2.6015592699123717e-259) .......... [PASS] 2135. (format-hexadecimal-float 1.0406237079649487e-258) .......... [PASS] 2136. (format-hexadecimal-float 4.162494831859795e-258) .......... [PASS] 2137. (format-hexadecimal-float 1.664997932743918e-257) .......... [PASS] 2138. (format-hexadecimal-float 6.659991730975672e-257) .......... [PASS] 2139. (format-hexadecimal-float 2.6639966923902686e-256) .......... [PASS] 2140. (format-hexadecimal-float 1.0655986769561075e-255) .......... [PASS] 2141. (format-hexadecimal-float 4.26239470782443e-255) .......... [PASS] 2142. (format-hexadecimal-float 1.704957883129772e-254) .......... [PASS] 2143. (format-hexadecimal-float 6.819831532519088e-254) .......... [PASS] 2144. (format-hexadecimal-float 2.727932613007635e-253) .......... [PASS] 2145. (format-hexadecimal-float 1.091173045203054e-252) .......... [PASS] 2146. (format-hexadecimal-float 4.364692180812216e-252) .......... [PASS] 2147. (format-hexadecimal-float 1.7458768723248864e-251) .......... [PASS] 2148. (format-hexadecimal-float 6.983507489299546e-251) .......... [PASS] 2149. (format-hexadecimal-float 2.7934029957198183e-250) .......... [PASS] 2150. (format-hexadecimal-float 1.1173611982879273e-249) .......... [PASS] 2151. (format-hexadecimal-float 4.4694447931517093e-249) .......... [PASS] 2152. (format-hexadecimal-float 1.7877779172606837e-248) .......... [PASS] 2153. (format-hexadecimal-float 7.151111669042735e-248) .......... [PASS] 2154. (format-hexadecimal-float 2.860444667617094e-247) .......... [PASS] 2155. (format-hexadecimal-float 1.1441778670468376e-246) .......... [PASS] 2156. (format-hexadecimal-float 4.5767114681873503e-246) .......... [PASS] 2157. (format-hexadecimal-float 1.8306845872749401e-245) .......... [PASS] 2158. (format-hexadecimal-float 7.322738349099761e-245) .......... [PASS] 2159. (format-hexadecimal-float 2.9290953396399042e-244) .......... [PASS] 2160. (format-hexadecimal-float 1.1716381358559617e-243) .......... [PASS] 2161. (format-hexadecimal-float 4.686552543423847e-243) .......... [PASS] 2162. (format-hexadecimal-float 1.8746210173695387e-242) .......... [PASS] 2163. (format-hexadecimal-float 7.498484069478155e-242) .......... [PASS] 2164. (format-hexadecimal-float 2.999393627791262e-241) .......... [PASS] 2165. (format-hexadecimal-float 1.1997574511165048e-240) .......... [PASS] 2166. (format-hexadecimal-float 4.799029804466019e-240) .......... [PASS] 2167. (format-hexadecimal-float 1.9196119217864076e-239) .......... [PASS] 2168. (format-hexadecimal-float 7.6784476871456305e-239) .......... [PASS] 2169. (format-hexadecimal-float 3.0713790748582522e-238) .......... [PASS] 2170. (format-hexadecimal-float 1.228551629943301e-237) .......... [PASS] 2171. (format-hexadecimal-float 4.914206519773204e-237) .......... [PASS] 2172. (format-hexadecimal-float 1.9656826079092814e-236) .......... [PASS] 2173. (format-hexadecimal-float 7.862730431637126e-236) .......... [PASS] 2174. (format-hexadecimal-float 3.1450921726548502e-235) .......... [PASS] 2175. (format-hexadecimal-float 1.2580368690619401e-234) .......... [PASS] 2176. (format-hexadecimal-float 5.0321474762477604e-234) .......... [PASS] 2177. (format-hexadecimal-float 2.0128589904991042e-233) .......... [PASS] 2178. (format-hexadecimal-float 8.051435961996417e-233) .......... [PASS] 2179. (format-hexadecimal-float 3.220574384798567e-232) .......... [PASS] 2180. (format-hexadecimal-float 1.2882297539194267e-231) .......... [PASS] 2181. (format-hexadecimal-float 5.152919015677707e-231) .......... [PASS] 2182. (format-hexadecimal-float 2.0611676062710827e-230) .......... [PASS] 2183. (format-hexadecimal-float 8.244670425084331e-230) .......... [PASS] 2184. (format-hexadecimal-float 3.2978681700337323e-229) .......... [PASS] 2185. (format-hexadecimal-float 1.319147268013493e-228) .......... [PASS] 2186. (format-hexadecimal-float 5.276589072053972e-228) .......... [PASS] 2187. (format-hexadecimal-float 2.1106356288215886e-227) .......... [PASS] 2188. (format-hexadecimal-float 8.442542515286355e-227) .......... [PASS] 2189. (format-hexadecimal-float 3.377017006114542e-226) .......... [PASS] 2190. (format-hexadecimal-float 1.3508068024458167e-225) .......... [PASS] 2191. (format-hexadecimal-float 5.403227209783267e-225) .......... [PASS] 2192. (format-hexadecimal-float 2.161290883913307e-224) .......... [PASS] 2193. (format-hexadecimal-float 8.645163535653227e-224) .......... [PASS] 2194. (format-hexadecimal-float 3.458065414261291e-223) .......... [PASS] 2195. (format-hexadecimal-float 1.3832261657045163e-222) .......... [PASS] 2196. (format-hexadecimal-float 5.5329046628180653e-222) .......... [PASS] 2197. (format-hexadecimal-float 2.2131618651272261e-221) .......... [PASS] 2198. (format-hexadecimal-float 8.852647460508905e-221) .......... [PASS] 2199. (format-hexadecimal-float 3.541058984203562e-220) .......... [PASS] 2200. (format-hexadecimal-float 1.4164235936814247e-219) .......... [PASS] 2201. (format-hexadecimal-float 5.665694374725699e-219) .......... [PASS] 2202. (format-hexadecimal-float 2.2662777498902796e-218) .......... [PASS] 2203. (format-hexadecimal-float 9.065110999561118e-218) .......... [PASS] 2204. (format-hexadecimal-float 3.6260443998244473e-217) .......... [PASS] 2205. (format-hexadecimal-float 1.450417759929779e-216) .......... [PASS] 2206. (format-hexadecimal-float 5.801671039719116e-216) .......... [PASS] 2207. (format-hexadecimal-float 2.3206684158876463e-215) .......... [PASS] 2208. (format-hexadecimal-float 9.282673663550585e-215) .......... [PASS] 2209. (format-hexadecimal-float 3.713069465420234e-214) .......... [PASS] 2210. (format-hexadecimal-float 1.4852277861680936e-213) .......... [PASS] 2211. (format-hexadecimal-float 5.9409111446723744e-213) .......... [PASS] 2212. (format-hexadecimal-float 2.37636445786895e-212) .......... [PASS] 2213. (format-hexadecimal-float 9.505457831475799e-212) .......... [PASS] 2214. (format-hexadecimal-float 3.80218313259032e-211) .......... [PASS] 2215. (format-hexadecimal-float 1.520873253036128e-210) .......... [PASS] 2216. (format-hexadecimal-float 6.0834930121445114e-210) .......... [PASS] 2217. (format-hexadecimal-float 2.4333972048578046e-209) .......... [PASS] 2218. (format-hexadecimal-float 9.733588819431218e-209) .......... [PASS] 2219. (format-hexadecimal-float 3.8934355277724873e-208) .......... [PASS] 2220. (format-hexadecimal-float 1.557374211108995e-207) .......... [PASS] 2221. (format-hexadecimal-float 6.22949684443598e-207) .......... [PASS] 2222. (format-hexadecimal-float 2.491798737774392e-206) .......... [PASS] 2223. (format-hexadecimal-float 9.967194951097568e-206) .......... [PASS] 2224. (format-hexadecimal-float 3.986877980439027e-205) .......... [PASS] 2225. (format-hexadecimal-float 1.5947511921756108e-204) .......... [PASS] 2226. (format-hexadecimal-float 6.379004768702443e-204) .......... [PASS] 2227. (format-hexadecimal-float 2.5516019074809773e-203) .......... [PASS] 2228. (format-hexadecimal-float 1.020640762992391e-202) .......... [PASS] 2229. (format-hexadecimal-float 4.082563051969564e-202) .......... [PASS] 2230. (format-hexadecimal-float 1.6330252207878255e-201) .......... [PASS] 2231. (format-hexadecimal-float 6.532100883151302e-201) .......... [PASS] 2232. (format-hexadecimal-float 2.612840353260521e-200) .......... [PASS] 2233. (format-hexadecimal-float 1.0451361413042083e-199) .......... [PASS] 2234. (format-hexadecimal-float 4.180544565216833e-199) .......... [PASS] 2235. (format-hexadecimal-float 1.6722178260867333e-198) .......... [PASS] 2236. (format-hexadecimal-float 6.688871304346933e-198) .......... [PASS] 2237. (format-hexadecimal-float 2.6755485217387732e-197) .......... [PASS] 2238. (format-hexadecimal-float 1.0702194086955093e-196) .......... [PASS] 2239. (format-hexadecimal-float 4.280877634782037e-196) .......... [PASS] 2240. (format-hexadecimal-float 1.712351053912815e-195) .......... [PASS] 2241. (format-hexadecimal-float 6.8494042156512595e-195) .......... [PASS] 2242. (format-hexadecimal-float 2.739761686260504e-194) .......... [PASS] 2243. (format-hexadecimal-float 1.0959046745042015e-193) .......... [PASS] 2244. (format-hexadecimal-float 4.383618698016806e-193) .......... [PASS] 2245. (format-hexadecimal-float 1.7534474792067224e-192) .......... [PASS] 2246. (format-hexadecimal-float 7.01378991682689e-192) .......... [PASS] 2247. (format-hexadecimal-float 2.805515966730756e-191) .......... [PASS] 2248. (format-hexadecimal-float 1.1222063866923024e-190) .......... [PASS] 2249. (format-hexadecimal-float 4.4888255467692094e-190) .......... [PASS] 2250. (format-hexadecimal-float 1.7955302187076838e-189) .......... [PASS] 2251. (format-hexadecimal-float 7.182120874830735e-189) .......... [PASS] 2252. (format-hexadecimal-float 2.872848349932294e-188) .......... [PASS] 2253. (format-hexadecimal-float 1.1491393399729176e-187) .......... [PASS] 2254. (format-hexadecimal-float 4.5965573598916705e-187) .......... [PASS] 2255. (format-hexadecimal-float 1.8386229439566682e-186) .......... [PASS] 2256. (format-hexadecimal-float 7.354491775826673e-186) .......... [PASS] 2257. (format-hexadecimal-float 2.941796710330669e-185) .......... [PASS] 2258. (format-hexadecimal-float 1.1767186841322676e-184) .......... [PASS] 2259. (format-hexadecimal-float 4.706874736529071e-184) .......... [PASS] 2260. (format-hexadecimal-float 1.8827498946116282e-183) .......... [PASS] 2261. (format-hexadecimal-float 7.530999578446513e-183) .......... [PASS] 2262. (format-hexadecimal-float 3.012399831378605e-182) .......... [PASS] 2263. (format-hexadecimal-float 1.204959932551442e-181) .......... [PASS] 2264. (format-hexadecimal-float 4.819839730205768e-181) .......... [PASS] 2265. (format-hexadecimal-float 1.9279358920823073e-180) .......... [PASS] 2266. (format-hexadecimal-float 7.711743568329229e-180) .......... [PASS] 2267. (format-hexadecimal-float 3.084697427331692e-179) .......... [PASS] 2268. (format-hexadecimal-float 1.2338789709326767e-178) .......... [PASS] 2269. (format-hexadecimal-float 4.935515883730707e-178) .......... [PASS] 2270. (format-hexadecimal-float 1.9742063534922827e-177) .......... [PASS] 2271. (format-hexadecimal-float 7.896825413969131e-177) .......... [PASS] 2272. (format-hexadecimal-float 3.1587301655876523e-176) .......... [PASS] 2273. (format-hexadecimal-float 1.263492066235061e-175) .......... [PASS] 2274. (format-hexadecimal-float 5.053968264940244e-175) .......... [PASS] 2275. (format-hexadecimal-float 2.0215873059760975e-174) .......... [PASS] 2276. (format-hexadecimal-float 8.08634922390439e-174) .......... [PASS] 2277. (format-hexadecimal-float 3.234539689561756e-173) .......... [PASS] 2278. (format-hexadecimal-float 1.2938158758247024e-172) .......... [PASS] 2279. (format-hexadecimal-float 5.1752635032988095e-172) .......... [PASS] 2280. (format-hexadecimal-float 2.070105401319524e-171) .......... [PASS] 2281. (format-hexadecimal-float 8.280421605278095e-171) .......... [PASS] 2282. (format-hexadecimal-float 3.312168642111238e-170) .......... [PASS] 2283. (format-hexadecimal-float 1.3248674568444952e-169) .......... [PASS] 2284. (format-hexadecimal-float 5.299469827377981e-169) .......... [PASS] 2285. (format-hexadecimal-float 2.1197879309511924e-168) .......... [PASS] 2286. (format-hexadecimal-float 8.479151723804769e-168) .......... [PASS] 2287. (format-hexadecimal-float 3.391660689521908e-167) .......... [PASS] 2288. (format-hexadecimal-float 1.3566642758087631e-166) .......... [PASS] 2289. (format-hexadecimal-float 5.4266571032350524e-166) .......... [PASS] 2290. (format-hexadecimal-float 2.170662841294021e-165) .......... [PASS] 2291. (format-hexadecimal-float 8.682651365176084e-165) .......... [PASS] 2292. (format-hexadecimal-float 3.4730605460704336e-164) .......... [PASS] 2293. (format-hexadecimal-float 1.3892242184281734e-163) .......... [PASS] 2294. (format-hexadecimal-float 5.556896873712694e-163) .......... [PASS] 2295. (format-hexadecimal-float 2.2227587494850775e-162) .......... [PASS] 2296. (format-hexadecimal-float 8.89103499794031e-162) .......... [PASS] 2297. (format-hexadecimal-float 3.556413999176124e-161) .......... [PASS] 2298. (format-hexadecimal-float 1.4225655996704496e-160) .......... [PASS] 2299. (format-hexadecimal-float 5.6902623986817984e-160) .......... [PASS] 2300. (format-hexadecimal-float 2.2761049594727193e-159) .......... [PASS] 2301. (format-hexadecimal-float 9.104419837890877e-159) .......... [PASS] 2302. (format-hexadecimal-float 3.641767935156351e-158) .......... [PASS] 2303. (format-hexadecimal-float 1.4567071740625404e-157) .......... [PASS] 2304. (format-hexadecimal-float 5.826828696250162e-157) .......... [PASS] 2305. (format-hexadecimal-float 2.3307314785000646e-156) .......... [PASS] 2306. (format-hexadecimal-float 9.322925914000258e-156) .......... [PASS] 2307. (format-hexadecimal-float 3.7291703656001034e-155) .......... [PASS] 2308. (format-hexadecimal-float 1.4916681462400413e-154) .......... [PASS] 2309. (format-hexadecimal-float 5.9666725849601654e-154) .......... [PASS] 2310. (format-hexadecimal-float 2.3866690339840662e-153) .......... [PASS] 2311. (format-hexadecimal-float 9.546676135936265e-153) .......... [PASS] 2312. (format-hexadecimal-float 3.818670454374506e-152) .......... [PASS] 2313. (format-hexadecimal-float 1.5274681817498023e-151) .......... [PASS] 2314. (format-hexadecimal-float 6.1098727269992094e-151) .......... [PASS] 2315. (format-hexadecimal-float 2.443949090799684e-150) .......... [PASS] 2316. (format-hexadecimal-float 9.775796363198735e-150) .......... [PASS] 2317. (format-hexadecimal-float 3.910318545279494e-149) .......... [PASS] 2318. (format-hexadecimal-float 1.5641274181117976e-148) .......... [PASS] 2319. (format-hexadecimal-float 6.2565096724471904e-148) .......... [PASS] 2320. (format-hexadecimal-float 2.5026038689788762e-147) .......... [PASS] 2321. (format-hexadecimal-float 1.0010415475915505e-146) .......... [PASS] 2322. (format-hexadecimal-float 4.004166190366202e-146) .......... [PASS] 2323. (format-hexadecimal-float 1.6016664761464807e-145) .......... [PASS] 2324. (format-hexadecimal-float 6.406665904585923e-145) .......... [PASS] 2325. (format-hexadecimal-float 2.5626663618343692e-144) .......... [PASS] 2326. (format-hexadecimal-float 1.0250665447337477e-143) .......... [PASS] 2327. (format-hexadecimal-float 4.100266178934991e-143) .......... [PASS] 2328. (format-hexadecimal-float 1.6401064715739963e-142) .......... [PASS] 2329. (format-hexadecimal-float 6.560425886295985e-142) .......... [PASS] 2330. (format-hexadecimal-float 2.624170354518394e-141) .......... [PASS] 2331. (format-hexadecimal-float 1.0496681418073576e-140) .......... [PASS] 2332. (format-hexadecimal-float 4.1986725672294305e-140) .......... [PASS] 2333. (format-hexadecimal-float 1.6794690268917722e-139) .......... [PASS] 2334. (format-hexadecimal-float 6.717876107567089e-139) .......... [PASS] 2335. (format-hexadecimal-float 2.6871504430268355e-138) .......... [PASS] 2336. (format-hexadecimal-float 1.0748601772107342e-137) .......... [PASS] 2337. (format-hexadecimal-float 4.299440708842937e-137) .......... [PASS] 2338. (format-hexadecimal-float 1.7197762835371747e-136) .......... [PASS] 2339. (format-hexadecimal-float 6.879105134148699e-136) .......... [PASS] 2340. (format-hexadecimal-float 2.7516420536594796e-135) .......... [PASS] 2341. (format-hexadecimal-float 1.1006568214637918e-134) .......... [PASS] 2342. (format-hexadecimal-float 4.4026272858551673e-134) .......... [PASS] 2343. (format-hexadecimal-float 1.761050914342067e-133) .......... [PASS] 2344. (format-hexadecimal-float 7.044203657368268e-133) .......... [PASS] 2345. (format-hexadecimal-float 2.817681462947307e-132) .......... [PASS] 2346. (format-hexadecimal-float 1.1270725851789228e-131) .......... [PASS] 2347. (format-hexadecimal-float 4.5082903407156913e-131) .......... [PASS] 2348. (format-hexadecimal-float 1.8033161362862765e-130) .......... [PASS] 2349. (format-hexadecimal-float 7.213264545145106e-130) .......... [PASS] 2350. (format-hexadecimal-float 2.8853058180580424e-129) .......... [PASS] 2351. (format-hexadecimal-float 1.154122327223217e-128) .......... [PASS] 2352. (format-hexadecimal-float 4.616489308892868e-128) .......... [PASS] 2353. (format-hexadecimal-float 1.8465957235571472e-127) .......... [PASS] 2354. (format-hexadecimal-float 7.386382894228589e-127) .......... [PASS] 2355. (format-hexadecimal-float 2.9545531576914354e-126) .......... [PASS] 2356. (format-hexadecimal-float 1.1818212630765742e-125) .......... [PASS] 2357. (format-hexadecimal-float 4.727285052306297e-125) .......... [PASS] 2358. (format-hexadecimal-float 1.8909140209225187e-124) .......... [PASS] 2359. (format-hexadecimal-float 7.563656083690075e-124) .......... [PASS] 2360. (format-hexadecimal-float 3.02546243347603e-123) .......... [PASS] 2361. (format-hexadecimal-float 1.210184973390412e-122) .......... [PASS] 2362. (format-hexadecimal-float 4.840739893561648e-122) .......... [PASS] 2363. (format-hexadecimal-float 1.9362959574246591e-121) .......... [PASS] 2364. (format-hexadecimal-float 7.745183829698637e-121) .......... [PASS] 2365. (format-hexadecimal-float 3.0980735318794546e-120) .......... [PASS] 2366. (format-hexadecimal-float 1.2392294127517818e-119) .......... [PASS] 2367. (format-hexadecimal-float 4.9569176510071274e-119) .......... [PASS] 2368. (format-hexadecimal-float 1.982767060402851e-118) .......... [PASS] 2369. (format-hexadecimal-float 7.931068241611404e-118) .......... [PASS] 2370. (format-hexadecimal-float 3.1724272966445615e-117) .......... [PASS] 2371. (format-hexadecimal-float 1.2689709186578246e-116) .......... [PASS] 2372. (format-hexadecimal-float 5.0758836746312984e-116) .......... [PASS] 2373. (format-hexadecimal-float 2.0303534698525194e-115) .......... [PASS] 2374. (format-hexadecimal-float 8.121413879410078e-115) .......... [PASS] 2375. (format-hexadecimal-float 3.248565551764031e-114) .......... [PASS] 2376. (format-hexadecimal-float 1.2994262207056124e-113) .......... [PASS] 2377. (format-hexadecimal-float 5.19770488282245e-113) .......... [PASS] 2378. (format-hexadecimal-float 2.07908195312898e-112) .......... [PASS] 2379. (format-hexadecimal-float 8.316327812515919e-112) .......... [PASS] 2380. (format-hexadecimal-float 3.326531125006368e-111) .......... [PASS] 2381. (format-hexadecimal-float 1.3306124500025471e-110) .......... [PASS] 2382. (format-hexadecimal-float 5.3224498000101884e-110) .......... [PASS] 2383. (format-hexadecimal-float 2.1289799200040754e-109) .......... [PASS] 2384. (format-hexadecimal-float 8.515919680016301e-109) .......... [PASS] 2385. (format-hexadecimal-float 3.4063678720065206e-108) .......... [PASS] 2386. (format-hexadecimal-float 1.3625471488026082e-107) .......... [PASS] 2387. (format-hexadecimal-float 5.450188595210433e-107) .......... [PASS] 2388. (format-hexadecimal-float 2.1800754380841732e-106) .......... [PASS] 2389. (format-hexadecimal-float 8.720301752336693e-106) .......... [PASS] 2390. (format-hexadecimal-float 3.488120700934677e-105) .......... [PASS] 2391. (format-hexadecimal-float 1.3952482803738708e-104) .......... [PASS] 2392. (format-hexadecimal-float 5.5809931214954833e-104) .......... [PASS] 2393. (format-hexadecimal-float 2.2323972485981933e-103) .......... [PASS] 2394. (format-hexadecimal-float 8.929588994392773e-103) .......... [PASS] 2395. (format-hexadecimal-float 3.5718355977571093e-102) .......... [PASS] 2396. (format-hexadecimal-float 1.4287342391028437e-101) .......... [PASS] 2397. (format-hexadecimal-float 5.714936956411375e-101) .......... [PASS] 2398. (format-hexadecimal-float 2.28597478256455e-100) .......... [PASS] 2399. (format-hexadecimal-float 9.1438991302582e-100) .......... [PASS] 2400. (format-hexadecimal-float 3.65755965210328e-99) .......... [PASS] 2401. (format-hexadecimal-float 1.463023860841312e-98) .......... [PASS] 2402. (format-hexadecimal-float 5.852095443365248e-98) .......... [PASS] 2403. (format-hexadecimal-float 2.3408381773460992e-97) .......... [PASS] 2404. (format-hexadecimal-float 9.363352709384397e-97) .......... [PASS] 2405. (format-hexadecimal-float 3.745341083753759e-96) .......... [PASS] 2406. (format-hexadecimal-float 1.4981364335015035e-95) .......... [PASS] 2407. (format-hexadecimal-float 5.992545734006014e-95) .......... [PASS] 2408. (format-hexadecimal-float 2.3970182936024055e-94) .......... [PASS] 2409. (format-hexadecimal-float 9.588073174409622e-94) .......... [PASS] 2410. (format-hexadecimal-float 3.835229269763849e-93) .......... [PASS] 2411. (format-hexadecimal-float 1.5340917079055395e-92) .......... [PASS] 2412. (format-hexadecimal-float 6.136366831622158e-92) .......... [PASS] 2413. (format-hexadecimal-float 2.4545467326488633e-91) .......... [PASS] 2414. (format-hexadecimal-float 9.818186930595453e-91) .......... [PASS] 2415. (format-hexadecimal-float 3.9272747722381812e-90) .......... [PASS] 2416. (format-hexadecimal-float 1.5709099088952725e-89) .......... [PASS] 2417. (format-hexadecimal-float 6.28363963558109e-89) .......... [PASS] 2418. (format-hexadecimal-float 2.513455854232436e-88) .......... [PASS] 2419. (format-hexadecimal-float 1.0053823416929744e-87) .......... [PASS] 2420. (format-hexadecimal-float 4.021529366771898e-87) .......... [PASS] 2421. (format-hexadecimal-float 1.608611746708759e-86) .......... [PASS] 2422. (format-hexadecimal-float 6.434446986835036e-86) .......... [PASS] 2423. (format-hexadecimal-float 2.5737787947340145e-85) .......... [PASS] 2424. (format-hexadecimal-float 1.0295115178936058e-84) .......... [PASS] 2425. (format-hexadecimal-float 4.118046071574423e-84) .......... [PASS] 2426. (format-hexadecimal-float 1.6472184286297693e-83) .......... [PASS] 2427. (format-hexadecimal-float 6.588873714519077e-83) .......... [PASS] 2428. (format-hexadecimal-float 2.635549485807631e-82) .......... [PASS] 2429. (format-hexadecimal-float 1.0542197943230523e-81) .......... [PASS] 2430. (format-hexadecimal-float 4.2168791772922093e-81) .......... [PASS] 2431. (format-hexadecimal-float 1.6867516709168837e-80) .......... [PASS] 2432. (format-hexadecimal-float 6.747006683667535e-80) .......... [PASS] 2433. (format-hexadecimal-float 2.698802673467014e-79) .......... [PASS] 2434. (format-hexadecimal-float 1.0795210693868056e-78) .......... [PASS] 2435. (format-hexadecimal-float 4.3180842775472223e-78) .......... [PASS] 2436. (format-hexadecimal-float 1.727233711018889e-77) .......... [PASS] 2437. (format-hexadecimal-float 6.908934844075556e-77) .......... [PASS] 2438. (format-hexadecimal-float 2.7635739376302223e-76) .......... [PASS] 2439. (format-hexadecimal-float 1.105429575052089e-75) .......... [PASS] 2440. (format-hexadecimal-float 4.421718300208356e-75) .......... [PASS] 2441. (format-hexadecimal-float 1.7686873200833423e-74) .......... [PASS] 2442. (format-hexadecimal-float 7.074749280333369e-74) .......... [PASS] 2443. (format-hexadecimal-float 2.8298997121333476e-73) .......... [PASS] 2444. (format-hexadecimal-float 1.131959884853339e-72) .......... [PASS] 2445. (format-hexadecimal-float 4.527839539413356e-72) .......... [PASS] 2446. (format-hexadecimal-float 1.8111358157653425e-71) .......... [PASS] 2447. (format-hexadecimal-float 7.24454326306137e-71) .......... [PASS] 2448. (format-hexadecimal-float 2.897817305224548e-70) .......... [PASS] 2449. (format-hexadecimal-float 1.1591269220898192e-69) .......... [PASS] 2450. (format-hexadecimal-float 4.636507688359277e-69) .......... [PASS] 2451. (format-hexadecimal-float 1.8546030753437107e-68) .......... [PASS] 2452. (format-hexadecimal-float 7.418412301374843e-68) .......... [PASS] 2453. (format-hexadecimal-float 2.967364920549937e-67) .......... [PASS] 2454. (format-hexadecimal-float 1.1869459682199748e-66) .......... [PASS] 2455. (format-hexadecimal-float 4.7477838728798994e-66) .......... [PASS] 2456. (format-hexadecimal-float 1.8991135491519597e-65) .......... [PASS] 2457. (format-hexadecimal-float 7.596454196607839e-65) .......... [PASS] 2458. (format-hexadecimal-float 3.0385816786431356e-64) .......... [PASS] 2459. (format-hexadecimal-float 1.2154326714572542e-63) .......... [PASS] 2460. (format-hexadecimal-float 4.861730685829017e-63) .......... [PASS] 2461. (format-hexadecimal-float 1.9446922743316068e-62) .......... [PASS] 2462. (format-hexadecimal-float 7.778769097326427e-62) .......... [PASS] 2463. (format-hexadecimal-float 3.111507638930571e-61) .......... [PASS] 2464. (format-hexadecimal-float 1.2446030555722283e-60) .......... [PASS] 2465. (format-hexadecimal-float 4.9784122222889134e-60) .......... [PASS] 2466. (format-hexadecimal-float 1.9913648889155653e-59) .......... [PASS] 2467. (format-hexadecimal-float 7.965459555662261e-59) .......... [PASS] 2468. (format-hexadecimal-float 3.1861838222649046e-58) .......... [PASS] 2469. (format-hexadecimal-float 1.2744735289059618e-57) .......... [PASS] 2470. (format-hexadecimal-float 5.0978941156238473e-57) .......... [PASS] 2471. (format-hexadecimal-float 2.039157646249539e-56) .......... [PASS] 2472. (format-hexadecimal-float 8.156630584998156e-56) .......... [PASS] 2473. (format-hexadecimal-float 3.2626522339992623e-55) .......... [PASS] 2474. (format-hexadecimal-float 1.305060893599705e-54) .......... [PASS] 2475. (format-hexadecimal-float 5.22024357439882e-54) .......... [PASS] 2476. (format-hexadecimal-float 2.088097429759528e-53) .......... [PASS] 2477. (format-hexadecimal-float 8.352389719038111e-53) .......... [PASS] 2478. (format-hexadecimal-float 3.3409558876152446e-52) .......... [PASS] 2479. (format-hexadecimal-float 1.3363823550460978e-51) .......... [PASS] 2480. (format-hexadecimal-float 5.345529420184391e-51) .......... [PASS] 2481. (format-hexadecimal-float 2.1382117680737565e-50) .......... [PASS] 2482. (format-hexadecimal-float 8.552847072295026e-50) .......... [PASS] 2483. (format-hexadecimal-float 3.4211388289180104e-49) .......... [PASS] 2484. (format-hexadecimal-float 1.3684555315672042e-48) .......... [PASS] 2485. (format-hexadecimal-float 5.473822126268817e-48) .......... [PASS] 2486. (format-hexadecimal-float 2.1895288505075267e-47) .......... [PASS] 2487. (format-hexadecimal-float 8.758115402030107e-47) .......... [PASS] 2488. (format-hexadecimal-float 3.503246160812043e-46) .......... [PASS] 2489. (format-hexadecimal-float 1.401298464324817e-45) .......... [PASS] 2490. (format-hexadecimal-float 5.605193857299268e-45) .......... [PASS] 2491. (format-hexadecimal-float 2.2420775429197073e-44) .......... [PASS] 2492. (format-hexadecimal-float 8.968310171678829e-44) .......... [PASS] 2493. (format-hexadecimal-float 3.587324068671532e-43) .......... [PASS] 2494. (format-hexadecimal-float 1.4349296274686127e-42) .......... [PASS] 2495. (format-hexadecimal-float 5.739718509874451e-42) .......... [PASS] 2496. (format-hexadecimal-float 2.2958874039497803e-41) .......... [PASS] 2497. (format-hexadecimal-float 9.183549615799121e-41) .......... [PASS] 2498. (format-hexadecimal-float 3.6734198463196485e-40) .......... [PASS] 2499. (format-hexadecimal-float 1.4693679385278594e-39) .......... [PASS] 2500. (format-hexadecimal-float 5.877471754111438e-39) .......... [PASS] 2501. (format-hexadecimal-float 2.350988701644575e-38) .......... [PASS] 2502. (format-hexadecimal-float 9.4039548065783e-38) .......... [PASS] 2503. (format-hexadecimal-float 3.76158192263132e-37) .......... [PASS] 2504. (format-hexadecimal-float 1.504632769052528e-36) .......... [PASS] 2505. (format-hexadecimal-float 6.018531076210112e-36) .......... [PASS] 2506. (format-hexadecimal-float 2.407412430484045e-35) .......... [PASS] 2507. (format-hexadecimal-float 9.629649721936179e-35) .......... [PASS] 2508. (format-hexadecimal-float 3.851859888774472e-34) .......... [PASS] 2509. (format-hexadecimal-float 1.5407439555097887e-33) .......... [PASS] 2510. (format-hexadecimal-float 6.162975822039155e-33) .......... [PASS] 2511. (format-hexadecimal-float 2.465190328815662e-32) .......... [PASS] 2512. (format-hexadecimal-float 9.860761315262648e-32) .......... [PASS] 2513. (format-hexadecimal-float 3.944304526105059e-31) .......... [PASS] 2514. (format-hexadecimal-float 1.5777218104420236e-30) .......... [PASS] 2515. (format-hexadecimal-float 6.3108872417680944e-30) .......... [PASS] 2516. (format-hexadecimal-float 2.524354896707238e-29) .......... [PASS] 2517. (format-hexadecimal-float 1.0097419586828951e-28) .......... [PASS] 2518. (format-hexadecimal-float 4.0389678347315804e-28) .......... [PASS] 2519. (format-hexadecimal-float 1.6155871338926322e-27) .......... [PASS] 2520. (format-hexadecimal-float 6.462348535570529e-27) .......... [PASS] 2521. (format-hexadecimal-float 2.5849394142282115e-26) .......... [PASS] 2522. (format-hexadecimal-float 1.0339757656912846e-25) .......... [PASS] 2523. (format-hexadecimal-float 4.1359030627651384e-25) .......... [PASS] 2524. (format-hexadecimal-float 1.6543612251060553e-24) .......... [PASS] 2525. (format-hexadecimal-float 6.6174449004242214e-24) .......... [PASS] 2526. (format-hexadecimal-float 2.6469779601696886e-23) .......... [PASS] 2527. (format-hexadecimal-float 1.0587911840678754e-22) .......... [PASS] 2528. (format-hexadecimal-float 4.235164736271502e-22) .......... [PASS] 2529. (format-hexadecimal-float 1.6940658945086007e-21) .......... [PASS] 2530. (format-hexadecimal-float 6.776263578034403e-21) .......... [PASS] 2531. (format-hexadecimal-float 2.710505431213761e-20) .......... [PASS] 2532. (format-hexadecimal-float 1.0842021724855044e-19) .......... [PASS] 2533. (format-hexadecimal-float 4.336808689942018e-19) .......... [PASS] 2534. (format-hexadecimal-float 1.734723475976807e-18) .......... [PASS] 2535. (format-hexadecimal-float 6.938893903907228e-18) .......... [PASS] 2536. (format-hexadecimal-float 2.7755575615628914e-17) .......... [PASS] 2537. (format-hexadecimal-float 1.1102230246251565e-16) .......... [PASS] 2538. (format-hexadecimal-float 4.440892098500626e-16) .......... [PASS] 2539. (format-hexadecimal-float 1.7763568394002505e-15) .......... [PASS] 2540. (format-hexadecimal-float 7.105427357601002e-15) .......... [PASS] 2541. (format-hexadecimal-float 2.842170943040401e-14) .......... [PASS] 2542. (format-hexadecimal-float 1.1368683772161603e-13) .......... [PASS] 2543. (format-hexadecimal-float 4.547473508864641e-13) .......... [PASS] 2544. (format-hexadecimal-float 1.8189894035458565e-12) .......... [PASS] 2545. (format-hexadecimal-float 7.275957614183426e-12) .......... [PASS] 2546. (format-hexadecimal-float 2.9103830456733704e-11) .......... [PASS] 2547. (format-hexadecimal-float 1.1641532182693481e-10) .......... [PASS] 2548. (format-hexadecimal-float 4.656612873077393e-10) .......... [PASS] 2549. (format-hexadecimal-float 1.862645149230957e-9) .......... [PASS] 2550. (format-hexadecimal-float 7.450580596923828e-9) .......... [PASS] 2551. (format-hexadecimal-float 2.9802322387695312e-8) .......... [PASS] 2552. (format-hexadecimal-float 1.1920928955078125e-7) .......... [PASS] 2553. (format-hexadecimal-float 4.76837158203125e-7) .......... [PASS] 2554. (format-hexadecimal-float 1.9073486328125e-6) .......... [PASS] 2555. (format-hexadecimal-float 7.62939453125e-6) .......... [PASS] 2556. (format-hexadecimal-float 3.0517578125e-5) .......... [PASS] 2557. (format-hexadecimal-float 0.0001220703125) .......... [PASS] 2558. (format-hexadecimal-float 0.00048828125) .......... [PASS] 2559. (format-hexadecimal-float 0.001953125) .......... [PASS] 2560. (format-hexadecimal-float 0.0078125) .......... [PASS] 2561. (format-hexadecimal-float 0.03125) .......... [PASS] 2562. (format-hexadecimal-float 0.125) .......... [PASS] 2563. (format-hexadecimal-float 0.5) .......... [PASS] 2564. (format-hexadecimal-float 2.0) .......... [PASS] 2565. (format-hexadecimal-float 8.0) .......... [PASS] 2566. (format-hexadecimal-float 32.0) .......... [PASS] 2567. (format-hexadecimal-float 128.0) .......... [PASS] 2568. (format-hexadecimal-float 512.0) .......... [PASS] 2569. (format-hexadecimal-float 2048.0) .......... [PASS] 2570. (format-hexadecimal-float 8192.0) .......... [PASS] 2571. (format-hexadecimal-float 32768.0) .......... [PASS] 2572. (format-hexadecimal-float 131072.0) .......... [PASS] 2573. (format-hexadecimal-float 524288.0) .......... [PASS] 2574. (format-hexadecimal-float 2097152.0) .......... [PASS] 2575. (format-hexadecimal-float 8388608.0) .......... [PASS] 2576. (format-hexadecimal-float 33554432.0) .......... [PASS] 2577. (format-hexadecimal-float 134217728.0) .......... [PASS] 2578. (format-hexadecimal-float 536870912.0) .......... [PASS] 2579. (format-hexadecimal-float 2147483648.0) .......... [PASS] 2580. (format-hexadecimal-float 8589934592.0) .......... [PASS] 2581. (format-hexadecimal-float 34359738368.0) .......... [PASS] 2582. (format-hexadecimal-float 137438953472.0) .......... [PASS] 2583. (format-hexadecimal-float 549755813888.0) .......... [PASS] 2584. (format-hexadecimal-float 2199023255552.0) .......... [PASS] 2585. (format-hexadecimal-float 8796093022208.0) .......... [PASS] 2586. (format-hexadecimal-float 35184372088832.0) .......... [PASS] 2587. (format-hexadecimal-float 140737488355328.0) .......... [PASS] 2588. (format-hexadecimal-float 562949953421312.0) .......... [PASS] 2589. (format-hexadecimal-float 2251799813685248.0) .......... [PASS] 2590. (format-hexadecimal-float 9007199254740992.0) .......... [PASS] 2591. (format-hexadecimal-float 3.602879701896397e16) .......... [PASS] 2592. (format-hexadecimal-float 1.4411518807585587e17) .......... [PASS] 2593. (format-hexadecimal-float 5.764607523034235e17) .......... [PASS] 2594. (format-hexadecimal-float 2.305843009213694e18) .......... [PASS] 2595. (format-hexadecimal-float 9.223372036854776e18) .......... [PASS] 2596. (format-hexadecimal-float 3.6893488147419103e19) .......... [PASS] 2597. (format-hexadecimal-float 1.4757395258967641e20) .......... [PASS] 2598. (format-hexadecimal-float 5.902958103587057e20) .......... [PASS] 2599. (format-hexadecimal-float 2.3611832414348226e21) .......... [PASS] 2600. (format-hexadecimal-float 9.44473296573929e21) .......... [PASS] 2601. (format-hexadecimal-float 3.777893186295716e22) .......... [PASS] 2602. (format-hexadecimal-float 1.5111572745182865e23) .......... [PASS] 2603. (format-hexadecimal-float 6.044629098073146e23) .......... [PASS] 2604. (format-hexadecimal-float 2.4178516392292583e24) .......... [PASS] 2605. (format-hexadecimal-float 9.671406556917033e24) .......... [PASS] 2606. (format-hexadecimal-float 3.8685626227668134e25) .......... [PASS] 2607. (format-hexadecimal-float 1.5474250491067253e26) .......... [PASS] 2608. (format-hexadecimal-float 6.1897001964269014e26) .......... [PASS] 2609. (format-hexadecimal-float 2.4758800785707605e27) .......... [PASS] 2610. (format-hexadecimal-float 9.903520314283042e27) .......... [PASS] 2611. (format-hexadecimal-float 3.961408125713217e28) .......... [PASS] 2612. (format-hexadecimal-float 1.5845632502852868e29) .......... [PASS] 2613. (format-hexadecimal-float 6.338253001141147e29) .......... [PASS] 2614. (format-hexadecimal-float 2.535301200456459e30) .......... [PASS] 2615. (format-hexadecimal-float 1.0141204801825835e31) .......... [PASS] 2616. (format-hexadecimal-float 4.056481920730334e31) .......... [PASS] 2617. (format-hexadecimal-float 1.6225927682921336e32) .......... [PASS] 2618. (format-hexadecimal-float 6.490371073168535e32) .......... [PASS] 2619. (format-hexadecimal-float 2.596148429267414e33) .......... [PASS] 2620. (format-hexadecimal-float 1.0384593717069655e34) .......... [PASS] 2621. (format-hexadecimal-float 4.153837486827862e34) .......... [PASS] 2622. (format-hexadecimal-float 1.661534994731145e35) .......... [PASS] 2623. (format-hexadecimal-float 6.646139978924579e35) .......... [PASS] 2624. (format-hexadecimal-float 2.658455991569832e36) .......... [PASS] 2625. (format-hexadecimal-float 1.0633823966279327e37) .......... [PASS] 2626. (format-hexadecimal-float 4.253529586511731e37) .......... [PASS] 2627. (format-hexadecimal-float 1.7014118346046923e38) .......... [PASS] 2628. (format-hexadecimal-float 6.805647338418769e38) .......... [PASS] 2629. (format-hexadecimal-float 2.722258935367508e39) .......... [PASS] 2630. (format-hexadecimal-float 1.0889035741470031e40) .......... [PASS] 2631. (format-hexadecimal-float 4.3556142965880123e40) .......... [PASS] 2632. (format-hexadecimal-float 1.742245718635205e41) .......... [PASS] 2633. (format-hexadecimal-float 6.96898287454082e41) .......... [PASS] 2634. (format-hexadecimal-float 2.787593149816328e42) .......... [PASS] 2635. (format-hexadecimal-float 1.1150372599265312e43) .......... [PASS] 2636. (format-hexadecimal-float 4.460149039706125e43) .......... [PASS] 2637. (format-hexadecimal-float 1.78405961588245e44) .......... [PASS] 2638. (format-hexadecimal-float 7.1362384635297994e44) .......... [PASS] 2639. (format-hexadecimal-float 2.85449538541192e45) .......... [PASS] 2640. (format-hexadecimal-float 1.141798154164768e46) .......... [PASS] 2641. (format-hexadecimal-float 4.567192616659072e46) .......... [PASS] 2642. (format-hexadecimal-float 1.8268770466636286e47) .......... [PASS] 2643. (format-hexadecimal-float 7.307508186654515e47) .......... [PASS] 2644. (format-hexadecimal-float 2.923003274661806e48) .......... [PASS] 2645. (format-hexadecimal-float 1.1692013098647223e49) .......... [PASS] 2646. (format-hexadecimal-float 4.6768052394588893e49) .......... [PASS] 2647. (format-hexadecimal-float 1.8707220957835557e50) .......... [PASS] 2648. (format-hexadecimal-float 7.482888383134223e50) .......... [PASS] 2649. (format-hexadecimal-float 2.9931553532536892e51) .......... [PASS] 2650. (format-hexadecimal-float 1.1972621413014757e52) .......... [PASS] 2651. (format-hexadecimal-float 4.789048565205903e52) .......... [PASS] 2652. (format-hexadecimal-float 1.915619426082361e53) .......... [PASS] 2653. (format-hexadecimal-float 7.662477704329444e53) .......... [PASS] 2654. (format-hexadecimal-float 3.064991081731778e54) .......... [PASS] 2655. (format-hexadecimal-float 1.2259964326927111e55) .......... [PASS] 2656. (format-hexadecimal-float 4.9039857307708443e55) .......... [PASS] 2657. (format-hexadecimal-float 1.9615942923083377e56) .......... [PASS] 2658. (format-hexadecimal-float 7.846377169233351e56) .......... [PASS] 2659. (format-hexadecimal-float 3.1385508676933404e57) .......... [PASS] 2660. (format-hexadecimal-float 1.2554203470773362e58) .......... [PASS] 2661. (format-hexadecimal-float 5.021681388309345e58) .......... [PASS] 2662. (format-hexadecimal-float 2.008672555323738e59) .......... [PASS] 2663. (format-hexadecimal-float 8.034690221294951e59) .......... [PASS] 2664. (format-hexadecimal-float 3.2138760885179806e60) .......... [PASS] 2665. (format-hexadecimal-float 1.2855504354071922e61) .......... [PASS] 2666. (format-hexadecimal-float 5.142201741628769e61) .......... [PASS] 2667. (format-hexadecimal-float 2.0568806966515076e62) .......... [PASS] 2668. (format-hexadecimal-float 8.22752278660603e62) .......... [PASS] 2669. (format-hexadecimal-float 3.291009114642412e63) .......... [PASS] 2670. (format-hexadecimal-float 1.3164036458569648e64) .......... [PASS] 2671. (format-hexadecimal-float 5.2656145834278593e64) .......... [PASS] 2672. (format-hexadecimal-float 2.1062458333711437e65) .......... [PASS] 2673. (format-hexadecimal-float 8.424983333484575e65) .......... [PASS] 2674. (format-hexadecimal-float 3.36999333339383e66) .......... [PASS] 2675. (format-hexadecimal-float 1.347997333357532e67) .......... [PASS] 2676. (format-hexadecimal-float 5.391989333430128e67) .......... [PASS] 2677. (format-hexadecimal-float 2.1567957333720512e68) .......... [PASS] 2678. (format-hexadecimal-float 8.627182933488205e68) .......... [PASS] 2679. (format-hexadecimal-float 3.450873173395282e69) .......... [PASS] 2680. (format-hexadecimal-float 1.3803492693581128e70) .......... [PASS] 2681. (format-hexadecimal-float 5.521397077432451e70) .......... [PASS] 2682. (format-hexadecimal-float 2.2085588309729804e71) .......... [PASS] 2683. (format-hexadecimal-float 8.834235323891922e71) .......... [PASS] 2684. (format-hexadecimal-float 3.533694129556769e72) .......... [PASS] 2685. (format-hexadecimal-float 1.4134776518227075e73) .......... [PASS] 2686. (format-hexadecimal-float 5.65391060729083e73) .......... [PASS] 2687. (format-hexadecimal-float 2.261564242916332e74) .......... [PASS] 2688. (format-hexadecimal-float 9.046256971665328e74) .......... [PASS] 2689. (format-hexadecimal-float 3.618502788666131e75) .......... [PASS] 2690. (format-hexadecimal-float 1.4474011154664524e76) .......... [PASS] 2691. (format-hexadecimal-float 5.78960446186581e76) .......... [PASS] 2692. (format-hexadecimal-float 2.315841784746324e77) .......... [PASS] 2693. (format-hexadecimal-float 9.263367138985296e77) .......... [PASS] 2694. (format-hexadecimal-float 3.7053468555941183e78) .......... [PASS] 2695. (format-hexadecimal-float 1.4821387422376473e79) .......... [PASS] 2696. (format-hexadecimal-float 5.928554968950589e79) .......... [PASS] 2697. (format-hexadecimal-float 2.3714219875802357e80) .......... [PASS] 2698. (format-hexadecimal-float 9.485687950320943e80) .......... [PASS] 2699. (format-hexadecimal-float 3.794275180128377e81) .......... [PASS] 2700. (format-hexadecimal-float 1.517710072051351e82) .......... [PASS] 2701. (format-hexadecimal-float 6.0708402882054033e82) .......... [PASS] 2702. (format-hexadecimal-float 2.4283361152821613e83) .......... [PASS] 2703. (format-hexadecimal-float 9.713344461128645e83) .......... [PASS] 2704. (format-hexadecimal-float 3.885337784451458e84) .......... [PASS] 2705. (format-hexadecimal-float 1.5541351137805833e85) .......... [PASS] 2706. (format-hexadecimal-float 6.216540455122333e85) .......... [PASS] 2707. (format-hexadecimal-float 2.4866161820489332e86) .......... [PASS] 2708. (format-hexadecimal-float 9.946464728195733e86) .......... [PASS] 2709. (format-hexadecimal-float 3.978585891278293e87) .......... [PASS] 2710. (format-hexadecimal-float 1.5914343565113173e88) .......... [PASS] 2711. (format-hexadecimal-float 6.365737426045269e88) .......... [PASS] 2712. (format-hexadecimal-float 2.5462949704181076e89) .......... [PASS] 2713. (format-hexadecimal-float 1.018517988167243e90) .......... [PASS] 2714. (format-hexadecimal-float 4.074071952668972e90) .......... [PASS] 2715. (format-hexadecimal-float 1.629628781067589e91) .......... [PASS] 2716. (format-hexadecimal-float 6.5185151242703555e91) .......... [PASS] 2717. (format-hexadecimal-float 2.6074060497081422e92) .......... [PASS] 2718. (format-hexadecimal-float 1.0429624198832569e93) .......... [PASS] 2719. (format-hexadecimal-float 4.1718496795330275e93) .......... [PASS] 2720. (format-hexadecimal-float 1.668739871813211e94) .......... [PASS] 2721. (format-hexadecimal-float 6.674959487252844e94) .......... [PASS] 2722. (format-hexadecimal-float 2.6699837949011376e95) .......... [PASS] 2723. (format-hexadecimal-float 1.067993517960455e96) .......... [PASS] 2724. (format-hexadecimal-float 4.27197407184182e96) .......... [PASS] 2725. (format-hexadecimal-float 1.708789628736728e97) .......... [PASS] 2726. (format-hexadecimal-float 6.835158514946912e97) .......... [PASS] 2727. (format-hexadecimal-float 2.734063405978765e98) .......... [PASS] 2728. (format-hexadecimal-float 1.093625362391506e99) .......... [PASS] 2729. (format-hexadecimal-float 4.374501449566024e99) .......... [PASS] 2730. (format-hexadecimal-float 1.7498005798264095e100) .......... [PASS] 2731. (format-hexadecimal-float 6.999202319305638e100) .......... [PASS] 2732. (format-hexadecimal-float 2.7996809277222553e101) .......... [PASS] 2733. (format-hexadecimal-float 1.1198723710889021e102) .......... [PASS] 2734. (format-hexadecimal-float 4.4794894843556084e102) .......... [PASS] 2735. (format-hexadecimal-float 1.7917957937422434e103) .......... [PASS] 2736. (format-hexadecimal-float 7.1671831749689735e103) .......... [PASS] 2737. (format-hexadecimal-float 2.8668732699875894e104) .......... [PASS] 2738. (format-hexadecimal-float 1.1467493079950358e105) .......... [PASS] 2739. (format-hexadecimal-float 4.586997231980143e105) .......... [PASS] 2740. (format-hexadecimal-float 1.8347988927920572e106) .......... [PASS] 2741. (format-hexadecimal-float 7.339195571168229e106) .......... [PASS] 2742. (format-hexadecimal-float 2.9356782284672915e107) .......... [PASS] 2743. (format-hexadecimal-float 1.1742712913869166e108) .......... [PASS] 2744. (format-hexadecimal-float 4.6970851655476665e108) .......... [PASS] 2745. (format-hexadecimal-float 1.8788340662190666e109) .......... [PASS] 2746. (format-hexadecimal-float 7.515336264876266e109) .......... [PASS] 2747. (format-hexadecimal-float 3.0061345059505065e110) .......... [PASS] 2748. (format-hexadecimal-float 1.2024538023802026e111) .......... [PASS] 2749. (format-hexadecimal-float 4.8098152095208105e111) .......... [PASS] 2750. (format-hexadecimal-float 1.9239260838083242e112) .......... [PASS] 2751. (format-hexadecimal-float 7.695704335233297e112) .......... [PASS] 2752. (format-hexadecimal-float 3.078281734093319e113) .......... [PASS] 2753. (format-hexadecimal-float 1.2313126936373275e114) .......... [PASS] 2754. (format-hexadecimal-float 4.92525077454931e114) .......... [PASS] 2755. (format-hexadecimal-float 1.970100309819724e115) .......... [PASS] 2756. (format-hexadecimal-float 7.880401239278896e115) .......... [PASS] 2757. (format-hexadecimal-float 3.1521604957115583e116) .......... [PASS] 2758. (format-hexadecimal-float 1.2608641982846233e117) .......... [PASS] 2759. (format-hexadecimal-float 5.0434567931384933e117) .......... [PASS] 2760. (format-hexadecimal-float 2.0173827172553973e118) .......... [PASS] 2761. (format-hexadecimal-float 8.069530869021589e118) .......... [PASS] 2762. (format-hexadecimal-float 3.227812347608636e119) .......... [PASS] 2763. (format-hexadecimal-float 1.2911249390434543e120) .......... [PASS] 2764. (format-hexadecimal-float 5.164499756173817e120) .......... [PASS] 2765. (format-hexadecimal-float 2.065799902469527e121) .......... [PASS] 2766. (format-hexadecimal-float 8.2631996098781075e121) .......... [PASS] 2767. (format-hexadecimal-float 3.305279843951243e122) .......... [PASS] 2768. (format-hexadecimal-float 1.3221119375804972e123) .......... [PASS] 2769. (format-hexadecimal-float 5.288447750321989e123) .......... [PASS] 2770. (format-hexadecimal-float 2.1153791001287955e124) .......... [PASS] 2771. (format-hexadecimal-float 8.461516400515182e124) .......... [PASS] 2772. (format-hexadecimal-float 3.384606560206073e125) .......... [PASS] 2773. (format-hexadecimal-float 1.3538426240824291e126) .......... [PASS] 2774. (format-hexadecimal-float 5.415370496329717e126) .......... [PASS] 2775. (format-hexadecimal-float 2.1661481985318866e127) .......... [PASS] 2776. (format-hexadecimal-float 8.664592794127546e127) .......... [PASS] 2777. (format-hexadecimal-float 3.4658371176510186e128) .......... [PASS] 2778. (format-hexadecimal-float 1.3863348470604074e129) .......... [PASS] 2779. (format-hexadecimal-float 5.54533938824163e129) .......... [PASS] 2780. (format-hexadecimal-float 2.218135755296652e130) .......... [PASS] 2781. (format-hexadecimal-float 8.872543021186608e130) .......... [PASS] 2782. (format-hexadecimal-float 3.549017208474643e131) .......... [PASS] 2783. (format-hexadecimal-float 1.4196068833898572e132) .......... [PASS] 2784. (format-hexadecimal-float 5.678427533559429e132) .......... [PASS] 2785. (format-hexadecimal-float 2.2713710134237715e133) .......... [PASS] 2786. (format-hexadecimal-float 9.085484053695086e133) .......... [PASS] 2787. (format-hexadecimal-float 3.6341936214780345e134) .......... [PASS] 2788. (format-hexadecimal-float 1.4536774485912138e135) .......... [PASS] 2789. (format-hexadecimal-float 5.814709794364855e135) .......... [PASS] 2790. (format-hexadecimal-float 2.325883917745942e136) .......... [PASS] 2791. (format-hexadecimal-float 9.303535670983768e136) .......... [PASS] 2792. (format-hexadecimal-float 3.7214142683935073e137) .......... [PASS] 2793. (format-hexadecimal-float 1.488565707357403e138) .......... [PASS] 2794. (format-hexadecimal-float 5.954262829429612e138) .......... [PASS] 2795. (format-hexadecimal-float 2.3817051317718447e139) .......... [PASS] 2796. (format-hexadecimal-float 9.526820527087379e139) .......... [PASS] 2797. (format-hexadecimal-float 3.8107282108349515e140) .......... [PASS] 2798. (format-hexadecimal-float 1.5242912843339806e141) .......... [PASS] 2799. (format-hexadecimal-float 6.097165137335922e141) .......... [PASS] 2800. (format-hexadecimal-float 2.438866054934369e142) .......... [PASS] 2801. (format-hexadecimal-float 9.755464219737476e142) .......... [PASS] 2802. (format-hexadecimal-float 3.9021856878949903e143) .......... [PASS] 2803. (format-hexadecimal-float 1.5608742751579961e144) .......... [PASS] 2804. (format-hexadecimal-float 6.2434971006319845e144) .......... [PASS] 2805. (format-hexadecimal-float 2.497398840252794e145) .......... [PASS] 2806. (format-hexadecimal-float 9.989595361011175e145) .......... [PASS] 2807. (format-hexadecimal-float 3.99583814440447e146) .......... [PASS] 2808. (format-hexadecimal-float 1.598335257761788e147) .......... [PASS] 2809. (format-hexadecimal-float 6.393341031047152e147) .......... [PASS] 2810. (format-hexadecimal-float 2.557336412418861e148) .......... [PASS] 2811. (format-hexadecimal-float 1.0229345649675443e149) .......... [PASS] 2812. (format-hexadecimal-float 4.0917382598701773e149) .......... [PASS] 2813. (format-hexadecimal-float 1.636695303948071e150) .......... [PASS] 2814. (format-hexadecimal-float 6.546781215792284e150) .......... [PASS] 2815. (format-hexadecimal-float 2.6187124863169135e151) .......... [PASS] 2816. (format-hexadecimal-float 1.0474849945267654e152) .......... [PASS] 2817. (format-hexadecimal-float 4.189939978107062e152) .......... [PASS] 2818. (format-hexadecimal-float 1.6759759912428246e153) .......... [PASS] 2819. (format-hexadecimal-float 6.703903964971299e153) .......... [PASS] 2820. (format-hexadecimal-float 2.6815615859885194e154) .......... [PASS] 2821. (format-hexadecimal-float 1.0726246343954078e155) .......... [PASS] 2822. (format-hexadecimal-float 4.290498537581631e155) .......... [PASS] 2823. (format-hexadecimal-float 1.7161994150326524e156) .......... [PASS] 2824. (format-hexadecimal-float 6.86479766013061e156) .......... [PASS] 2825. (format-hexadecimal-float 2.745919064052244e157) .......... [PASS] 2826. (format-hexadecimal-float 1.0983676256208976e158) .......... [PASS] 2827. (format-hexadecimal-float 4.39347050248359e158) .......... [PASS] 2828. (format-hexadecimal-float 1.757388200993436e159) .......... [PASS] 2829. (format-hexadecimal-float 7.029552803973744e159) .......... [PASS] 2830. (format-hexadecimal-float 2.811821121589498e160) .......... [PASS] 2831. (format-hexadecimal-float 1.1247284486357991e161) .......... [PASS] 2832. (format-hexadecimal-float 4.4989137945431964e161) .......... [PASS] 2833. (format-hexadecimal-float 1.7995655178172786e162) .......... [PASS] 2834. (format-hexadecimal-float 7.198262071269114e162) .......... [PASS] 2835. (format-hexadecimal-float 2.879304828507646e163) .......... [PASS] 2836. (format-hexadecimal-float 1.1517219314030583e164) .......... [PASS] 2837. (format-hexadecimal-float 4.606887725612233e164) .......... [PASS] 2838. (format-hexadecimal-float 1.8427550902448932e165) .......... [PASS] 2839. (format-hexadecimal-float 7.371020360979573e165) .......... [PASS] 2840. (format-hexadecimal-float 2.9484081443918292e166) .......... [PASS] 2841. (format-hexadecimal-float 1.1793632577567317e167) .......... [PASS] 2842. (format-hexadecimal-float 4.717453031026927e167) .......... [PASS] 2843. (format-hexadecimal-float 1.8869812124107707e168) .......... [PASS] 2844. (format-hexadecimal-float 7.547924849643083e168) .......... [PASS] 2845. (format-hexadecimal-float 3.019169939857233e169) .......... [PASS] 2846. (format-hexadecimal-float 1.2076679759428932e170) .......... [PASS] 2847. (format-hexadecimal-float 4.830671903771573e170) .......... [PASS] 2848. (format-hexadecimal-float 1.9322687615086292e171) .......... [PASS] 2849. (format-hexadecimal-float 7.729075046034517e171) .......... [PASS] 2850. (format-hexadecimal-float 3.091630018413807e172) .......... [PASS] 2851. (format-hexadecimal-float 1.2366520073655227e173) .......... [PASS] 2852. (format-hexadecimal-float 4.946608029462091e173) .......... [PASS] 2853. (format-hexadecimal-float 1.9786432117848363e174) .......... [PASS] 2854. (format-hexadecimal-float 7.914572847139345e174) .......... [PASS] 2855. (format-hexadecimal-float 3.165829138855738e175) .......... [PASS] 2856. (format-hexadecimal-float 1.2663316555422952e176) .......... [PASS] 2857. (format-hexadecimal-float 5.065326622169181e176) .......... [PASS] 2858. (format-hexadecimal-float 2.0261306488676723e177) .......... [PASS] 2859. (format-hexadecimal-float 8.104522595470689e177) .......... [PASS] 2860. (format-hexadecimal-float 3.241809038188276e178) .......... [PASS] 2861. (format-hexadecimal-float 1.2967236152753103e179) .......... [PASS] 2862. (format-hexadecimal-float 5.186894461101241e179) .......... [PASS] 2863. (format-hexadecimal-float 2.0747577844404965e180) .......... [PASS] 2864. (format-hexadecimal-float 8.299031137761986e180) .......... [PASS] 2865. (format-hexadecimal-float 3.3196124551047944e181) .......... [PASS] 2866. (format-hexadecimal-float 1.3278449820419177e182) .......... [PASS] 2867. (format-hexadecimal-float 5.311379928167671e182) .......... [PASS] 2868. (format-hexadecimal-float 2.1245519712670684e183) .......... [PASS] 2869. (format-hexadecimal-float 8.498207885068274e183) .......... [PASS] 2870. (format-hexadecimal-float 3.3992831540273094e184) .......... [PASS] 2871. (format-hexadecimal-float 1.3597132616109238e185) .......... [PASS] 2872. (format-hexadecimal-float 5.438853046443695e185) .......... [PASS] 2873. (format-hexadecimal-float 2.175541218577478e186) .......... [PASS] 2874. (format-hexadecimal-float 8.702164874309912e186) .......... [PASS] 2875. (format-hexadecimal-float 3.480865949723965e187) .......... [PASS] 2876. (format-hexadecimal-float 1.392346379889586e188) .......... [PASS] 2877. (format-hexadecimal-float 5.569385519558344e188) .......... [PASS] 2878. (format-hexadecimal-float 2.2277542078233375e189) .......... [PASS] 2879. (format-hexadecimal-float 8.91101683129335e189) .......... [PASS] 2880. (format-hexadecimal-float 3.56440673251734e190) .......... [PASS] 2881. (format-hexadecimal-float 1.425762693006936e191) .......... [PASS] 2882. (format-hexadecimal-float 5.703050772027744e191) .......... [PASS] 2883. (format-hexadecimal-float 2.2812203088110976e192) .......... [PASS] 2884. (format-hexadecimal-float 9.12488123524439e192) .......... [PASS] 2885. (format-hexadecimal-float 3.649952494097756e193) .......... [PASS] 2886. (format-hexadecimal-float 1.4599809976391025e194) .......... [PASS] 2887. (format-hexadecimal-float 5.83992399055641e194) .......... [PASS] 2888. (format-hexadecimal-float 2.335969596222564e195) .......... [PASS] 2889. (format-hexadecimal-float 9.343878384890256e195) .......... [PASS] 2890. (format-hexadecimal-float 3.7375513539561023e196) .......... [PASS] 2891. (format-hexadecimal-float 1.495020541582441e197) .......... [PASS] 2892. (format-hexadecimal-float 5.980082166329764e197) .......... [PASS] 2893. (format-hexadecimal-float 2.3920328665319055e198) .......... [PASS] 2894. (format-hexadecimal-float 9.568131466127622e198) .......... [PASS] 2895. (format-hexadecimal-float 3.827252586451049e199) .......... [PASS] 2896. (format-hexadecimal-float 1.5309010345804195e200) .......... [PASS] 2897. (format-hexadecimal-float 6.123604138321678e200) .......... [PASS] 2898. (format-hexadecimal-float 2.4494416553286712e201) .......... [PASS] 2899. (format-hexadecimal-float 9.797766621314685e201) .......... [PASS] 2900. (format-hexadecimal-float 3.919106648525874e202) .......... [PASS] 2901. (format-hexadecimal-float 1.5676426594103496e203) .......... [PASS] 2902. (format-hexadecimal-float 6.270570637641398e203) .......... [PASS] 2903. (format-hexadecimal-float 2.5082282550565593e204) .......... [PASS] 2904. (format-hexadecimal-float 1.0032913020226237e205) .......... [PASS] 2905. (format-hexadecimal-float 4.013165208090495e205) .......... [PASS] 2906. (format-hexadecimal-float 1.605266083236198e206) .......... [PASS] 2907. (format-hexadecimal-float 6.421064332944792e206) .......... [PASS] 2908. (format-hexadecimal-float 2.568425733177917e207) .......... [PASS] 2909. (format-hexadecimal-float 1.0273702932711667e208) .......... [PASS] 2910. (format-hexadecimal-float 4.109481173084667e208) .......... [PASS] 2911. (format-hexadecimal-float 1.6437924692338667e209) .......... [PASS] 2912. (format-hexadecimal-float 6.575169876935467e209) .......... [PASS] 2913. (format-hexadecimal-float 2.630067950774187e210) .......... [PASS] 2914. (format-hexadecimal-float 1.0520271803096747e211) .......... [PASS] 2915. (format-hexadecimal-float 4.208108721238699e211) .......... [PASS] 2916. (format-hexadecimal-float 1.6832434884954795e212) .......... [PASS] 2917. (format-hexadecimal-float 6.732973953981918e212) .......... [PASS] 2918. (format-hexadecimal-float 2.6931895815927672e213) .......... [PASS] 2919. (format-hexadecimal-float 1.077275832637107e214) .......... [PASS] 2920. (format-hexadecimal-float 4.309103330548428e214) .......... [PASS] 2921. (format-hexadecimal-float 1.723641332219371e215) .......... [PASS] 2922. (format-hexadecimal-float 6.894565328877484e215) .......... [PASS] 2923. (format-hexadecimal-float 2.7578261315509936e216) .......... [PASS] 2924. (format-hexadecimal-float 1.1031304526203975e217) .......... [PASS] 2925. (format-hexadecimal-float 4.41252181048159e217) .......... [PASS] 2926. (format-hexadecimal-float 1.765008724192636e218) .......... [PASS] 2927. (format-hexadecimal-float 7.060034896770544e218) .......... [PASS] 2928. (format-hexadecimal-float 2.8240139587082175e219) .......... [PASS] 2929. (format-hexadecimal-float 1.129605583483287e220) .......... [PASS] 2930. (format-hexadecimal-float 4.518422333933148e220) .......... [PASS] 2931. (format-hexadecimal-float 1.8073689335732592e221) .......... [PASS] 2932. (format-hexadecimal-float 7.229475734293037e221) .......... [PASS] 2933. (format-hexadecimal-float 2.891790293717215e222) .......... [PASS] 2934. (format-hexadecimal-float 1.156716117486886e223) .......... [PASS] 2935. (format-hexadecimal-float 4.626864469947544e223) .......... [PASS] 2936. (format-hexadecimal-float 1.8507457879790174e224) .......... [PASS] 2937. (format-hexadecimal-float 7.40298315191607e224) .......... [PASS] 2938. (format-hexadecimal-float 2.961193260766428e225) .......... [PASS] 2939. (format-hexadecimal-float 1.1844773043065711e226) .......... [PASS] 2940. (format-hexadecimal-float 4.737909217226285e226) .......... [PASS] 2941. (format-hexadecimal-float 1.895163686890514e227) .......... [PASS] 2942. (format-hexadecimal-float 7.580654747562055e227) .......... [PASS] 2943. (format-hexadecimal-float 3.032261899024822e228) .......... [PASS] 2944. (format-hexadecimal-float 1.2129047596099289e229) .......... [PASS] 2945. (format-hexadecimal-float 4.8516190384397154e229) .......... [PASS] 2946. (format-hexadecimal-float 1.9406476153758862e230) .......... [PASS] 2947. (format-hexadecimal-float 7.762590461503545e230) .......... [PASS] 2948. (format-hexadecimal-float 3.105036184601418e231) .......... [PASS] 2949. (format-hexadecimal-float 1.2420144738405671e232) .......... [PASS] 2950. (format-hexadecimal-float 4.968057895362269e232) .......... [PASS] 2951. (format-hexadecimal-float 1.9872231581449074e233) .......... [PASS] 2952. (format-hexadecimal-float 7.94889263257963e233) .......... [PASS] 2953. (format-hexadecimal-float 3.179557053031852e234) .......... [PASS] 2954. (format-hexadecimal-float 1.2718228212127408e235) .......... [PASS] 2955. (format-hexadecimal-float 5.087291284850963e235) .......... [PASS] 2956. (format-hexadecimal-float 2.0349165139403852e236) .......... [PASS] 2957. (format-hexadecimal-float 8.139666055761541e236) .......... [PASS] 2958. (format-hexadecimal-float 3.2558664223046163e237) .......... [PASS] 2959. (format-hexadecimal-float 1.3023465689218465e238) .......... [PASS] 2960. (format-hexadecimal-float 5.209386275687386e238) .......... [PASS] 2961. (format-hexadecimal-float 2.0837545102749545e239) .......... [PASS] 2962. (format-hexadecimal-float 8.335018041099818e239) .......... [PASS] 2963. (format-hexadecimal-float 3.334007216439927e240) .......... [PASS] 2964. (format-hexadecimal-float 1.333602886575971e241) .......... [PASS] 2965. (format-hexadecimal-float 5.3344115463038834e241) .......... [PASS] 2966. (format-hexadecimal-float 2.1337646185215534e242) .......... [PASS] 2967. (format-hexadecimal-float 8.535058474086213e242) .......... [PASS] 2968. (format-hexadecimal-float 3.4140233896344854e243) .......... [PASS] 2969. (format-hexadecimal-float 1.3656093558537942e244) .......... [PASS] 2970. (format-hexadecimal-float 5.462437423415177e244) .......... [PASS] 2971. (format-hexadecimal-float 2.1849749693660706e245) .......... [PASS] 2972. (format-hexadecimal-float 8.739899877464283e245) .......... [PASS] 2973. (format-hexadecimal-float 3.495959950985713e246) .......... [PASS] 2974. (format-hexadecimal-float 1.3983839803942852e247) .......... [PASS] 2975. (format-hexadecimal-float 5.593535921577141e247) .......... [PASS] 2976. (format-hexadecimal-float 2.2374143686308563e248) .......... [PASS] 2977. (format-hexadecimal-float 8.949657474523425e248) .......... [PASS] 2978. (format-hexadecimal-float 3.57986298980937e249) .......... [PASS] 2979. (format-hexadecimal-float 1.431945195923748e250) .......... [PASS] 2980. (format-hexadecimal-float 5.727780783694992e250) .......... [PASS] 2981. (format-hexadecimal-float 2.291112313477997e251) .......... [PASS] 2982. (format-hexadecimal-float 9.164449253911988e251) .......... [PASS] 2983. (format-hexadecimal-float 3.665779701564795e252) .......... [PASS] 2984. (format-hexadecimal-float 1.466311880625918e253) .......... [PASS] 2985. (format-hexadecimal-float 5.865247522503672e253) .......... [PASS] 2986. (format-hexadecimal-float 2.346099009001469e254) .......... [PASS] 2987. (format-hexadecimal-float 9.384396036005875e254) .......... [PASS] 2988. (format-hexadecimal-float 3.75375841440235e255) .......... [PASS] 2989. (format-hexadecimal-float 1.50150336576094e256) .......... [PASS] 2990. (format-hexadecimal-float 6.00601346304376e256) .......... [PASS] 2991. (format-hexadecimal-float 2.402405385217504e257) .......... [PASS] 2992. (format-hexadecimal-float 9.609621540870016e257) .......... [PASS] 2993. (format-hexadecimal-float 3.8438486163480065e258) .......... [PASS] 2994. (format-hexadecimal-float 1.5375394465392026e259) .......... [PASS] 2995. (format-hexadecimal-float 6.1501577861568104e259) .......... [PASS] 2996. (format-hexadecimal-float 2.4600631144627242e260) .......... [PASS] 2997. (format-hexadecimal-float 9.840252457850897e260) .......... [PASS] 2998. (format-hexadecimal-float 3.936100983140359e261) .......... [PASS] 2999. (format-hexadecimal-float 1.5744403932561435e262) .......... [PASS] 3000. (format-hexadecimal-float 6.297761573024574e262) .......... [PASS] 3001. (format-hexadecimal-float 2.5191046292098296e263) .......... [PASS] 3002. (format-hexadecimal-float 1.0076418516839318e264) .......... [PASS] 3003. (format-hexadecimal-float 4.0305674067357273e264) .......... [PASS] 3004. (format-hexadecimal-float 1.612226962694291e265) .......... [PASS] 3005. (format-hexadecimal-float 6.448907850777164e265) .......... [PASS] 3006. (format-hexadecimal-float 2.5795631403108655e266) .......... [PASS] 3007. (format-hexadecimal-float 1.0318252561243462e267) .......... [PASS] 3008. (format-hexadecimal-float 4.127301024497385e267) .......... [PASS] 3009. (format-hexadecimal-float 1.650920409798954e268) .......... [PASS] 3010. (format-hexadecimal-float 6.603681639195816e268) .......... [PASS] 3011. (format-hexadecimal-float 2.6414726556783262e269) .......... [PASS] 3012. (format-hexadecimal-float 1.0565890622713305e270) .......... [PASS] 3013. (format-hexadecimal-float 4.226356249085322e270) .......... [PASS] 3014. (format-hexadecimal-float 1.6905424996341288e271) .......... [PASS] 3015. (format-hexadecimal-float 6.762169998536515e271) .......... [PASS] 3016. (format-hexadecimal-float 2.704867999414606e272) .......... [PASS] 3017. (format-hexadecimal-float 1.0819471997658424e273) .......... [PASS] 3018. (format-hexadecimal-float 4.32778879906337e273) .......... [PASS] 3019. (format-hexadecimal-float 1.731115519625348e274) .......... [PASS] 3020. (format-hexadecimal-float 6.924462078501392e274) .......... [PASS] 3021. (format-hexadecimal-float 2.7697848314005566e275) .......... [PASS] 3022. (format-hexadecimal-float 1.1079139325602226e276) .......... [PASS] 3023. (format-hexadecimal-float 4.431655730240891e276) .......... [PASS] 3024. (format-hexadecimal-float 1.7726622920963562e277) .......... [PASS] 3025. (format-hexadecimal-float 7.090649168385425e277) .......... [PASS] 3026. (format-hexadecimal-float 2.83625966735417e278) .......... [PASS] 3027. (format-hexadecimal-float 1.134503866941668e279) .......... [PASS] 3028. (format-hexadecimal-float 4.538015467766672e279) .......... [PASS] 3029. (format-hexadecimal-float 1.8152061871066688e280) .......... [PASS] 3030. (format-hexadecimal-float 7.260824748426675e280) .......... [PASS] 3031. (format-hexadecimal-float 2.90432989937067e281) .......... [PASS] 3032. (format-hexadecimal-float 1.161731959748268e282) .......... [PASS] 3033. (format-hexadecimal-float 4.646927838993072e282) .......... [PASS] 3034. (format-hexadecimal-float 1.858771135597229e283) .......... [PASS] 3035. (format-hexadecimal-float 7.435084542388915e283) .......... [PASS] 3036. (format-hexadecimal-float 2.974033816955566e284) .......... [PASS] 3037. (format-hexadecimal-float 1.1896135267822265e285) .......... [PASS] 3038. (format-hexadecimal-float 4.758454107128906e285) .......... [PASS] 3039. (format-hexadecimal-float 1.9033816428515623e286) .......... [PASS] 3040. (format-hexadecimal-float 7.613526571406249e286) .......... [PASS] 3041. (format-hexadecimal-float 3.0454106285625e287) .......... [PASS] 3042. (format-hexadecimal-float 1.218164251425e288) .......... [PASS] 3043. (format-hexadecimal-float 4.8726570057e288) .......... [PASS] 3044. (format-hexadecimal-float 1.94906280228e289) .......... [PASS] 3045. (format-hexadecimal-float 7.796251209119999e289) .......... [PASS] 3046. (format-hexadecimal-float 3.118500483648e290) .......... [PASS] 3047. (format-hexadecimal-float 1.2474001934592e291) .......... [PASS] 3048. (format-hexadecimal-float 4.9896007738368e291) .......... [PASS] 3049. (format-hexadecimal-float 1.99584030953472e292) .......... [PASS] 3050. (format-hexadecimal-float 7.983361238138879e292) .......... [PASS] 3051. (format-hexadecimal-float 3.193344495255552e293) .......... [PASS] 3052. (format-hexadecimal-float 1.2773377981022207e294) .......... [PASS] 3053. (format-hexadecimal-float 5.109351192408883e294) .......... [PASS] 3054. (format-hexadecimal-float 2.043740476963553e295) .......... [PASS] 3055. (format-hexadecimal-float 8.174961907854212e295) .......... [PASS] 3056. (format-hexadecimal-float 3.269984763141685e296) .......... [PASS] 3057. (format-hexadecimal-float 1.307993905256674e297) .......... [PASS] 3058. (format-hexadecimal-float 5.231975621026696e297) .......... [PASS] 3059. (format-hexadecimal-float 2.0927902484106784e298) .......... [PASS] 3060. (format-hexadecimal-float 8.371160993642713e298) .......... [PASS] 3061. (format-hexadecimal-float 3.3484643974570854e299) .......... [PASS] 3062. (format-hexadecimal-float 1.3393857589828342e300) .......... [PASS] 3063. (format-hexadecimal-float 5.357543035931337e300) .......... [PASS] 3064. (format-hexadecimal-float 2.1430172143725346e301) .......... [PASS] 3065. (format-hexadecimal-float 8.572068857490139e301) .......... [PASS] 3066. (format-hexadecimal-float 3.4288275429960554e302) .......... [PASS] 3067. (format-hexadecimal-float 1.3715310171984222e303) .......... [PASS] 3068. (format-hexadecimal-float 5.486124068793689e303) .......... [PASS] 3069. (format-hexadecimal-float 2.1944496275174755e304) .......... [PASS] 3070. (format-hexadecimal-float 8.777798510069902e304) .......... [PASS] 3071. (format-hexadecimal-float 3.511119404027961e305) .......... [PASS] 3072. (format-hexadecimal-float 1.4044477616111843e306) .......... [PASS] 3073. (format-hexadecimal-float 5.617791046444737e306) .......... [PASS] 3074. (format-hexadecimal-float 2.247116418577895e307) .......... [PASS] 3075. (format-hexadecimal-float 8.98846567431158e307) .......... [PASS] 3076. (format-hexadecimal-float -3.822011740058278e262) .......... [PASS] 3077. (format-hexadecimal-float 2.0040265468141222e-53) .......... [PASS] 3078. (format-hexadecimal-float 2.7639635814407074e142) .......... [PASS] 3079. (format-hexadecimal-float 4.663293077087164e282) .......... [PASS] 3080. (format-hexadecimal-float 5.7306813268457824e60) .......... [PASS] 3081. (format-hexadecimal-float 2.5202808333667725e-36) .......... [PASS] 3082. (format-hexadecimal-float 2.2318300487427332e-30) .......... [PASS] 3083. (format-hexadecimal-float -1.5173045710088335e80) .......... [PASS] 3084. (format-hexadecimal-float -8.342653346613541e244) .......... [PASS] 3085. (format-hexadecimal-float 1.0439907221787011e291) .......... [PASS] 3086. (format-hexadecimal-float 2.858067814534029e-165) .......... [PASS] 3087. (format-hexadecimal-float 1.911151520887683e67) .......... [PASS] 3088. (format-hexadecimal-float 4.403680857152375e-37) .......... [PASS] 3089. (format-hexadecimal-float 3.578009985727892e-82) .......... [PASS] 3090. (format-hexadecimal-float -6.637617246078968e-190) .......... [PASS] 3091. (format-hexadecimal-float 4.643932703070722e162) .......... [PASS] 3092. (format-hexadecimal-float 4.510526922572393e213) .......... [PASS] 3093. (format-hexadecimal-float -1.7922364938371488e306) .......... [PASS] 3094. (format-hexadecimal-float 1.5597555203237507e-33) .......... [PASS] 3095. (format-hexadecimal-float -9.15203627140224e284) .......... [PASS] 3096. (format-hexadecimal-float -8.924171118455261e140) .......... [PASS] 3097. (format-hexadecimal-float -6.5411473729570534e-167) .......... [PASS] 3098. (format-hexadecimal-float 5.592718216458136e-239) .......... [PASS] 3099. (format-hexadecimal-float 9.30810078228922e-266) .......... [PASS] 3100. (format-hexadecimal-float 7.232762675964383e128) .......... [PASS] 3101. (format-hexadecimal-float 3.3751064128675677e-42) .......... [PASS] 3102. (format-hexadecimal-float -2.647521362738516e-117) .......... [PASS] 3103. (format-hexadecimal-float 4.6000550886591913e281) .......... [PASS] 3104. (format-hexadecimal-float 1.7279326931449805e-61) .......... [PASS] 3105. (format-hexadecimal-float -3.106480947688747e289) .......... [PASS] 3106. (format-hexadecimal-float 1.9559941281627643e-214) .......... [PASS] 3107. (format-hexadecimal-float 9.709631494679692e-9) .......... [PASS] 3108. (format-hexadecimal-float -3.225653043256106e-47) .......... [PASS] 3109. (format-hexadecimal-float -1.2124715322063093e-178) .......... [PASS] 3110. (format-hexadecimal-float 3.2146891327913977e160) .......... [PASS] 3111. (format-hexadecimal-float -1.324675136417424e18) .......... [PASS] 3112. (format-hexadecimal-float 3.831854540086596e-66) .......... [PASS] 3113. (format-hexadecimal-float -46102286580107.36) .......... [PASS] 3114. (format-hexadecimal-float -2.631636868069473e-156) .......... [PASS] 3115. (format-hexadecimal-float -5.6435754204652336e278) .......... [PASS] 3116. (format-hexadecimal-float 7.90519079270998e264) .......... [PASS] 3117. (format-hexadecimal-float 9.487316233181637e-142) .......... [PASS] 3118. (format-hexadecimal-float 6.070198325484715e144) .......... [PASS] 3119. (format-hexadecimal-float -8.549300112962489e73) .......... [PASS] 3120. (format-hexadecimal-float 8.161615251416026e89) .......... [PASS] 3121. (format-hexadecimal-float 1.548036754692209e200) .......... [PASS] 3122. (format-hexadecimal-float 1.353922666602881e-101) .......... [PASS] 3123. (format-hexadecimal-float 2.757336428157079e-61) .......... [PASS] 3124. (format-hexadecimal-float 3.709524143077174e-209) .......... [PASS] 3125. (format-hexadecimal-float 1.2598010354259453e31) .......... [PASS] 3126. (format-hexadecimal-float 3.359458488222545e-204) .......... [PASS] 3127. (format-hexadecimal-float 5.398508279062045e-208) .......... [PASS] 3128. (format-hexadecimal-float -2.7202836556584778e-251) .......... [PASS] 3129. (format-hexadecimal-float -5.256943847428058e194) .......... [PASS] 3130. (format-hexadecimal-float -3.159333712338642e-92) .......... [PASS] 3131. (format-hexadecimal-float 3.7549928710928176e168) .......... [PASS] 3132. (format-hexadecimal-float 1.715026675103778e-272) .......... [PASS] 3133. (format-hexadecimal-float 2.5774542563123808e300) .......... [PASS] 3134. (format-hexadecimal-float -8.372159765515495e-306) .......... [PASS] 3135. (format-hexadecimal-float -4.316624656866337e-248) .......... [PASS] 3136. (format-hexadecimal-float -7.682892685982606e107) .......... [PASS] 3137. (format-hexadecimal-float -5.7097562563121993e-42) .......... [PASS] 3138. (format-hexadecimal-float -7.101626846226299e-161) .......... [PASS] 3139. (format-hexadecimal-float 1.4798189330807326e-305) .......... [PASS] 3140. (format-hexadecimal-float 1.2313261231353371e36) .......... [PASS] 3141. (format-hexadecimal-float -24294973691.98999) .......... [PASS] 3142. (format-hexadecimal-float 5.581412484116585e-201) .......... [PASS] 3143. (format-hexadecimal-float 2.527496280601582e-85) .......... [PASS] 3144. (format-hexadecimal-float 1.935006827583618e-107) .......... [PASS] 3145. (format-hexadecimal-float -4.363020046553437e69) .......... [PASS] 3146. (format-hexadecimal-float 4.952214632024497e265) .......... [PASS] 3147. (format-hexadecimal-float -9.261532534467599e-287) .......... [PASS] 3148. (format-hexadecimal-float -9.900568481688535e59) .......... [PASS] 3149. (format-hexadecimal-float -5.945013378921046e-259) .......... [PASS] 3150. (format-hexadecimal-float 5.012992934727513e74) .......... [PASS] 3151. (format-hexadecimal-float 7.108393683082417e241) .......... [PASS] 3152. (format-hexadecimal-float -4.588703567446273e299) .......... [PASS] 3153. (format-hexadecimal-float -7.981749639702861e-128) .......... [PASS] 3154. (format-hexadecimal-float -2.2516887829165765e-83) .......... [PASS] 3155. (format-hexadecimal-float 1.7828431374799188e185) .......... [PASS] 3156. (format-hexadecimal-float -6.807126718623003e-239) .......... [PASS] 3157. (format-hexadecimal-float -1.2347234132679698e70) .......... [PASS] 3158. (format-hexadecimal-float 5.576840450253363e-137) .......... [PASS] 3159. (format-hexadecimal-float -2.886943360644617e77) .......... [PASS] 3160. (format-hexadecimal-float 4.1132138389129684e57) .......... [PASS] 3161. (format-hexadecimal-float -5.0124748896111806e-55) .......... [PASS] 3162. (format-hexadecimal-float 3.5134613777292094e-13) .......... [PASS] 3163. (format-hexadecimal-float 6.452506551444208e-163) .......... [PASS] 3164. (format-hexadecimal-float -1.868264108837488e-281) .......... [PASS] 3165. (format-hexadecimal-float -2.4746129119430634e-275) .......... [PASS] 3166. (format-hexadecimal-float -9.158353102990944e-257) .......... [PASS] 3167. (format-hexadecimal-float 30.302664061008855) .......... [PASS] 3168. (format-hexadecimal-float -7.445120526670982e-257) .......... [PASS] 3169. (format-hexadecimal-float 5.544088075505607e250) .......... [PASS] 3170. (format-hexadecimal-float 1.9728809543575317e-177) .......... [PASS] 3171. (format-hexadecimal-float 1.2138461427727012e-132) .......... [PASS] 3172. (format-hexadecimal-float 5.655042341654149e-106) .......... [PASS] 3173. (format-hexadecimal-float 5.35832416039844e-100) .......... [PASS] 3174. (format-hexadecimal-float 7.336206726400913e294) .......... [PASS] 3175. (format-hexadecimal-float -3.3810293223277833e-28) .......... [PASS] 3176. (format-hexadecimal-float -1.1353613485117373e-64) .......... [PASS] 3177. (format-hexadecimal-float 1.5889851043348208e132) .......... [PASS] 3178. (format-hexadecimal-float 0.15731232862208255) .......... [PASS] 3179. (format-hexadecimal-float -3.801269695979055e234) .......... [PASS] 3180. (format-hexadecimal-float -3.600180130541847e247) .......... [PASS] 3181. (format-hexadecimal-float -3.655887344522559e-60) .......... [PASS] 3182. (format-hexadecimal-float 2.3029384418934692e244) .......... [PASS] 3183. (format-hexadecimal-float -6.2156456631417525e-46) .......... [PASS] 3184. (format-hexadecimal-float -3.638369309609627e-22) .......... [PASS] 3185. (format-hexadecimal-float -2.279373548469506e169) .......... [PASS] 3186. (format-hexadecimal-float -5.229762913222122e-135) .......... [PASS] 3187. (format-hexadecimal-float 5.6912833706320275e284) .......... [PASS] 3188. (format-hexadecimal-float 7.018157583528156e124) .......... [PASS] 3189. (format-hexadecimal-float -1.2432156397829172e-191) .......... [PASS] 3190. (format-hexadecimal-float 7.984181523903693e169) .......... [PASS] 3191. (format-hexadecimal-float 8.882272832344066e-93) .......... [PASS] 3192. (format-hexadecimal-float 2.5437159982865906e-166) .......... [PASS] 3193. (format-hexadecimal-float 4.602862432771106e-296) .......... [PASS] 3194. (format-hexadecimal-float -3.519974911387182e-5) .......... [PASS] 3195. (format-hexadecimal-float 6.974866279230579e-23) .......... [PASS] 3196. (format-hexadecimal-float 4.161665588431665e103) .......... [PASS] 3197. (format-hexadecimal-float 4.348078707237531e81) .......... [PASS] 3198. (format-hexadecimal-float -1.7814653808562267e32) .......... [PASS] 3199. (format-hexadecimal-float -1.6296796904104866e-205) .......... [PASS] 3200. (format-hexadecimal-float -9.476356845507392e80) .......... [PASS] 3201. (format-hexadecimal-float 7.374290823674283e-66) .......... [PASS] 3202. (format-hexadecimal-float -4.230976206505834e-264) .......... [PASS] 3203. (format-hexadecimal-float 1.0116212383861266e-106) .......... [PASS] 3204. (format-hexadecimal-float -9.016163140451518e145) .......... [PASS] 3205. (format-hexadecimal-float -1.572401872251956e105) .......... [PASS] 3206. (format-hexadecimal-float 6.16804435048793e-205) .......... [PASS] 3207. (format-hexadecimal-float -4.418856157753787e192) .......... [PASS] 3208. (format-hexadecimal-float -2.607058083777877e62) .......... [PASS] 3209. (format-hexadecimal-float 5.70086546055099e202) .......... [PASS] 3210. (format-hexadecimal-float -4.298417631348484e281) .......... [PASS] 3211. (format-hexadecimal-float -2.8958171299177303e-8) .......... [PASS] 3212. (format-hexadecimal-float 9.265227841644914e211) .......... [PASS] 3213. (format-hexadecimal-float 2.053137553331467e-161) .......... [PASS] 3214. (format-hexadecimal-float -2.458908775738635e34) .......... [PASS] 3215. (format-hexadecimal-float -3.271823402707718e-172) .......... [PASS] 3216. (format-hexadecimal-float 4.766120222710433e-259) .......... [PASS] 3217. (format-hexadecimal-float -4.52469125533396e-145) .......... [PASS] 3218. (format-hexadecimal-float 1.9916045193650194e-256) .......... [PASS] 3219. (format-hexadecimal-float -6.361753000860215e236) .......... [PASS] 3220. (format-hexadecimal-float 2.929042894945493e264) .......... [PASS] 3221. (format-hexadecimal-float 6.703889173082198e-138) .......... [PASS] 3222. (format-hexadecimal-float 1.7941487436195303e97) .......... [PASS] 3223. (format-hexadecimal-float -1.5256018523905536e-100) .......... [PASS] 3224. (format-hexadecimal-float 1.384491834861561e-305) .......... [PASS] 3225. (format-hexadecimal-float 5.504844160677119e86) .......... [PASS] 3226. (format-hexadecimal-float 1.7040669877581106e-66) .......... [PASS] 3227. (format-hexadecimal-float 5.779506995192675e-31) .......... [PASS] 3228. (format-hexadecimal-float 3.795456111560642e264) .......... [PASS] 3229. (format-hexadecimal-float 5.783731508464672e137) .......... [PASS] 3230. (format-hexadecimal-float 1.6268907860595586e-57) .......... [PASS] 3231. (format-hexadecimal-float 3.1642214552514147e-251) .......... [PASS] 3232. (format-hexadecimal-float 7.846797756520908e-115) .......... [PASS] 3233. (format-hexadecimal-float 1.0295786375633032e242) .......... [PASS] 3234. (format-hexadecimal-float 8.892172875656162e196) .......... [PASS] 3235. (format-hexadecimal-float -2.763117915879235e-228) .......... [PASS] 3236. (format-hexadecimal-float 8.508784860354174e172) .......... [PASS] 3237. (format-hexadecimal-float -167809505.2189992) .......... [PASS] 3238. (format-hexadecimal-float 5.944735275437528e150) .......... [PASS] 3239. (format-hexadecimal-float 2.25532316634729e-44) .......... [PASS] 3240. (format-hexadecimal-float 3.6206441959460243e273) .......... [PASS] 3241. (format-hexadecimal-float 1.0942228929688853e281) .......... [PASS] 3242. (format-hexadecimal-float 1.336324660187999e-123) .......... [PASS] 3243. (format-hexadecimal-float -1.6373581703776173e220) .......... [PASS] 3244. (format-hexadecimal-float -1.2818287774780476e-48) .......... [PASS] 3245. (format-hexadecimal-float -5.6238087157202e52) .......... [PASS] 3246. (format-hexadecimal-float -8.828058398989468e64) .......... [PASS] 3247. (format-hexadecimal-float 3.449943977035806e-136) .......... [PASS] 3248. (format-hexadecimal-float 1.5045929370587524e204) .......... [PASS] 3249. (format-hexadecimal-float 1.6109040551208748e166) .......... [PASS] 3250. (format-hexadecimal-float -4.758485683888725e168) .......... [PASS] 3251. (format-hexadecimal-float -4.0411097481507396e41) .......... [PASS] 3252. (format-hexadecimal-float -8.083249924137198e179) .......... [PASS] 3253. (format-hexadecimal-float -3.506237946530982e232) .......... [PASS] 3254. (format-hexadecimal-float 4.651067442617063e263) .......... [PASS] 3255. (format-hexadecimal-float 2.755852520117892e53) .......... [PASS] 3256. (format-hexadecimal-float -8.030708187762475e256) .......... [PASS] 3257. (format-hexadecimal-float 1.2819917459557485e-140) .......... [PASS] 3258. (format-hexadecimal-float -4.562305398483246e-198) .......... [PASS] 3259. (format-hexadecimal-float 1.3465349677443027e-184) .......... [PASS] 3260. (format-hexadecimal-float -7.777116193485453e199) .......... [PASS] 3261. (format-hexadecimal-float -1.1424992845668402e-108) .......... [PASS] 3262. (format-hexadecimal-float 8.691173888908804e91) .......... [PASS] 3263. (format-hexadecimal-float -7.125029845445019e-135) .......... [PASS] 3264. (format-hexadecimal-float 3.1593864231631496e-226) .......... [PASS] 3265. (format-hexadecimal-float -4.2677286723630986e-61) .......... [PASS] 3266. (format-hexadecimal-float -1.2133949088680852e-30) .......... [PASS] 3267. (format-hexadecimal-float -1.3464791443273297e121) .......... [PASS] 3268. (format-hexadecimal-float 1.484825762707255e-26) .......... [PASS] 3269. (format-hexadecimal-float 1.7975988578176726e227) .......... [PASS] 3270. (format-hexadecimal-float 4.911577456768783e127) .......... [PASS] 3271. (format-hexadecimal-float -1.4524988930584487e-119) .......... [PASS] 3272. (format-hexadecimal-float 5.5945630127923204e-49) .......... [PASS] 3273. (format-hexadecimal-float -2.9836089508929376e-251) .......... [PASS] 3274. (format-hexadecimal-float -1.0184766898959258e18) .......... [PASS] 3275. (format-hexadecimal-float 7.887043840109312e300) .......... [PASS] 3275 out of 3275 passed (100.00%) 1. (printed (quote (a b))) .......... [PASS] 2. (printed (quote ())) .......... [PASS] 3. (printed (vector 1 2 3)) .......... [PASS] 4. (printed 17) .......... [PASS] 5. (printed (quote (quote (a b)))) .......... [PASS] 6. (printed (quote (quote (a . b)))) .......... [PASS] 7. (printed (quote (quasiquote ((unquote a) (unquote-splicing b))))) .......... [PASS] 8. (> (lines (printed (quote (define (fact n) (if (= n 0) 1 (* n (fact (- n 1)))))))) 0) .......... [PASS] 9. (> (lines (printed (quote (let ((alpha 1) (beta 2) (gamma 3) (delta 4) (epsilon 5) (zeta 6) (eta 7) (theta 8) (iota 9) (kappa 10)) (list alpha beta gamma delta epsilon zeta))))) 1) .......... [PASS] 10. (roundtrip (quote (1 "two" #\3 (4 . 5) #(6) #u8(7 8)))) .......... [PASS] 11. (roundtrip (quote (a (b (c (d)))))) .......... [PASS] 12. (string? (let ((p (open-output-string))) (parameterize ((current-output-port p)) (pp (quote (x y))) (get-output-string p)))) .......... [PASS] ---------------------------------------------------------------- (srfi 272 basic): ./skint test/srfi/272/basic.scm 1. (eq? pp-width print-width) .......... [PASS] 2. (eq? pp-circle print-circle) .......... [PASS] 3. (eq? pp-graph print-graph) .......... [PASS] 4. (parameterize ((pp-width 40)) (print-width)) .......... [PASS] 5. (parameterize ((print-width 55)) (pp-width)) .......... [PASS] 6. (string=? (printed pp wide pp-width 30) (printed pretty-print wide print-width 30)) .......... [PASS] 7. (printed pp (shared-pair)) .......... [PASS] 8. (printed pp (cyclic)) .......... [PASS] 9. (printed pp (shared-pair) pp-graph #t) .......... [PASS] 10. (printed pp (shared-pair) pp-circle #f) .......... [PASS] 11. (printed pprint (shared-pair)) .......... [PASS] 12. (printed pprint (shared-pair) pp-graph #t) .......... [PASS] 13. (printed pprint (cyclic)) .......... [PASS] 14. (printed pprint-shared (shared-pair)) .......... [PASS] 15. (printed pprint-shared (shared-pair) pp-graph #f) .......... [PASS] 16. (printed pprint-simple (shared-pair)) .......... [PASS] 17. (printed pprint-simple (shared-pair) pp-graph #t) .......... [PASS] 18. (printed pprint (quote (a b))) .......... [PASS] 19. (printed pprint-shared (quote (a b))) .......... [PASS] 20. (printed pprint-simple (quote (a b))) .......... [PASS] 20 out of 20 passed (100.00%) 1. (eq? pp-radix print-radix) .......... [PASS] 2. (eq? pp-length print-length) .......... [PASS] 3. (eq? pp-level print-level) .......... [PASS] 4. (printed 255 pp-radix 16) .......... [PASS] 5. (printed 10 pp-radix 2) .......... [PASS] 6. (printed 255) .......... [PASS] 7. (printed (quote (1 2 3 4 5 6)) pp-length 3) .......... [PASS] 8. (printed (quote (1 (2 (3 (4))))) pp-level 2) .......... [PASS] 9. (printed 255 pp-radix 16 pp-radix 8) .......... [PASS] 10. (parameterize ((pp-radix 8)) (printed 255)) .......... [PASS] 11. (parameterize ((pp-radix 8)) (printed 255 pp-radix 16)) .......... [PASS] 12. (let ((p (open-output-string))) (pp* 255 p (list pp-radix 16)) (get-output-string p)) .......... [PASS] 13. (let ((p (open-output-string))) (pp* 255 p pp-radix 16 (quote ())) (get-output-string p)) .......... [PASS] 14. (printed (quote (let ((a 1)) a)) print-brackets #f) .......... [PASS] 15. (printed (quote (let ((a 1)) a)) print-brackets #t) .......... [PASS] 16. (narrow (filled 1 6)) .......... [PASS] 17. (narrow (filled 2 6)) .......... [PASS] 18. (roundtrips? 3) .......... [PASS] 19. (roundtrips? 11) .......... [PASS] 20. (pair? (pretty-style (quote let))) .......... [PASS] 21. (begin (pretty-style (quote my-special-form) (pretty-style (quote let))) (pair? (pretty-style (quote my-special-form)))) .......... [PASS] 22. (and (string? out-text) (> (string-length out-text) 0)) .......... [PASS] 23. (let ((p (open-input-string out-text))) (and (equal? (quote (define (f x) (if (> x 0) (* x 2) (- x)))) (read p)) (equal? (quote (display 1)) (read p)) (eof-object? (read p)))) .......... [PASS] 23 out of 23 passed (100.00%) 1. (eq? pp-width print-width) .......... [PASS] 2. (printed (quote (a b))) .......... [PASS] 3. (printed (quote (1 2 3 4 5 6 7 8)) pp-width 12) .......... [PASS] 4. (printed (quote (let ((a 1)) a)) pp-code #t pp-brackets #t) .......... [PASS] 5. (printed (quote (let ((a 1)) a)) pp-code #t pp-brackets #f) .......... [PASS] 6. (printed (quote (1 (2 (3 (4))))) pp-level 2) .......... [PASS] 7. (printed (quote (1 2 3 4 5 6)) pp-length 3) .......... [PASS] 8. (printed 255 pp-radix 16) .......... [PASS] 9. (printed (quote (a (b c) (d (e f)) g)) pp-width 10 pp-lines 2) .......... [PASS] 10. (printed (shared-pair)) .......... [PASS] 11. (printed (cyclic)) .......... [PASS] 12. (printed (shared-pair) pp-graph #t) .......... [PASS] 13. (let ((p (open-output-string))) (pprint-shared (shared-pair) p) (get-output-string p)) .......... [PASS] 14. (printed (filled 1 6) pp-width 12) .......... [PASS] 15. (printed (filled 2 6) pp-width 12) .......... [PASS] 16. (roundtrips? 3) .......... [PASS] 17. (roundtrips? 11) .......... [PASS] 17 out of 17 passed (100.00%) 1. (printed (quote (a b))) .......... [PASS] 2. (printed (quote (let ((a 1)) a)) pp-code #t pp-brackets #t) .......... [PASS] 3. (printed (quote (1 2 3 4 5 6)) pp-length 3) .......... [PASS] 4. (printed (filled 2 6) pp-width 12) .......... [PASS] 5. (contains? out-text "; a leading comment") .......... [PASS] 6. (contains? out-text ";; -*- pp-width: 30 -*-") .......... [PASS] 7. (contains? out-text "(define (f x)") .......... [PASS] 8. (let ((p (open-input-string out-text))) (let loop ((last #f)) (let ((x (read p))) (if (eof-object? x) (equal? last (quote (define (f x) (if (> x 0) (* x 2) (- x))))) (loop x))))) .......... [PASS] 9. (contains? html-text "") .......... [PASS] 10. (contains? html-text " (boolean?)) #t)) .......... [PASS] 6. (not (begin (declare-checked (call/cc (k procedure?))) #t)) .......... [PASS] 6 out of 6 passed (100.00%) ------------------------------------------------ RUNNING TESTS FOR SRFI 273: ./skint test/srfi/273.scm ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- CUMULATIVE RESULTS: ---------------------------------------------------------------------------- SRFI-1: ok SRFI-2: ok SRFI-4: ok SRFI-5: ok SRFI-6: ok SRFI-8: ok SRFI-9: ok SRFI-11: ok SRFI-13: ok SRFI-14: ok SRFI-16: ok SRFI-17: ok SRFI-19: ok SRFI-22: ok SRFI-23: ok SRFI-25: ok SRFI-26: ok SRFI-27: ok SRFI-28: ok SRFI-29: ok SRFI-30: ok SRFI-31: ok SRFI-34: ok SRFI-35: ok SRFI-37: ok SRFI-38: ok SRFI-39: ok SRFI-41: ok SRFI-42: ok SRFI-43: ok SRFI-45: ok SRFI-46: ok SRFI-48: ok SRFI-51: ok SRFI-54: ok SRFI-55: ok SRFI-60: ok SRFI-61: ok SRFI-62: ok SRFI-63: ok SRFI-64: ok SRFI-66: ok SRFI-67: ok SRFI-69: ok SRFI-71: ok SRFI-74: ok SRFI-78: ok SRFI-86: ok SRFI-87: ok SRFI-95: ok SRFI-98: ok SRFI-111: ok SRFI-113: ok SRFI-115: ok SRFI-116: ok SRFI-117: ok SRFI-121: ok SRFI-125: ok SRFI-127: ok SRFI-128: ok SRFI-130: ok SRFI-131: ok SRFI-132: ok SRFI-133: ok SRFI-134: ok SRFI-135: ok SRFI-136: ok SRFI-137: ok SRFI-141: ok SRFI-143: ok SRFI-144: ok SRFI-145: ok SRFI-146: ok SRFI-151: ok SRFI-152: ok SRFI-153: ok SRFI-156: ok SRFI-158: ok SRFI-160: ok SRFI-162: ok SRFI-165: ok SRFI-166: ok SRFI-171: ok SRFI-172: ok SRFI-173: ok SRFI-175: ok SRFI-176: ok SRFI-178: ok SRFI-189: ok SRFI-192: ok SRFI-193: ok SRFI-194: ok SRFI-196: ok SRFI-197: ok SRFI-214: ok SRFI-217: ok SRFI-219: ok SRFI-221: ok SRFI-222: ok SRFI-223: ok SRFI-224: ok SRFI-225: ok SRFI-227: ok SRFI-228: ok SRFI-232: ok SRFI-234: ok SRFI-235: ok SRFI-236: ok SRFI-239: ok SRFI-244: ok SRFI-251: ok SRFI-252: ok SRFI-253: ok SRFI-257: ok SRFI-264: ok SRFI-270: ok SRFI-272: ok SRFI-273: ok SRFIs TESTED: 118 CUMULATIVE FAILURES: 0 ---------------------------------------------------------------------------- CUMULATIVE RESULTS FOR ALL LIBRARY ROOTS: ---------------------------------------------------------------------------- skint: ok srfi: ok LIBRARY ROOTS TESTED: 2 CUMULATIVE FAILURES: 0 >>> skint: Entering fakeroot... version is 0.8.5 prefix is set to /usr use-tower is set to 0 use-unicode is set to 0 use-enhanced-tty is set to 0 X86_64 architecture is detected install -d /home/buildozer/aports/community/skint/pkg/skint/usr/bin install -m 755 -s ./skint /home/buildozer/aports/community/skint/pkg/skint/usr/bin install -d /home/buildozer/aports/community/skint/pkg/skint/usr/share/man/man1/ install -m 644 ./skint.1 /home/buildozer/aports/community/skint/pkg/skint/usr/share/man/man1/ version is 0.8.5 prefix is set to /usr use-tower is set to 0 use-unicode is set to 0 use-enhanced-tty is set to 0 X86_64 architecture is detected install -d /home/buildozer/aports/community/skint/pkg/skint/usr/share/skint/lib cp -a lib/. /home/buildozer/aports/community/skint/pkg/skint/usr/share/skint/lib/ find /home/buildozer/aports/community/skint/pkg/skint/usr/share/skint -type f -exec chmod 644 {} + find /home/buildozer/aports/community/skint/pkg/skint/usr/share/skint -type d -exec chmod 755 {} + >>> skint-doc*: Running split function doc... 'usr/share/man' -> '/home/buildozer/aports/community/skint/pkg/skint-doc/usr/share/man' >>> skint-doc*: Preparing subpackage skint-doc... >>> skint-doc*: Running postcheck for skint-doc >>> skint*: Running postcheck for skint >>> skint*: Preparing package skint... >>> skint*: Stripping binaries >>> skint*: Scanning shared objects >>> skint*: Tracing dependencies... so:libc.musl-x86_64.so.1 >>> skint*: Package size: 3.0 MB >>> skint*: Compressing data... >>> skint*: Create checksum... >>> skint*: Create skint-0.8.5-r0.apk >>> skint-doc*: Tracing dependencies... >>> skint-doc*: Package size: 1.2 KB >>> skint-doc*: Compressing data... >>> skint-doc*: Create checksum... >>> skint-doc*: Create skint-doc-0.8.5-r0.apk >>> skint: Build complete at Sun, 11 Oct 2026 01:47:48 +0000 elapsed time 0h 0m 47s >>> skint: Cleaning up srcdir >>> skint: Cleaning up pkgdir >>> skint: Cleaning up tmpdir >>> skint: Uninstalling dependencies... (1/1) Purging .makedepends-skint (20261011.014701) OK: 442.2 MiB in 107 packages >>> skint: Updating the community/x86_64 repository index... >>> skint: Signing the index...