mcs/btests/ConditionalCompilationC.vb

   1 #If True
   2 Imports System
   3 Module ConditionalCompilation
   4         Sub Main()
   5                 Dim value As Integer
   6                 Try
   7                 'Testing nested #If,#Elseif, #Else and #End If block
   8
   9                 #If False
  10                         Throw New Exception("#C01-Conditional Compilation :Failed")
  11
  12                         #If False
  13                                   Throw New Exception("#C02-Conditional Compilation :Failed")
  14                         #ElseIf True
  15                                 value=10
  16                         #Else
  17                                   Throw New Exception("#C03-Conditional Compilation :Failed")
  18                         #End If
  19
  20                         Throw New Exception("#C04-Conditional Compilation :Failed")
  21                 #ElseIf True
  22                         #If True
  23                                 value=20
  24                         #ElseIf True
  25                                 Throw New Exception("#C05-Conditional Compilation :Failed")
  26                         #Else
  27                                   Throw New Exception("#C06-Conditional Compilation :Failed")
  28                         #End If
  29
  30                         If value<>20 Then
  31                                 Throw New Exception("#C07-Conditional Compilation:Failed ")
  32                         End If
  33
  34                 #ElseIf True
  35                         #If False
  36                                 Throw New Exception("#C08-Conditional Compilation :Failed")
  37                         #ElseIf False
  38                                 Throw New Exception("#C09-Conditional Compilation :Failed")
  39                         #Else
  40                                 value=30
  41                         #End If
  42
  43                         If value<>30 Then
  44                                 Throw New Exception("#C10-Conditional Compilation:Failed ")
  45                         End If
  46                 #Else
  47                         #If False
  48                                 Throw New Exception("#C11-Conditional Compilation :Failed")
  49                         #ElseIf True
  50                                 Throw New Exception("#C12-Conditional Compilation :Failed")
  51                         #ElseIf False
  52                                 Throw New Exception("#C13-Conditional Compilation :Failed")
  53                         #End If
  54
  55                         Throw New Exception("#C14-Conditional Compilation:Failed ")
  56                 #End If
  57                 Catch e As Exception
  58                         Console.WriteLine(e.Message)
  59                 End Try
  60         End Sub
  61 End Module
  62 #End If