mcs/btests/LikeOperatorA.vb

   1 Option Compare Text
   2
   3 Imports System
   4
   5 Module LikeOperatorA
   6     Sub main()
   7
   8         Dim a As Boolean
   9
  10         a = "HEllo" Like "H[A-Z][!M-P][!A-K]O"
  11         If a <> True Then
  12             Console.WriteLine("#A1-LikeOperator:Failed")
  13         End If
  14
  15         a = "he12O" Like "H?##[L-P]"
  16         If a <> True Then
  17             Console.WriteLine("#A2-LikeOperator:Failed")
  18         End If
  19
  20         a = "He[ll?o*" Like "He[[]*[?]o[*]"
  21         If a <> True Then
  22             Console.WriteLine("#A3-LikeOperator:Failed")
  23         End If
  24
  25         a = "Hell[]o*" Like "Hell[[][]]o[*]"
  26         If a <> True Then
  27             Console.WriteLine("#A4-LikeOperator:Failed")
  28         End If
  29
  30         a = "Hell[]o*" Like "Hell[[]][[]]o[*]"
  31         If a <> False Then
  32             Console.WriteLine("#A5-LikeOperator:Failed")
  33         End If
  34
  35         a = "Hello*" Like "Hell[]o[*]"
  36         If a <> True Then
  37             Console.WriteLine("#A6-LikeOperator:Failed")
  38         End If
  39
  40     End Sub
  41
  42 End Module