#
#
# add_dir "tests/list_databases"
# 
# add_file "tests/list_databases/__driver__.lua"
#  content [c63bada5754b3e950bdfb29afdd2cb057c5290b2]
# 
# add_file "tests/list_databases/rcfile.lua"
#  content [ec1bd52ac45f5bc78348205e420c9d6edfdca703]
#
============================================================
--- tests/list_databases/__driver__.lua	c63bada5754b3e950bdfb29afdd2cb057c5290b2
+++ tests/list_databases/__driver__.lua	c63bada5754b3e950bdfb29afdd2cb057c5290b2
@@ -0,0 +1,36 @@
+check(getstd("test_keys"))
+check(getstd("test_hooks.lua"))
+check(mtn("read", "test_keys"), 0, false, false)
+remove("test_keys")
+
+check(get("rcfile.lua"))
+mkdir("managed_databases")
+
+function mt(...)
+    return mtn("--rcfile", "rcfile.lua", ...)
+end
+
+check(mt("ls", "dbs"), 0, true, false)
+check(samelines("stdout", {}))
+
+writefile("managed_databases/foo")
+check(mt("ls", "dbs"), 0, true, false)
+check(samelines("stdout", {}))
+
+writefile("managed_databases/foo.mtn")
+check(mt("ls", "dbs"), 0, true, false)
+check(samelines("stdout", {}))
+
+check(mt("db", "init", "-d", ":bar"), 0, false, false)
+check(exists("managed_databases/bar.mtn"))
+
+check(mt("ls", "dbs"), 0, true, false)
+check(qgrep(":bar.mtn.+in.+list_databases\/managed_databases", "stdout"))
+check(qgrep("\tno known valid workspaces", "stdout"))
+
+check(mt("setup", "-d", ":bar", "-b", "test.foo.branch", "test_foo"), 0, false, false)
+
+check(mt("ls", "dbs"), 0, true, false)
+check(not qgrep("\tno known valid workspaces", "stdout"))
+check(qgrep("\ttest.foo.branch.+in.+list_databases\/test_foo", "stdout"))
+
============================================================
--- tests/list_databases/rcfile.lua	ec1bd52ac45f5bc78348205e420c9d6edfdca703
+++ tests/list_databases/rcfile.lua	ec1bd52ac45f5bc78348205e420c9d6edfdca703
@@ -0,0 +1,3 @@
+function get_default_database_locations()
+    return { "managed_databases" } 
+end