Fixed pathnames in some testcases
[mono.git] / mcs / class / Microsoft.VisualBasic / Test / standalone / 5228.vb
index f72333184c6138de6389f1f320aa0622a3021f76..ab7d2991be15e6371aa995a0a75f9a747a0f5511 100644 (file)
@@ -29,7 +29,7 @@ Public Class TestClass
        Public Function Test() As Long
                'Begin Code
                        dim result as String
-                       FileOpen(1, "5228.txt", OpenMode.Binary)
+                       FileOpen(1, "./data/5228.txt", OpenMode.Binary)
                        FileGet (1, result, 10)
                        Return seek (1)
                'End Code