Imports Xunit Public Class MatchingBracketsTests Public Sub PairedSquareBrackets() Dim value = "[]" Assert.True(IsPaired(value)) End Sub Public Sub EmptyString() Dim value = "" Assert.True(IsPaired(value)) End Sub Public Sub UnpairedBrackets() Dim value = "[[" Assert.False(IsPaired(value)) End Sub Public Sub WrongOrderedBrackets() Dim value = "}{" Assert.False(IsPaired(value)) End Sub Public Sub WrongClosingBracket() Dim value = "{]" Assert.False(IsPaired(value)) End Sub Public Sub PairedWithWhitespace() Dim value = "{ }" Assert.True(IsPaired(value)) End Sub Public Sub PartiallyPairedBrackets() Dim value = "{[])" Assert.False(IsPaired(value)) End Sub Public Sub SimpleNestedBrackets() Dim value = "{[]}" Assert.True(IsPaired(value)) End Sub Public Sub SeveralPairedBrackets() Dim value = "{}[]" Assert.True(IsPaired(value)) End Sub Public Sub PairedAndNestedBrackets() Dim value = "([{}({}[])])" Assert.True(IsPaired(value)) End Sub Public Sub UnopenedClosingBrackets() Dim value = "{[)][]}" Assert.False(IsPaired(value)) End Sub Public Sub UnpairedAndNestedBrackets() Dim value = "([{])" Assert.False(IsPaired(value)) End Sub Public Sub PairedAndWrongNestedBrackets() Dim value = "[({]})" Assert.False(IsPaired(value)) End Sub Public Sub PairedAndWrongNestedBracketsButInnermostAreCorrect() Dim value = "[({}])" Assert.False(IsPaired(value)) End Sub Public Sub PairedAndIncompleteBrackets() Dim value = "{}[" Assert.False(IsPaired(value)) End Sub Public Sub TooManyClosingBrackets() Dim value = "[]]" Assert.False(IsPaired(value)) End Sub Public Sub EarlyUnexpectedBrackets() Dim value = ")()" Assert.False(IsPaired(value)) End Sub Public Sub EarlyMismatchedBrackets() Dim value = "{)()" Assert.False(IsPaired(value)) End Sub Public Sub MathExpression() Dim value = "(((185 + 223.85) * 15) - 543)/2" Assert.True(IsPaired(value)) End Sub Public Sub ComplexLatexExpression() Dim value = "\left(\begin{array}{cc} \frac{1}{3} & x\\ \mathrm{e}^{x} &... x^2 \end{array}\right)" Assert.True(IsPaired(value)) End Sub End Class