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