#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. |