mcs/class/Microsoft.VisualBasic/Test/standalone/5227.vb

   1 Imports Microsoft.VisualBasic \r
   2 Imports System\r
   3 Public Class TestClass \r
   4         Public Function Test() As String\r
   5                 'Begin Code\r
   6                         dim result as String\r
   7                         FileOpen(1, "5227.txt", OpenMode.Output)\r
   8                         WriteLine (1, "Hello World")\r
   9                         Seek (1, 1)\r
  10                         WriteLine (1, "H")\r
  11                         Dim length as Long = seek (1)\r
  12                         If length <> 6 Then\r
  13                                 Throw New Exception ("Expected value is 6 but got " + length.ToString)\r
  14                         End If\r
  15                         return length\r
  16                 'End Code\r
  17         End Function\r
  18 End Class\r