1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
-
+
-
+
|
# reg.test --
#
# This file contains a collection of tests for one or more of the Tcl
# built-in commands. Sourcing this file into Tcl runs the tests and
# generates output for errors. No output means no errors were found.
#
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
# RCS: @(#) $Id: reg.test,v 1.1.2.4 1999/03/23 04:13:53 stanton Exp $
# RCS: @(#) $Id: reg.test,v 1.1.2.5 1999/03/23 20:06:49 hershey Exp $
if {[lsearch [namespace children] ::test] == -1} {
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
}
# This file uses some custom procedures, defined below, for regexp regression
# testing. The name of the procedure indicates the general nature of the
# test: e for compile error expected, f for match failure expected, m
# for a successful match, and i for a successful match with -indices (used
|
889
890
891
892
893
894
895
896
897
898
|
889
890
891
892
893
894
895
896
897
898
|
-
+
|
m 6 &M {[0-6][1-2][0-3][0-6][1-6][0-6]} 010010 010010
doing 0 "flush" ;# to flush any leftover complaints
# cleanup
::test::cleanupTests
::tcltest::cleanupTests
return
|