mcs/btests/OptionalArgu_exe.vb

   1 REM LineNo: 7
   2 REM ExpectedError: BC30002
   3 REM ErrorMessage: Type 'c' is not defined.
   4
   5 Module M
   6         Sub Main()
   7                 Dim x As New c()
   8
   9                 Dim res as String
  10
  11                 res = x.s (10)
  12                 If (res <> "s : 10 - 10 - aaa")
  13                         Throw New System.Exception ("#A1, Unexpected result returned by OptionalArgu_dll.dll")
  14                 End If
  15
  16                 res = x.s (5, 5)
  17                 If (res <> "s : 5 - 5 - aaa")
  18                         Throw New System.Exception ("#A2, Unexpected result returned by OptionalArgu_dll.dll")
  19                 End If
  20         End Sub
  21 End Module