David Krentzlin avatar David Krentzlin committed 171cbc7

refactord better testing code

Comments (0)

Files changed (1)

tests/test-helper.scm

        (read-line server-input)))))
 
 ;generate a string of bytes bytes
-(define (with-buffer bytes proc)
+(define (call-with-buffer bytes proc)
   (proc (make-string bytes #\a)))
 
+(define (call-with-buffer/checksum buffer-size proc)
+  (call-with-buffer
+   buffer-size
+   (lambda (buffer)
+     (proc buffer (buffer-checksum buffer)))))
+
 ;; generate files
 (define (call-with-temporary-file content proc)
   (let ((path (create-temporary-file)))
   (* amount 1024))
 
 (define (generate-buffer bytes)
-  (with-buffer bytes identity))
+  (call-with-buffer bytes identity))
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.