mcs/mbas/Test/errors/ExternalSourceDirectivesC4.vb

   1 REM LineNo: 202
   2 REM ExpectedError: BC30002
   3 REM ErrorMessage: Type 'Int' is not defined.
   4
   5 REM LineNo: 102
   6 REM ExpectedError: BC30002
   7 REM ErrorMessage: Type 'Int' is not defined.
   8
   9 REM LineNo: 36
  10 REM ExpectedError: BC30002
  11 REM ErrorMessage: Type 'Int' is not defined.
  12
  13 ' Force an error to visually examine whether errors within #ExternalSource directives are properly reported
  14
  15 Imports System
  16 Module ExternalSourceDirective
  17         Sub Main()
  18                 #ExternalSource("/home/main.aspx",100)
  19                 Dim I As Integer
  20                 'Compiler should report error in "/home/main.aspx" at line 102
  21                 Dim B As Int
  22                 #End ExternalSource
  23         End Sub
  24
  25
  26         Sub A()
  27                 #ExternalSource("/home/a.aspx",200)
  28                 Dim I As Integer
  29                 'Compiler should report error in "/home/a.aspx" at line 202
  30                 Dim B As Int
  31                 #End ExternalSource
  32         End Sub
  33
  34         Sub C()
  35                 'Compiler should report error in "ExternalSourceDirectivesC4.vb" at line 24
  36                 Dim B As Int
  37         End Sub
  38 End Module