Error statement support

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

diff --git a/mcs/mbas/ChangeLog b/mcs/mbas/ChangeLog
index 6a0e0c6b40d98e0611dec8bed292cca557d6cf7a..c4d81a3e9b34e806cf8038faaa14224c31766cb7 100644 (file)
--- a/mcs/mbas/ChangeLog
+++ b/mcs/mbas/ChangeLog
@@ -1,3 +1,6 @@
+2005-09-15  Maverson Eduardo Schulze Rosa <maverson@gmail.com>
+       *  mb-parser.jay : Error statement statemet support.
+
 2005-08-23 Satya Sudha K <ksathyasudha@novell.com>
        * statement.cs : 
                StatementSequence : Avoid Resolving multiple times

diff --git a/mcs/mbas/Test/rerrors/Test/Changelog b/mcs/mbas/Test/rerrors/Test/Changelog
index bca628081f4ef3c1ea8d726d95197945e1ce9fcb..af6cf9773c1b37d4b3f872522a4d502a609e899b 100644 (file)
--- a/mcs/mbas/Test/rerrors/Test/Changelog
+++ b/mcs/mbas/Test/rerrors/Test/Changelog
@@ -1,3 +1,5 @@
+2005-09-15  Maverson Eduardo Schulze Rosa <maverson@gmail.com>
+       *  Error.vb : Error statement runtime test.
 
 2005-05-03  Ritvik Mayank  <mritvik@novell.com>
        Made correction in few test cases

diff --git a/mcs/mbas/Test/rerrors/Test/Error.vb b/mcs/mbas/Test/rerrors/Test/Error.vb
new file mode 100644 (file)
index 0000000..1f391ae
--- /dev/null
+++ b/mcs/mbas/Test/rerrors/Test/Error.vb
@@ -0,0 +1,22 @@
+' Authors:
+'   Alexandre Rocha Lima e Marcondes (alexandre@psl-pr.softwarelivre.org)
+'   Maverson Eduardo Schulze Rosa (maverson@gmail.com)
+'
+' GrupoTIC - UFPR - Federal University of Paraná
+
+Imports System
+Imports Nunit.Framework
+
+<TestFixture> _
+Public Class errorstmt
+
+               <Test, ExpectedException (GetType (System.FormatException))> _
+        Public Sub TestErrorString()
+               error "aaa"
+        End Sub
+        <Test, ExpectedException (GetType (System.InvalidCastException))> _
+        Public Sub TestErrorObject()
+            error new Object()
+        End Sub
+End Class
+

diff --git a/mcs/mbas/Test/tests/statements/ChangeLog b/mcs/mbas/Test/tests/statements/ChangeLog
index 9ec207f94b54fe58e7eb181f54c54162da738a2d..a75ce6767885814c43b8e5404406afa775f92bf3 100644 (file)
--- a/mcs/mbas/Test/tests/statements/ChangeLog
+++ b/mcs/mbas/Test/tests/statements/ChangeLog
@@ -1,3 +1,6 @@
+2005-09-15  Maverson Eduardo Schulze Rosa <maverson@gmail.com>
+       *  Error.vb : Error statement test.
+
 2005-07-13 Maverson Eduardo Schulze Rosa <maverson@gmail.com>
        *  LocalDeclarationB.vb : Static local on classes and modules test.
        *  LocalDeclarationC.vb : Inner block static local test.

diff --git a/mcs/mbas/Test/tests/statements/Error.vb b/mcs/mbas/Test/tests/statements/Error.vb
new file mode 100644 (file)
index 0000000..2837d81
--- /dev/null
+++ b/mcs/mbas/Test/tests/statements/Error.vb
@@ -0,0 +1,23 @@
+' Authors:
+'   Alexandre Rocha Lima e Marcondes (alexandre@psl-pr.softwarelivre.org)
+'   Maverson Eduardo Schulze Rosa (maverson@gmail.com)
+'
+' GrupoTIC - UFPR - Federal University of Paraná
+
+
+Module errorstmt
+
+        Public Dim error_number as integer = 11
+
+        Sub Main()
+               Try
+                error error_number
+                
+                Catch  ex As System.Exception
+                       If not (ex.GetType() = GetType(System.DivideByZeroException)) Then
+                               Throw new System.Exception("#A1 Error not working")
+                       End If
+                End Try        
+        End Sub
+End Module
+