+++ /dev/null
-//\r
-// Microsoft.VisualBasic.VBCodeProvider.cs\r
-//\r
-// Author:\r
-// Andreas Nahr (ClassDevelopment@A-SoftTech.com)\r
-//\r
-// (C) 2003 Andreas Nahr\r
-//\r
-\r
-using NUnit.Framework;\r
-using System;\r
-using Microsoft.VisualBasic;\r
-using System.CodeDom.Compiler;\r
-using System.ComponentModel;\r
-\r
-namespace MonoTests.Microsoft.VisualBasic\r
-{\r
- [TestFixture]\r
- public class VBCodeProviderTest : Assertion {\r
- \r
- CodeDomProvider MyVBCodeProvider;\r
-\r
- [SetUp]\r
- public void GetReady() { \r
- MyVBCodeProvider = new VBCodeProvider(); \r
- }\r
-\r
- [TearDown]\r
- public void Clean() {}\r
-\r
- [Test]\r
- public void FileExtension ()\r
- {\r
- AssertEquals ("#JW10", "vb", MyVBCodeProvider.FileExtension);\r
- }\r
-\r
- [Test]\r
- public void LanguageOptions ()\r
- {\r
- AssertEquals ("#JW20", System.CodeDom.Compiler.LanguageOptions.CaseInsensitive, MyVBCodeProvider.LanguageOptions);\r
- }\r
-\r
- [Test]\r
- public void CreateCompiler()\r
- {\r
- ICodeCompiler MyVBCodeCompiler;\r
- MyVBCodeCompiler = MyVBCodeProvider.CreateCompiler();\r
- Assert ("#JW30 - CreateCompiler", (MyVBCodeCompiler != null));\r
- System.CodeDom.Compiler.CompilerResults MyVBCodeCompilerResults;\r
- MyVBCodeCompilerResults = MyVBCodeCompiler.CompileAssemblyFromSource(new System.CodeDom.Compiler.CompilerParameters(), \r
- "public class TestModule\r\n\r\npublic shared sub Main()\r\nSystem.Console.WriteLine(\"Hello world!\")\r\nEnd Sub\r\nEnd Class\r\n");\r
- System.Collections.Specialized.StringCollection MyOutput;\r
- MyOutput = MyVBCodeCompilerResults.Output;\r
- string MyOutStr = "";\r
- foreach (string MyStr in MyOutput)\r
- {\r
- MyOutStr += MyStr + "\r\n\r\n";\r
- }\r
- if (MyOutStr != "")\r
- System.Console.WriteLine ("Error compiling VB.NET Hello world test application\r\n\r\n" + MyOutStr);\r
- AssertEquals ("#JW31 - Hello world compilation", 0, MyVBCodeCompilerResults.Errors.Count);\r
- }\r
-\r
- [Test]\r
- public void CreateGenerator()\r
- {\r
- ICodeGenerator MyVBCodeGen;\r
- MyVBCodeGen = MyVBCodeProvider.CreateGenerator();\r
- Assert ("#JW40 - CreateGenerator", (MyVBCodeGen != null));\r
- AssertEquals ("#JW41", true, MyVBCodeGen.Supports (System.CodeDom.Compiler.GeneratorSupport.DeclareEnums));\r
- }\r
- \r
- [Test]\r
- public void GetConverter ()\r
- {\r
- /* TODO\r
- //don't know why we get an error in MS.Net\r
- //MonoTests.Microsoft.VisualBasic.VBCodeProviderTest.GetConverter : System.ArgumentNullException : Der Schlüssel kann nicht Null sein. Parametername: key\r
- AssertEquals ("#JW50", "long", MyVBCodeTypeConv.GetType());\r
- */\r
- }\r
-\r
- }\r
-}\r