1# catch1.tcl -- 2# 3# Test script for the compiler. 4# Contains a catch command at global scope, with no variable. This command 5# is compiled inline as of TCL 8.0, so that exception ranges should 6# be generated. 7# 8# Copyright (c) 1998-2000 by Ajuba Solutions. 9# 10# See the file "license.terms" for information on usage and redistribution 11# of this file, and for a DISCLAIMER OF ALL WARRANTIES. 12# 13# RCS: @(#) $Id: catch1.tcl,v 1.2 2000/05/30 22:19:11 wart Exp $ 14 15catch { 16 set result PASS 17 error ERROR 18 set result FAIL 19} 20 21set result 22