aboutsummaryrefslogtreecommitdiff
path: root/tests/quoted-printable.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/quoted-printable.scm')
-rw-r--r--tests/quoted-printable.scm12
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