1
// Copyright (c) AlphaSierraPapa for the SharpDevelop Team (for details please see \doc\copyright.txt)
2
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
5
using ICSharpCode.NRefactory.VB.Ast;
8
namespace ICSharpCode.NRefactory.VB.Tests.Ast
11
public class DeclareDeclarationTests
15
public void VBNetDeclareDeclarationTest()
17
string program = "Declare Ansi Function GetUserName Lib \"advapi32.dll\" Alias \"GetUserNameA\" (ByVal lpBuffer As String, ByRef nSize As Integer) As Integer\n";
18
DeclareDeclaration dd = ParseUtil.ParseTypeMember<DeclareDeclaration>(program);
19
Assert.AreEqual("System.Int32", dd.TypeReference.Type);
20
Assert.AreEqual("GetUserName", dd.Name);
21
Assert.AreEqual("advapi32.dll", dd.Library);
22
Assert.AreEqual("GetUserNameA", dd.Alias);
23
Assert.AreEqual(CharsetModifier.Ansi, dd.Charset);