[Monotone-commits-diffs] net.venge.monotone: 5feb494081c224bd4e918a4a31c16060538b8311

[code]

revision:            5feb494081c224bd4e918a4a31c16060538b8311
date:                2011-02-13T10:11:30
author:              Richard Levitte <address@hidden>
branch:              net.venge.monotone
changelog:
* contrib/mtn-cleanup: Moved...
* extra/bin/mtn-cleanup: ... here.
* test/extra/mtn-cleanup/__driver__.lua: New driver to test mtn-cleanup.
* test/extra/mtn-cleanup/run-mtn-cleanup: Helper scripts to test mtn-cleanup.
* Makefile.am (dist_bin_SCRIPTS): Add it as a script to be distributed
  and installed as is.

manifest:
format_version "1"

new_manifest [d8d3d10c5b01a6911abcf561e135ae4c4527b3a9]

old_revision [c3b8c3eff2f9bee9ad26c5e09b85060c0dcafadc]

rename "contrib/mtn-cleanup"
    to "extra/bin/mtn-cleanup"

add_dir "extra/bin"

add_dir "test/extra/mtn-cleanup"

add_file "test/extra/mtn-cleanup/__driver__.lua"
 content [71bb16f84c2b0baf423ac5f04185b11c848642de]

add_file "test/extra/mtn-cleanup/run-mtn-cleanup"
 content [7cbf07edf271a2491e51fefb8df88c5bdbf0ee2d]

patch "Makefile.am"
 from [38718ada1bceb610caa0d92311a0c59de6189a1e]
   to [93da0951125022729fac43c86ee0db2f2502b835]

  set "test/extra/mtn-cleanup/run-mtn-cleanup"
 attr "mtn:execute"
value "true"
============================================================
--- Makefile.am	38718ada1bceb610caa0d92311a0c59de6189a1e
+++ Makefile.am	93da0951125022729fac43c86ee0db2f2502b835
@@ -222,6 +222,7 @@ bin_SCRIPTS = mtnopt
 EXTRA_PROGRAMS =
 
 bin_SCRIPTS = mtnopt
+dist_bin_SCRIPTS = extra/bin/mtn-cleanup
 noinst_SCRIPTS = extra/building/dump-test-logs.sh
 
 mtn_SOURCES = $(MOST_SOURCES) src/monotone.cc
============================================================
--- /dev/null	
+++ test/extra/mtn-cleanup/__driver__.lua	71bb16f84c2b0baf423ac5f04185b11c848642de
@@ -0,0 +1,22 @@
+mtn_setup()
+
+-- We do everything inside an inner workspace.  mtn-cleanup IS a dangerous
+-- command, and will happily wipe away any database that's in the workspace
+check(mtn("setup", "--branch=testbranch", "workspace"), 0, false, false)
+writefile("workspace/test1", "foo")
+check(indir("workspace", mtn("add", "test1")), 0, false, false)
+check(indir("workspace", mtn("commit",
+			     "--message", "blah-blah",
+			     "--branch", "test1")),
+      0, false, false)
+writefile("workspace/test1", "foobar")
+writefile("workspace/test2", "bar")
+check(indir("workspace", mtn("add", "test2")), 0, false, false)
+writefile("workspace/test3", "baz")
+
+check(indir("workspace",
+	    {srcdir.."/extra/mtn-cleanup/run-mtn-cleanup",srcdir,test.root}),
+      0, true, false)
+check(exists("workspace/test1"))
+xfail(exists("workspace/test2"))
+xfail(exists("workspace/test3"))
============================================================
--- /dev/null	
+++ test/extra/mtn-cleanup/run-mtn-cleanup	7cbf07edf271a2491e51fefb8df88c5bdbf0ee2d
@@ -0,0 +1,7 @@
+#! /bin/sh
+
+# $1	{srcdir}/test
+# $2	{builddir}/test/work/extra/mtn-cleanup
+
+set -x
+yes | PATH=${2}/../../../..:${PATH} ${1}/../extra/bin/mtn-cleanup