[svn:parrot] r16957 - in trunk: . languages/tcl/t

[coke]

Author: coke
Date: Mon Feb 12 13:16:21 2007
New Revision: 16957

Modified:
   trunk/   (props changed)
   trunk/languages/tcl/t/cmd_file.t

Log:
 [EMAIL PROTECTED]:  coke | 2007-02-12 11:14:33 -0500
 [tcl] convert a few tests from eval_is to slightly faster is


Modified: trunk/languages/tcl/t/cmd_file.t
==============================================================================
--- trunk/languages/tcl/t/cmd_file.t    (original)
+++ trunk/languages/tcl/t/cmd_file.t    Mon Feb 12 13:16:21 2007
@@ -8,7 +8,7 @@
 
 source lib/test_more.tcl
 
-plan 9
+plan 9 ;# from outer space. (HAH!)
 
 # [file exists]
 eval_is {file exists} \
@@ -33,13 +33,12 @@
 eval_is {file rootname foo bar} \
   {wrong # args: should be "file rootname name"} \
   {[file rootname] too many args}
-eval_is {file rootname file} \
-  {file} \
+
+is [file rootname file] file  \
   {[file rootname] filename only}
-eval_is {file rootname file.ext} \
-  {file} \
+
+is [file rootname file.ext] file \
   {[file rootname] filename with extension}
-eval_is {file rootname f..i.le.ext} \
-  {f..i.le} \
-  {[file rootname] filename with dots and extension}
 
+is [file rootname f..i.le.ext] f..i.le \
+  {[file rootname] filename with dots and extension}