// api/test-mod.prg — Minimal TFNModule test
#require "TFNMODULE"

FUNCTION Main()
   LOCAL oOs, cName

   OutStd("Step 1: about to call TFNModule" + Chr(10))
   oOs := TFNModule():New("os")
   OutStd("Step 2: TFNModule returned " + iif(oOs == NIL, "NIL", "object") + Chr(10))
   IF oOs == NIL
      AP_JSONRESPONSE({ "ok" => .f., "error" => "TFNModule returned nil" })
      RETURN NIL
   ENDIF

   cName := oOs:Call("hostname")
   AP_JSONRESPONSE({ "ok" => .t., "module" => "os", "hostname" => cName })

RETURN NIL