Mercurial > hg
annotate tests/test-clone-failure @ 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
author | Vincent Danjean |
---|---|
date | Fri, 23 Sep 2005 18:58:57 -0700 |
parents | 9c918287d10b |
children | 9dcf9d45cab8 |
rev | line source |
---|---|
834
78a9f95766dc
Use sh instead of bash in tests.
Thomas Arendsen Hein <thomas@intevation.de>
parents:
814
diff
changeset
|
1 #!/bin/sh |
550 | 2 |
3 # No local source | |
4 hg clone a b | |
5 echo $? | |
6 | |
7 # No remote source | |
8 hg clone http://127.0.0.1:3121/a b | |
9 echo $? | |
10 rm -rf b # work around bug with http clone | |
11 | |
12 # Inaccessible source | |
13 mkdir a | |
14 chmod 000 a | |
15 hg clone a b | |
16 echo $? | |
17 | |
18 # Inaccessible destination | |
19 mkdir b | |
20 cd b | |
21 hg init | |
22 hg clone . ../a | |
23 echo $? | |
24 cd .. | |
25 chmod 700 a | |
26 rm -rf a b | |
27 | |
28 # Source of wrong type | |
29 mkfifo a | |
30 hg clone a b | |
31 echo $? | |
32 rm a | |
33 | |
34 # Default destination, same directory | |
35 mkdir q | |
36 cd q | |
37 hg init | |
38 cd .. | |
39 hg clone q | |
40 | |
41 true |