diff options
Diffstat (limited to 'tests/quoted-printable.scm')
-rw-r--r-- | tests/quoted-printable.scm | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/tests/quoted-printable.scm b/tests/quoted-printable.scm index 267011a..0b5b462 100644 --- a/tests/quoted-printable.scm +++ b/tests/quoted-printable.scm @@ -23,17 +23,7 @@ (srfi srfi-1) (srfi srfi-64)) -(set! *random-state* (random-state-from-platform)) - -(define (random-bytevector len) - "Return a random bytevector of length LEN." - (u8-list->bytevector - (map (lambda _ (random 256)) (iota len)))) - -(define (each-line-has-a-maximum-of-76-characters? str) - (every (lambda (line) - (<= (string-length line) 76)) - (string-split str #\newline))) +(load "encoding.scm") (define (string-has-only-quoted-printable-valid-characters? str) (string-every (char-set-union |