#include "FiveSqlDef.ch"

FUNCTION Main()
   LOCAL aResult, oErr

   dbCreate("fp_test", { {"ID","N",4,0}, {"NAME","C",20,0} })
   USE "fp_test" NEW EXCLUSIVE
   APPEND BLANK
   REPLACE ID WITH 1, NAME WITH "Alice"
   APPEND BLANK
   REPLACE ID WITH 2, NAME WITH "Bob"
   CLOSE ALL

   ? "=== full path test ==="
   BEGIN SEQUENCE
      aResult := five_SQL("SELECT id, name FROM fp_test")
      IF ValType(aResult) == "A" .AND. Len(aResult) >= 2
         IF ValType(aResult[1]) == "A" .AND. Len(aResult[1]) > 0
            IF aResult[1][1] == "__error__"
               ? "SQL Error:", aResult[2][1][2]
            ELSE
               ? "Fields:", Len(aResult[1]), "Rows:", Len(aResult[2])
               LOCAL i
               FOR i := 1 TO Len(aResult[1])
                  ?? aResult[1][i] + " "
               NEXT
               ?
               LOCAL j
               FOR j := 1 TO Len(aResult[2])
                  ? "  Row", j, ":"
                  LOCAL k
                  FOR k := 1 TO Len(aResult[2][j])
                     ?? " " + hb_ntos(aResult[2][j][k])
                  NEXT
               NEXT
            ENDIF
         ENDIF
      ENDIF
   RECOVER USING oErr
      ? "Exception:", oErr
   END SEQUENCE

   FErase("fp_test.dbf")
   ? "=== DONE ==="
RETURN NIL