mcs/mbas/testsuite/paramtest.vb

   1 Imports System
   2 Imports TestUtils
   3
   4 Module Test
   5
   6 Dim s As String = ""
   7
   8 Public Function MyFunction1 (a As String) As String
   9         Return a & a
  10 End Function
  11
  12 Public Function MyFunction2 (a As String) As String
  13         MyFunction2 = a  & a
  14 End Function
  15
  16 Public Sub MySub(Optional Byval a As Integer = -7)
  17         s = s & a
  18 End Sub
  19
  20 Public Sub MySub2(a As String, Optional Byval b As Integer = -7)
  21         s = s & a
  22         s = s & b
  23 End Sub
  24
  25 Public Sub Main()
  26         MySub ()
  27         MySub (2)
  28
  29         MySub2 ("a")
  30         MySub2 ("a", 9)
  31         s = s & MyFunction1 ("abc")
  32         s = s & MyFunction2 ("def")
  33         Console.WriteLine (TestUtils.GenerateHash(s))
  34 End Sub
  35
  36 End Module