mcs/mbas/testsuite/arraytest.vb

   1 Imports System\r
   2 Imports TestUtils\r
   3 \r
   4 Module Test\r
   5 \r
   6 Public Sub Main()\r
   7         Dim a() As String\r
   8         Dim b(,) As String\r
   9         Dim c(,,) As String\r
  10         Dim o As Object\r
  11         Dim s As String = ""\r
  12         \r
  13         a = New String(1) { "0", "1" }\r
  14         b = New String(1,1) { {"0,0", "0,1"}, {"1,0", "1,1"} }\r
  15         c = New String(1,1,1) { {{"0,0,0", "0,0,1"}, {"0,1,0", "0,1,1"}}, {{"1,0,0", "1,0,1"}, {"1,1,0", "1,1,1"}}   }\r
  16         \r
  17         ' Testing with monodimensional array\r
  18         o = a\r
  19         s = String.Format ("/{0}/{1}", o(0), o(1))\r
  20         \r
  21         ' Testing with bidimensional array\r
  22         o = b\r
  23         s = s & String.Format ("/{0}/{1}/{2}/{3}", o(0,0), o(0,1), o(1,0), o(1,1))\r
  24         \r
  25         ' Testing with tridimensional array\r
  26         o = c\r
  27         s = s & String.Format  ("/{0}/{1}/{2}/{3}/{4}/{5}/{6}/{7}/", o(0,0,0), o(0,0,1), o(0,1,0), o(0,1,1), o(1,0,0), o(1,0,1), o(1,1,0), o(1,1,1))    \r
  28         Console.WriteLine (TestUtils.GenerateHash(s))\r
  29 End Sub\r
  30 \r
  31 End Module\r