mcs/mbas/Test/tests/LikeOperatorA.vb

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