[xbuild] Vbc task - make error column check a little non-specific.
[mono.git] / mono / tests / cas / assembly / ref.cs
1 using System;
2 using System.Reflection;
3 using System.Security;
4 using System.Security.Permissions;
5
6 [assembly: SecurityPermission (SecurityAction.RequestRefuse, SkipVerification=true)]
7
8 public class Program {
9
10         static public int Main (string[] args)
11         {
12                 object[] attrs = Assembly.GetExecutingAssembly ().GetCustomAttributes (false);
13                 for (int i = 0; i < attrs.Length; i++) {
14                         if (attrs [i] is PermissionSetAttribute) {\r
15                                 PermissionSetAttribute psa = (attrs [i] as PermissionSetAttribute);\r
16                                 Console.WriteLine ("{0} - {1}", psa.Action, psa.CreatePermissionSet ());\r
17                         } else if (attrs [i] is SecurityAttribute) {\r
18                                 SecurityAttribute sa = (attrs [i] as SecurityAttribute);\r
19                                 IPermission p = sa.CreatePermission ();\r
20                                 PermissionSet ps = new PermissionSet (PermissionState.None);\r
21                                 ps.AddPermission (p);\r
22                                 Console.WriteLine ("{0} - {1}", sa.Action, ps);\r
23                         } else {
24                                 Console.WriteLine (attrs [i]);
25                         }
26                 }
27                 return 0;
28         }
29 }