2005-07-06 Rafael Teixeira <rafaelteixeirabr@hotmail.com>

	Patch submitted by
		Aldo Monteiro do Nascimento (aldo@psl-pr.softwarelivre.org)
		Maverson Eduardo Schulze Rosa (maverson@psl-pr.softwarelivre.org)
		Renato Suga (renato@psl-pr.softwarelivre.org)
	* AssignmentStatementsA.vb, AssignmentStatementsC.vb : Comparison values are
	valid only for "en-US" culture, so	force that culture on the current thread

svn path=/trunk/mcs/; revision=47010

diff --git a/mcs/mbas/Test/tests/statements/AssignmentStatementsA.vb b/mcs/mbas/Test/tests/statements/AssignmentStatementsA.vb
index 88bfc28599b30334e682ef643adac636d160578a..bb750a27093c2ace49c0a8b026a2d78b5f4c73e3 100644 (file)
--- a/mcs/mbas/Test/tests/statements/AssignmentStatementsA.vb
+++ b/mcs/mbas/Test/tests/statements/AssignmentStatementsA.vb
@@ -1,9 +1,12 @@
 Imports System
+Imports System.Globalization
+Imports System.Threading
 
 Module AssignmentStatementsA
 
     Sub main()
         Dim i As Integer
+       Thread.CurrentThread.CurrentCulture = new CultureInfo("en-US")
 
         i = 2
         If i <> 2 Then
@@ -19,7 +22,7 @@ Module AssignmentStatementsA
         If s <> 3.45 Then
             Throw New Exception("#ASA3 - Assignment Statement failed")
         End If
-
+       
         s = New Date(2004, 8, 17)
         If s <> New Date(2004, 8, 17) Then
             Throw New Exception("#ASA4 - Assignment Statement failed")

diff --git a/mcs/mbas/Test/tests/statements/AssignmentStatementsC.vb b/mcs/mbas/Test/tests/statements/AssignmentStatementsC.vb
index 73eab2a1519d8337185409d030c0f1111ae52e92..b16ee9893eda25bc96a76638cd0cde2868334693 100644 (file)
--- a/mcs/mbas/Test/tests/statements/AssignmentStatementsC.vb
+++ b/mcs/mbas/Test/tests/statements/AssignmentStatementsC.vb
@@ -1,5 +1,7 @@
 Imports System
 Imports Microsoft.VisualBasic
+Imports System.Globalization
+Imports System.Threading
 
 Module AssignmentStatementsC
 
@@ -14,7 +16,8 @@ Module AssignmentStatementsC
     End Property
 
     Sub main()
-
+       Thread.CurrentThread.CurrentCulture = New CultureInfo("en-US")
+      
         Mid(str, 7) = "MS.NET"
         If str <> "Hello MS.NET World" Then
             Throw New Exception("#ASC1 - Assignment Statement failed")
@@ -36,6 +39,7 @@ Module AssignmentStatementsC
         End If
 
         Mid(mystr, 7) = "MS.NET"
+
         If mystr <> "Hello MS.NETBasic " Then
             Throw New Exception("#ASC5 - Assignment Statement failed")
         End If

diff --git a/mcs/mbas/Test/tests/statements/ChangeLog b/mcs/mbas/Test/tests/statements/ChangeLog
index d78264005dd29aa134c80022379ea327a8dd1d37..c8b9d8ad32f14b487f7559e7a807c91acfa4890d 100644 (file)
--- a/mcs/mbas/Test/tests/statements/ChangeLog
+++ b/mcs/mbas/Test/tests/statements/ChangeLog
@@ -1,3 +1,10 @@
+2005-07-06  Rafael Teixeira  <rafaelteixeirabr@hotmail.com>
+       Patch submitted by 
+               Aldo Monteiro do Nascimento (aldo@psl-pr.softwarelivre.org)
+               Maverson Eduardo Schulze Rosa (maverson@psl-pr.softwarelivre.org)
+               Renato Suga (renato@psl-pr.softwarelivre.org)
+       * AssignmentStatementsA.vb, AssignmentStatementsC.vb : Comparison values are 
+       valid only for "en-US" culture, so      force that culture on the current thread
 
 2005-05-02  Ritvik Mayank  <mritvik@novell.com>
            Patch submitted by Sudharsan V <vsudharsan@novell.com>