code wiki / _hdl_build / nx_abtest_probe.nx
nx_abtest_probe.nx source
↩ module page · 34 lines · 1774 B
1// nx_abtest_probe.nx -- isolation probe: call ab_assign/ab_hash directly for many hardcoded visitors
2// (no HTTP, no shell variables) to confirm the live A/B path produces BOTH arms. license_tier: ORIGINAL
3import "nx_cms_abtest.nx"
4import "nx_syscalls.nx"
5
6func pw(s: *u8) -> i64 { var n: i64=0; while s[n]!=(0 as u8){n=n+1} sys_write(1,s,n); return 0 }
7func pn(v: i64) -> i64 { let bb: *u8=sys_mmap(28); var m: i64=v; if m<0{m=0-m}; let t: *u8=sys_mmap(28); var k: i64=0; if m==0{t[0]=48;k=1}; while m>0{t[k]=48+(m%10);m=m/10;k=k+1}; var i: i64=0; while i<k{bb[i]=t[k-1-i];i=i+1}; sys_write(1,bb,k); return 0 }
8
9func probe(name: *u8) -> i64 {
10 let h: i64 = ab_hash("homepage-cta" as *u8, name)
11 let v: i64 = ab_assign("homepage-cta" as *u8, name, 2)
12 pw(name); pw(" -> arm " as *u8); pn(v); pw(" (hash mod 1000 = " as *u8); pn(h % 1000); pw(")\n" as *u8)
13 return v
14}
15
16func main() -> i64 {
17 var a: i64 = 0
18 var b: i64 = 0
19 var v: i64 = 0
20 v = probe("alice" as *u8); if v==0 {a=a+1} else {b=b+1}
21 v = probe("bob" as *u8); if v==0 {a=a+1} else {b=b+1}
22 v = probe("zzzzz" as *u8); if v==0 {a=a+1} else {b=b+1}
23 v = probe("q7" as *u8); if v==0 {a=a+1} else {b=b+1}
24 v = probe("customer-500" as *u8); if v==0 {a=a+1} else {b=b+1}
25 v = probe("user1" as *u8); if v==0 {a=a+1} else {b=b+1}
26 v = probe("user2" as *u8); if v==0 {a=a+1} else {b=b+1}
27 v = probe("foobar" as *u8); if v==0 {a=a+1} else {b=b+1}
28 v = probe("lead-9" as *u8); if v==0 {a=a+1} else {b=b+1}
29 v = probe("nina" as *u8); if v==0 {a=a+1} else {b=b+1}
30 v = probe("oscar" as *u8); if v==0 {a=a+1} else {b=b+1}
31 v = probe("trudy" as *u8); if v==0 {a=a+1} else {b=b+1}
32 pw("TOTAL A=" as *u8); pn(a); pw(" B=" as *u8); pn(b); pw("\n" as *u8)
33 return 0
34}