# 
# add_file "tests/t_unreadable_db.at"
# 
# patch "ChangeLog"
#  from [7913d73170b3bcea90f6b72c9217bf6fb204099b]
#    to [f417b9fea8a25a4bb03472b8d2ee1e77e7649499]
# 
# patch "tests/t_unreadable_db.at"
#  from []
#    to [8242b61bfd94404b7fe69680588956036607cae9]
# 
# patch "testsuite.at"
#  from [95731f659f09aadbf937e69e381bfc1c4abe8555]
#    to [f37b217c9d261739b96a0f8ccdc61269f1c0ee67]
# 
========================================================================
--- ChangeLog	7913d73170b3bcea90f6b72c9217bf6fb204099b
+++ ChangeLog	f417b9fea8a25a4bb03472b8d2ee1e77e7649499
@@ -1,3 +1,7 @@
+2005-09-04  Nathaniel Smith  <address@hidden>
+
+	* tests/t_unreadable_db.at, testsuite.at: New test.
+
 2005-09-03  Nathaniel Smith  <address@hidden>
 
 	* po/Makevars (XGETTEXT_OPTIONS): N_ != ngettext.
========================================================================
--- tests/t_unreadable_db.at	
+++ tests/t_unreadable_db.at	8242b61bfd94404b7fe69680588956036607cae9
@@ -0,0 +1,32 @@
+AT_SETUP([fail cleanly on unreadable db])
+MONOTONE_SETUP
+
+ADD_FILE(testfile, [blah blah
+])
+
+# unreadable file
+AT_CHECK(chmod a-rwx test.db)
+AT_CHECK(MONOTONE, [], [ignore], [ignore])
+AT_CHECK(MONOTONE ls branches, [1], [ignore], [ignore])
+AT_CHECK(MONOTONE db info, [1], [ignore], [ignore])
+AT_CHECK(MONOTONE db version, [1], [ignore], [ignore])
+AT_CHECK(MONOTONE db migrate, [1], [ignore], [ignore])
+AT_CHECK(MONOTONE commit -mfoo, [1], [ignore], [ignore])
+AT_CHECK(echo | MONOTONE db load, [1], [ignore], [ignore])
+AT_CHECK(chmod a+rwx test.db)
+
+AT_CHECK(mkdir subdir)
+AT_CHECK(MONOTONE --db subdir/foo.db db init, [], [ignore], [ignore])
+
+# unreadable directory
+AT_CHECK(chmod a-rwx subdir)
+AT_CHECK(MONOTONE --db subdir/foo.db, [], [ignore], [ignore])
+AT_CHECK(MONOTONE --db subdir/foo.db ls branches, [1], [ignore], [ignore])
+AT_CHECK(MONOTONE --db subdir/foo.db db info, [1], [ignore], [ignore])
+AT_CHECK(MONOTONE --db subdir/foo.db db version, [1], [ignore], [ignore])
+AT_CHECK(MONOTONE --db subdir/foo.db db migrate, [1], [ignore], [ignore])
+AT_CHECK(echo | MONOTONE --db subdir/foo.db db load, [1], [ignore], [ignore])
+AT_CHECK(MONOTONE --db subdir/bar.db db init, [1], [ignore], [ignore])
+AT_CHECK(chmod a+rwx subdir)
+
+AT_CLEANUP
========================================================================
--- testsuite.at	95731f659f09aadbf937e69e381bfc1c4abe8555
+++ testsuite.at	f37b217c9d261739b96a0f8ccdc61269f1c0ee67
@@ -703,3 +703,4 @@
 m4_include(tests/t_automate_get_file.at)
 m4_include(tests/t_automate_get_manifest.at)
 m4_include(tests/t_automate_get_revision.at)
+m4_include(tests/t_unreadable_db.at)