#testfile runEval # # Copyright (c) 1996 Network Appliance, Inc. # # You may distribute under the terms of the Artistic License, as # specified in the README file included in the ttt distribution. # # $Id: //depot/tools/main/p4bench/runEval_check#1 $ $status = 0; $status = &case_exec("mkfile", $status, "localhost", "rm -f FILE; echo hello > FILE; chmod 444 FILE; ls -l; /bin/pwd"); #$status = "skip"; if ($status == 0) { $rmid = &ttt_start_agent("localhost", "rm -i FILE", 1); $rbits = $agents{$rmid,"STDOUTt"} | $agents{$rmid,"STDERRt"}; } ($rbits, $status) = &case_expect("rm_ask", $status, $rmid, $rbits, ">y\n", "^rm: remove FILE \\(yes/no\\)\\? \$", undef, 4); sleep 1; $status = &case_eval("check", $status, "! -e \"FILE\""); $want = &ttt_slurp("runEval_check_data"); $status = &case_exec("cmp", $status, "localhost", "cat runEval_check_data", undef, $want);
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#1 | 799 | Richard Geiger |
The first version of "p4bench", scripts used to implement a crude Perforce benchmarking system, as mentioned in http://maillist.perforce.com/pipermail/perforce-user/2001-February/005288.html Beware, it's not pretty and there's no documentation, but it's a starting point for bigger and better things. |