mcs/mbas/Test/tests/FunctionArgu_ByValueC.vb

   1 '=============================================================================================
   2 'Name:Manish Kumar Sinha
   3 'Email Address: manishkumarsinha@sify.com
   4 'Test Case Name: Argument passing by Value:
   5 'APV-1.1.0: If variable elements is of value type, i.e. it contains only a value then procedure '               cannot change the variable or any of its members
   6 '=============================================================================================
   7
   8 Imports System
   9 Module APV1_1_0
  10         Function F(p As String) As String
  11         p = "Sinha"
  12         return p
  13    End Function
  14
  15    Sub Main()
  16       Dim a As String = "Manish"
  17         Dim b as String = ""
  18       b = F(a)
  19         if a=b
  20                 Throw New System.Exception("#A1, Unexcepted behaviour in string of APV1_1_0")
  21         end if
  22    End Sub
  23 End Module
  24 '===========================================================================================