public void InferOffOption()
{
string program = "Option Infer Off\n";
var node = new OptionStatement {
OptionType = OptionType.Infer,
OptionValue = OptionValue.Off
};
ParseUtil.AssertGlobal(program, node);
}
public void CompareTextOption()
{
string program = "Option Compare Text\n";
var node = new OptionStatement {
OptionType = OptionType.Compare,
OptionValue = OptionValue.Text
};
ParseUtil.AssertGlobal(program, node);
}
public void ExplicitOption()
{
string program = "Option Explicit Off\n";
var node = new OptionStatement {
OptionType = OptionType.Explicit,
OptionValue = OptionValue.Off
};
ParseUtil.AssertGlobal(program, node);
}
public void StrictOption()
{
string program = "Option Strict On\n";
var node = new OptionStatement {
OptionType = OptionType.Strict,
OptionValue = OptionValue.On
};
ParseUtil.AssertGlobal(program, node);
}
public void QualifiedTypeImportsStatement()
{
string program = "Imports My.Name.Space\n";
var clause2 = new MemberImportsClause {
Member = new QualifiedType(new QualifiedType(new SimpleType("My"), new Identifier ("Name", AstLocation.Empty)), new Identifier ("Space", AstLocation.Empty))
};
var node = new ImportsStatement();
node.AddChild(clause2, ImportsStatement.ImportsClauseRole);
ParseUtil.AssertGlobal(program, node);
}
public void SimpleImportsStatement()
{
string program = "Imports System\n";
var clause1 = new MemberImportsClause {
Member = new SimpleType("System")
};
var node = new ImportsStatement();
node.AddChild(clause1, ImportsStatement.ImportsClauseRole);
ParseUtil.AssertGlobal(program, node);
}
public void SimpleImportsStatement()
{
string program = "Imports System\n";
var clause1 = new MemberImportsClause {
Member = new SimpleType(new Identifier(null, "System", TextLocation.Empty))
};
var node = new ImportsStatement();
node.AddChild(clause1, ImportsStatement.ImportsClauseRole);
ParseUtil.AssertGlobal(program, node);
}