1# 2# Library code for git p4 tests 3# 4 5# p4 tests never use the top-level repo; always build/clone into 6# a subdirectory called "$git" 7TEST_NO_CREATE_REPO=NoThanks 8 9. ./test-lib.sh 10 11if! test_have_prereq PYTHON 12then 13 skip_all='skipping git p4 tests; python not available' 14 test_done 15fi 16( p4 -h&& p4d -h) >/dev/null 2>&1|| { 17 skip_all='skipping git p4 tests; no p4 or p4d' 18 test_done 19} 20 21# On cygwin, the NT version of Perforce can be used. When giving 22# it paths, either on the command-line or in client specifications, 23# be sure to use the native windows form. 24# 25# Older versions of perforce were available compiled natively for 26# cygwin. Those do not accept native windows paths, so make sure 27# not to convert for them. 28native_path() { 29 path="$1"&& 30if test_have_prereq CYGWIN && ! p4 -V|grep-q CYGWIN 31then 32 path=$(cygpath --windows "$path") 33else 34 path=$(test-path-utils real_path "$path") 35fi&& 36echo"$path" 37} 38 39# Try to pick a unique port: guess a large number, then hope 40# no more than one of each test is running. 41# 42# This does not handle the case where somebody else is running the 43# same tests and has chosen the same ports. 44testid=${this_test#t} 45git_p4_test_start=9800 46P4DPORT=$((10669 + ($testid - $git_p4_test_start))) 47 48P4PORT=localhost:$P4DPORT 49P4CLIENT=client 50P4EDITOR=: 51export P4PORT P4CLIENT P4EDITOR 52 53db="$TRASH_DIRECTORY/db" 54cli="$TRASH_DIRECTORY/cli" 55git="$TRASH_DIRECTORY/git" 56pidfile="$TRASH_DIRECTORY/p4d.pid" 57 58start_p4d() { 59mkdir-p"$db""$cli""$git"&& 60rm-f"$pidfile"&& 61( 62cd"$db"&& 63{ 64 p4d -q -p$P4DPORT& 65echo $! >"$pidfile" 66} 67) && 68 69# This gives p4d a long time to start up, as it can be 70# quite slow depending on the machine. Set this environment 71# variable to something smaller to fail faster in, say, 72# an automated test setup. If the p4d process dies, that 73# will be caught with the "kill -0" check below. 74 i=${P4D_START_PATIENCE:-300} 75 pid=$(cat "$pidfile") 76 ready= 77whiletest$i-gt0 78do 79# succeed when p4 client commands start to work 80if p4 info >/dev/null 2>&1 81then 82 ready=true 83break 84fi 85# fail if p4d died 86kill -0$pid2>/dev/null ||break 87echo waiting for p4d to start 88sleep1 89 i=$(( $i - 1 )) 90done 91 92iftest -z"$ready" 93then 94# p4d failed to start 95return1 96fi 97 98# build a client 99 client_view "//depot/... //client/..."&& 100 101return0 102} 103 104kill_p4d() { 105 pid=$(cat "$pidfile") 106# it had better exist for the first kill 107kill$pid&& 108for i in1 2 3 4 5;do 109kill$pid>/dev/null 2>&1||break 110sleep1 111done&& 112# complain if it would not die 113 test_must_fail kill$pid>/dev/null 2>&1&& 114rm-rf"$db""$cli""$pidfile" 115} 116 117cleanup_git() { 118rm-rf"$git"&& 119mkdir"$git" 120} 121 122marshal_dump() { 123 what=$1&& 124 line=${2:-1}&& 125cat>"$TRASH_DIRECTORY/marshal-dump.py"<<-EOF && 126 import marshal 127 import sys 128 for i in range($line): 129 d = marshal.load(sys.stdin) 130 print d['$what'] 131 EOF 132"$PYTHON_PATH""$TRASH_DIRECTORY/marshal-dump.py" 133} 134 135# 136# Construct a client with this list of View lines 137# 138client_view() { 139( 140cat<<-EOF && 141 Client:$P4CLIENT 142 Description:$P4CLIENT 143 Root:$cli 144 AltRoots:$(native_path "$cli") 145 LineEnd: unix 146 View: 147 EOF 148printf"\t%s\n""$@" 149) | p4 client -i 150} 151 152is_cli_file_writeable() { 153# cygwin version of p4 does not set read-only attr, 154# will be marked 444 but -w is true 155file="$1"&& 156if test_have_prereq CYGWIN && p4 -V|grep-q CYGWIN 157then 158 stat=$(stat --format=%a "$file")&& 159test$stat=644 160else 161test -w"$file" 162fi 163}