Author: mritvik
Date: 2005-03-11 06:05:17 -0500 (Fri, 11 Mar 2005)
New Revision: 41684
Removed:
trunk/mcs/mbas/Test/tests/Impwork.vb
trunk/mcs/mbas/Test/tests/test.vb
trunk/mcs/mbas/Test/tests/testdate.vb
trunk/mcs/mbas/Test/tests/teststack.vb
Modified:
trunk/mcs/mbas/Test/tests/ChangeLog
trunk/mcs/mbas/Test/tests/testdecimal.vb
Log:
2005-03-11 Ritvik Mayank <[EMAIL PROTECTED]>
* Modified the Following Test Cases:
* teststack.vb
* test.vb
* testdate.vb
* testdecimal.vb
* Impwork.vb
Modified: trunk/mcs/mbas/Test/tests/ChangeLog
===================================================================
--- trunk/mcs/mbas/Test/tests/ChangeLog 2005-03-11 09:21:28 UTC (rev 41683)
+++ trunk/mcs/mbas/Test/tests/ChangeLog 2005-03-11 11:05:17 UTC (rev 41684)
@@ -1,3 +1,11 @@
+2005-03-11 Ritvik Mayank <[EMAIL PROTECTED]>
+ * Modified the Following Test Cases:
+ * teststack.vb
+ * test.vb
+ * testdate.vb
+ * testdecimal.vb
+ * Impwork.vb
+
2005-03-11 Manjula GHM <[EMAIL PROTECTED]>
* Minor fix in the LoopStatement test case
2005-03-08 Satya Sudha K <[EMAIL PROTECTED]>
Deleted: trunk/mcs/mbas/Test/tests/Impwork.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/Impwork.vb 2005-03-11 09:21:28 UTC (rev
41683)
+++ trunk/mcs/mbas/Test/tests/Impwork.vb 2005-03-11 11:05:17 UTC (rev
41684)
@@ -1,16 +0,0 @@
-'Author:
-' V. Sudharsan ([EMAIL PROTECTED])
-'
-' (C) 2005 Novell, Inc.
-
-Module ImpConversionStringtoCharB
- Sub Main()
- Dim a() as Char
- Dim b as String= "Program"
- a = b
- System.Console.WriteLine("Value of b is {0}", b)
- 'if a <> "Program"
- ' Throw new System.Exception("Conversion of
String to Char not working. Expected Program but got " &a)
- 'End if
- End Sub
-End Module
Deleted: trunk/mcs/mbas/Test/tests/test.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/test.vb 2005-03-11 09:21:28 UTC (rev 41683)
+++ trunk/mcs/mbas/Test/tests/test.vb 2005-03-11 11:05:17 UTC (rev 41684)
@@ -1,17 +0,0 @@
-Imports System
-
-Module AssignmentStatementsA
-
- Sub main()
- Dim i As Int
-
- i = 2
- Console.WriteLine("Value of i is {0}", i)
-
- If i <> 2 Then
- Throw New Exception("#ASA1 - Assignment Statement failed")
- End If
-
- End Sub
-
-End Module
Deleted: trunk/mcs/mbas/Test/tests/testdate.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/testdate.vb 2005-03-11 09:21:28 UTC (rev
41683)
+++ trunk/mcs/mbas/Test/tests/testdate.vb 2005-03-11 11:05:17 UTC (rev
41684)
@@ -1,18 +0,0 @@
-'Author:
-' V. Sudharsan ([EMAIL PROTECTED])
-'
-' (C) 2005 Novell, Inc.
-
-Module ImpConversionDatetoStringB
- Sub Main()
- Dim a as Date = "1/1/0001 12:00:00 AM"
- Dim b as String = a + "2/2/2002 03:04:45 AM"
- System.Console.WriteLine("Value {0}", b)
- if b <> "hello12:00:00 AM"
- 'Throw new System.Exception("Concat of Date &
String not working. Expected helloa but got " &b)
- End if
- End Sub
-End Module
-
-
-
Modified: trunk/mcs/mbas/Test/tests/testdecimal.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/testdecimal.vb 2005-03-11 09:21:28 UTC (rev
41683)
+++ trunk/mcs/mbas/Test/tests/testdecimal.vb 2005-03-11 11:05:17 UTC (rev
41684)
@@ -1,31 +1,25 @@
Imports System
Module DecimalLiteral
Sub Main()
- Try
- Dim a As Decimal=1.23D
- Dim b As Decimal=1.23E+10D
- Dim c As Decimal=9223372036854775808D
- Dim d As Decimal=.23D
- Dim f As Decimal
- If a<>1.23D Then
- Console.WriteLine("#A1-DecimalLiteralA:Failed")
- End If
- If b<>1.23E+10D Then
- Console.WriteLine("#A2-DecimalLiteralA:Failed")
- End If
- If c<>9.22337203685478E+18D Then
- Console.WriteLine("#A3-DecimalLiteralA:Failed")
- End If
- If d<>0.23D Then
- Console.WriteLine("#A4-DecimalLiteralA:Failed")
- End If
- If f<>0 Then
- Console.WriteLine("#A5-DecimalLiteralA:Failed")
- End If
-
-
- Catch e As Exception
- Console.WriteLine(e.Message)
- End Try
+ Dim a As Decimal=1.23D
+ Dim b As Decimal=1.23E+10D
+ Dim c As Decimal=9.2233720368547808E+18D
+ Dim d As Decimal=.23D
+ Dim f As Decimal
+ If a<>1.23D Then
+ Throw New Exception ("#A1-DecimalLiteralA:Failed")
+ End If
+ If b<>1.23E+10D Then
+ Throw New Exception ("#A1-DecimalLiteralA:Failed")
+ End If
+ If c<>9.2233720368547808E+18D Then
+ Throw New Exception ("#A1-DecimalLiteralA:Failed")
+ End If
+ If d<>0.23D Then
+ Throw New Exception ("#A1-DecimalLiteralA:Failed")
+ End If
+ If f<>0 Then
+ Throw New Exception ("#A1-DecimalLiteralA:Failed")
+ End If
End Sub
End Module
Deleted: trunk/mcs/mbas/Test/tests/teststack.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/teststack.vb 2005-03-11 09:21:28 UTC (rev
41683)
+++ trunk/mcs/mbas/Test/tests/teststack.vb 2005-03-11 11:05:17 UTC (rev
41684)
@@ -1,13 +0,0 @@
-Imports System
-Module teststack
- Sub Main()
- 'Dim a as Long = 1
- Dim c As Decimal=92233720368.54775808D
- 'Dim b as Short = CShort(c)
- Dim b as Short =c
- Console.WriteLine("Value of b is {0}", b)
- 'if b<>123 then
- ' Throw New System.Exception("Implicit Conversion of Long
to Int has Failed")
- 'End if
- End Sub
-End Module
_______________________________________________
Mono-patches maillist - [email protected]
http://lists.ximian.com/mailman/listinfo/mono-patches
