1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
# 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 Henry Spencer. All rights reserved.
#
# RCS: @(#) $Id: reg.test,v 1.4 1999/06/17 19:30:26 stanton Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
}
# All tests require the testregexp command, return if this
# command doesn't exist
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
# 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 Henry Spencer. All rights reserved.
#
# RCS: @(#) $Id: reg.test,v 1.5 1999/06/25 18:42:14 stanton Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
}
# All tests require the testregexp command, return if this
# command doesn't exist
|
846
847
848
849
850
851
852
853
854
855
856
857
858
859
|
m 2 P ab+?c abbc abbc
m 3 P ab*? abb a
m 4 P ab*?c abbc abbc
m 5 P ab?? ab a
m 6 P ab??c abc abc
m 7 PQ "ab{2,4}?" abbbb abb
m 8 PQ "ab{2,4}?c" abbbbc abbbbc
doing 25 "mixed quantifiers"
# should include |
m 1 PN {^(.*?)(a*)$} xyza xyza xyz a
m 2 PN {^(.*?)(a*)$} xyzaa xyzaa xyz aa
|
>
>
>
>
|
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
|
m 2 P ab+?c abbc abbc
m 3 P ab*? abb a
m 4 P ab*?c abbc abbc
m 5 P ab?? ab a
m 6 P ab??c abc abc
m 7 PQ "ab{2,4}?" abbbb abb
m 8 PQ "ab{2,4}?c" abbbbc abbbbc
m 9 - 3z* 123zzzz456 3zzzz
m 10 P 3z*? 123zzzz456 3
m 11 - z*4 123zzzz456 zzzz4
m 12 P z*?4 123zzzz456 zzzz4
doing 25 "mixed quantifiers"
# should include |
m 1 PN {^(.*?)(a*)$} xyza xyza xyz a
m 2 PN {^(.*?)(a*)$} xyzaa xyzaa xyz aa
|