From 9ba3ccd51d94e2db6920351eccb9050d1a2c41e1 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Fri, 10 Jul 2026 05:19:06 -0400 Subject: 6502: Lua bindings for testing --- 6502/test/test.fnl | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 6502/test/test.fnl (limited to '6502/test/test.fnl') diff --git a/6502/test/test.fnl b/6502/test/test.fnl new file mode 100644 index 0000000..11c4f9a --- /dev/null +++ b/6502/test/test.fnl @@ -0,0 +1,20 @@ +(local json (require :json)) +(local inspect (require :inspect)) +(local l6502 (require :l6502-lua)) + +(fn slurp [path] + (let [f (io.open path)] + (f:read "*all"))) + +(local emu (l6502.new)) +(print (emu:set-pc 42)) +(print (emu:set-reg l6502.reg.SP 10)) +(print (emu:set-reg l6502.reg.A 255)) +(emu:emulate) +(print (inspect (emu:summary))) + +;; (local testcases (json.decode (slurp "testcases/6502/v1/00.json"))) +;; (each [_ test (ipairs testcases)] +;; (l6502.run test.name)) + +;; (print (inspect )) -- cgit v1.3.1