dlls/vbscript/tests/regexp.vbs - wine - Git at Google


            
            '

            
            ' Copyright 2013 Piotr Caban for CodeWeavers

            
            '

            
            ' This library is free software; you can redistribute it and/or

            
            ' modify it under the terms of the GNU Lesser General Public

            
            ' License as published by the Free Software Foundation; either

            
            ' version 2.1 of the License, or (at your option) any later version.

            
            '

            
            ' This library is distributed in the hope that it will be useful,

            
            ' but WITHOUT ANY WARRANTY; without even the implied warranty of

            
            ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

            
            ' Lesser General Public License for more details.

            
            '

            
            ' You should have received a copy of the GNU Lesser General Public

            
            ' License along with this library; if not, write to the Free Software

            
            ' Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA

            
            '


            Option Explicit


            Dim x, matches, match, submatch


            Set x = CreateObject("vbscript.regexp")

            
            Call ok(getVT(x.Pattern) = "VT_BSTR", "getVT(RegExp.Pattern) = " & getVT(x.Pattern))

            
            Call ok(x.Pattern = "", "RegExp.Pattern = " & x.Pattern)

            
            Call ok(getVT(x.IgnoreCase) = "VT_BOOL", "getVT(RegExp.IgnoreCase) = " & getVT(x.IgnoreCase))

            
            Call ok(x.IgnoreCase = false, "RegExp.IgnoreCase = " & x.IgnoreCase)

            
            Call ok(getVT(x.Global) = "VT_BOOL", "getVT(RegExp.Global) = " & getVT(x.Global))

            
            Call ok(x.Global = false, "RegExp.Global = " & x.Global)

            
            Call ok(getVT(x.Multiline) = "VT_BOOL", "getVT(RegExp.Multiline) = " & getVT(x.Multiline))

            
            Call ok(x.Multiline = false, "RegExp.Multiline = " & x.Multiline)


            x.Pattern = "a+"

            
            matches = x.Test(" aabaaa")

            
            Call ok(matches = true, "RegExp.Test returned: " & matches)

            
            Set matches = x.Execute(" aabaaa")

            
            Call ok(getVT(matches.Count) = "VT_I4", "getVT(matches.Count) = " & getVT(matches.Count))

            
            Call ok(matches.Count = 1, "matches.Count = " & matches.Count)

            
            Set match = matches.Item(0)

            
            Call ok(match.Value = "aa", "match.Value = " & match.Value)

            
            Call ok(match.FirstIndex = 1, "match.FirstIndex = " & match.FirstIndex)

            
            Call ok(match.Length = 2, "match.Length = " & match.Length)

            
            Set submatch = match.SubMatches

            
            Call ok(submatch.Count = 0, "submatch.Count = " & submatch.Count)


            x.Global = true

            
            Set matches = x.Execute(" aabaaa")

            
            Call ok(matches.Count = 2, "matches.Count = " & matches.Count)

            
            Set match = matches.Item(0)

            
            Call ok(match.Value = "aa", "match.Value = " & match.Value)

            
            Call ok(match.FirstIndex = 1, "match.FirstIndex = " & match.FirstIndex)

            
            Call ok(match.Length = 2, "match.Length = " & match.Length)

            
            Set submatch = match.SubMatches

            
            Call ok(submatch.Count = 0, "submatch.Count = " & submatch.Count)

            
            Set match = matches.Item(1)

            
            Call ok(match.Value = "aaa", "match.Value = " & match.Value)

            
            Call ok(match.FirstIndex = 4, "match.FirstIndex = " & match.FirstIndex)

            
            Call ok(match.Length = 3, "match.Length = " & match.Length)

            
            Set submatch = match.SubMatches

            
            Call ok(submatch.Count = 0, "submatch.Count = " & submatch.Count)


            Set matches = x.Execute(" aabaaa")

            
            Call ok(matches.Count = 2, "matches.Count = " & matches.Count)

            
            Set match = matches.Item(0)

            
            Call ok(match.Value = "aa", "match.Value = " & match.Value)

            
            Call ok(match.FirstIndex = 1, "match.FirstIndex = " & match.FirstIndex)

            
            Call ok(match.Length = 2, "match.Length = " & match.Length)

            
            Set submatch = match.SubMatches

            
            Call ok(submatch.Count = 0, "submatch.Count = " & submatch.Count)


            x.Pattern = "^[^<]*(<(.|\s)+>)[^>]*$|^#(\w+)$"

            
            x.Global = false

            
            Set matches = x.Execute("xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx")

            
            Call ok(matches.Count = 0, "matches.Count = " & matches.Count)

            
            Set submatch = match.SubMatches

            
            Call ok(submatch.Count = 0, "submatch.Count = " & submatch.Count)


            x.Pattern = "(a|b)+|(c)"

            
            Set matches = x.Execute("aa")

            
            Call ok(matches.Count = 1, "matches.Count = " & matches.Count)

            
            Set match = matches.Item(0)

            
            Call ok(match.Value = "aa", "match.Value = " & match.Value)

            
            Call ok(match.FirstIndex = 0, "match.FirstIndex = " & match.FirstIndex)

            
            Call ok(match.Length = 2, "match.Length = " & match.Length)

            
            Set submatch = match.SubMatches

            
            Call ok(submatch.Count = 2, "submatch.Count = " & submatch.Count)

            
            Call ok(getVT(submatch.Item(0)) = "VT_BSTR", "getVT(submatch.Item(0)) = " & getVT(submatch.Item(0)))

            
            Call ok(submatch.Item(0) = "a", "submatch.Item(0) = " & submatch.Item(0))

            
            Call ok(getVT(submatch.Item(1)) = "VT_EMPTY", "getVT(submatch.Item(1)) = " & getVT(submatch.Item(1)))

            
            Call ok(submatch.Item(1) = "", "submatch.Item(0) = " & submatch.Item(1))


            matches = x.Test("  a ")

            
            Call ok(matches = true, "RegExp.Test returned: " & matches)

            
            matches = x.Test("  a ")

            
            Call ok(matches = true, "RegExp.Test returned: " & matches)


            x.Pattern = "\[([^\[]+)\]"

            
            x.Global = true

            
            Set matches = x.Execute(" [test]  ")

            
            Call ok(matches.Count = 1, "matches.Count = " & matches.Count)

            
            Set match = matches.Item(0)

            
            Call ok(match.Value = "[test]", "match.Value = " & match.Value)

            
            Call ok(match.FirstIndex = 1, "match.FirstIndex = " & match.FirstIndex)

            
            Call ok(match.Length = 6, "match.Length = " & match.Length)

            
            Set submatch = match.SubMatches

            
            Call ok(submatch.Count = 1, "submatch.Count = " & submatch.Count)

            
            Call ok(submatch.Item(0) = "test", "submatch.Item(0) = " & submatch.Item(0))


            x.Pattern = "Ab"

            
            x.IgnoreCase = true

            
            Set matches = x.Execute("abcaBc")

            
            Call ok(matches.Count = 2, "matches.Count = " & matches.Count)

            
            Set match = matches.Item(0)

            
            Call ok(match.Value = "ab", "match.Value = " & match.Value)

            
            Call ok(match.FirstIndex = 0, "match.FirstIndex = " & match.FirstIndex)

            
            Call ok(match.Length = 2, "match.Length = " & match.Length)

            
            Set submatch = match.SubMatches

            
            Call ok(submatch.Count = 0, "submatch.Count = " & submatch.Count)

            
            Set match = matches.Item(1)

            
            Call ok(match.Value = "aB", "match.Value = " & match.Value)

            
            Call ok(match.FirstIndex = 3, "match.FirstIndex = " & match.FirstIndex)

            
            Call ok(match.Length = 2, "match.Length = " & match.Length)

            
            Set submatch = match.SubMatches

            
            Call ok(submatch.Count = 0, "submatch.Count = " & submatch.Count)


            x.Pattern = "a+b"

            
            x.IgnoreCase = false

            
            Set matches = x.Execute("aaabcabc")

            
            Call ok(matches.Count = 2, "matches.Count = " & matches.Count)

            
            Set match = matches.Item(0)

            
            Call ok(match.Value = "aaab", "match.Value = " & match.Value)

            
            Call ok(match.FirstIndex = 0, "match.FirstIndex = " & match.FirstIndex)

            
            Call ok(match.Length = 4, "match.Length = " & match.Length)

            
            Set submatch = match.SubMatches

            
            Call ok(submatch.Count = 0, "submatch.Count = " & submatch.Count)

            
            Set match = matches.Item(1)

            
            Call ok(match.Value = "ab", "match.Value = " & match.Value)

            
            Call ok(match.FirstIndex = 5, "match.FirstIndex = " & match.FirstIndex)

            
            Call ok(match.Length = 2, "match.Length = " & match.Length)

            
            Set submatch = match.SubMatches

            
            Call ok(submatch.Count = 0, "submatch.Count = " & submatch.Count)


            x.Pattern = "\\"

            
            Set matches = x.Execute("aaa\\cabc")

            
            Call ok(matches.Count = 2, "matches.Count = " & matches.Count)

            
            Set match = matches.Item(0)

            
            Call ok(match.Value = "\", "match.Value = " & match.Value)

            
            Call ok(match.FirstIndex = 3, "match.FirstIndex = " & match.FirstIndex)

            
            Call ok(match.Length = 1, "match.Length = " & match.Length)

            
            Set submatch = match.SubMatches

            
            Call ok(submatch.Count = 0, "submatch.Count = " & submatch.Count)

            
            Set match = matches.Item(1)

            
            Call ok(match.Value = "\", "match.Value = " & match.Value)

            
            Call ok(match.FirstIndex = 4, "match.FirstIndex = " & match.FirstIndex)

            
            Call ok(match.Length = 1, "match.Length = " & match.Length)

            
            Set submatch = match.SubMatches

            
            Call ok(submatch.Count = 0, "submatch.Count = " & submatch.Count)


            x.Pattern = "(a)(b)cabc"

            
            Set matches = x.Execute("abcabc")

            
            Call ok(matches.Count = 1, "matches.Count = " & matches.Count)

            
            Set match = matches.Item(0)

            
            Call ok(match.Value = "abcabc", "match.Value = " & match.Value)

            
            Call ok(match.FirstIndex = 0, "match.FirstIndex = " & match.FirstIndex)

            
            Call ok(match.Length = 6, "match.Length = " & match.Length)

            
            Set submatch = match.SubMatches

            
            Call ok(submatch.Count = 2, "submatch.Count = " & submatch.Count)

            
            Call ok(submatch.Item(0) = "a", "submatch.Item(0) = " & submatch.Item(0))

            
            Call ok(submatch.Item(1) = "b", "submatch.Item(0) = " & submatch.Item(1))


            Set x = new regexp

            
            Call ok(x.Pattern = "", "RegExp.Pattern = " & x.Pattern)

            
            Call ok(x.IgnoreCase = false, "RegExp.IgnoreCase = " & x.IgnoreCase)

            
            Call ok(x.Global = false, "RegExp.Global = " & x.Global)

            
            Call ok(x.Multiline = false, "RegExp.Multiline = " & x.Multiline)


            set matches = x.execute("test")

            
            Call ok(matches.Count = 1, "matches.Count = " & matches.Count)

            
            x.pattern = ""

            
            set matches = x.execute("test")

            
            Call ok(matches.Count = 1, "matches.Count = " & matches.Count)

            
            set match = matches.item(0)

            
            Call ok(match.Value = "", "match.Value = " & match.Value)

            
            x.global = true

            
            set matches = x.execute("test")

            
            Call ok(matches.Count = 5, "matches.Count = " & matches.Count)

            
            set match = matches.item(0)

            
            Call ok(match.Value = "", "match.Value = " & match.Value)

            
            set match = matches.item(4)

            
            Call ok(match.Value = "", "match.Value = " & match.Value)

            
            matches = x.test("test")

            
            Call ok(matches = true, "matches = " & matches)


            Call reportSuccess()
	'
	' Copyright 2013 Piotr Caban for CodeWeavers
	'
	' This library is free software; you can redistribute it and/or
	' modify it under the terms of the GNU Lesser General Public
	' License as published by the Free Software Foundation; either
	' version 2.1 of the License, or (at your option) any later version.
	'
	' This library is distributed in the hope that it will be useful,
	' but WITHOUT ANY WARRANTY; without even the implied warranty of
	' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
	' Lesser General Public License for more details.
	'
	' You should have received a copy of the GNU Lesser General Public
	' License along with this library; if not, write to the Free Software
	' Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
	'

	Option Explicit

	Dim x, matches, match, submatch

	Set x = CreateObject("vbscript.regexp")
	Call ok(getVT(x.Pattern) = "VT_BSTR", "getVT(RegExp.Pattern) = " & getVT(x.Pattern))
	Call ok(x.Pattern = "", "RegExp.Pattern = " & x.Pattern)
	Call ok(getVT(x.IgnoreCase) = "VT_BOOL", "getVT(RegExp.IgnoreCase) = " & getVT(x.IgnoreCase))
	Call ok(x.IgnoreCase = false, "RegExp.IgnoreCase = " & x.IgnoreCase)
	Call ok(getVT(x.Global) = "VT_BOOL", "getVT(RegExp.Global) = " & getVT(x.Global))
	Call ok(x.Global = false, "RegExp.Global = " & x.Global)
	Call ok(getVT(x.Multiline) = "VT_BOOL", "getVT(RegExp.Multiline) = " & getVT(x.Multiline))
	Call ok(x.Multiline = false, "RegExp.Multiline = " & x.Multiline)

	x.Pattern = "a+"
	matches = x.Test(" aabaaa")
	Call ok(matches = true, "RegExp.Test returned: " & matches)
	Set matches = x.Execute(" aabaaa")
	Call ok(getVT(matches.Count) = "VT_I4", "getVT(matches.Count) = " & getVT(matches.Count))
	Call ok(matches.Count = 1, "matches.Count = " & matches.Count)
	Set match = matches.Item(0)
	Call ok(match.Value = "aa", "match.Value = " & match.Value)
	Call ok(match.FirstIndex = 1, "match.FirstIndex = " & match.FirstIndex)
	Call ok(match.Length = 2, "match.Length = " & match.Length)
	Set submatch = match.SubMatches
	Call ok(submatch.Count = 0, "submatch.Count = " & submatch.Count)

	x.Global = true
	Set matches = x.Execute(" aabaaa")
	Call ok(matches.Count = 2, "matches.Count = " & matches.Count)
	Set match = matches.Item(0)
	Call ok(match.Value = "aa", "match.Value = " & match.Value)
	Call ok(match.FirstIndex = 1, "match.FirstIndex = " & match.FirstIndex)
	Call ok(match.Length = 2, "match.Length = " & match.Length)
	Set submatch = match.SubMatches
	Call ok(submatch.Count = 0, "submatch.Count = " & submatch.Count)
	Set match = matches.Item(1)
	Call ok(match.Value = "aaa", "match.Value = " & match.Value)
	Call ok(match.FirstIndex = 4, "match.FirstIndex = " & match.FirstIndex)
	Call ok(match.Length = 3, "match.Length = " & match.Length)
	Set submatch = match.SubMatches
	Call ok(submatch.Count = 0, "submatch.Count = " & submatch.Count)

	Set matches = x.Execute(" aabaaa")
	Call ok(matches.Count = 2, "matches.Count = " & matches.Count)
	Set match = matches.Item(0)
	Call ok(match.Value = "aa", "match.Value = " & match.Value)
	Call ok(match.FirstIndex = 1, "match.FirstIndex = " & match.FirstIndex)
	Call ok(match.Length = 2, "match.Length = " & match.Length)
	Set submatch = match.SubMatches
	Call ok(submatch.Count = 0, "submatch.Count = " & submatch.Count)

	x.Pattern = "^[^<](<(.\|\s)+>)[^>]$\|^#(\w+)$"
	x.Global = false
	Set matches = x.Execute("xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx")
	Call ok(matches.Count = 0, "matches.Count = " & matches.Count)
	Set submatch = match.SubMatches
	Call ok(submatch.Count = 0, "submatch.Count = " & submatch.Count)

	x.Pattern = "(a\|b)+\|(c)"
	Set matches = x.Execute("aa")
	Call ok(matches.Count = 1, "matches.Count = " & matches.Count)
	Set match = matches.Item(0)
	Call ok(match.Value = "aa", "match.Value = " & match.Value)
	Call ok(match.FirstIndex = 0, "match.FirstIndex = " & match.FirstIndex)
	Call ok(match.Length = 2, "match.Length = " & match.Length)
	Set submatch = match.SubMatches
	Call ok(submatch.Count = 2, "submatch.Count = " & submatch.Count)
	Call ok(getVT(submatch.Item(0)) = "VT_BSTR", "getVT(submatch.Item(0)) = " & getVT(submatch.Item(0)))
	Call ok(submatch.Item(0) = "a", "submatch.Item(0) = " & submatch.Item(0))
	Call ok(getVT(submatch.Item(1)) = "VT_EMPTY", "getVT(submatch.Item(1)) = " & getVT(submatch.Item(1)))
	Call ok(submatch.Item(1) = "", "submatch.Item(0) = " & submatch.Item(1))

	matches = x.Test(" a ")
	Call ok(matches = true, "RegExp.Test returned: " & matches)
	matches = x.Test(" a ")
	Call ok(matches = true, "RegExp.Test returned: " & matches)

	x.Pattern = "\[([^\[]+)\]"
	x.Global = true
	Set matches = x.Execute(" [test] ")
	Call ok(matches.Count = 1, "matches.Count = " & matches.Count)
	Set match = matches.Item(0)
	Call ok(match.Value = "[test]", "match.Value = " & match.Value)
	Call ok(match.FirstIndex = 1, "match.FirstIndex = " & match.FirstIndex)
	Call ok(match.Length = 6, "match.Length = " & match.Length)
	Set submatch = match.SubMatches
	Call ok(submatch.Count = 1, "submatch.Count = " & submatch.Count)
	Call ok(submatch.Item(0) = "test", "submatch.Item(0) = " & submatch.Item(0))

	x.Pattern = "Ab"
	x.IgnoreCase = true
	Set matches = x.Execute("abcaBc")
	Call ok(matches.Count = 2, "matches.Count = " & matches.Count)
	Set match = matches.Item(0)
	Call ok(match.Value = "ab", "match.Value = " & match.Value)
	Call ok(match.FirstIndex = 0, "match.FirstIndex = " & match.FirstIndex)
	Call ok(match.Length = 2, "match.Length = " & match.Length)
	Set submatch = match.SubMatches
	Call ok(submatch.Count = 0, "submatch.Count = " & submatch.Count)
	Set match = matches.Item(1)
	Call ok(match.Value = "aB", "match.Value = " & match.Value)
	Call ok(match.FirstIndex = 3, "match.FirstIndex = " & match.FirstIndex)
	Call ok(match.Length = 2, "match.Length = " & match.Length)
	Set submatch = match.SubMatches
	Call ok(submatch.Count = 0, "submatch.Count = " & submatch.Count)

	x.Pattern = "a+b"
	x.IgnoreCase = false
	Set matches = x.Execute("aaabcabc")
	Call ok(matches.Count = 2, "matches.Count = " & matches.Count)
	Set match = matches.Item(0)
	Call ok(match.Value = "aaab", "match.Value = " & match.Value)
	Call ok(match.FirstIndex = 0, "match.FirstIndex = " & match.FirstIndex)
	Call ok(match.Length = 4, "match.Length = " & match.Length)
	Set submatch = match.SubMatches
	Call ok(submatch.Count = 0, "submatch.Count = " & submatch.Count)
	Set match = matches.Item(1)
	Call ok(match.Value = "ab", "match.Value = " & match.Value)
	Call ok(match.FirstIndex = 5, "match.FirstIndex = " & match.FirstIndex)
	Call ok(match.Length = 2, "match.Length = " & match.Length)
	Set submatch = match.SubMatches
	Call ok(submatch.Count = 0, "submatch.Count = " & submatch.Count)

	x.Pattern = "\\"
	Set matches = x.Execute("aaa\\cabc")
	Call ok(matches.Count = 2, "matches.Count = " & matches.Count)
	Set match = matches.Item(0)
	Call ok(match.Value = "\", "match.Value = " & match.Value)
	Call ok(match.FirstIndex = 3, "match.FirstIndex = " & match.FirstIndex)
	Call ok(match.Length = 1, "match.Length = " & match.Length)
	Set submatch = match.SubMatches
	Call ok(submatch.Count = 0, "submatch.Count = " & submatch.Count)
	Set match = matches.Item(1)
	Call ok(match.Value = "\", "match.Value = " & match.Value)
	Call ok(match.FirstIndex = 4, "match.FirstIndex = " & match.FirstIndex)
	Call ok(match.Length = 1, "match.Length = " & match.Length)
	Set submatch = match.SubMatches
	Call ok(submatch.Count = 0, "submatch.Count = " & submatch.Count)

	x.Pattern = "(a)(b)cabc"
	Set matches = x.Execute("abcabc")
	Call ok(matches.Count = 1, "matches.Count = " & matches.Count)
	Set match = matches.Item(0)
	Call ok(match.Value = "abcabc", "match.Value = " & match.Value)
	Call ok(match.FirstIndex = 0, "match.FirstIndex = " & match.FirstIndex)
	Call ok(match.Length = 6, "match.Length = " & match.Length)
	Set submatch = match.SubMatches
	Call ok(submatch.Count = 2, "submatch.Count = " & submatch.Count)
	Call ok(submatch.Item(0) = "a", "submatch.Item(0) = " & submatch.Item(0))
	Call ok(submatch.Item(1) = "b", "submatch.Item(0) = " & submatch.Item(1))

	Set x = new regexp
	Call ok(x.Pattern = "", "RegExp.Pattern = " & x.Pattern)
	Call ok(x.IgnoreCase = false, "RegExp.IgnoreCase = " & x.IgnoreCase)
	Call ok(x.Global = false, "RegExp.Global = " & x.Global)
	Call ok(x.Multiline = false, "RegExp.Multiline = " & x.Multiline)

	set matches = x.execute("test")
	Call ok(matches.Count = 1, "matches.Count = " & matches.Count)
	x.pattern = ""
	set matches = x.execute("test")
	Call ok(matches.Count = 1, "matches.Count = " & matches.Count)
	set match = matches.item(0)
	Call ok(match.Value = "", "match.Value = " & match.Value)
	x.global = true
	set matches = x.execute("test")
	Call ok(matches.Count = 5, "matches.Count = " & matches.Count)
	set match = matches.item(0)
	Call ok(match.Value = "", "match.Value = " & match.Value)
	set match = matches.item(4)
	Call ok(match.Value = "", "match.Value = " & match.Value)
	matches = x.test("test")
	Call ok(matches = true, "matches = " & matches)

	Call reportSuccess()