mcs/btests/OptionalArgu_ByValueC1.vb

   1 REM LineNo: 19
   2 REM ExpectedError: BC30812
   3 REM ErrorMessage: Optional parameters must specify a default value.
   4
   5 REM LineNo: 28
   6 REM ExpectedError: BC30455
   7 REM ErrorMessage: Argument not specified for parameter 'name' of 'Public Sub F(telephoneNo As Long, [code As Integer = 80], [code1 As Integer = 91], ByRef name As String)'.
   8
   9 '=============================================================================================
  10 'Name:Manish Kumar Sinha
  11 'Email Address: manishkumarsinha@sify.com
  12 'Test Case Name: Argument passing by Optional Keyword:
  13 'O.P-1.0.0: An Optional parameter must specify a constant expression to be used a replacement
  14 '               value if no argument is specified.
  15 '=============================================================================================
  16
  17 Imports System
  18 Module OP1_0_0
  19         Sub F(ByVal telephoneNo as Long, Optional ByVal code as Integer = 080,Optional ByVal code1  As Integer = 091, Optional ByRef name As String)
  20                 if (code <> 080 and code1 <> 091 and name="")
  21                         Throw New System.Exception("#A1, Unexcepted behaviour in string of OP1_0_0")
  22                 end if
  23         End Sub
  24
  25    Sub Main()
  26       Dim telephoneNo As Long = 9886066432
  27         Dim name As String ="Manish"
  28       F(telephoneNo,,name)
  29    End Sub
  30
  31 End Module