mcs/class/System/Test/Microsoft.VisualBasic/VBCodeProviderTest.cs

   1 //
   2 // Microsoft.VisualBasic.VBCodeProvider.cs
   3 //
   4 // Author:
   5 //   Jochen Wezel (jwezel@compumaster.de) //
   6 //
   7 // (C) 2003 Jochen Wezel (CompuMaster GmbH)
   8 //
   9 // Last modifications:
  10 // 2003-12-10 JW: publishing of this file
  11 //
  12
  13 using NUnit.Framework;
  14 using System;
  15 using Microsoft.VisualBasic;
  16 using System.CodeDom.Compiler;
  17 using System.ComponentModel;
  18 using System.Collections.Specialized;
  19 using System.Reflection;
  20 using System.Diagnostics;
  21 using System.IO;
  22
  23 namespace MonoTests.System.Microsoft.VisualBasic
  24 {
  25
  26         enum OsType {
  27                 Windows,
  28                 Unix,
  29                 Mac
  30         }
  31
  32         [TestFixture]
  33         public class VBCodeProviderTest : Assertion {
  34
  35                 CodeDomProvider MyVBCodeProvider;
  36                 static OsType OS;
  37                 static char DSC = Path.DirectorySeparatorChar;
  38
  39                 [SetUp]
  40                 public void GetReady() {
  41                         if ('/' == DSC) {
  42                                 OS = OsType.Unix;
  43                         } else if ('\\' == DSC) {
  44                                 OS = OsType.Windows;
  45                         } else {
  46                                 OS = OsType.Mac;
  47                         }
  48
  49                         MyVBCodeProvider = new VBCodeProvider();
  50                 }
  51
  52                 [Test]
  53                 public void FileExtension ()
  54                 {
  55                         AssertEquals ("#JW10", "vb", MyVBCodeProvider.FileExtension);
  56                 }
  57
  58                 [Test]
  59                 public void LanguageOptionsTest ()
  60                 {
  61                         AssertEquals ("#JW20", LanguageOptions.CaseInsensitive, MyVBCodeProvider.LanguageOptions);
  62                 }
  63
  64                 [Test]
  65                 public void CreateCompiler()
  66                 {
  67                         // Prepare the compilation
  68                         //Console.WriteLine("#J30.pre1 - CreateCompiler");
  69                         ICodeCompiler MyVBCodeCompiler;
  70                         MyVBCodeCompiler = MyVBCodeProvider.CreateCompiler();
  71                         AssertNotNull ("#JW30 - CreateCompiler", MyVBCodeCompiler);
  72                         CompilerResults MyVBCodeCompilerResults;
  73                         //Console.WriteLine("#J30.post1 - CreateCompiler");
  74
  75                         CompilerParameters options = new CompilerParameters();
  76                         options.GenerateExecutable = true;
  77                         options.IncludeDebugInformation = true;
  78                         options.TreatWarningsAsErrors = true;
  79
  80                         // Process compilation
  81                         MyVBCodeCompilerResults = MyVBCodeCompiler.CompileAssemblyFromSource(options,
  82                                 "public class TestModule" + Environment.NewLine + "public shared sub Main()" + Environment.NewLine + "System.Console.Write(\"Hello world!\")" + Environment.NewLine + "End Sub" + Environment.NewLine + "End Class" + Environment.NewLine);
  83
  84                         // Analyse the compilation success/messages
  85                         StringCollection MyOutput;
  86                         MyOutput = MyVBCodeCompilerResults.Output;
  87                         string MyOutStr = "";
  88                         foreach (string MyStr in MyOutput)
  89                         {
  90                                 MyOutStr += MyStr + Environment.NewLine + Environment.NewLine;
  91                         }
  92
  93                         AssertEquals ("#JW31 - Hello world compilation: " + MyOutStr, 0, MyVBCodeCompilerResults.Errors.Count);
  94
  95                         try
  96                         {
  97                                 Assembly MyAss = MyVBCodeCompilerResults.CompiledAssembly;
  98                         }
  99                         catch (Exception ex)
 100                         {
 101                                 Assert ("#JW32 - MyVBCodeCompilerResults.CompiledAssembly hasn't been an expected object" +
 102                                                 Environment.NewLine + ex.Message + Environment.NewLine + ex.StackTrace, false);
 103                         }
 104
 105                         // Execute the test app
 106                         ProcessStartInfo NewProcInfo = new ProcessStartInfo();
 107                         if (Windows) {
 108                                 NewProcInfo.FileName = MyVBCodeCompilerResults.CompiledAssembly.Location;
 109                         }
 110                         else {
 111                                 NewProcInfo.FileName = "mono";
 112                                 NewProcInfo.Arguments = MyVBCodeCompilerResults.CompiledAssembly.Location;
 113                         }
 114                         NewProcInfo.RedirectStandardOutput = true;
 115                         NewProcInfo.UseShellExecute = false;
 116                         NewProcInfo.CreateNoWindow = true;
 117                         string TestAppOutput = "";
 118                         try
 119                         {
 120                                 Process MyProc = Process.Start(NewProcInfo);
 121                                 MyProc.WaitForExit();
 122                                 TestAppOutput = MyProc.StandardOutput.ReadToEnd();
 123                                 MyProc.Close();
 124                                 MyProc.Dispose();
 125                         }
 126                         catch (Exception ex)
 127                         {
 128                                 Fail("#JW34 - " + ex.Message + Environment.NewLine + ex.StackTrace);
 129                         }
 130                         AssertEquals("#JW33 - Application output", "Hello world!", TestAppOutput);
 131
 132                         // Clean up
 133                         try
 134                         {
 135                                 File.Delete (NewProcInfo.FileName);
 136                         }
 137                         catch {}
 138                 }
 139
 140                 [Test]
 141                 public void CreateGenerator()
 142                 {
 143                         ICodeGenerator MyVBCodeGen;
 144                         MyVBCodeGen = MyVBCodeProvider.CreateGenerator();
 145                         Assert ("#JW40 - CreateGenerator", (MyVBCodeGen != null));
 146                         AssertEquals ("#JW41", true, MyVBCodeGen.Supports (GeneratorSupport.DeclareEnums));
 147                 }
 148
 149
 150                 //TODO: [Test]
 151                 public void     CreateParser()
 152                 {
 153                         //System.CodeDom.Compiler.ICodeParser CreateParser()
 154                 }
 155
 156                 //TODO: [Test]
 157                 public void     CreateObjRef()
 158                 {
 159                         //System.Runtime.Remoting.ObjRef CreateObjRef(System.Type requestedType)
 160                 }
 161
 162                 bool Windows
 163                 {
 164                         get {
 165                                 return OS == OsType.Windows;
 166                         }
 167                 }
 168
 169                 bool Unix
 170                 {
 171                         get {
 172                                 return OS == OsType.Unix;
 173                         }
 174                 }
 175
 176                 bool Mac
 177                 {
 178                         get {
 179                                 return OS == OsType.Mac;
 180                         }
 181                 }
 182
 183         }
 184 }