runEval_check #1

  • //
  • guest/
  • richard_geiger/
  • p4bench/
  • runEval_check
  • View
  • Commits
  • Open Download .zip Download (1 KB)
#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.