source: trunk/test/jobs/coredumps/genoutput.tcl @ 743

Last change on this file since 743 was 743, checked in by mmc, 14 years ago

Added a test so we can simulate jobs that dump core mid-way through.
Also, a few minor tweaks to bug reporting. Now reports Rappture errors
in category "Rappture" and problem-launching-job errors as "Tools".

File size: 641 bytes
1# ----------------------------------------------------------------------
2#  EXAMPLE: Rappture core dumps
3# ======================================================================
4#  AUTHOR:  Michael McLennan, Purdue University
5#  Copyright (c) 2004-2007  Purdue Research Foundation
7#  See the file "license.terms" for information on usage and
8#  redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
9# ======================================================================
11# spit out a bunch of junk until we get killed
12set n 10
13while {[incr n -1] > 0} {
14    puts [exec fortune]
15    after [expr {int(rand()*rand()*3000)}]
Note: See TracBrowser for help on using the repository browser.