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 275a46cb62df08ca21ade3365877562d47763aef..a7b267639f1b2e067435f05aa698cfc54d902032 100644 (file)
--- a/mcs/btests/ConditionalCompilationD.vb
+++ b/mcs/btests/ConditionalCompilationD.vb
@@ -1,13 +1,20 @@
 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