Output DuckDB source_id (commit hash) before running tests

ak-coram · Jan 10, 2025 · 58d0747 · 58d0747
1 parent 3469411
commit 58d0747
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/duckdb.asd b/duckdb.asd
@@ -32,7 +32,13 @@
   :depends-on (#:duckdb
                #:fiveam)
   :components ((:file "duckdb-test"))
-  :perform (test-op (o c) (symbol-call :fiveam '#:run! :duckdb)))
+  :perform
+  (test-op (o c)
+    (duckdb:with-transient-connection
+      (format t "~%DuckDB source_id: ~A~%"
+              (duckdb:get-result (duckdb:q "PRAGMA version")
+                                 'source-id 0)))
+    (symbol-call :fiveam '#:run! :duckdb)))
 
 (asdf:defsystem #:duckdb/benchmark
   :depends-on (#:duckdb