First passing unit test!

hall.scm

@@ -21,7 +21,7 @@
   (files (libraries
            ((directory "reflow" ((scheme-file "ansi")))
             (scheme-file "reflow")))
-         (tests ((directory "tests" ())))
+         (tests ((directory "tests" ((scheme-file "test-ansi")))))
          (programs ())
          (documentation
            ((org-file "README")

reflow/ansi.scm

@@ -66,7 +66,7 @@
       (λ () #f))
      "w"))
 
-  (define (last-sequence)
+  (define (current-sequence)
     (and
      (sequence?)
      (if (= 1 (length current-sequence-list))
@@ -81,8 +81,8 @@
       (display %RESET-SEQ o-port)))
 
   (define (restore-ansi)
-    (let ((seq (last-sequence)))
+    (let ((seq (current-sequence)))
       (when seq
         (display seq o-port))))
 
-  (values port last-sequence reset-ansi restore-ansi))
+  (values port current-sequence reset-ansi restore-ansi))

tests/test-ansi.scm

@@ -0,0 +1,25 @@
+(define-module (tests test-ansi)
+  #:use-module (reflow ansi)
+  #:use-module (tests utils)
+  #:use-module (srfi srfi-64)
+  #:use-module (rnrs io ports))
+
+(test-begin "test-ansi")
+
+(define pink-text-then-reset "\x1B[38;2;249;38;114m你好reflow\x1B[0m")
+
+(test-equal 
+  "Text should be forwarded to the port properly"
+  pink-text-then-reset
+  (call-with-output-string
+    (λ (str-port)
+      (define-values (ansi-port cur-seq reset restore)
+        (make-ansi-port-tuple str-port))
+
+      (display pink-text-then-reset ansi-port)
+      (reset)
+      (restore)
+
+      (test-equal "Current sequence should be #f" #f (cur-seq)))))
+
+(test-end "test-ansi")

tests/utils.scm

@@ -0,0 +1,15 @@
+(define-module (tests utils)
+  #:use-module (srfi srfi-64)
+  #:export (verify-output))
+
+(define (verify-output-fn expected proc)
+  "Ensures that the output sequence is what is expected"
+  (test-equal
+      expected
+    (call-with-output-string
+      (λ (port)
+        (parameterize ((current-output-port port))
+          (proc))))))
+
+(define-syntax-rule (verify-output expected body ...)
+  (verify-output-fn expected (lambda () body ...)))