mcs/mbas/Test/tests/expressions/LikeOperatorF.vb

   1 'Author:
   2 '   K. Satya Sudha (ksathyasudha@novell.com)
   3 '
   4 ' (C) 2005 Novell, Inc.
   5
   6 Imports System
   7 Module Test
   8         Sub Main()
   9                 Dim a As Boolean = "c" Like "[abc6!0-58-9]"
  10                 if a <> true then
  11                         throw new Exception ("#A1 - Like operator failed")
  12                 end if
  13
  14                 a = "5" Like "[abc0-4def8-9!]"
  15                 if a <> true then
  16                         throw new Exception ("#A2 - Like operator failed")
  17                 end if
  18
  19                 a = "5" Like "[!abc0-4def8-9]"
  20                 if a <> true then
  21                         throw new Exception ("#A3 - Like operator failed")
  22                 end if
  23
  24                 a = "e" Like "[a-f!567o-z]"
  25                 if a <> true then
  26                         throw new Exception ("#A4 - Like operator failed")
  27                 end if
  28
  29                 a = "p" Like "[a-f!567o-z]"
  30                 if a <> false then
  31                         throw new Exception ("#A5 - Like operator failed")
  32                 end if
  33
  34                 a = "d" Like "[a-c-e-g]"
  35                 if a <> false then
  36                         throw new Exception ("#A6 - Like operator failed")
  37                 end if
  38
  39                 a = "b" Like "[a-c-e-g]"
  40                 if a <> true then
  41                         throw new Exception ("#A7 - Like operator failed")
  42                 end if
  43
  44         End Sub
  45 End Module
  46