Fixed pathnames in some testcases
[mono.git] / mcs / class / Microsoft.VisualBasic / Test / standalone / 5227.vb
index fd26b58f8dd1565365e6c9a0592f026d8506fd75..d0de1f656609eb23ccc6a8da774e4fdd765fa5e4 100644 (file)
@@ -29,7 +29,7 @@ Public Class TestClass
        Public Function Test() As String
                'Begin Code
                        dim result as String
-                       FileOpen(1, "5227.txt", OpenMode.Output)
+                       FileOpen(1, "./data/5227.txt", OpenMode.Output)
                        WriteLine (1, "Hello World")
                        Seek (1, 1)
                        WriteLine (1, "H")