# See the file LICENSE for redistribution information. # # Copyright (c) 1996, 2011 Oracle and/or its affiliates. All rights reserved. # # $Id$ # # TEST dead009 # TEST Run dead002 deadlock test using priorities proc dead009 { {tnum "009"} } { source ./include.tcl dead002 "2 4 10" "ring clump" "0" $tnum 1 }