un-inception/test/qr.ml
russell@unturf.com 99ac93b2d5 fix(qr): update 4 failing language tests
- Perl: use Text::QRCode (pure Perl, pre-installed) instead of Imager::QRCode
- Elixir: try Erlang :qrcode module, fallback to CLI
- OCaml: use Unix.open_process_in (no ctypes in compiled mode)
- Fortran: direct C FFI binding (requires -lqrencode at link)
2026-01-28 07:04:21 -05:00

7 lines
340 B
OCaml

(* OCaml single-file execution can't use ocamlfind packages *)
(* Use Unix.open_process_in with qrencode CLI *)
let () =
let ic = Unix.open_process_in "qrencode -t ASCII -m 0 'unsandbox-qr-ok' | wc -l" in
let rows = String.trim (input_line ic) in
ignore (Unix.close_process_in ic);
Printf.printf "QR:unsandbox-qr-ok:ROWS:%s\n" rows