public void VBNetGenericInvocation2ExpressionTest()
{
CheckGenericInvoke2(ParseUtil.ParseExpression <InvocationExpression>("myMethod(Of T, Boolean)()"));
}
public void VBNetSimpleInvocationExpressionTest()
{
CheckSimpleInvoke(ParseUtil.ParseExpression <InvocationExpression>("myMethod()"));
}
public void VBNetGenericInvocationExpressionTest()
{
CheckGenericInvoke(ParseUtil.ParseExpression <InvocationExpression>("myMethod(Of Char)(\"a\"c)"));
}
public void VBNetIdentifierExpressionTest2()
{
IdentifierExpression ie = ParseUtil.ParseExpression <IdentifierExpression>("[Public]");
Assert.AreEqual("Public", ie.Identifier);
}
public void VBNetErrorStatementTest()
{
ErrorStatement errorStatement = ParseUtil.ParseStatement <ErrorStatement>("Error a");
}
public void VBNetForNextStatementWithComplexExpressionTest()
{
ForNextStatement forNextStatement = ParseUtil.ParseStatement <ForNextStatement>("For SomeMethod().Property = 0 To 10 : Next SomeMethod().Property");
}
public void VBNetThisReferenceExpressionTest1()
{
ThisReferenceExpression ie = ParseUtil.ParseExpression <ThisReferenceExpression>("Me");
}
public void VBVoidTypeOfExpressionTest()
{
TypeOfExpression toe = ParseUtil.ParseExpression <TypeOfExpression>("GetType(void)");
Assert.AreEqual("void", toe.TypeReference.Type);
}
static LambdaExpression Parse(string program)
{
return(ParseUtil.ParseExpression <LambdaExpression>(program));
}
public void VBGlobalTypeOfExpressionTest()
{
TypeOfExpression toe = ParseUtil.ParseExpression <TypeOfExpression>("GetType(Global.System.Console)");
Assert.AreEqual("System.Console", toe.TypeReference.Type);
}
public void VBPrimitiveTypeOfExpressionTest()
{
TypeOfExpression toe = ParseUtil.ParseExpression <TypeOfExpression>("GetType(integer)");
Assert.AreEqual("System.Int32", toe.TypeReference.Type);
}
public void VBSimpleTypeOfExpressionTest()
{
TypeOfExpression toe = ParseUtil.ParseExpression <TypeOfExpression>("GetType(MyNamespace.N1.MyType)");
Assert.AreEqual("MyNamespace.N1.MyType", toe.TypeReference.Type);
}
public void VBNetReDimStatementTest2()
{
ReDimStatement reDimStatement = ParseUtil.ParseStatement <ReDimStatement>("ReDim calCheckData(channelNum, lambdaNum).ShiftFromLastFullCalPixels(CalCheckPeak.HighWavelength)");
}
public void VBNetGotoStatementTest()
{
GotoStatement gotoStmt = ParseUtil.ParseStatement <GotoStatement>("GoTo myLabel");
Assert.AreEqual("myLabel", gotoStmt.Label);
}
public void PrimitiveExpression1Test()
{
InvocationExpression ie = ParseUtil.ParseExpression <InvocationExpression>("546.ToString()");
Assert.AreEqual(0, ie.Arguments.Count);
}
public void VBNetBaseReferenceExpressionTest1()
{
MemberReferenceExpression fre = ParseUtil.ParseExpression <MemberReferenceExpression>("MyBase.myField");
Assert.IsTrue(fre.TargetObject is BaseReferenceExpression);
}
public void VBNetForNextStatementTest()
{
ForNextStatement forNextStatement = ParseUtil.ParseStatement <ForNextStatement>("For i=0 To 10 Step 2 : Next i");
}
public void VBStandaloneIntReferenceExpression()
{
TypeReferenceExpression tre = ParseUtil.ParseExpression <TypeReferenceExpression>("inTeGer");
Assert.AreEqual("System.Int32", tre.TypeReference.Type);
}
public void InvalidImportsStatement2()
{
string program = "Imports ,\n";
ParseUtil.ParseGlobal <ImportsStatement>(program, true);
}
public void VBStandaloneObjectReferenceExpression()
{
TypeReferenceExpression tre = ParseUtil.ParseExpression <TypeReferenceExpression>("obJect");
Assert.AreEqual("System.Object", tre.TypeReference.Type);
}
public void VBNetIdentifierExpressionTest1()
{
IdentifierExpression ie = ParseUtil.ParseExpression <IdentifierExpression>("MyIdentifier");
Assert.AreEqual("MyIdentifier", ie.Identifier);
}
public void VBNetWithStatementTest()
{
WithStatement withStatement = ParseUtil.ParseStatement <WithStatement>("With MyObj : End With");
}
public void VBNetOnErrorStatementTest()
{
OnErrorStatement onErrorStatement = ParseUtil.ParseStatement <OnErrorStatement>("On Error Goto err");
}
public void ModuleAttributeTargetEscaped()
{
// check that this doesn't crash the parser:
ParseUtil.ParseGlobal <AttributeSection>("<[Module]: SuppressMessageAttribute>", true);
}
