From 9e0a846ff4fdaac45665e5a1e085aa37e3fa135b Mon Sep 17 00:00:00 2001
From: "W. Trevor King" <wking@drexel.edu>
Date: Sun, 23 Nov 2008 06:51:30 -0500
Subject: [PATCH] Added archive/project init code for `./test_usage.sh arch`.

Also some minor cleanups.
---
 becommands/set_root.py |  1 +
 libbe/arch.py          |  7 -------
 libbe/comment.py       |  2 +-
 libbe/utility.py       |  1 -
 test_usage.sh          | 24 +++++++++++++++++++++++-
 5 files changed, 25 insertions(+), 10 deletions(-)

diff --git a/becommands/set_root.py b/becommands/set_root.py
index d8fcdf3..a2d2d95 100644
--- a/becommands/set_root.py
+++ b/becommands/set_root.py
@@ -43,6 +43,7 @@ def execute(args):
     >>> execute([])
     Using Arch for revision control.
     Directory initialized.
+    >>> rcs.cleanup()
 
     >>> try:
     ...     execute(['.'])
diff --git a/libbe/arch.py b/libbe/arch.py
index ba341e6..fd953a4 100644
--- a/libbe/arch.py
+++ b/libbe/arch.py
@@ -69,7 +69,6 @@ class Arch(RCS):
         self._tmp_archive = True
         self._u_invoke_client("make-archive", self._archive_name,
                               self._archive_dir, directory=path)
-        self._u_invoke_client("archives")
     def _invoke_client(self, *args, **kwargs):
         """
         Invoke the client on our archive.
@@ -191,7 +190,6 @@ class Arch(RCS):
         self._project_name = project_name
     def _rcs_get_user_id(self):
         try:
-            self._u_invoke_client("archives")
             status,output,error = self._u_invoke_client('my-id')
             return output.rstrip('\n')
         except Exception, e:
@@ -202,13 +200,11 @@ class Arch(RCS):
     def _rcs_set_user_id(self, value):
         self._u_invoke_client('my-id', value)
     def _rcs_add(self, path):
-        self._u_invoke_client("archives")
         self._u_invoke_client("add-id", path)
         realpath = os.path.realpath(self._u_abspath(path))
         pathAdded = realpath in self._list_added(self.rootdir)
         if self.paranoid and not pathAdded:
             self._force_source(path)
-        self._u_invoke_client("archives")
     def _list_added(self, root):
         assert os.path.exists(root)
         assert os.access(root, os.X_OK)
@@ -252,9 +248,6 @@ class Arch(RCS):
     def _rcs_commit(self, commitfile):
         summary,body = self._u_parse_commitfile(commitfile)
         #status,output,error = self._invoke_client("make-log")
-        self._u_invoke_client("tree-root")
-        self._u_invoke_client("tree-version")
-        self._u_invoke_client("archives")
         if body == None:
             status,output,error \
                 = self._u_invoke_client("commit","--summary",summary)
diff --git a/libbe/comment.py b/libbe/comment.py
index 95dade6..0bfc12d 100644
--- a/libbe/comment.py
+++ b/libbe/comment.py
@@ -218,7 +218,7 @@ class Comment(Tree):
 
     def add_reply(self, reply):
         if reply.time != None and self.time != None:
-            assert reply.time > self.time
+            assert reply.time >= self.time
         if self.uuid != INVALID_UUID:
             reply.in_reply_to = self.uuid
         self.append(reply)
diff --git a/libbe/utility.py b/libbe/utility.py
index f156ce9..3f69a95 100644
--- a/libbe/utility.py
+++ b/libbe/utility.py
@@ -105,7 +105,6 @@ class Dir (object):
     def __del__(self):
         self.cleanup()
     def cleanup(self):
-        print "Removing", self.path
         self.shutil.rmtree(self.path)
     def __call__(self):
         return self.path
diff --git a/test_usage.sh b/test_usage.sh
index bba21ee..11be0d5 100755
--- a/test_usage.sh
+++ b/test_usage.sh
@@ -60,7 +60,22 @@ then
 elif [ "$RCS" == "arch" ]
 then
     ID=`tla my-id`
-    tla init-tree
+    ARCH_PARAM_DIR="$HOME/.arch-params"
+    ARCH_ARCHIVE_ROOT=`mktemp -d /tmp/BEtest.XXXXXXXXXX`
+    UNIQUE=`echo "$ARCH_ARCHIVE_ROOT" | sed 's/\/tmp\/BEtest.//;s/[0-9]//g'` 
+    ARCH_ARCHIVE="j@x.com--BE-test-usage-$UNIQUE"
+    ARCH_PROJECT="BE-test-usage--twig--99.5"
+    ARCH_ARCHIVE_DIR="$ARCH_ARCHIVE_ROOT/$ARCH_PROJECT"
+    echo "tla make-archive $ARCH_ARCHIVE $ARCH_ARCHIVE_DIR"
+    tla make-archive $ARCH_ARCHIVE $ARCH_ARCHIVE_DIR
+    echo "tla archive-setup -A $ARCH_ARCHIVE $ARCH_PROJECT"
+    tla archive-setup -A $ARCH_ARCHIVE $ARCH_PROJECT
+    echo "tla init-tree -A $ARCH_ARCHIVE $ARCH_PROJECT"
+    tla init-tree -A $ARCH_ARCHIVE $ARCH_PROJECT
+    echo "Adjusing the naming conventions to allow .files"
+    sed -i 's/^source .*/source ^[._=a-zA-X0-9].*$/' '{arch}/=tagging-method'
+    echo "tla import -A $ARCH_ARCHIVE --summary 'Began versioning'"
+    tla import -A $ARCH_ARCHIVE --summary 'Began versioning'
 elif [ "$RCS" == "none" ]
 then
     ID=`id -nu`
@@ -100,4 +115,11 @@ be remove $BUG # decide that you don't like that bug after all
 cd /
 rm -rf $TESTDIR
 
+if [ "$RCS" == "arch" ]
+then
+    # Cleanup everything outside of TESTDIR
+    rm -rf "$ARCH_ARCHIVE_ROOT"
+    rm -rf "$ARCH_PARAM_DIR/=locations/$ARCH_ARCHIVE"
+fi
+
 exec 2>&6 6>&- # restore stderr and close fd 6
-- 
2.26.2