1# procarg1.tcl -- 2# 3# Test file for compilation. 4# Contains a simple procedure whose argument list contains a malformed 5# element (too many fields). 6# The compilation should fail here. 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: procarg1.tcl,v 1.2 2000/05/30 22:19:12 wart Exp $ 14 15proc a { {x one two} } { 16 return "$x : $x" 17} 18 19a TEST 20