view tests/test-copy @ 1340:faa62c7685fb

hgk is a wish script

--- mercurial-0.7.orig/contrib/hgk	2005-09-23 11:02:21.000000000 +0200
+++ mercurial-0.7/contrib/hgk	2005-09-23 11:07:57.000000000 +0200
@@ -1,6 +1,4 @@
-#!/bin/sh
-# Tcl ignores the next line -*- tcl -*- \
-exec wish "$0" -- "${1+$@}"
+#!/usr/bin/wish

 # Copyright (C) 2005 Paul Mackerras.  All rights reserved.
 # This program is free software; it may be used, copied, modified

#!/bin/sh

hg init
echo a > a
hg add a
hg commit -m "1" -d "0 0"
hg status
hg copy a b
hg status
hg --debug commit -m "2" -d "0 0"
echo "we should see two history entries"
hg history -v
echo "we should see one log entry for a"
hg log a
echo "this should show a revision linked to changeset 0"
hg debugindex .hg/data/a.i
echo "we should see one log entry for b"
hg log b
echo "this should show a revision linked to changeset 1"
hg debugindex .hg/data/b.i

echo "this should show the rename information in the metadata"
hg debugdata .hg/data/b.d 0 | head -n 3 | tail -n 2

md5sum .hg/data/b.d
hg cat b > bsum
md5sum bsum
hg cat a > asum
md5sum asum
hg verify