From e4018dfe8cfa553adbd20898c5b42c3462ca1733 Mon Sep 17 00:00:00 2001
From: "W. Trevor King" <wking@drexel.edu>
Date: Sun, 16 Nov 2008 15:59:41 -0500
Subject: [PATCH] Added 'hg', 'arch', and 'none' RCS modes to test_usage.sh.

---
 test_usage.sh | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

diff --git a/test_usage.sh b/test_usage.sh
index c751d28..26acce1 100755
--- a/test_usage.sh
+++ b/test_usage.sh
@@ -6,8 +6,7 @@
 #
 # usage: test_usage.sh RCS
 # where RCS is one of:
-#   bzr
-#   git
+#   bzr, git, hg, arch, none
 
 set -e # exit imediately on failed command
 set -o pipefail # pipes fail if any stage fails
@@ -21,7 +20,7 @@ then
     echo "usage: test_usage.sh RCS"
     echo ""
     echo "where RCS is one of"
-    for RCS in bzr git
+    for RCS in bzr git hg arch none
     do
 	echo "  $RCS"
     done
@@ -43,10 +42,25 @@ then
     EMAIL=`git-config user.email`
     ID="$NAME <$EMAIL>"
     git init
+elif [ "$RCS" == "hg" ]
+then
+    ID=`hg showconfig ui.username`
+    hg init
+elif [ "$RCS" == "arch" ]
+then
+    ID=`tla my-id`
+    tla init-tree
+elif [ "$RCS" == "none" ]
+then
+    ID=`id -nu`
 else
     echo "Unrecognized RCS $RCS"
     exit 1
 fi
+if [ -z "$ID" ]
+then # set a default ID
+    ID="John Doe <jdoe@example.com>"
+fi
 echo "I am '$ID'"
 
 be set-root .
-- 
2.26.2