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

   1 //
   2 // VBCodeProviderCas.cs
   3 //      - CAS unit tests for Microsoft.VisualBasic.VBCodeProvider
   4 //
   5 // Author:
   6 //      Sebastien Pouliot  <sebastien@ximian.com>
   7 //
   8 // Copyright (C) 2005 Novell, Inc (http://www.novell.com)
   9 //
  10 // Permission is hereby granted, free of charge, to any person obtaining
  11 // a copy of this software and associated documentation files (the
  12 // "Software"), to deal in the Software without restriction, including
  13 // without limitation the rights to use, copy, modify, merge, publish,
  14 // distribute, sublicense, and/or sell copies of the Software, and to
  15 // permit persons to whom the Software is furnished to do so, subject to
  16 // the following conditions:
  17 //
  18 // The above copyright notice and this permission notice shall be
  19 // included in all copies or substantial portions of the Software.
  20 //
  21 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  22 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  23 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  24 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
  25 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
  26 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
  27 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  28 //
  29
  30 using NUnit.Framework;
  31
  32 using System;
  33 using System.CodeDom;
  34 using System.CodeDom.Compiler;
  35 using System.IO;
  36 using System.Reflection;
  37 using System.Security;
  38 using System.Security.Permissions;
  39 using Microsoft.VisualBasic;
  40
  41 namespace MonoCasTests.Microsoft.VisualBasic {
  42
  43         [TestFixture]
  44         [Category ("CAS")]
  45         public class VBCodeProviderCas {
  46
  47                 [SetUp]
  48                 public virtual void SetUp ()
  49                 {
  50                         if (!SecurityManager.SecurityEnabled)
  51                                 Assert.Ignore ("SecurityManager.SecurityEnabled is OFF");
  52                 }
  53
  54                 [Test]
  55                 [PermissionSet (SecurityAction.Deny, Unrestricted = true)]
  56                 public void Deny_Unrestricted ()
  57                 {
  58                         VBCodeProvider vbprov = new VBCodeProvider ();
  59                         Assert.AreEqual ("vb", vbprov.FileExtension, "FileExtension");
  60                         Assert.AreEqual (LanguageOptions.CaseInsensitive, vbprov.LanguageOptions, "LanguageOptions");
  61                         Assert.IsNotNull (vbprov.CreateCompiler (), "CreateCompiler");
  62                         Assert.IsNotNull (vbprov.CreateGenerator (), "CreateGenerator");
  63                         try {
  64                                 Assert.IsNotNull (vbprov.GetConverter (typeof (string)), "GetConverter");
  65                         }
  66                         catch (NotImplementedException) {
  67                                 // mono
  68                         }
  69                         CodeTypeMember ctm = new CodeTypeMember ();
  70                         StringWriter sw = new StringWriter ();
  71                         CodeGeneratorOptions cgo = new CodeGeneratorOptions ();
  72                         try {
  73                                 vbprov.GenerateCodeFromMember (ctm, sw, cgo);
  74                         }
  75                         catch (NotImplementedException) {
  76                                 // mono
  77                         }
  78                 }
  79
  80                 // LinkDemand
  81
  82                 // we use reflection to call this class as it is protected by a LinkDemand
  83                 // (which will be converted into full demand, i.e. a stack walk) when
  84                 // reflection is used (i.e. it gets testable).
  85
  86                 public virtual object Create ()
  87                 {
  88                         ConstructorInfo ci = typeof (VBCodeProvider).GetConstructor (new Type[0]);
  89                         Assert.IsNotNull (ci, "default .ctor");
  90                         return ci.Invoke (null);
  91                 }
  92
  93                 [Test]
  94                 [PermissionSet (SecurityAction.Deny, Unrestricted = true)]
  95                 [ExpectedException (typeof (SecurityException))]
  96                 public void LinkDemand_Deny_Unrestricted ()
  97                 {
  98                         Assert.IsNotNull (Create ());
  99                 }
 100
 101                 [Test]
 102                 [EnvironmentPermission (SecurityAction.Deny, Read = "MONO")]
 103                 [ExpectedException (typeof (SecurityException))]
 104                 public void LinkDemand_Deny_Anything ()
 105                 {
 106                         // denying any permissions -> not full trust!
 107                         Assert.IsNotNull (Create ());
 108                 }
 109
 110                 [Test]
 111                 [PermissionSet (SecurityAction.PermitOnly, Unrestricted = true)]
 112                 public void LinkDemand_PermitOnly_Unrestricted ()
 113                 {
 114                         Assert.IsNotNull (Create ());
 115                 }
 116         }
 117 }