// Minimal FiveSql2 test — just SELECT from a single table
#include "FiveSqlDef.ch"

FUNCTION Main()
   LOCAL aResult, aFN, aRows

   ? "=== FiveSql2 Mini Test ==="

   // Create test table
   ? "Creating table..."
   dbCreate("mini_test", { {"ID","N",4,0}, {"NAME","C",20,0} })
   USE mini_test NEW EXCLUSIVE
   ? "Table opened, adding records..."
   APPEND BLANK
   REPLACE ID WITH 1, NAME WITH "Alice"
   APPEND BLANK
   REPLACE ID WITH 2, NAME WITH "Bob"
   APPEND BLANK
   REPLACE ID WITH 3, NAME WITH "Charlie"
   ? "Records:", RecCount()
   CLOSE ALL

   // Run simple SQL
   ? "Running SQL..."
   aResult := five_SQL("SELECT * FROM mini_test")
   ? "Result type:", ValType(aResult)
   IF ValType(aResult) == "A" .AND. Len(aResult) >= 2
      aFN := aResult[1]
      aRows := aResult[2]
      ? "Fields:", Len(aFN), "Rows:", Len(aRows)
      IF Len(aFN) > 0
         ? "Field names:", aFN[1], aFN[2]
      ENDIF
      IF Len(aRows) > 0
         ? "Row 1:", aRows[1][1], aRows[1][2]
         ? "Row 2:", aRows[2][1], aRows[2][2]
         ? "Row 3:", aRows[3][1], aRows[3][2]
      ENDIF
   ELSE
      ? "ERROR or unexpected result"
   ENDIF

   // Cleanup
   FErase("mini_test.dbf")

   ? "=== DONE ==="
RETURN NIL