From 480b2d68815eebec12e6e2482a18a6bc4a51c4c1 Mon Sep 17 00:00:00 2001
From: coke <will@coleda.com>
Date: Fri, 11 Dec 2009 01:30:49 -0500
Subject: [PATCH] Avoid requiring parens in expressions in [like]

---
 lib/test_more.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/test_more.tcl b/lib/test_more.tcl
index de06f5e..0d1f39d 100644
--- a/lib/test_more.tcl
+++ b/lib/test_more.tcl
@@ -86,7 +86,7 @@ proc pass {{description ""} {special ""}} {
 }
 
 proc like {value regexp {description ""}} {
-   if ([regexp $regexp $value]) {
+   if {[regexp $regexp $value]} {
      pass $description
    } else {
      is "STRING: $value" "REGEXP: $regexp" $description