2004-12-14 Gonzalo Paniagua Javier <gonzalo@ximian.com>

[mono.git] / mcs / btests / ConditionalCompilationD.vb

diff --git a/mcs/btests/ConditionalCompilationD.vb b/mcs/btests/ConditionalCompilationD.vb
index de67126add8b147522010b829e0bac98574c6b3d..a7b267639f1b2e067435f05aa698cfc54d902032 100644 (file)
--- a/mcs/btests/ConditionalCompilationD.vb
+++ b/mcs/btests/ConditionalCompilationD.vb
@@ -2,9 +2,19 @@ Imports System
 Module ConditionalCompilation
        Sub Main()
                 'Testing line continuation within conditional compilation statement
+               Dim value As Integer
                 #If _
-                True _
-                #End If
+                True 
+                       value=10
+                #Else _
+                     _
+
+                       Throw New Exception("#D11-Conditional Compilation: Failed")
+               #End If
+
+               If value<>10 Then
+                       Throw New Exception("#D12-Conditional Compilation: Failed")
+               End If
         End Sub
 End Module