Refactor command tests (#3279)

Signed-off-by: Yota Toyama <raviqqe@gmail.com>
Co-authored-by: Copilot <175728472+Copilot@users.noreply.github.com>

Author: raviqqe

features/instrinsics.feature

@@ -15,7 +15,7 @@ Feature: Intrinsics
   Scenario: Preserve a tag when a `cdr` is set
     Given a file named "main.scm" with:
       """scheme
-      (import (scheme base) (scheme write))
+      (import (scheme base))
 
       (define x (rib 0 #f #f 7))
 

features/macro.feature

@@ -267,7 +267,7 @@ Feature: Macro
   Scenario: Expand an empty ellipsis pattern and an improper list
     Given a file named "main.scm" with:
       """scheme
-      (import (scheme base) (scheme write))
+      (import (scheme base))
 
       (define-syntax foo
         (syntax-rules ()

features/niche.feature

@@ -11,7 +11,7 @@ Feature: Niche functionalities
   Scenario: Dump a stack trace on an error
     Given a file named "main.scm" with:
       """scheme
-      (import (scheme base) (scheme write) (stak backtrace))
+      (import (scheme base) (stak backtrace))
 
       (define (foo)
         (error "foo")

features/optimization.feature

@@ -4,44 +4,44 @@ Feature: Optimization
   Scenario: Match a rule
     Given a file named "main.scm" with:
       """scheme
-      (import (scheme base) (scheme write) (stak base))
+      (import (scheme base) (stak base))
 
       (define-optimizer foo
         (syntax-rules ()
           ((foo)
-            (write 42))))
+            (write-u8 65))))
 
       (foo)
       """
     When I successfully run `stak main.scm`
-    Then the stdout should contain exactly "42"
+    Then the stdout should contain exactly "A"
 
   Scenario: Match a variable pattern
     Given a file named "main.scm" with:
       """scheme
-      (import (scheme base) (scheme write) (stak base))
+      (import (scheme base) (stak base))
 
       (define-optimizer foo
         (syntax-rules ()
           ((foo x)
-            (write x))))
+            (write-u8 x))))
 
-      (foo 42)
+      (foo 65)
       """
     When I successfully run `stak main.scm`
-    Then the stdout should contain exactly "42"
+    Then the stdout should contain exactly "A"
 
   Scenario: Match an ellipsis pattern
     Given a file named "main.scm" with:
       """scheme
-      (import (scheme base) (scheme write) (stak base))
+      (import (scheme base) (stak base))
 
       (define-optimizer foo
         (syntax-rules ()
           ((foo x ...)
-            (write (list x ...)))))
+            (for-each write-u8 (list x ...)))))
 
-      (foo 1 2 3)
+      (foo 65 66 67)
       """
     When I successfully run `stak main.scm`
-    Then the stdout should contain exactly "(1 2 3)"
+    Then the stdout should contain exactly "ABC"

features/smoke.feature

@@ -31,7 +31,7 @@ Feature: Smoke
   Scenario: Compile symbols in an if expression in a procedure
     Given a file named "main.scm" with:
       """scheme
-      (import (scheme base) (scheme write))
+      (import (scheme base))
 
       (define (foo)
         (if #f 'foo 'bar))
@@ -45,7 +45,7 @@ Feature: Smoke
   Scenario: Compile many sequential `if` expressions
     Given a file named "main.scm" with:
       """scheme
-      (import (scheme base) (scheme write))
+      (import (scheme base))
       """
     And a file named "foo.scm" with:
       """scheme

features/syntaxes/cond-expand.feature

@@ -100,12 +100,12 @@ Feature: cond-expand
   Scenario: Examine features
     Given a file named "main.scm" with:
       """scheme
-      (import (scheme base) (scheme write))
+      (import (scheme base))
 
-      (write (features))
+      (write-u8 (if (memq 'r7rs (features)) 65 66))
       """
     When I successfully run `stak main.scm`
-    Then the stdout should contain "r7rs"
+    Then the stdout should contain exactly "A"
 
   Rule: `and`
 

features/types/bytevector.feature

@@ -149,12 +149,12 @@ Feature: Bytevector
     Scenario Outline: Reference an element
       Given a file named "main.scm" with:
         """scheme
-        (import (scheme base) (scheme write))
+        (import (scheme base))
 
-        (write (bytevector-u8-ref (make-bytevector <length> 42) <index>))
+        (write-u8 (bytevector-u8-ref (make-bytevector <length> 65) <index>))
         """
       When I successfully run `stak main.scm`
-      Then the stdout should contain exactly "42"
+      Then the stdout should contain exactly "A"
 
       Examples:
         | length | index |
@@ -183,11 +183,11 @@ Feature: Bytevector
     Scenario Outline: Use a bytevector literal
       Given a file named "main.scm" with:
         """scheme
-        (import (scheme base) (scheme write))
+        (import (scheme base))
 
         (define xs (include "./value.scm"))
 
-        (write (bytevector-u8-ref xs <index>))
+        (write-u8 (if (= (bytevector-u8-ref xs <index>) <index>) 65 66))
         """
       And a file named "write.scm" with:
         """scheme
@@ -205,7 +205,7 @@ Feature: Bytevector
         stak write.scm > value.scm
         """
       When I successfully run `stak main.scm`
-      Then the stdout should contain exactly "<index>"
+      Then the stdout should contain exactly "A"
 
       Examples:
         | length | index |

features/types/vector.feature

@@ -227,12 +227,12 @@ Feature: Vector
     Scenario Outline: Reference an element
       Given a file named "main.scm" with:
         """scheme
-        (import (scheme base) (scheme write))
+        (import (scheme base))
 
-        (write (vector-ref (make-vector <length> 42) <index>))
+        (write-u8 (vector-ref (make-vector <length> 65) <index>))
         """
       When I successfully run `stak main.scm`
-      Then the stdout should contain exactly "42"
+      Then the stdout should contain exactly "A"
 
       Examples:
         | length | index |
@@ -260,14 +260,14 @@ Feature: Vector
     Scenario Outline: Convert values between a list and a vector
       Given a file named "main.scm" with:
         """scheme
-        (import (scheme base) (scheme write) (srfi 1))
+        (import (scheme base) (srfi 1))
 
         (define xs (iota <count>))
 
-        (write (equal? (vector->list (list->vector xs)) xs))
+        (write-u8 (if (equal? (vector->list (list->vector xs)) xs) 65 66))
         """
       When I successfully run `stak main.scm`
-      Then the stdout should contain exactly "#t"
+      Then the stdout should contain exactly "A"
 
       Examples:
         | count |
@@ -298,11 +298,11 @@ Feature: Vector
     Scenario Outline: Use a vector literal
       Given a file named "main.scm" with:
         """scheme
-        (import (scheme base) (scheme write))
+        (import (scheme base))
 
         (define xs (include "./value.scm"))
 
-        (write (vector-ref xs <index>))
+        (write-u8 (if (= (vector-ref xs <index>) <index>) 65 66))
         """
       And a file named "write.scm" with:
         """scheme
@@ -315,7 +315,7 @@ Feature: Vector
         stak write.scm > value.scm
         """
       When I successfully run `stak main.scm`
-      Then the stdout should contain exactly "<index>"
+      Then the stdout should contain exactly "A"
 
       Examples:
         | length | index |