Canon/Canon.Tests/GrammarParserTests/PascalGrammarTests.cs
jackfiled 6e8e3885ac fix: 区分字符和字符串 (#74)
Co-authored-by: Huaps <1183155719@qq.com>
Reviewed-on: PostGuard/Canon#74
2024-05-04 13:57:14 +08:00

247 lines
7.1 KiB
C#

using Canon.Core.SyntaxNodes;
using Canon.Tests.Utils;
namespace Canon.Tests.GrammarParserTests;
public class PascalGrammarTests
{
[Fact]
public void DoNothingTest()
{
const string program = """
program DoNothing;
begin
end.
""";
ProgramStruct root = CompilerHelpers.Analyse(program);
Assert.Equal("DoNothing", root.Head.ProgramName.LiteralValue);
Assert.Equal(15, root.Count());
}
[Fact]
public void AddTest()
{
const string program = """
program Add;
var a : Integer;
begin
a := 1 + 1
end.
""";
ProgramStruct root = CompilerHelpers.Analyse(program);
Assert.Equal("Add", root.Head.ProgramName.LiteralValue);
}
[Fact]
public void WriteLnTest()
{
const string program = """
program exFunction;
const str = 'a';
var a, b : Integer;
begin
writeln( str, ret );
end.
""";
ProgramStruct root = CompilerHelpers.Analyse(program);
Assert.Equal("exFunction", root.Head.ProgramName.LiteralValue);
}
[Fact]
public void CharacterTest()
{
const string program = """
program varTest;
var a : integer;
begin
a := 9 div 1;
end.
""";
ProgramStruct root = CompilerHelpers.Analyse(program);
Assert.Equal("vartest", root.Head.ProgramName.IdentifierName);
}
[Fact]
public void ArrayTest()
{
const string program = """
program arrayTest;
var a : array [0..10] of integer;
begin
a[0] := 1;
end.
""";
CompilerHelpers.Analyse(program);
}
[Fact]
public void MultiplyArrayTest()
{
const string program = """
program arrayTest;
var a : array [10..100, 0..10] of integer;
begin
a[10,0] := 1;
end.
""";
CompilerHelpers.Analyse(program);
}
[Fact]
public void ProcedureTest()
{
const string program = """
program main;
procedure test;
begin
end;
begin
end.
""";
CompilerHelpers.Analyse(program);
}
[Fact]
public void FunctionTest()
{
const string program = """
program main;
function test(a, b : integer) : integer;
begin
test := 1;
end;
begin
end.
""";
CompilerHelpers.Analyse(program);
}
[Fact]
public void ForLoopTest()
{
const string program = """
program main;
var i : integer;
begin
for i := 1 to 100 do
begin
doSomething(i);
end;
end.
""";
CompilerHelpers.Analyse(program);
}
[Fact]
public void IfConditionTest()
{
const string program = """
program main;
begin
if 1 = 2 then
begin
test1;
test2 := a;
end
else
begin
doSomething;
end;
end.
""";
CompilerHelpers.Analyse(program);
}
[Fact]
public void ProcedureCallTest()
{
const string program = """
program main;
var a : integer;
function test : integer;
begin
end;
begin
test;
a := test;
test();
a := test();
end.
""";
CompilerHelpers.Analyse(program);
}
[Fact]
public void ProcedureDefinitionTest()
{
const string program = """
program main;
procedure test();
begin
end;
begin
test();
end.
""";
CompilerHelpers.Analyse(program);
}
[Fact]
public void FactorTest()
{
const string program = """
program main;
var a : integer;
begin
a := 1 + +1;
a := 1 - -1;
a := 1 + -1;
a := 1 - +1;
end.
""";
CompilerHelpers.Analyse(program);
}
[Fact]
public void TrueFalseTest()
{
const string program = """
program main;
const a = true; b = false;
var c, d : boolean;
begin
c := true;
d := false;
end.
""";
CompilerHelpers.Analyse(program);
}
[Fact]
public void ProcedureAndVariableTest()
{
const string program = """
program main;
begin
test
end.
""";
CompilerHelpers.Analyse(program);
}
}