guile-rsv

commit df0d5efcffa3ff904a7201e64dc567825396f698
parent faa270ae3ed05dfe1afee9640da3811c678b67a5
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Sat, 13 Jan 2024 10:02:24 +0200

Fix library names and add failing tests.

Diffstat:
M
rsv/rows-streams.scm
 | 
2
+-
M
tests.scm
 | 
20
+++++++++++++++++++-

2 files changed, 20 insertions(+), 2 deletions(-)
diff --git a/rsv/rows-streams.scm b/rsv/rows-streams.scm
@@ -19,7 +19,7 @@
 
           (srfi srfi-41)
 
-          (rsv arbitrary-null))
+          (rsv))
   (export port->rsv-row-stream)
 
   (begin
diff --git a/tests.scm b/tests.scm
@@ -25,7 +25,7 @@
 
           (statprof)
 
-          (rsv arbitrary-null)
+          (rsv)
           (rsv rows-streams))
 
   (begin
@@ -66,6 +66,14 @@
              (else
               (error "Illegal value while reading file:" byte)))))))
 
+    (define (run-back-and-forth-failing-test original-rsv)
+      (statprof
+       (lambda ()
+         (let* ((input-bytevector-port (open-input-bytevector original-rsv)))
+           (test-error (cons (read-rsv input-bytevector-port)
+                             original-rsv))))
+       #:count-calls? #t))
+
     (define (run-back-and-forth-test original-rsv)
       (statprof
        (lambda ()
@@ -102,6 +110,16 @@
                   (lambda (port)
                     (test-group filename
                                 (let ((original-rsv (get-bytevector-all port)))
+                                  (display 'run-back-and-forth-failing-test) (newline)
+                                  (run-back-and-forth-failing-test original-rsv))))))
+              invalid-filenames)
+
+    (for-each (lambda (filename)
+                (write filename) (newline)
+                (call-with-input-file filename
+                  (lambda (port)
+                    (test-group filename
+                                (let ((original-rsv (get-bytevector-all port)))
                                   (display 'run-back-and-forth-test) (newline)
                                   (run-back-and-forth-test original-rsv)
                                   (display 'run-stream-back-and-forth-test) (newline)