1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
#! /usr/bin/env bqn
# Tests for components of BQN: compiler, runtime, primitive spec
files‿opts ← 2 ↑ ('-'=⊑)¨⊸⊔ •args
files ↩ (0<≠)◶⟨1,∨´"all"⊸≡¨⟩◶⟨∾⟜".bqn"¨, •file.List∘"cases"⟩ files
nc‿rt‿ref‿noerr ← "-nocomp"‿"-rt"‿"-ref"‿"-noerr" ∊ opts
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 ? # Compiled
compile ← gl •Import "../src/c.bqn"
vm ← •Import "../vm.bqn"
BQN ← ⟨prim,{𝕊"bqn":BQN}¨⟩⊸(VM Compile)
; prim≢@ ?
•ReBQN {primitives⇐(∾gl)⋈¨prim}
; Native
}
c ← ∾ ((0<≠)◶0‿('#'≠⊑)¨⊸/ · •file.Lines "cases/"⊸∾)¨ files
c ↩ ('!'≠⊑)¨⊸/⍟noerr c
•Out 1↓∾' '⊸∾¨∾⟨
⟨"Running",•Repr≠c,"tests:"⟩
noerr/⟨"(error cases excluded)"⟩
¯4↓¨files
⟩
Trim ← ((∨`∧∨`⌾⌽)' '⊸≠)⊸/
M ← {e‿b←𝕩
Msg ← {∾⟨
"""",b,""": expected "
"to fail"⍟("!"⊸≡)e
" but "
0⊸≡◶⟨"received "∾·•Repr⎊"{…}"⊑,"evaluation failed"⟩𝕩
⟩}
("!"⊸≡◶⟨<Native,0˙⟩ e) ≢◶⟨0,1∘•Out∘Msg⟩ <∘Exec⎊0 b
}
r ← (M '%'⊸= (∨´⊣)◶⟨"1"⋈⊢, Trim¨(+`-2⊸×)⊸⊔⟩ ⊢)¨ c
•Out 0⊸<◶⟨"All passed!",•Repr∾" failed!"˙⟩ +´r
|
