1 files changed, 21 insertions, 0 deletions
diff --git a/tests/017/glob-carray.tl b/tests/017/glob-carray.tl
new file mode 100644
index 00000000..3c68ac1a
--- /dev/null
+++ b/tests/017/glob-carray.tl
@@ -0,0 +1,21 @@
+(load "../common")
+
+(defstruct glob-t nil
+  pathc pathv reserve)
+
+(deffi-type glob-t (struct glob-t
+                     (pathc size-t)
+                     (pathv (carray str-d))
+                     (reserve size-t)))
+
+(with-dyn-lib nil
+  (deffi globb "glob" int (str int closure (ptr-out glob-t)))
+  (deffi globfree "globfree" void ((ptr-in glob-t)))
+  (deffi-cb glob-cb int (str int) -1))
+
+(let* ((g (new glob-t)))
+  (prinl (globb "tests/001/*.txr" 0 (glob-cb (lambda (path err))) g))
+  (carray-set-length g.pathv g.pathc)
+  (prinl g)
+  (prinl (vec-carray g.pathv))
+  (globfree g))