mcs/mbas/testsuite/paramtest.vb

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