Author: rolf
Date: 2007-12-14 06:58:48 -0500 (Fri, 14 Dec 2007)
New Revision: 91275
Modified:
trunk/mono-basic/vbnc/rt/source/AssemblyInfo.vb
trunk/mono-basic/vbnc/rt/source/ChangeLog
trunk/mono-basic/vbnc/rt/source/Test.vb
trunk/mono-basic/vbnc/rt/source/Tests.vb
Log:
* Test.vb: Strip invalid characters from log filenames.
* Tests.vb: Sort files (NTFS does it automatically).
Modified: trunk/mono-basic/vbnc/rt/source/AssemblyInfo.vb
===================================================================
--- trunk/mono-basic/vbnc/rt/source/AssemblyInfo.vb 2007-12-14 11:56:55 UTC
(rev 91274)
+++ trunk/mono-basic/vbnc/rt/source/AssemblyInfo.vb 2007-12-14 11:58:48 UTC
(rev 91275)
@@ -50,5 +50,5 @@
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
-<Assembly: AssemblyVersion("0.0.0.267")>
+<Assembly: AssemblyVersion("0.0.0.271")>
<Assembly: AssemblyFileVersion("0.0.0.1")>
Modified: trunk/mono-basic/vbnc/rt/source/ChangeLog
===================================================================
--- trunk/mono-basic/vbnc/rt/source/ChangeLog 2007-12-14 11:56:55 UTC (rev
91274)
+++ trunk/mono-basic/vbnc/rt/source/ChangeLog 2007-12-14 11:58:48 UTC (rev
91275)
@@ -1,3 +1,8 @@
+2007-12-14 Rolf Bjarne Kvinge <[EMAIL PROTECTED]>
+
+ * Test.vb: Strip invalid characters from log filenames.
+ * Tests.vb: Sort files (NTFS does it automatically).
+
2007-08-13 Rolf Bjarne Kvinge <[EMAIL PROTECTED]>
* VerificationBase.vb, Test.vb, ExternalProcessVerification.vb,
Modified: trunk/mono-basic/vbnc/rt/source/Test.vb
===================================================================
--- trunk/mono-basic/vbnc/rt/source/Test.vb 2007-12-14 11:56:55 UTC (rev
91274)
+++ trunk/mono-basic/vbnc/rt/source/Test.vb 2007-12-14 11:58:48 UTC (rev
91275)
@@ -805,6 +805,15 @@
Try
compiler = "(" & VBNCVerification.Process.FileVersion.FileVersion
& " " & VBNCVerification.Process.LastWriteDate.ToString(DATETIMEFORMAT) & ")"
compiler &= "." & m_Result.ToString
+
+ Dim i As Integer
+ i = compiler.IndexOfAny (IO.Path.GetInvalidPathChars)
+ If i >= 0 Then
+ For Each c As Char In IO.Path.GetInvalidPathChars
+ compiler = compiler.Replace (c.ToString (), "")
+ Next
+ End If
+
filename = IO.Path.Combine(Me.OutputPath, Me.Name & "." & compiler
& ".testresult")
Using contents As New Xml.XmlTextWriter(filename, Nothing)
contents.Formatting = Xml.Formatting.Indented
@@ -841,7 +850,7 @@
End If
End Using
Catch ex As Exception
- Debug.WriteLine(ex.Message & vbNewLine & ex.StackTrace)
+ Console.WriteLine(ex.Message & vbNewLine & ex.StackTrace)
End Try
End Sub
@@ -867,7 +876,9 @@
End Function
Sub DoTest()
- Environment.CurrentDirectory = BasePath
+ If BasePath <> "" Then
+ Environment.CurrentDirectory = BasePath
+ End If
If CreateVerifications() = False Then
Return
End If
Modified: trunk/mono-basic/vbnc/rt/source/Tests.vb
===================================================================
--- trunk/mono-basic/vbnc/rt/source/Tests.vb 2007-12-14 11:56:55 UTC (rev
91274)
+++ trunk/mono-basic/vbnc/rt/source/Tests.vb 2007-12-14 11:58:48 UTC (rev
91275)
@@ -167,6 +167,8 @@
'Get all the code files in the directory.
Dim files() As String = IO.Directory.GetFiles(m_Path, "*.vb")
+ Array.Sort(files)
+
'Remove files that aren't there anymore
Dim j As Integer = 0
While j < Me.Count
_______________________________________________
Mono-patches maillist - [email protected]
http://lists.ximian.com/mailman/listinfo/mono-patches
