From 193815c2578cbf0969d2cfe54ba4c0b9e7758c60 Mon Sep 17 00:00:00 2001
From: antirez <antirez>
Date: Wed, 2 Mar 2005 15:41:08 +0000
Subject: binary safe JimStringMatch()

---
 test.tcl | 93 ----------------------------------------------------------------
 1 file changed, 93 deletions(-)

(limited to 'test.tcl')

diff --git a/test.tcl b/test.tcl
index 92cfb88..011fa21 100644
--- a/test.tcl
+++ b/test.tcl
@@ -634,99 +634,6 @@ catch {unset ::x}
 catch {unset ::y}
 
 ################################################################################
-# STRING MATCH
-################################################################################
-
-test string-11.3 {string match} {
-    string match abc abc
-} 1
-test string-11.5 {string match} {
-    string match ab*c abc
-} 1
-test string-11.6 {string match} {
-    string match ab**c abc
-} 1
-test string-11.7 {string match} {
-    string match ab* abcdef
-} 1
-test string-11.8 {string match} {
-    string match *c abc
-} 1
-test string-11.9 {string match} {
-    string match *3*6*9 0123456789
-} 1
-test string-11.10 {string match} {
-    string match *3*6*9 01234567890
-} 0
-test string-11.11 {string match} {
-    string match a?c abc
-} 1
-test string-11.12 {string match} {
-    string match a??c abc
-} 0
-test string-11.13 {string match} {
-    string match ?1??4???8? 0123456789
-} 1
-test string-11.14 {string match} {
-    string match {[abc]bc} abc
-} 1
-test string-11.15 {string match} {
-    string match {a[abc]c} abc
-} 1
-test string-11.16 {string match} {
-    string match {a[xyz]c} abc
-} 0
-test string-11.17 {string match} {
-    string match {12[2-7]45} 12345
-} 1
-test string-11.18 {string match} {
-    string match {12[ab2-4cd]45} 12345
-} 1
-test string-11.19 {string match} {
-    string match {12[ab2-4cd]45} 12b45
-} 1
-test string-11.20 {string match} {
-    string match {12[ab2-4cd]45} 12d45
-} 1
-test string-11.21 {string match} {
-    string match {12[ab2-4cd]45} 12145
-} 0
-test string-11.22 {string match} {
-    string match {12[ab2-4cd]45} 12545
-} 0
-test string-11.23 {string match} {
-    string match {a\*b} a*b
-} 1
-test string-11.24 {string match} {
-    string match {a\*b} ab
-} 0
-test string-11.25 {string match} {
-    string match {a\*\?\[\]\\\x} "a*?\[\]\\x"
-} 1
-test string-11.26 {string match} {
-    string match ** ""
-} 1
-test string-11.27 {string match} {
-    string match *. ""
-} 0
-test string-11.28 {string match} {
-    string match "" ""
-} 1
-test string-11.29 {string match} {
-    string match \[a a
-} 1
-test string-11.31 {string match case} {
-    string match a A
-} 0
-test string-11.34 {string match nocase} {
-    string match -nocase a*f ABCDEf
-} 1
-test string-11.35 {string match case, false hope} {
-    # This is true because '_' lies between the A-Z and a-z ranges
-    string match {[A-z]} _
-} 1
-
-################################################################################
 # IF
 ################################################################################
 
-- 
cgit v1.1