commit 5fb58b8cc2c1553c0a31cccbe89f96974d0bd729 parent df0d5efcffa3ff904a7201e64dc567825396f698 Author: Yuval Langer <yuval.langer@gmail.com> Date: Sat, 13 Jan 2024 10:07:21 +0200 Remove silly tests. Diffstat:
| D | rsv/arbitrary-null-tests.scm | | | 30 | ------------------------------ |
1 file changed, 0 insertions(+), 30 deletions(-)
diff --git a/rsv/arbitrary-null-tests.scm b/rsv/arbitrary-null-tests.scm @@ -1,30 +0,0 @@ -(define-library (rsv arbitrary-null-tests) - (import (scheme base) - (srfi srfi-64) - (rsv arbitrary-null)) - - (begin - (define (test null-value scm) - (let ((output-bytevector-port (open-output-bytevector))) - (scm->rsv scm - (lambda (x) - (equal? null-value - x)) - output-bytevector-port) - (let ((bytevector (get-output-bytevector output-bytevector-port))) - (let ((new-scm (rsv->scm null-value - (open-input-bytevector bytevector)))) - (test-equal - scm - new-scm))))) - - (test-begin "rsv-arbitrary-null-tests") - (test #f '()) - (test #f '((#f))) - (test #f '((""))) - (test #f '(("a"))) - (test #f '(("a" ""))) - (test #f '(("" "a"))) - (test #t '(("bc" "a") ("def" #t "efsdf") () ("def"))) - (test 10 '(("bc" "a") ("def" 10 "efsdf") () ("def"))) - (test-end "rsv-arbitrary-null-tests")))