nx_audio_sfx_web_test.nx source
↩ module page · 66 lines · 2965 B
1// nx_audio_sfx_web_test.nx -- KAT gate: the web SFX module exposes all 4 play
2// functions with embedded base64 WAVs; saves /tmp/sfx_demo.html. expect_exit: 0.
3
4import "nx_syscalls.nx"
5import "nx_audio_mix.nx"
6import "nx_audio_synth.nx"
7import "nx_audio_fx.nx"
8import "nx_audio_sfx.nx"
9import "nx_audio_wav.nx"
10import "nx_base64.nx"
11import "nx_audio_sfx_web.nx"
12
13func w(s: *u8) -> i64 { var n: i64 = 0; while s[n] != (0 as u8) { n = n + 1 } sys_write(1, s, n); return 0 }
14func wn(v: i64) -> i64 {
15 let b: *u8 = sys_mmap(28); var m: i64 = v
16 if m < 0 { m = 0 - m; sys_write(1, "-" as *u8, 1) }
17 let t: *u8 = sys_mmap(28); var k: i64 = 0
18 if m == 0 { t[0] = 48 as u8; k = 1 }
19 while m > 0 { t[k] = (48 + (m % 10)) as u8; m = m / 10; k = k + 1 }
20 var i: i64 = 0; while i < k { b[i] = t[k - 1 - i]; i = i + 1 }
21 sys_write(1, b, k); return 0
22}
23func contains(hay: *u8, hn: i64, ndl: *u8) -> i64 {
24 var m: i64 = 0; while ndl[m] != (0 as u8) { m = m + 1 }
25 if m == 0 { return 1 }
26 var i: i64 = 0
27 while i + m <= hn {
28 var j: i64 = 0; var ok: i64 = 1
29 while j < m { if hay[i + j] != ndl[j] { ok = 0; j = m } else { j = j + 1 } }
30 if ok == 1 { return 1 }
31 i = i + 1
32 }
33 return 0
34}
35func chk(cond: i64, pass: *i64, fail: *i64, label: *u8) -> i64 {
36 if cond == 1 { pass[0] = pass[0] + 1; w(" ok " as *u8); w(label); w("\n" as *u8) }
37 else { fail[0] = fail[0] + 1; w(" XX " as *u8); w(label); w("\n" as *u8) }
38 return 0
39}
40
41func main() -> i64 {
42 let pass: *i64 = (sys_mmap(8)) as *i64
43 let fail: *i64 = (sys_mmap(8)) as *i64
44 pass[0] = 0
45 fail[0] = 0
46 w("=== nx_audio_sfx_web KAT (sovereign web-audio SFX module) ===\n" as *u8)
47
48 let out: *u8 = sys_mmap(262144)
49 let len: i64 = nx_sfx_js_module(out, 262144)
50 w(" module bytes=" as *u8); wn(len); w("\n" as *u8)
51 chk(len > 40000, pass, fail, "module non-trivial (4 base64 WAVs embedded)" as *u8)
52 chk(contains(out, len, "window.playCoin=function" as *u8) == 1, pass, fail, "playCoin defined" as *u8)
53 chk(contains(out, len, "window.playLaser=function" as *u8) == 1, pass, fail, "playLaser defined" as *u8)
54 chk(contains(out, len, "window.playExplosion=function" as *u8) == 1, pass, fail, "playExplosion defined" as *u8)
55 chk(contains(out, len, "window.playBeep=function" as *u8) == 1, pass, fail, "playBeep defined" as *u8)
56 chk(contains(out, len, "data:audio/wav;base64," as *u8) == 1, pass, fail, "embedded WAV data URI" as *u8)
57 chk(contains(out, len, "new Audio(" as *u8) == 1, pass, fail, "uses Audio playback" as *u8)
58
59 let wr: i64 = nx_sfx_demo_save("/tmp/sfx_demo.html" as *u8)
60 w(" wrote /tmp/sfx_demo.html bytes=" as *u8); wn(wr); w("\n" as *u8)
61 chk(wr > 40000, pass, fail, "/tmp/sfx_demo.html saved (clickable SFX buttons)" as *u8)
62
63 w("=== VERDICT pass=" as *u8); wn(pass[0]); w(" fail=" as *u8); wn(fail[0]); w(" ===\n" as *u8)
64 if fail[0] == 0 { return 0 }
65 return 1
66}