Author: mdiep
Date: Sat Jan 6 21:46:03 2007
New Revision: 16456
Added:
trunk/languages/tcl/t/cmd_binary.t (contents, props changed)
Modified:
trunk/MANIFEST
Log:
[tcl]: Add a test file for [binary]
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST (original)
+++ trunk/MANIFEST Sat Jan 6 21:46:03 2007
@@ -1942,6 +1942,7 @@
languages/tcl/t/cmd_append.t [tcl]
languages/tcl/t/cmd_apply.t [tcl]
languages/tcl/t/cmd_array.t [tcl]
+languages/tcl/t/cmd_binary.t [tcl]
languages/tcl/t/cmd_break.t [tcl]
languages/tcl/t/cmd_catch.t [tcl]
languages/tcl/t/cmd_cd.t [tcl]
Added: trunk/languages/tcl/t/cmd_binary.t
==============================================================================
--- (empty file)
+++ trunk/languages/tcl/t/cmd_binary.t Sat Jan 6 21:46:03 2007
@@ -0,0 +1,13 @@
+#!perl
+
+# the following lines re-execute this as a tcl script
+# the \ at the end of these lines makes them a comment in tcl \
+use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \
+use Tcl::Test; #\
+__DATA__
+
+source lib/test_more.tcl
+plan 1
+
+eval_is {binary} {wrong # args: should be "binary option ?arg arg ...?"} \
+ {binary: no args}
