diff --git a/src/test/create_testsuite b/src/test/create_testsuite
index 09756283dedf429ee3c4aed92795b9c7b0c4673e..6bfa0a1be46c922e4a44483435c2ec990e5b3a7d 100755
--- a/src/test/create_testsuite
+++ b/src/test/create_testsuite
@@ -1104,6 +1104,8 @@ test_eq(file_stat("conftest"),0)
 // - rm
 // - mkdir
 // - get_dir
+test_true(arrayp(get_dir(".")))
+
 // - cd
 // - getcwd
 test_true(stringp(getcwd()))