Allow test/unit.bqn to test runtime but not compiler with •ReBQN

1 files changed, 12 insertions, 10 deletions

diff --git a/test/unit.bqn b/test/unit.bqn
index 52a61556..bf187a37 100755
--- a/test/unit.bqn
+++ b/test/unit.bqn
@@ -5,21 +5,23 @@
 files‿opts ← 2 ↑ ('-'=⊑)¨⊸⊔ •args
 files ↩ (0<≠)◶⟨1,∨´"all"⊸≡¨⟩◶⟨∾⟜".bqn"¨, •file.List∘"cases"⟩ files
 nc‿rt‿ref‿noerr ← "-nocomp"‿"-rt"‿"-ref"‿"-noerr" ∊ opts
-"Can't test runtime without the compiler!" ! ¬nc∧rt∨ref
 
 Native ← •BQN
+gl ← •Import "../src/glyphs.bqn"
+prim ← {
+  ref ? •Import "ref.bqn"   ;  # Reference implementations
+  rt  ? •Import "../rt.bqn" ;  # Self-hosted
+  ¬nc ? •BQN∘⥊¨ ∾gl         ;  # Native runtime
+  @                            # Just use •BQN
+}
 exec ← {
-  nc ? Native ;
-  # Otherwise compiled
-  gl ← •Import "../src/glyphs.bqn"
+  ¬nc ? # Compiled
   compile ← gl •Import "../src/c.bqn"
   vm ← •Import "../vm.bqn"
-  r ← {
-    ref ? •Import "ref.bqn"   ;  # Reference implementations
-    rt  ? •Import "../rt.bqn" ;  # Self-hosted
-    •BQN∘⥊¨ ∾gl                  # Native runtime
-  }
-  BQN ← ⟨r,{𝕊"bqn":BQN}¨⟩⊸(VM Compile)
+  BQN ← ⟨prim,{𝕊"bqn":BQN}¨⟩⊸(VM Compile)
+; prim≢@ ?
+  •ReBQN {primitives⇐(∾gl)⋈¨prim}
+; Native
 }
 
 c ← ∾ ((0<≠)◶0‿('#'≠⊑)¨⊸/ · •file.Lines "cases/"⊸∾)¨ files