public void TestBuildPrototypeWithIntResultRecordFail()
{
var e = Assert.Throws <ArgumentException>(() =>
BuildPrototypeTester("TestFunction", "INTEGER", ("a", "RECORD a: INTEGER END")));
Assert.Equal("RECORD a: INTEGER END is not a valid type reference (Parameter 'typeString')", e.Message);
Assert.Equal("typeString", e.ParamName);
}
public void TestBuildPrototypeWithIntResultTwoParamIncludingReference()
{
Assert.Equal("INTEGER TestFunction(INTEGER,&REAL)",
BuildPrototypeTester("TestFunction", "INTEGER", ("a", "INTEGER"), ("b", "&REAL")));
}
public void TestBuildPrototypeWithIntResultArrayRef()
{
Assert.Equal("INTEGER TestFunction(&INTEGER[5])",
BuildPrototypeTester("TestFunction", "INTEGER", ("a", "VAR INTEGER[5]")));
}
public void TestBuildPrototypeWithIntResultOneParam()
{
Assert.Equal("INTEGER TestFunction(INTEGER)",
BuildPrototypeTester("TestFunction", "INTEGER", ("a", "INTEGER")));
}
