2004-12-06 Zoltan Varga <vargaz@freemail.hu>
[mono.git] / mcs / tests / test-311.cs
1 using System;
2 using System.Security;
3 using System.Security.Permissions;
4
5 [assembly: SecurityPermission (SecurityAction.RequestMinimum, Execution=true)]
6 [assembly: SecurityPermission (SecurityAction.RequestOptional, Unrestricted=true)]
7 [assembly: SecurityPermission (SecurityAction.RequestRefuse, SkipVerification=true)]
8
9 [SecurityPermission (SecurityAction.LinkDemand, ControlPrincipal=true)]
10 struct LinkDemandStruct {
11         internal string Info;
12 }
13
14 [SecurityPermission (SecurityAction.Demand, ControlAppDomain=true)]
15 public class Program {
16
17         private static string _message = "Hello Mono!";
18         private LinkDemandStruct info;
19
20         [SecurityPermission (SecurityAction.InheritanceDemand, ControlAppDomain=true)]
21         public Program () {
22                 info = new LinkDemandStruct ();
23                 info.Info = ":-)";
24         }
25
26         public static string Message {
27                 [SecurityPermission (SecurityAction.PermitOnly, ControlEvidence=true)]
28                 get { return _message; }
29                 [SecurityPermission (SecurityAction.Assert, ControlThread=true)]
30                 set { _message = value; }
31         }
32
33         [SecurityPermission (SecurityAction.Deny, UnmanagedCode=true)]
34         private bool DenyMethod () {
35                 return false;
36         }
37
38         [SecurityPermission (SecurityAction.Demand, Flags = SecurityPermissionFlag.ControlEvidence, UnmanagedCode=true)]
39         [SecurityPermission (SecurityAction.Demand, Flags = SecurityPermissionFlag.AllFlags, UnmanagedCode=true)]
40         static public int Main (string[] args)
41         {
42                 Type program = typeof (Program);
43                 if (program.GetCustomAttributes (true).Length != 0)
44                         return 1;
45
46                 if (program.GetConstructor (System.Type.EmptyTypes).GetCustomAttributes (true).Length != 0)
47                         return 2;
48
49                 if (program.GetProperty ("Message").GetSetMethod ().GetCustomAttributes (true).Length != 0)
50                         return 3;
51
52                 if (program.GetMethod ("Main").GetCustomAttributes (true).Length != 0)
53                         return 4;
54
55                 Console.WriteLine (Message);
56                 return 0;
57         }
58 }