234 lines
6.2 KiB
Plaintext
234 lines
6.2 KiB
Plaintext
# This file is a Tcl script to test the code in the file tclUtil.c.
|
|
# This file is organized in the standard fashion for Tcl tests.
|
|
#
|
|
# Copyright (c) 1995-1998 Sun Microsystems, Inc.
|
|
# Copyright (c) 1998-1999 by Scriptics Corporation.
|
|
#
|
|
# See the file "license.terms" for information on usage and redistribution
|
|
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
|
#
|
|
# RCS: @(#) $Id: util.test,v 1.7.2.1 2001/07/16 23:14:13 hobbs Exp $
|
|
|
|
source [file dirname [info script]]/testing.tcl
|
|
|
|
test stringmatch-5.1 {Tcl_StringMatch} {
|
|
string match ab*c abc
|
|
} 1
|
|
test stringmatch-5.2 {Tcl_StringMatch} {
|
|
string match ab**c abc
|
|
} 1
|
|
test stringmatch-5.3 {Tcl_StringMatch} {
|
|
string match ab* abcdef
|
|
} 1
|
|
test stringmatch-5.4 {Tcl_StringMatch} {
|
|
string match *c abc
|
|
} 1
|
|
test stringmatch-5.5 {Tcl_StringMatch} {
|
|
string match *3*6*9 0123456789
|
|
} 1
|
|
test stringmatch-5.6 {Tcl_StringMatch} {
|
|
string match *3*6*9 01234567890
|
|
} 0
|
|
test stringmatch-5.7 {Tcl_StringMatch: UTF-8} {
|
|
string match *u \u4e4fu
|
|
} 1
|
|
test stringmatch-5.8 {Tcl_StringMatch} {
|
|
string match a?c abc
|
|
} 1
|
|
test stringmatch-5.9 {Tcl_StringMatch: UTF-8} utf8 {
|
|
# skip one character in string
|
|
|
|
string match a?c a\u4e4fc
|
|
} 1
|
|
test stringmatch-5.10 {Tcl_StringMatch} {
|
|
string match a??c abc
|
|
} 0
|
|
test stringmatch-5.11 {Tcl_StringMatch} {
|
|
string match ?1??4???8? 0123456789
|
|
} 1
|
|
test stringmatch-5.12 {Tcl_StringMatch} {
|
|
string match {[abc]bc} abc
|
|
} 1
|
|
test stringmatch-5.13 {Tcl_StringMatch: UTF-8} utf8 {
|
|
# string += Tcl_UtfToUniChar(string, &ch);
|
|
|
|
string match "\[\u4e4fxy\]bc" "\u4e4fbc"
|
|
} 1
|
|
test stringmatch-5.14 {Tcl_StringMatch} {
|
|
# if ((*pattern == ']') || (*pattern == '\0'))
|
|
# badly formed pattern
|
|
|
|
string match {[]} {[]}
|
|
} 0
|
|
test stringmatch-5.15 {Tcl_StringMatch} {
|
|
# if ((*pattern == ']') || (*pattern == '\0'))
|
|
# badly formed pattern
|
|
|
|
string match {[} {[}
|
|
} 0
|
|
test stringmatch-5.16 {Tcl_StringMatch} {
|
|
string match {a[abc]c} abc
|
|
} 1
|
|
test stringmatch-5.17 {Tcl_StringMatch: UTF-8} utf8 {
|
|
# pattern += Tcl_UtfToUniChar(pattern, &endChar);
|
|
# get 1 UTF-8 character
|
|
|
|
string match "a\[a\u4e4fc]c" "a\u4e4fc"
|
|
} 1
|
|
test stringmatch-5.18 {Tcl_StringMatch: UTF-8} {
|
|
# pattern += Tcl_UtfToUniChar(pattern, &endChar);
|
|
# proper advance: wrong answer would match on UTF trail byte of \u4e4f
|
|
|
|
string match {a[a\u4e4fc]c} a\u008fc
|
|
} 0
|
|
test stringmatch-5.19 {Tcl_StringMatch: UTF-8} {
|
|
# pattern += Tcl_UtfToUniChar(pattern, &endChar);
|
|
# proper advance.
|
|
|
|
string match {a[a\u4e4fc]c} "acc"
|
|
} 1
|
|
test stringmatch-5.20 {Tcl_StringMatch} {
|
|
string match {a[xyz]c} abc
|
|
} 0
|
|
test stringmatch-5.21 {Tcl_StringMatch} {
|
|
string match {12[2-7]45} 12345
|
|
} 1
|
|
test stringmatch-5.22 {Tcl_StringMatch: UTF-8 range} {
|
|
string match "\[\u4e00-\u4e4f]" "0"
|
|
} 0
|
|
test stringmatch-5.23 {Tcl_StringMatch: UTF-8 range} utf8 {
|
|
string match "\[\u4e00-\u4e4f]" "\u4e33"
|
|
} 1
|
|
test stringmatch-5.24 {Tcl_StringMatch: UTF-8 range} utf8 {
|
|
string match "\[\u4e00-\u4e4f]" "\uff08"
|
|
} 0
|
|
test stringmatch-5.25 {Tcl_StringMatch} {
|
|
string match {12[ab2-4cd]45} 12345
|
|
} 1
|
|
test stringmatch-5.26 {Tcl_StringMatch} {
|
|
string match {12[ab2-4cd]45} 12b45
|
|
} 1
|
|
test stringmatch-5.27 {Tcl_StringMatch} {
|
|
string match {12[ab2-4cd]45} 12d45
|
|
} 1
|
|
test stringmatch-5.28 {Tcl_StringMatch} {
|
|
string match {12[ab2-4cd]45} 12145
|
|
} 0
|
|
test stringmatch-5.29 {Tcl_StringMatch} {
|
|
string match {12[ab2-4cd]45} 12545
|
|
} 0
|
|
test stringmatch-5.30 {Tcl_StringMatch: forwards range} {
|
|
string match {[k-w]} "z"
|
|
} 0
|
|
test stringmatch-5.31 {Tcl_StringMatch: forwards range} {
|
|
string match {[k-w]} "w"
|
|
} 1
|
|
test stringmatch-5.32 {Tcl_StringMatch: forwards range} {
|
|
string match {[k-w]} "r"
|
|
} 1
|
|
test stringmatch-5.33 {Tcl_StringMatch: forwards range} {
|
|
string match {[k-w]} "k"
|
|
} 1
|
|
test stringmatch-5.34 {Tcl_StringMatch: forwards range} {
|
|
string match {[k-w]} "a"
|
|
} 0
|
|
test stringmatch-5.35 {Tcl_StringMatch: reverse range} {
|
|
string match {[w-k]} "z"
|
|
} 0
|
|
test stringmatch-5.36 {Tcl_StringMatch: reverse range} {
|
|
string match {[w-k]} "w"
|
|
} 1
|
|
test stringmatch-5.37 {Tcl_StringMatch: reverse range} {
|
|
string match {[w-k]} "r"
|
|
} 1
|
|
test stringmatch-5.38 {Tcl_StringMatch: reverse range} {
|
|
string match {[w-k]} "k"
|
|
} 1
|
|
test stringmatch-5.39 {Tcl_StringMatch: reverse range} {
|
|
string match {[w-k]} "a"
|
|
} 0
|
|
test stringmatch-5.40 {Tcl_StringMatch: skip correct number of ']'} {
|
|
string match {[A-]x} Ax
|
|
} 0
|
|
test stringmatch-5.41 {Tcl_StringMatch: skip correct number of ']'} {
|
|
string match {[A-]]x} Ax
|
|
} 1
|
|
test stringmatch-5.42 {Tcl_StringMatch: skip correct number of ']'} {
|
|
string match {[A-]]x} \ue1x
|
|
} 0
|
|
test stringmatch-5.43 {Tcl_StringMatch: skip correct number of ']'} utf8 {
|
|
string match \[A-]\ue1]x \ue1x
|
|
} 1
|
|
test stringmatch-5.44 {Tcl_StringMatch: skip correct number of ']'} {
|
|
string match {[A-]h]x} hx
|
|
} 1
|
|
test stringmatch-5.45 {Tcl_StringMatch} {
|
|
# if (*pattern == '\0')
|
|
# badly formed pattern, still treats as a set
|
|
|
|
string match {[a} a
|
|
} 1
|
|
test stringmatch-5.46 {Tcl_StringMatch} {
|
|
string match {a\*b} a*b
|
|
} 1
|
|
test stringmatch-5.47 {Tcl_StringMatch} {
|
|
string match {a\*b} ab
|
|
} 0
|
|
test stringmatch-5.48 {Tcl_StringMatch} {
|
|
string match {a\*\?\[\]\\\x} "a*?\[\]\\x"
|
|
} 1
|
|
test stringmatch-5.49 {Tcl_StringMatch} {
|
|
string match ** ""
|
|
} 1
|
|
test stringmatch-5.50 {Tcl_StringMatch} {
|
|
string match *. ""
|
|
} 0
|
|
test stringmatch-5.51 {Tcl_StringMatch} {
|
|
string match "" ""
|
|
} 1
|
|
|
|
# 'string match' doesn't support ^, which is different
|
|
# from 'scan'
|
|
|
|
test stringmatch-6.1 {bracket in charset} {
|
|
string match {a[]b]c} {a]c}
|
|
} 0
|
|
|
|
test stringmatch-6.2 {bracket in charset} {
|
|
string match {a[]b]c} {abc}
|
|
} 0
|
|
|
|
test stringmatch-6.3 {charset with ^} {
|
|
string match {a[^]b]c} {axc}
|
|
} 0
|
|
|
|
test stringmatch-6.4 {charset with ^} {
|
|
string match {a[^]b]c} {a]c}
|
|
} 0
|
|
|
|
test stringmatch-6.5 {charset with ^} {
|
|
string match {a[^bc]d} {axd}
|
|
} 0
|
|
|
|
test stringmatch-6.6 {charset with ^} {
|
|
string match {a[\]]c} {a]c}
|
|
} 0
|
|
|
|
test stringmatch-7.1 {short string with ?} {
|
|
string match {ab?} ab
|
|
} 0
|
|
|
|
test stringmatch-7.2 {multiple * to end} {
|
|
string match {ab**} ab
|
|
} 1
|
|
|
|
test stringmatch-7.3 {null in string} {
|
|
string match *bar* foo\0bar
|
|
} 1
|
|
|
|
test stringmatch-7.4 {null in pattern} {
|
|
string match *b\[\0a\]r* foobar
|
|
} 1
|
|
|
|
testreport
|