diff --git a/test/honey/sql/xtdb_test.cljc b/test/honey/sql/xtdb_test.cljc
index f4e8ee2..6fc908c 100644
--- a/test/honey/sql/xtdb_test.cljc
+++ b/test/honey/sql/xtdb_test.cljc
@@ -44,8 +44,10 @@
                          from ((bar a))})))))
 
 (deftest dotted-array-access-tests
-  (is (= ["SELECT (a.b).c"]
-         (sql/format '{select (((. (nest :a.b) :c)))}))))
+  (is (= ["SELECT (a.b).c"] ; old, partial support:
+         (sql/format '{select (((. (nest :a.b) :c)))})))
+  (is (= ["SELECT (a.b).c"] ; new, complete support:
+         (sql/format '{select (((:get-in :a.b :c)))}))))
 
 (deftest erase-from-test
   (is (= ["ERASE FROM foo WHERE foo.id = ?" 42]