# 
# 
# add_file "tests/t_db_kill_rev_locally_2.at"
#  content [365ee768a810279946fbfa11289512bdd774cb51]
# 
# patch "ChangeLog"
#  from [e45eb23b295e12c8d90ebfbb67fbd528acd4a489]
#    to [8b11ecd7d68d0cb630313b372ed8ec4dd5e3a344]
# 
# patch "testsuite.at"
#  from [e18a643c52cfc8b68b078e6d4ea9728780ecaa64]
#    to [80c4c93321cbbc480f7743a17bf199722cf7a739]
# 
============================================================
--- tests/t_db_kill_rev_locally_2.at	365ee768a810279946fbfa11289512bdd774cb51
+++ tests/t_db_kill_rev_locally_2.at	365ee768a810279946fbfa11289512bdd774cb51
@@ -0,0 +1,34 @@
+AT_SETUP([db kill_rev_locally command 2])
+MONOTONE_SETUP
+
+AT_XFAIL_IF(true)
+
+# start off with three revisions
+ADD_FILE(testfile, [blah blah
+])
+COMMIT(testbranch)
+ANCESTOR=`BASE_REVISION`
+
+SET_FILE(testfile, [stuff stuff
+])
+COMMIT(testbranch)
+CHILD1=`BASE_REVISION`
+
+SET_FILE(testfile, [blahdy blah blay
+])
+COMMIT(testbranch)
+CHILD2=`BASE_REVISION`
+
+# kill head revision
+AT_CHECK(MONOTONE automate get_revision $CHILD2, [], [ignore], [ignore])
+AT_CHECK(MONOTONE db kill_rev_locally $CHILD2, [], [ignore], [ignore])
+AT_CHECK(MONOTONE automate get_revision $CHILD2, [1], [ignore], [ignore])
+AT_CHECK(MONOTONE db check, [], ignore, ignore)
+
+# head is an older revision now, let's kill that too
+AT_CHECK(MONOTONE automate get_revision $CHILD1, [], [ignore], [ignore])
+AT_CHECK(MONOTONE db kill_rev_locally $CHILD1, [], [ignore], [ignore])
+AT_CHECK(MONOTONE automate get_revision $CHILD1, [1], [ignore], [ignore])
+AT_CHECK(MONOTONE db check, [], ignore, ignore)
+
+AT_CLEANUP
============================================================
--- ChangeLog	e45eb23b295e12c8d90ebfbb67fbd528acd4a489
+++ ChangeLog	8b11ecd7d68d0cb630313b372ed8ec4dd5e3a344
@@ -1,5 +1,10 @@
 2006-02-18  Matthew Gregan  <address@hidden>
 
+	* tests/t_db_kill_rev_locally_2.at: Add an XFAIL test for a
+	kill_rev_locally bug reported by Daniel Carasone.
+
+	* testsuite.at: Add t_db_kill_rev_locally_2.at.
+
 	* sqlite/parse.h: Regenerated parse.h from pristine SQLite 3.3.4
 	source.  The version committed in the 3.3.4 import had a bunch of
 	duplicate entries.
============================================================
--- testsuite.at	e18a643c52cfc8b68b078e6d4ea9728780ecaa64
+++ testsuite.at	80c4c93321cbbc480f7743a17bf199722cf7a739
@@ -758,3 +758,4 @@
 m4_include(tests/t_rename_destdir.at)
 m4_include(tests/t_ls_changed.at)
 m4_include(tests/t_revert_new_project.at)
+m4_include(tests/t_db_kill_rev_locally_2.at)