summaryrefslogtreecommitdiffstats
path: root/tests/regexp2.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/regexp2.test')
-rw-r--r--tests/regexp2.test3176
1 files changed, 0 insertions, 3176 deletions
diff --git a/tests/regexp2.test b/tests/regexp2.test
deleted file mode 100644
index eb99f76..0000000
--- a/tests/regexp2.test
+++ /dev/null
@@ -1,3176 +0,0 @@
-# Commands covered: regexp
-#
-# This Tcl-generated file contains tests for the regexp tcl command.
-# Sourcing this file into Tcl runs the tests and generates output for
-# errors. No output means no errors were found. Setting VERBOSE to
-# -1 will run tests that are known to fail.
-#
-# Copyright (c) 1998 Sun Microsystems, Inc.
-#
-# See the file "license.terms" for information on usage and redistribution
-# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
-#
-# SCCS: @(#) regexp2.test 1.4 98/01/22 14:47:42
-
-proc print {arg} {puts $arg}
-
-if {[string compare test [info procs test]] == 1} {
- source defs ; set VERBOSE -1
-}
-
-if {$VERBOSE != -1} {
- proc print {arg} {}
-}
-
-#
-# The remainder of this file is Tcl tests that have been
-# converted from Henry Spencer's regexp test suite.
-#
-
-# This file is a sequence of regression tests, one per line. The first
-# field is the RE, the second flags, the third a string to match the RE
-# against, the fourth the expected match, and subsequent fields the
-# expected substring matches. No fourth field means match not expected;
-# no later fields mean no substrings expected. If the "*" flag is set
-# (see below), the third field is the name of the compile error expected,
-# less the leading "REG_". Any field may be written as "" to signify an
-# empty string. Fourth and subsequent fields may have a suffix "@11"
-# (any decimal integer) indicating the offset where the match is expected;
-# fifth and subsequent fields may be "@" indicating no match is expected
-# for that subexpression.
-
-
-# The flag characters are complex and a bit eclectic. Generally speaking,
-# lowercase letters are compile options, uppercase are expected re_info
-# bits, and nonalphabetics are match options, controls for how the test is
-# run, or debugging options. The one small surprise is that AREs are the
-# default, and you must explicitly request lesser flavors of RE. The flags
-# are as follows. Be warned that a number of them are specific to this
-# RE implementation. It is admitted that some are not very mnemonic.
-#
-# - no-op (placeholder)
-# = map characters in all other fields (see below)
-# > map characters in later fields (see below)
-# * compile error expected (third field is error type)
-# / compile only, do not attempt match
-# [2 expect 2 (any decimal integer) subexpressions
-# + provide fake ch collating element and xy equiv class
-# , turn on compile tracing (probably not useful in this file)
-# ; turn on automaton tracing (probably not useful in this file)
-# : turn on match tracing (probably not useful in this file)
-# . force small state-set cache in matcher (to test cache replace)
-# ^ beginning of string is not beginning of line
-# $ end of string is not end of line
-#
-# & test as both BRE and ARE
-# b BRE
-# e ERE
-# q literal string, no metacharacters at all
-#
-# i case-independent matching
-# s no subexpression capture
-# p newlines are half-magic, excluded from . and [^ only
-# w newlines are half-magic, significant to ^ and $ only
-# n newlines are fully magic, both effects
-# x expanded RE syntax
-#
-# A backslash-_a_lphanumeric seen
-# B ERE/ARE literal-_b_race heuristic used
-# E backslash (_e_scape) seen within []
-# H looka_h_ead constraint seen
-# L _l_ocale-specific construct seen
-# M unportable (_m_achine-specific) construct seen
-# N RE can match empty (_n_ull) string
-# P non-_P_OSIX construct seen
-# Q {} _q_uantifier seen
-# R back _r_eference seen
-# S POSIX-un_s_pecified syntax seen
-# U saw original-POSIX botch: unmatched right paren in ERE (_u_gh)
-
-
-# The character-mapping flag causes some transformations to be done
-# before processing. This is mostly to get funny characters into the
-# strings. Specifically:
-#
-# _ becomes space
-# A becomes \007 (some compilers lack \a)
-# B becomes \b
-# E becomes \033
-# F becomes \f
-# N becomes \n
-# R becomes \r
-# T becomes \t
-# V becomes \v
-
-
-# The two areas we can't easily test are memory-allocation failures (which
-# are hard to provoke on command) and embedded NULs (which the current test
-# program can't easily do; that should be fixed).
-
-
-
-
-
-
-# basic sanity checks
-test regexp-1.81 {converted from line 81} {
- catch {unset var}
- list [catch {
- set match [regexp -- abc abc var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 abc}}
-
-test regexp-1.82 {converted from line 82} {
- catch {unset var}
- list [catch {
- set match [regexp -- abc def ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.83 {converted from line 83} {
- catch {unset var}
- list [catch {
- set match [regexp -- abc xyabxabce var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 abc}}
-
-
-
-# invalid option combinations
-# skipping char mapping test from line 86
-print {... skip test from line 86: a qe* INVARG}
-# skipping char mapping test from line 87
-print {... skip test from line 87: a ba* INVARG}
-
-
-# basic syntax
-# skipping the empty-re test from line 90
-
-test regexp-1.91 {converted from line 91} {
- catch {unset var}
- list [catch {
- set match [regexp -- a| a var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-test regexp-1.92 {converted from line 92} {
- catch {unset var}
- list [catch {
- set match [regexp -- a|b a var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-test regexp-1.93 {converted from line 93} {
- catch {unset var}
- list [catch {
- set match [regexp -- a|b b var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 b}}
-
-test regexp-1.94 {converted from line 94} {
- catch {unset var}
- list [catch {
- set match [regexp -- a||b b var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 b}}
-
-test regexp-1.95 {converted from line 95} {
- catch {unset var}
- list [catch {
- set match [regexp -- ab ab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ab}}
-
-
-
-# parentheses
-test regexp-1.98 {converted from line 98} {
- catch {unset var}
- list [catch {
- set match [regexp -- (a)e ae var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 ae a}}
-
-test regexp-1.99 {converted from line 99} {
- catch {unset var}
- list [catch {
- set match [regexp -- (a)e ae var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ae}}
-
-test regexp-1.100 {converted from line 100} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?b)\(a\)b} ab var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 ab a}}
-
-test regexp-1.101 {converted from line 101} {
- catch {unset var}
- list [catch {
- set match [regexp -- a((b)c) abc var(0) var(1) var(2)]
- list $match $var(0) $var(1) $var(2)
- } msg] $msg
-} {0 {1 abc bc b}}
-
-test regexp-1.102 {converted from line 102} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b)(c) abc var(0) var(1) var(2)]
- list $match $var(0) $var(1) $var(2)
- } msg] $msg
-} {0 {1 abc b c}}
-
-test regexp-1.103 {converted from line 103} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b EPAREN ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: unmatched ()}}
-
-test regexp-1.104 {converted from line 104} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?b)a\(b} EPAREN ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: unmatched ()}}
-
-# sigh, we blew it on the specs here... someday this will be fixed in POSIX,
-# but meanwhile, it's fixed in AREs
-
-test regexp-1.107 {converted from line 107} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?e)a)b a)b var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a)b}}
-
-test regexp-1.108 {converted from line 108} {
- catch {unset var}
- list [catch {
- set match [regexp -- a)b EPAREN ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: unmatched ()}}
-
-test regexp-1.109 {converted from line 109} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?b)a\)b} EPAREN ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: unmatched ()}}
-
-test regexp-1.110 {converted from line 110} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(?:b)c abc var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 abc}}
-
-test regexp-1.111 {converted from line 111} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?e)a(?:b)c BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-test regexp-1.112 {converted from line 112} {
- catch {unset var}
- list [catch {
- set match [regexp -- a()b ab var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 ab {}}}
-
-test regexp-1.113 {converted from line 113} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(?:)b ab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ab}}
-
-test regexp-1.114 {converted from line 114} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(|b)c ac var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 ac {}}}
-
-test regexp-1.115 {converted from line 115} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b|)c abc var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abc b}}
-
-
-
-# simple one-char matching (full mess of brackets done later)
-test regexp-1.118 {converted from line 118} {
- catch {unset var}
- list [catch {
- set match [regexp -- a.b axb var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 axb}}
-
-test regexp-1.119 {converted from line 119} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?n)a.b {a
-b} ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.120 {converted from line 120} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[bc]d} abd var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 abd}}
-
-test regexp-1.121 {converted from line 121} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[bc]d} acd var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 acd}}
-
-test regexp-1.122 {converted from line 122} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[bc]d} aed ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.123 {converted from line 123} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[^bc]d} abd ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.124 {converted from line 124} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[^bc]d} aed var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 aed}}
-
-test regexp-1.125 {converted from line 125} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?p)a[^bc]d} {a
-d} ]
- list $match
- } msg] $msg
-} {0 0}
-
-
-
-# some context-dependent syntax (and some not)
-test regexp-1.128 {converted from line 128} {
- catch {unset var}
- list [catch {
- set match [regexp -- * BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-test regexp-1.129 {converted from line 129} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?b)* * var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 *}}
-
-test regexp-1.130 {converted from line 130} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?b)\(*\)} * var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 * *}}
-
-test regexp-1.131 {converted from line 131} {
- catch {unset var}
- list [catch {
- set match [regexp -- (*) BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-test regexp-1.132 {converted from line 132} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?b)^* * var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 *}}
-
-test regexp-1.133 {converted from line 133} {
- catch {unset var}
- list [catch {
- set match [regexp -- ^* BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-test regexp-1.134 {converted from line 134} {
- catch {unset var}
- list [catch {
- set match [regexp -- ^b ^b ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.135 {converted from line 135} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?b)x^ x^ var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 x^}}
-
-test regexp-1.136 {converted from line 136} {
- catch {unset var}
- list [catch {
- set match [regexp -- x^ IMPOSS ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: can never match}}
-
-test regexp-1.137 {converted from line 137} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?n)
-^} {x
-b} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {
-}}}
-
-test regexp-1.138 {converted from line 138} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?b)\(^b\)} ^b ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.139 {converted from line 139} {
- catch {unset var}
- list [catch {
- set match [regexp -- (^b) b var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 b b}}
-
-test regexp-1.140 {converted from line 140} {
- catch {unset var}
- list [catch {
- set match [regexp -- {x$} x var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 x}}
-
-test regexp-1.141 {converted from line 141} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?b)\(x$\)} x var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 x x}}
-
-test regexp-1.142 {converted from line 142} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(x$)} x var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 x x}}
-
-test regexp-1.143 {converted from line 143} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?b)x$y} {x$y} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {x$y}}}
-
-test regexp-1.144 {converted from line 144} {
- catch {unset var}
- list [catch {
- set match [regexp -- {x$y} IMPOSS ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: can never match}}
-
-test regexp-1.145 {converted from line 145} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?n)x$
-} {x
-} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {x
-}}}
-
-test regexp-1.146 {converted from line 146} {
- catch {unset var}
- list [catch {
- set match [regexp -- + BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-test regexp-1.147 {converted from line 147} {
- catch {unset var}
- list [catch {
- set match [regexp -- ? BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-
-
-# simple quantifiers
-test regexp-1.150 {converted from line 150} {
- catch {unset var}
- list [catch {
- set match [regexp -- a* aa var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 aa}}
-
-test regexp-1.151 {converted from line 151} {
- catch {unset var}
- list [catch {
- set match [regexp -- a* b var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {}}}
-
-test regexp-1.152 {converted from line 152} {
- catch {unset var}
- list [catch {
- set match [regexp -- a+ aa var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 aa}}
-
-test regexp-1.153 {converted from line 153} {
- catch {unset var}
- list [catch {
- set match [regexp -- a?b ab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ab}}
-
-test regexp-1.154 {converted from line 154} {
- catch {unset var}
- list [catch {
- set match [regexp -- a?b b var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 b}}
-
-test regexp-1.155 {converted from line 155} {
- catch {unset var}
- list [catch {
- set match [regexp -- ** BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-test regexp-1.156 {converted from line 156} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?b)** *** var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ***}}
-
-test regexp-1.157 {converted from line 157} {
- catch {unset var}
- list [catch {
- set match [regexp -- a** BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-test regexp-1.158 {converted from line 158} {
- catch {unset var}
- list [catch {
- set match [regexp -- a**b BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-test regexp-1.159 {converted from line 159} {
- catch {unset var}
- list [catch {
- set match [regexp -- *** BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-test regexp-1.160 {converted from line 160} {
- catch {unset var}
- list [catch {
- set match [regexp -- a++ BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-test regexp-1.161 {converted from line 161} {
- catch {unset var}
- list [catch {
- set match [regexp -- a?+ BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-test regexp-1.162 {converted from line 162} {
- catch {unset var}
- list [catch {
- set match [regexp -- a?* BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-test regexp-1.163 {converted from line 163} {
- catch {unset var}
- list [catch {
- set match [regexp -- a+* BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-test regexp-1.164 {converted from line 164} {
- catch {unset var}
- list [catch {
- set match [regexp -- a*+ BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-
-
-# braces are messy
-test regexp-1.167 {converted from line 167} {
- catch {unset var}
- list [catch {
- set match [regexp -- a{0,1} {} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {}}}
-
-test regexp-1.168 {converted from line 168} {
- catch {unset var}
- list [catch {
- set match [regexp -- a{0,1} ac var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-test regexp-1.169 {converted from line 169} {
- catch {unset var}
- list [catch {
- set match [regexp -- a{1,0} BADBR ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid repetition count(s)}}
-
-test regexp-1.170 {converted from line 170} {
- catch {unset var}
- list [catch {
- set match [regexp -- a{1,2,3} BADBR ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid repetition count(s)}}
-
-test regexp-1.171 {converted from line 171} {
- catch {unset var}
- list [catch {
- set match [regexp -- a{257} BADBR ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid repetition count(s)}}
-
-test regexp-1.172 {converted from line 172} {
- catch {unset var}
- list [catch {
- set match [regexp -- a{1000} BADBR ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid repetition count(s)}}
-
-test regexp-1.173 {converted from line 173} {
- catch {unset var}
- list [catch {
- set match [regexp -- a\{1 EBRACE ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: unmatched {}}}
-
-test regexp-1.174 {converted from line 174} {
- catch {unset var}
- list [catch {
- set match [regexp -- a{1n} BADBR ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid repetition count(s)}}
-
-test regexp-1.175 {converted from line 175} {
- catch {unset var}
- list [catch {
- set match [regexp -- a\{b a\{b var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a\{b}}
-
-test regexp-1.176 {converted from line 176} {
- catch {unset var}
- list [catch {
- set match [regexp -- a\{ a\{ var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a\{}}
-
-test regexp-1.177 {converted from line 177} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?b)a\{0,1\}b} cb var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 b}}
-
-test regexp-1.178 {converted from line 178} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?b)a\{0,1} EBRACE ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: unmatched {}}}
-
-test regexp-1.179 {converted from line 179} {
- catch {unset var}
- list [catch {
- set match [regexp -- a\{0,1\\ BADBR ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid repetition count(s)}}
-
-test regexp-1.180 {converted from line 180} {
- catch {unset var}
- list [catch {
- set match [regexp -- a{0}b ab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 b}}
-
-test regexp-1.181 {converted from line 181} {
- catch {unset var}
- list [catch {
- set match [regexp -- a{0,0}b ab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 b}}
-
-test regexp-1.182 {converted from line 182} {
- catch {unset var}
- list [catch {
- set match [regexp -- a{0,1}b ab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ab}}
-
-test regexp-1.183 {converted from line 183} {
- catch {unset var}
- list [catch {
- set match [regexp -- a{0,2}b b var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 b}}
-
-test regexp-1.184 {converted from line 184} {
- catch {unset var}
- list [catch {
- set match [regexp -- a{0,2}b aab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 aab}}
-
-test regexp-1.185 {converted from line 185} {
- catch {unset var}
- list [catch {
- set match [regexp -- a{0,}b aab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 aab}}
-
-test regexp-1.186 {converted from line 186} {
- catch {unset var}
- list [catch {
- set match [regexp -- a{1,1}b aab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ab}}
-
-test regexp-1.187 {converted from line 187} {
- catch {unset var}
- list [catch {
- set match [regexp -- a{1,3}b aaaab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 aaab}}
-
-test regexp-1.188 {converted from line 188} {
- catch {unset var}
- list [catch {
- set match [regexp -- a{1,3}b b ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.189 {converted from line 189} {
- catch {unset var}
- list [catch {
- set match [regexp -- a{1,}b aab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 aab}}
-
-test regexp-1.190 {converted from line 190} {
- catch {unset var}
- list [catch {
- set match [regexp -- a{2,3}b ab ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.191 {converted from line 191} {
- catch {unset var}
- list [catch {
- set match [regexp -- a{2,3}b aaaab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 aaab}}
-
-test regexp-1.192 {converted from line 192} {
- catch {unset var}
- list [catch {
- set match [regexp -- a{2,}b ab ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.193 {converted from line 193} {
- catch {unset var}
- list [catch {
- set match [regexp -- a{2,}b aaaab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 aaaab}}
-
-
-
-# brackets are too
-test regexp-1.196 {converted from line 196} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[bc]} ac var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ac}}
-
-test regexp-1.197 {converted from line 197} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[-]} a- var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a-}}
-
-test regexp-1.198 {converted from line 198} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[[.-.]]} a- var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a-}}
-
-test regexp-1.199 {converted from line 199} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[[.zero.]]} a0 var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a0}}
-
-test regexp-1.200 {converted from line 200} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[[.zero.]-9]} a2 var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a2}}
-
-test regexp-1.201 {converted from line 201} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[0-[.9.]]} a2 var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a2}}
-
-# skipping char mapping test from line 202
-print {... skip test from line 202: a&&=x=&& &+L ax ax}
-# skipping char mapping test from line 203
-print {... skip test from line 203: a&&=x=&& &+L ay ay}
-# skipping char mapping test from line 204
-print {... skip test from line 204: a&&=x=&& &+L az}
-test regexp-1.205 {converted from line 205} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[0-[=x=]]} ERANGE ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid character range}}
-
-test regexp-1.206 {converted from line 206} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[[:digit:]]} a0 var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a0}}
-
-test regexp-1.207 {converted from line 207} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[[:woopsie:]]} ECTYPE ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid character class}}
-
-test regexp-1.208 {converted from line 208} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[[:digit:]]} ab ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.209 {converted from line 209} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[0-[:digit:]]} ERANGE ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid character range}}
-
-test regexp-1.210 {converted from line 210} {
- catch {unset var}
- list [catch {
- set match [regexp -- {[[:<:]]a} a var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-test regexp-1.211 {converted from line 211} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[[:>:]]} a var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-test regexp-1.212 {converted from line 212} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[[..]]b} ECOLLATE ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid collating element}}
-
-test regexp-1.213 {converted from line 213} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[[==]]b} ECOLLATE ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid collating element}}
-
-test regexp-1.214 {converted from line 214} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[[::]]b} ECTYPE ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid character class}}
-
-test regexp-1.215 {converted from line 215} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[[.a} EBRACK ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: unmatched []}}
-
-test regexp-1.216 {converted from line 216} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[[=a} EBRACK ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: unmatched []}}
-
-test regexp-1.217 {converted from line 217} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[[:a} EBRACK ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: unmatched []}}
-
-test regexp-1.218 {converted from line 218} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[} EBRACK ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: unmatched []}}
-
-test regexp-1.219 {converted from line 219} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[b} EBRACK ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: unmatched []}}
-
-test regexp-1.220 {converted from line 220} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[b-} EBRACK ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: unmatched []}}
-
-test regexp-1.221 {converted from line 221} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[b-c} EBRACK ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: unmatched []}}
-
-test regexp-1.222 {converted from line 222} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[b-c]} ab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ab}}
-
-test regexp-1.223 {converted from line 223} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[b-b]} ab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ab}}
-
-test regexp-1.224 {converted from line 224} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[1-2]} a2 var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a2}}
-
-test regexp-1.225 {converted from line 225} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[c-b]} ERANGE ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid character range}}
-
-test regexp-1.226 {converted from line 226} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[a-b-c]} ERANGE ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid character range}}
-
-test regexp-1.227 {converted from line 227} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[--?]b} a?b var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a?b}}
-
-test regexp-1.228 {converted from line 228} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[---]b} a-b var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a-b}}
-
-test regexp-1.229 {converted from line 229} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[]b]c} a\]c var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a\]c}}
-
-test regexp-1.230 {converted from line 230} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[\]]b} a\]b var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a\]b}}
-
-test regexp-1.231 {converted from line 231} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?b)a[\]]b} a\]b ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.232 {converted from line 232} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?b)a[\]]b} {a\]b} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {a\]b}}}
-
-test regexp-1.233 {converted from line 233} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?e)a[\]]b} {a\]b} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {a\]b}}}
-
-test regexp-1.234 {converted from line 234} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[\\]b} {a\b} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {a\b}}}
-
-test regexp-1.235 {converted from line 235} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?e)a[\\]b} {a\b} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {a\b}}}
-
-test regexp-1.236 {converted from line 236} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?b)a[\\]b} {a\b} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {a\b}}}
-
-test regexp-1.237 {converted from line 237} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[\Z]b} EESCAPE ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid escape sequence}}
-
-test regexp-1.238 {converted from line 238} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[[b]c} {a[c} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {a[c}}}
-
-
-
-# anchors and newlines
-test regexp-1.241 {converted from line 241} {
- catch {unset var}
- list [catch {
- set match [regexp -- ^a a var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-# skipping char mapping test from line 242
-print {... skip test from line 242: ^a &^ a}
-test regexp-1.243 {converted from line 243} {
- catch {unset var}
- list [catch {
- set match [regexp -- ^ a var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {}}}
-
-test regexp-1.244 {converted from line 244} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a$} aba var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-# skipping char mapping test from line 245
-print {... skip test from line 245: a$ &$ a}
-test regexp-1.246 {converted from line 246} {
- catch {unset var}
- list [catch {
- set match [regexp -- {$} ab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {}}}
-
-test regexp-1.247 {converted from line 247} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?n)^a a var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-test regexp-1.248 {converted from line 248} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?n)^a {b
-a} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-test regexp-1.249 {converted from line 249} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?w)^a {a
-a} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-# skipping char mapping test from line 250
-print {... skip test from line 250: ^a &=n^ aNa a@2}
-test regexp-1.251 {converted from line 251} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?n)a$} a var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-test regexp-1.252 {converted from line 252} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?n)a$} {a
-b} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-test regexp-1.253 {converted from line 253} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?n)a$} {a
-a} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-test regexp-1.254 {converted from line 254} {
- catch {unset var}
- list [catch {
- set match [regexp -- ^^ a var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {}}}
-
-test regexp-1.255 {converted from line 255} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?b)^^ ^ var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ^}}
-
-test regexp-1.256 {converted from line 256} {
- catch {unset var}
- list [catch {
- set match [regexp -- {$$} a var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {}}}
-
-test regexp-1.257 {converted from line 257} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?b)$$} {$} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {$}}}
-
-test regexp-1.258 {converted from line 258} {
- catch {unset var}
- list [catch {
- set match [regexp -- {^$} {} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {}}}
-
-test regexp-1.259 {converted from line 259} {
- catch {unset var}
- list [catch {
- set match [regexp -- {^$} a ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.260 {converted from line 260} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?n)^$} {a
-
-b} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {}}}
-
-test regexp-1.261 {converted from line 261} {
- catch {unset var}
- list [catch {
- set match [regexp -- {$^} {} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {}}}
-
-test regexp-1.262 {converted from line 262} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?b)$^} {$^} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {$^}}}
-
-test regexp-1.263 {converted from line 263} {
- catch {unset var}
- list [catch {
- set match [regexp -- {\Aa} a var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-# skipping char mapping test from line 264
-print {... skip test from line 264: \\Aa ^P a a}
-# skipping char mapping test from line 265
-print {... skip test from line 265: \\Aa ^nP> bNa}
-test regexp-1.266 {converted from line 266} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\Z} a var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-# skipping char mapping test from line 267
-print {... skip test from line 267: a\\Z $P a a}
-# skipping char mapping test from line 268
-print {... skip test from line 268: a\\Z $nP> aNb}
-test regexp-1.269 {converted from line 269} {
- catch {unset var}
- list [catch {
- set match [regexp -- ^* BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-test regexp-1.270 {converted from line 270} {
- catch {unset var}
- list [catch {
- set match [regexp -- {$*} BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-test regexp-1.271 {converted from line 271} {
- catch {unset var}
- list [catch {
- set match [regexp -- {\A*} BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-test regexp-1.272 {converted from line 272} {
- catch {unset var}
- list [catch {
- set match [regexp -- {\Z*} BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-
-
-# boundary constraints
-test regexp-1.275 {converted from line 275} {
- catch {unset var}
- list [catch {
- set match [regexp -- {[[:<:]]a} a var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-test regexp-1.276 {converted from line 276} {
- catch {unset var}
- list [catch {
- set match [regexp -- {[[:<:]]a} -a var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-test regexp-1.277 {converted from line 277} {
- catch {unset var}
- list [catch {
- set match [regexp -- {[[:<:]]a} ba ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.278 {converted from line 278} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[[:>:]]} a var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-test regexp-1.279 {converted from line 279} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[[:>:]]} a- var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-test regexp-1.280 {converted from line 280} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[[:>:]]} ab ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.281 {converted from line 281} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?b)\<a} a var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-test regexp-1.282 {converted from line 282} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?b)\<a} ba ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.283 {converted from line 283} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?b)a\>} a var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-test regexp-1.284 {converted from line 284} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?b)a\>} ab ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.285 {converted from line 285} {
- catch {unset var}
- list [catch {
- set match [regexp -- {\ya} a var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-test regexp-1.286 {converted from line 286} {
- catch {unset var}
- list [catch {
- set match [regexp -- {\ya} ba ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.287 {converted from line 287} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\y} a var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-test regexp-1.288 {converted from line 288} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\y} ab ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.289 {converted from line 289} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\Y} ab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-test regexp-1.290 {converted from line 290} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\Y} a- ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.291 {converted from line 291} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\Y} a ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.292 {converted from line 292} {
- catch {unset var}
- list [catch {
- set match [regexp -- {-\Y} -a ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.293 {converted from line 293} {
- catch {unset var}
- list [catch {
- set match [regexp -- {-\Y} -% var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 -}}
-
-test regexp-1.294 {converted from line 294} {
- catch {unset var}
- list [catch {
- set match [regexp -- {\Y-} a- ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.295 {converted from line 295} {
- catch {unset var}
- list [catch {
- set match [regexp -- {[[:<:]]*} BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-test regexp-1.296 {converted from line 296} {
- catch {unset var}
- list [catch {
- set match [regexp -- {[[:>:]]*} BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-test regexp-1.297 {converted from line 297} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?b)\<*} BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-test regexp-1.298 {converted from line 298} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?b)\>*} BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-test regexp-1.299 {converted from line 299} {
- catch {unset var}
- list [catch {
- set match [regexp -- {\y*} BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-test regexp-1.300 {converted from line 300} {
- catch {unset var}
- list [catch {
- set match [regexp -- {\Y*} BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-
-
-# character classes
-test regexp-1.303 {converted from line 303} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\db} a0b var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a0b}}
-
-test regexp-1.304 {converted from line 304} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\db} axb ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.305 {converted from line 305} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\Db} a0b ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.306 {converted from line 306} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\Db} axb var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 axb}}
-
-test regexp-1.307 {converted from line 307} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\sb} {a b} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {a b}}}
-
-test regexp-1.308 {converted from line 308} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\sb} {a b} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {a b}}}
-
-test regexp-1.309 {converted from line 309} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\sb} {a
-b} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {a
-b}}}
-
-test regexp-1.310 {converted from line 310} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\sb} axb ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.311 {converted from line 311} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\Sb} axb var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 axb}}
-
-test regexp-1.312 {converted from line 312} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\Sb} {a b} ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.313 {converted from line 313} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\wb} axb var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 axb}}
-
-test regexp-1.314 {converted from line 314} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\wb} a-b ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.315 {converted from line 315} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\Wb} axb ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.316 {converted from line 316} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\Wb} a-b var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a-b}}
-
-test regexp-1.317 {converted from line 317} {
- catch {unset var}
- list [catch {
- set match [regexp -- {\y\w+z\y} adze-guz var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 guz}}
-
-test regexp-1.318 {converted from line 318} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[\d]b} a1b var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a1b}}
-
-test regexp-1.319 {converted from line 319} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[\s]b} {a b} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {a b}}}
-
-test regexp-1.320 {converted from line 320} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a[\w]b} axb var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 axb}}
-
-
-
-# escapes
-test regexp-1.323 {converted from line 323} {
- catch {unset var}
- list [catch {
- set match [regexp -- a\\ EESCAPE ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid escape sequence}}
-
-test regexp-1.324 {converted from line 324} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\<b} a<b var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a<b}}
-
-test regexp-1.325 {converted from line 325} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?e)a\<b} a<b var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a<b}}
-
-test regexp-1.326 {converted from line 326} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?b)a\wb} awb var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 awb}}
-
-test regexp-1.327 {converted from line 327} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?e)a\wb} awb var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 awb}}
-
-test regexp-1.328 {converted from line 328} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\ab} ab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ab}}
-
-test regexp-1.329 {converted from line 329} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\bb} ab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ab}}
-
-test regexp-1.330 {converted from line 330} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\chb} ab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ab}}
-
-test regexp-1.331 {converted from line 331} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\cHb} ab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ab}}
-
-test regexp-1.332 {converted from line 332} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\e} a var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-test regexp-1.333 {converted from line 333} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\Eb} {a\b} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {a\b}}}
-
-test regexp-1.334 {converted from line 334} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\fb} {a b} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {a b}}}
-
-test regexp-1.335 {converted from line 335} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\nb} {a
-b} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {a
-b}}}
-
-test regexp-1.336 {converted from line 336} {
- catch {unset var}
- list [catch {
- set match [regexp -- a\rb a\u000Db var(0)]
- list $match $var(0)
- } msg] $msg
-} [subst {0 {1 {a\u000Db}}}]
-
-test regexp-1.337 {converted from line 337} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\tb} {a b} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {a b}}}
-
-test regexp-1.338 {converted from line 338} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\u0008x} ax var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ax}}
-
-test regexp-1.339 {converted from line 339} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\u008x} EESCAPE ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid escape sequence}}
-
-test regexp-1.340 {converted from line 340} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\u00088x} a8x var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a8x}}
-
-test regexp-1.341 {converted from line 341} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\U00000008x} ax var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ax}}
-
-test regexp-1.342 {converted from line 342} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\U0000008x} EESCAPE ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid escape sequence}}
-
-test regexp-1.343 {converted from line 343} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\vb} {a b} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {a b}}}
-
-test regexp-1.344 {converted from line 344} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\x08x} ax var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ax}}
-
-test regexp-1.345 {converted from line 345} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\xx} EESCAPE ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid escape sequence}}
-
-test regexp-1.346 {converted from line 346} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\x0008x} ax var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ax}}
-
-test regexp-1.347 {converted from line 347} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\z} EESCAPE ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid escape sequence}}
-
-test regexp-1.348 {converted from line 348} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\010b} ab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ab}}
-
-
-
-# back references (ugh)
-test regexp-1.351 {converted from line 351} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a(b*)c\1} abbcbb var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abbcbb bb}}
-
-test regexp-1.352 {converted from line 352} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a(b*)c\1} ac var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 ac {}}}
-
-test regexp-1.353 {converted from line 353} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a(b*)c\1} abbcb ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.354 {converted from line 354} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a(b*)\1} abbcbb var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abb b}}
-
-test regexp-1.355 {converted from line 355} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a(b|bb)\1} abbcbb var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abb b}}
-
-test regexp-1.356 {converted from line 356} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a([bc])\1} abb var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abb b}}
-
-test regexp-1.357 {converted from line 357} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a([bc])\1} abc ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.358 {converted from line 358} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a([bc])\1} abcabb var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abb b}}
-
-test regexp-1.359 {converted from line 359} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a([bc])*\1} abc ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.360 {converted from line 360} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a([bc])\1} abB ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.361 {converted from line 361} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?i)a([bc])\1} abB var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abB b}}
-
-test regexp-1.362 {converted from line 362} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a([bc])\1+} abbb var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abbb b}}
-
-test regexp-1.363 {converted from line 363} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a([bc])\1{3,4}} abbbb var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abbbb b}}
-
-test regexp-1.364 {converted from line 364} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a([bc])\1{3,4}} abbb ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.365 {converted from line 365} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a([bc])\1*} abbb var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abbb b}}
-
-test regexp-1.366 {converted from line 366} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a([bc])\1*} ab var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 ab b}}
-
-test regexp-1.367 {converted from line 367} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a([bc])(\1*)} ab var(0) var(1) var(2)]
- list $match $var(0) $var(1) $var(2)
- } msg] $msg
-} {0 {1 ab b {}}}
-
-test regexp-1.368 {converted from line 368} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a((b)\1)} ESUBREG ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid backreference number}}
-
-test regexp-1.369 {converted from line 369} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a(b)c\2} ESUBREG ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid backreference number}}
-
-test regexp-1.370 {converted from line 370} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?b)a\(b*\)c\1} abbcbb var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abbcbb bb}}
-
-
-
-# is it an octal escape or a back reference...?
-# initial zero is always octal
-test regexp-1.374 {converted from line 374} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\010b} ab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ab}}
-
-test regexp-1.375 {converted from line 375} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\0070b} a0b var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a0b}}
-
-test regexp-1.376 {converted from line 376} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\07b} ab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ab}}
-
-test regexp-1.377 {converted from line 377} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)\07c} abbbbbbbbbbc var(0) var(1) var(2) var(3) var(4) var(5) var(6) var(7) var(8) var(9) var(10)]
- list $match $var(0) $var(1) $var(2) $var(3) $var(4) $var(5) $var(6) $var(7) $var(8) $var(9) $var(10)
- } msg] $msg
-} {0 {1 abbbbbbbbbbc b b b b b b b b b b}}
-
-# a single digit is always a backref
-test regexp-1.381 {converted from line 381} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\7b} ESUBREG ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid backreference number}}
-
-# otherwise it's a backref only if within range (barf!)
-test regexp-1.383 {converted from line 383} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\10b} ab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ab}}
-
-test regexp-1.384 {converted from line 384} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\101b} aAb var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 aAb}}
-
-test regexp-1.385 {converted from line 385} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)\10c} abbbbbbbbbbbc var(0) var(1) var(2) var(3) var(4) var(5) var(6) var(7) var(8) var(9) var(10)]
- list $match $var(0) $var(1) $var(2) $var(3) $var(4) $var(5) $var(6) $var(7) $var(8) $var(9) $var(10)
- } msg] $msg
-} {0 {1 abbbbbbbbbbbc b b b b b b b b b b}}
-
-# but we're fussy about border cases -- guys who want octal should use the zero
-test regexp-1.389 {converted from line 389} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a((((((((((b\10))))))))))c} ESUBREG ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid backreference number}}
-
-# BREs don't have octal, EREs don't have backrefs
-test regexp-1.391 {converted from line 391} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a\12b} {a
-b} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {a
-b}}}
-
-test regexp-1.392 {converted from line 392} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?b)a\12b} ESUBREG ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid backreference number}}
-
-test regexp-1.393 {converted from line 393} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?e)a\12b} a12b var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a12b}}
-
-
-
-# expanded syntax
-test regexp-1.396 {converted from line 396} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?x)a b c} abc var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 abc}}
-
-test regexp-1.397 {converted from line 397} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?x)a b #oops
-c d} abcd var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 abcd}}
-
-test regexp-1.398 {converted from line 398} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?x)a\ b\ c} {a b c} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {a b c}}}
-
-test regexp-1.399 {converted from line 399} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?x)a b\#c} ab#c var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ab#c}}
-
-test regexp-1.400 {converted from line 400} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?x)a b[c d]e} {ab e} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {ab e}}}
-
-test regexp-1.401 {converted from line 401} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?x)a b[c#d]e} ab#e var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ab#e}}
-
-test regexp-1.402 {converted from line 402} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?x)a b[c#d]e} abde var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 abde}}
-
-test regexp-1.403 {converted from line 403} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?x)ab\{\ d ab\{d var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ab\{d}}
-
-test regexp-1.404 {converted from line 404} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?x)ab{ 1 , 2 }c} abc var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 abc}}
-
-
-
-# misc. syntax
-test regexp-1.407 {converted from line 407} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(?#comment)b ab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ab}}
-
-
-
-# unmatchable REs
-test regexp-1.410 {converted from line 410} {
- catch {unset var}
- list [catch {
- set match [regexp -- a^b IMPOSS ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: can never match}}
-
-
-
-# case independence
-test regexp-1.413 {converted from line 413} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?i)ab Ab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 Ab}}
-
-test regexp-1.414 {converted from line 414} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?i)a[bc]} aC var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 aC}}
-
-test regexp-1.415 {converted from line 415} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?i)a[^bc]} aB ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.416 {converted from line 416} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?i)a[b-d]} aC var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 aC}}
-
-test regexp-1.417 {converted from line 417} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?i)a[^b-d]} aC ]
- list $match
- } msg] $msg
-} {0 0}
-
-
-
-# inline options
-test regexp-1.420 {converted from line 420} {
- catch {unset var}
- list [catch {
- set match [regexp -- ***? BADPAT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid regular expression}}
-
-# skipping test with metasyntax from line 421
-
-test regexp-1.422 {converted from line 422} {
- catch {unset var}
- list [catch {
- set match [regexp -- ***=a*b a*b var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a*b}}
-
-# skipping test with metasyntax from line 423
-
-# skipping test with metasyntax from line 424
-
-# skipping test with metasyntax from line 425
-
-test regexp-1.426 {converted from line 426} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?b)a+b a+b var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a+b}}
-
-# skipping test with metasyntax from line 427
-
-# skipping test with metasyntax from line 428
-
-# skipping test with metasyntax from line 429
-
-# skipping test with metasyntax from line 430
-
-test regexp-1.431 {converted from line 431} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?e)\W+} WW var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 WW}}
-
-test regexp-1.432 {converted from line 432} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?i)a+ Aa var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 Aa}}
-
-test regexp-1.433 {converted from line 433} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?m)a.b {a
-b} ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.434 {converted from line 434} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?m)^b {a
-b} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 b}}
-
-test regexp-1.435 {converted from line 435} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?n)a.b {a
-b} ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.436 {converted from line 436} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?n)^b {a
-b} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 b}}
-
-test regexp-1.437 {converted from line 437} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?p)a.b {a
-b} ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.438 {converted from line 438} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?p)^b {a
-b} ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.439 {converted from line 439} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?q)a+b a+b var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a+b}}
-
-# skipping test with metasyntax from line 440
-
-# skipping test with metasyntax from line 441
-
-test regexp-1.442 {converted from line 442} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?w)a.b {a
-b} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 {a
-b}}}
-
-test regexp-1.443 {converted from line 443} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?w)^b {a
-b} var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 b}}
-
-test regexp-1.444 {converted from line 444} {
- catch {unset var}
- list [catch {
- set match [regexp -- {(?x)a b} ab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ab}}
-
-test regexp-1.445 {converted from line 445} {
- catch {unset var}
- list [catch {
- set match [regexp -- (?z)ab BADOPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: invalid embedded option}}
-
-
-
-# capturing
-test regexp-1.448 {converted from line 448} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b)c abc var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abc b}}
-
-test regexp-1.449 {converted from line 449} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(?:b)c xabc var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 abc}}
-
-test regexp-1.450 {converted from line 450} {
- catch {unset var}
- list [catch {
- set match [regexp -- a((b))c xabcy var(0) var(1) var(2)]
- list $match $var(0) $var(1) $var(2)
- } msg] $msg
-} {0 {1 abc b b}}
-
-test regexp-1.451 {converted from line 451} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(?:(b))c abcy var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abc b}}
-
-test regexp-1.452 {converted from line 452} {
- catch {unset var}
- list [catch {
- set match [regexp -- a((?:b))c abc var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abc b}}
-
-test regexp-1.453 {converted from line 453} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(?:(?:b))c abc var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 abc}}
-
-test regexp-1.454 {converted from line 454} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b){0}c ac var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ac}}
-
-test regexp-1.455 {converted from line 455} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b)c(d)e abcde var(0) var(1) var(2)]
- list $match $var(0) $var(1) $var(2)
- } msg] $msg
-} {0 {1 abcde b d}}
-
-test regexp-1.456 {converted from line 456} {
- catch {unset var}
- list [catch {
- set match [regexp -- (b)c(d)e bcde var(0) var(1) var(2)]
- list $match $var(0) $var(1) $var(2)
- } msg] $msg
-} {0 {1 bcde b d}}
-
-test regexp-1.457 {converted from line 457} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b)(d)e abde var(0) var(1) var(2)]
- list $match $var(0) $var(1) $var(2)
- } msg] $msg
-} {0 {1 abde b d}}
-
-test regexp-1.458 {converted from line 458} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b)c(d) abcd var(0) var(1) var(2)]
- list $match $var(0) $var(1) $var(2)
- } msg] $msg
-} {0 {1 abcd b d}}
-
-test regexp-1.459 {converted from line 459} {
- catch {unset var}
- list [catch {
- set match [regexp -- (ab)(cd) xabcdy var(0) var(1) var(2)]
- list $match $var(0) $var(1) $var(2)
- } msg] $msg
-} {0 {1 abcd ab cd}}
-
-test regexp-1.460 {converted from line 460} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b)?c xabcy var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abc b}}
-
-test regexp-1.461 {converted from line 461} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b)?c xacy var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ac}}
-
-test regexp-1.462 {converted from line 462} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b)?c(d)?e xabcdey var(0) var(1) var(2)]
- list $match $var(0) $var(1) $var(2)
- } msg] $msg
-} {0 {1 abcde b d}}
-
-test regexp-1.463 {converted from line 463} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b)?c(d)?e xacdey var(0) var(1) var(2)]
- list $match $var(0) $var(1) $var(2)
- } msg] $msg
-} {0 {1 acde {} d}}
-
-test regexp-1.464 {converted from line 464} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b)?c(d)?e xabcey var(0) var(1) var(2)]
- list $match $var(0) $var(1) $var(2)
- } msg] $msg
-} {0 {1 abce b {}}}
-
-test regexp-1.465 {converted from line 465} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b)?c(d)?e xacey var(0) var(1) var(2)]
- list $match $var(0) $var(1) $var(2)
- } msg] $msg
-} {0 {1 ace {} {}}}
-
-test regexp-1.466 {converted from line 466} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b)*c xabcy var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abc b}}
-
-test regexp-1.467 {converted from line 467} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b)*c xabbbcy var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abbbc b}}
-
-test regexp-1.468 {converted from line 468} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b)*c xacy var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 ac {}}}
-
-test regexp-1.469 {converted from line 469} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b*)c xabbbcy var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abbbc bbb}}
-
-test regexp-1.470 {converted from line 470} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b*)c xacy var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 ac {}}}
-
-test regexp-1.471 {converted from line 471} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b)+c xacy ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.472 {converted from line 472} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b)+c xabcy var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abc b}}
-
-test regexp-1.473 {converted from line 473} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b)+c xabbbcy var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abbbc b}}
-
-test regexp-1.474 {converted from line 474} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b+)c xabbbcy var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abbbc bbb}}
-
-test regexp-1.475 {converted from line 475} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b){2,3}c xabbbcy var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abbbc b}}
-
-test regexp-1.476 {converted from line 476} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b){2,3}c xabbcy var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abbc b}}
-
-test regexp-1.477 {converted from line 477} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(b){2,3}c xabcy ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.478 {converted from line 478} {
- catch {unset var}
- list [catch {
- set match [regexp -- {\y(\w+)\y} {-- abc-} var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abc abc}}
-
-test regexp-1.479 {converted from line 479} {
- catch {unset var}
- list [catch {
- set match [regexp -- a((b|c)d+)+ abacdbd var(0) var(1) var(2)]
- list $match $var(0) $var(1) $var(2)
- } msg] $msg
-} {0 {1 acdbd bd b}}
-
-test regexp-1.480 {converted from line 480} {
- catch {unset var}
- list [catch {
- set match [regexp -- (.*).* abc var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abc abc}}
-
-test regexp-1.481 {converted from line 481} {
- catch {unset var}
- list [catch {
- set match [regexp -- (a*)* bc var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 {} {}}}
-
-
-
-# collating elements (ugh)
-# skipping char mapping test from line 484
-print {... skip test from line 484: a&c&e &+L ace ace}
-# skipping char mapping test from line 485
-print {... skip test from line 485: a&c&h &+* IMPOSS}
-# skipping char mapping test from line 486
-print {... skip test from line 486: a&&.ch.&& &+L ach ach}
-# skipping char mapping test from line 487
-print {... skip test from line 487: a&&.ch.&& &+L ace}
-# skipping char mapping test from line 488
-print {... skip test from line 488: a&c&.ch.&& &+L ac ac}
-# skipping char mapping test from line 489
-print {... skip test from line 489: a&c&.ch.&& &+L ace ac}
-# skipping char mapping test from line 490
-print {... skip test from line 490: a&c&.ch.&& &+L ache ach}
-# skipping char mapping test from line 491
-print {... skip test from line 491: a&^c&e &+L ace}
-# skipping char mapping test from line 492
-print {... skip test from line 492: a&^c&e &+L abe abe}
-# skipping char mapping test from line 493
-print {... skip test from line 493: a&^c&e &+L ache ache}
-# skipping char mapping test from line 494
-print {... skip test from line 494: a&^&.ch.&& &+L ach}
-# skipping char mapping test from line 495
-print {... skip test from line 495: a&^&.ch.&& &+L ace ac}
-# skipping char mapping test from line 496
-print {... skip test from line 496: a&^&.ch.&& &+L ac ac}
-# skipping char mapping test from line 497
-print {... skip test from line 497: a&^&.ch.&& &+L abe ab}
-# skipping char mapping test from line 498
-print {... skip test from line 498: a&^c&.ch.&& &+L ach}
-# skipping char mapping test from line 499
-print {... skip test from line 499: a&^c&.ch.&& &+L ace}
-# skipping char mapping test from line 500
-print {... skip test from line 500: a&^c&.ch.&& &+L ac}
-# skipping char mapping test from line 501
-print {... skip test from line 501: a&^c&.ch.&& &+L abe ab}
-# skipping char mapping test from line 502
-print {... skip test from line 502: a&^b& &+L ac ac}
-# skipping char mapping test from line 503
-print {... skip test from line 503: a&^b& &+L ace ac}
-# skipping char mapping test from line 504
-print {... skip test from line 504: a&^b& &+L ach ach}
-# skipping char mapping test from line 505
-print {... skip test from line 505: a&^b& &+L abe}
-
-
-# lookahead
-test regexp-1.508 {converted from line 508} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(?=b)b* ab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ab}}
-
-test regexp-1.509 {converted from line 509} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(?=b)b* a ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.510 {converted from line 510} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(?!b)b* ab ]
- list $match
- } msg] $msg
-} {0 0}
-
-test regexp-1.511 {converted from line 511} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(?!b)b* a var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-
-
-# non-greedy quantifiers
-test regexp-1.514 {converted from line 514} {
- catch {unset var}
- list [catch {
- set match [regexp -- ab+? abb var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 ab}}
-
-test regexp-1.515 {converted from line 515} {
- catch {unset var}
- list [catch {
- set match [regexp -- ab+?c abbc var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 abbc}}
-
-test regexp-1.516 {converted from line 516} {
- catch {unset var}
- list [catch {
- set match [regexp -- ab*? abb var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-test regexp-1.517 {converted from line 517} {
- catch {unset var}
- list [catch {
- set match [regexp -- ab*?c abbc var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 abbc}}
-
-test regexp-1.518 {converted from line 518} {
- catch {unset var}
- list [catch {
- set match [regexp -- ab?? ab var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 a}}
-
-test regexp-1.519 {converted from line 519} {
- catch {unset var}
- list [catch {
- set match [regexp -- ab??c abc var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 abc}}
-
-test regexp-1.520 {converted from line 520} {
- catch {unset var}
- list [catch {
- set match [regexp -- ab{2,4}? abbbb var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 abb}}
-
-test regexp-1.521 {converted from line 521} {
- catch {unset var}
- list [catch {
- set match [regexp -- ab{2,4}?c abbbbc var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 abbbbc}}
-
-
-
-# xxx mixed quantifiers (incl |)
-
-
-# attempts to trick the matcher into accepting a short match
-test regexp-1.526 {converted from line 526} {
- catch {unset var}
- list [catch {
- set match [regexp -- (week|wee)(night|knights) weeknights var(0) var(1) var(2)]
- list $match $var(0) $var(1) $var(2)
- } msg] $msg
-} {0 {1 weeknights wee knights}}
-
-test regexp-1.527 {converted from line 527} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a(bc*).*\1} abccbccb var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abccbccb b}}
-
-test regexp-1.528 {converted from line 528} {
- catch {unset var}
- list [catch {
- set match [regexp -- {a(b.[bc]*)+} abcbd var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 abcbd bd}}
-
-
-
-# implementation misc.
-# duplicate arcs are suppressed
-test regexp-1.532 {converted from line 532} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(?:b|b)c abc var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 abc}}
-
-
-
-# boundary busters
-# color-descriptor allocation and arc allocation both change at 10
-test regexp-1.536 {converted from line 536} {
- catch {unset var}
- list [catch {
- set match [regexp -- abcdefghijkl abcdefghijkl var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 abcdefghijkl}}
-
-# subexpression tracking at 10
-test regexp-1.538 {converted from line 538} {
- catch {unset var}
- list [catch {
- set match [regexp -- a(((((((((((((b)))))))))))))c abc var(0) var(1) var(2) var(3) var(4) var(5) var(6) var(7) var(8) var(9) var(10) var(11) var(12) var(13)]
- list $match $var(0) $var(1) $var(2) $var(3) $var(4) $var(5) $var(6) $var(7) $var(8) $var(9) $var(10) $var(11) $var(12) $var(13)
- } msg] $msg
-} {0 {1 abc b b b b b b b b b b b b b}}
-
-# state-set handling changes slightly at unsigned size (might be 64...)
-# (also stresses arc allocation)
-test regexp-1.544 {converted from line 544} {
- catch {unset var}
- list [catch {
- set match [regexp -- ab{1,100}c abbc var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 abbc}}
-
-test regexp-1.545 {converted from line 545} {
- catch {unset var}
- list [catch {
- set match [regexp -- ab{1,100}c abbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbc var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 abbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbc}}
-
-test regexp-1.548 {converted from line 548} {
- catch {unset var}
- list [catch {
- set match [regexp -- ab{1,100}c abbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbc var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 abbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbc}}
-
-# force small cache and bust it, several ways
-test regexp-1.552 {converted from line 552} {
- catch {unset var}
- list [catch {
- set match [regexp -- {\w+abcdefgh} xyzabcdefgh var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 xyzabcdefgh}}
-
-test regexp-1.553 {converted from line 553} {
- catch {unset var}
- list [catch {
- set match [regexp -- {\w+abcdefgh} xyzabcdefgh var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 xyzabcdefgh}}
-
-test regexp-1.554 {converted from line 554} {
- catch {unset var}
- list [catch {
- set match [regexp -- {\w+(abcdefgh)?} xyz var(0) var(1)]
- list $match $var(0) $var(1)
- } msg] $msg
-} {0 {1 xyz {}}}
-
-
-
-# make color/subcolor relationship go back and forth
-test regexp-1.557 {converted from line 557} {
- catch {unset var}
- list [catch {
- set match [regexp -- {[ab][ab][ab]} aba var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 aba}}
-
-
-
-# misc.
-test regexp-1.560 {converted from line 560} {
- catch {unset var}
- list [catch {
- set match [regexp -- *** BADRPT ]
- list $match
- } msg] $msg
-} {1 {couldn't compile regular expression pattern: ?+* follows nothing}}
-
-test regexp-1.561 {converted from line 561} {
- catch {unset var}
- list [catch {
- set match [regexp -- a?b* abb var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 abb}}
-
-test regexp-1.562 {converted from line 562} {
- catch {unset var}
- list [catch {
- set match [regexp -- a?b* bb var(0)]
- list $match $var(0)
- } msg] $msg
-} {0 {1 bb}}
-
generated by cgit v0.12 at 2024-07-15 22:53:04 (GMT)