public void TestCaseNoarmalDevice(string input, string expected)
{
var result = STtoKVScriptCore.Execute(input);
Console.WriteLine(result);
Assert.AreEqual(expected, result);
}
public void TestCaseE9()
{
string input1 = "FUNC();";
string input2 = "A := FUNC(B);";
string input3 = "A := FUNC(B AND C, D = E);";
string input4 = "A := FUNC(B := C);";
string input5 = "A := FUNC(B, C => D);";
string expect1 = "FUNC()\n";
string expect2 = "A=FUNC(B)\n";
string expect3 = "A=FUNC(B AND C,D=E)\n";
string expect4 = "A=FUNC(B:=C)\n";
string expect5 = "A=FUNC(B,C=>D)\n";
var result1 = STtoKVScriptCore.Execute(input1);
Console.WriteLine(result1);
var result2 = STtoKVScriptCore.Execute(input2);
var result3 = STtoKVScriptCore.Execute(input3);
var result4 = STtoKVScriptCore.Execute(input4);
var result5 = STtoKVScriptCore.Execute(input5);
Assert.AreEqual(expect1, result1);
Assert.AreEqual(expect2, result2);
Assert.AreEqual(expect3, result3);
Assert.AreEqual(expect4, result4);
Assert.AreEqual(expect5, result5);
}
public void TestCaseS3_2()
{
string input1 = "CASE A OF \n B:\n C: D:= E; \n END_CASE; \n CASE A OF \n B, C: \n D..E: \n F,G,H..I:J:= K;\nEND_CASE;";
string expect1 = "SELECT CASE A\nCASE B,C\nD=E\nEND SELECT\nSELECT CASE A\nCASE B,C,D TO E,F,G,H TO I\nJ=K\nEND SELECT\n";
var result1 = STtoKVScriptCore.Execute(input1);
Console.WriteLine(result1);
Assert.AreEqual(expect1, result1);
}
public void TestCaseS3_1()
{
string input1 = "CASE A OF \n B: C:= D; \n ELSE E:= F; \n END_CASE;";
string expect1 = "SELECT CASE A\nCASE B\nC=D\nCASE ELSE\nE=F\nEND SELECT\n";
var result1 = STtoKVScriptCore.Execute(input1);
Console.WriteLine(result1);
Assert.AreEqual(expect1, result1);
}
public void TestCaseS1()
{
string input1 = "A:= B;\n A:= B; C:= D;";
string expect1 = "A=B\nA=B\nC=D\n";
var result1 = STtoKVScriptCore.Execute(input1);
Console.WriteLine(result1);
Assert.AreEqual(expect1, result1);
}
public void TestCaseE7()
{
string input1 = "A := B<C> D <= E >= F;";
string expect1 = "A=B<C>D<=E>=F\n";
var result1 = STtoKVScriptCore.Execute(input1);
Console.WriteLine(result1);
Assert.AreEqual(expect1, result1);
}
public void TestCaseE6()
{
string input1 = "A := NOT B AND C OR D XOR E & F;";
string expect1 = "A=NOT(B AND C OR D XOR E AND F)\n";
var result1 = STtoKVScriptCore.Execute(input1);
Console.WriteLine(result1);
Assert.AreEqual(expect1, result1);
}
public void TestCaseE5()
{
string input1 = "A := B + C --D * E / F MOD G ** H;";
string expect1 = "A=B+C--D*E/F MOD G^H\n";
var result1 = STtoKVScriptCore.Execute(input1);
Console.WriteLine(result1);
Assert.AreEqual(expect1, result1);
}
public void TestCaseE4()
{
string input1 = "A := UINT#2#1100_0011;";
string expect1 = "A=TOU($c3)\n";
var result1 = STtoKVScriptCore.Execute(input1);
Console.WriteLine(result1);
Assert.AreEqual(expect1, result1);
}
public void TestCaseS4()
{
string input1 = "RETURN;\n CASE A OF \n B: C:= E; \n ELSE RETURN; \n END_CASE;\n";
string expect1 = "IF FALSE THEN\nSELECT CASE A\nCASE B\nC=E\nCASE ELSE\nR0=R0\nEND SELECT\nEND IF\n";
var result1 = STtoKVScriptCore.Execute(input1);
Console.WriteLine(result1);
Assert.AreEqual(expect1, result1);
}
public void TestCaseS2()
{
string input1 = "REPEAT\n REPEAT\n EXIT;\n UNTIL A END_REPEAT;\n UNTIL B END_REPEAT;\n";
string expect1 = "DO\nDO\nBREAK\nUNTIL A\nUNTIL B\n";
var result1 = STtoKVScriptCore.Execute(input1);
Console.WriteLine(result1);
Assert.AreEqual(expect1, result1);
}
public void TestCaseE3()
{
string input1 = "A:= 2#1001_0110;";
string input2 = "A:= 8#1024;";
string input3 = "A:= 16#ABCD;";
string expect1 = "A=$96\n";
string expect2 = "A=#532\n";
string expect3 = "A=$ABCD\n";
var result1 = STtoKVScriptCore.Execute(input1);
Console.WriteLine(result1);
var result2 = STtoKVScriptCore.Execute(input2);
var result3 = STtoKVScriptCore.Execute(input3);
Assert.AreEqual(expect1, result1);
Assert.AreEqual(expect2, result2);
Assert.AreEqual(expect3, result3);
}
public void TestCaseE1()
{
string input1 = "A := 1;";
string input2 = "A:= 1.0;";
string input3 = "A:= 'ABC'; //シングルクォートがマルチバイト文字列";
string input4 = "A:= \"ABC\"; //ダブルクォートがワイド文字列";
string expect1 = "A=#1\n";
string expect2 = "A=#1.0\n";
string expect3 = "A=\"ABC\"\n'シングルクォートがマルチバイト文字列\n";
string expect4 = "A=\"ABC\"\n'ダブルクォートがワイド文字列\n";
var result1 = STtoKVScriptCore.Execute(input1);
var result2 = STtoKVScriptCore.Execute(input2);
var result3 = STtoKVScriptCore.Execute(input3);
var result4 = STtoKVScriptCore.Execute(input4);
Assert.AreEqual(expect1, result1);
Assert.AreEqual(expect2, result2);
Assert.AreEqual(expect3, result3);
Assert.AreEqual(expect4, result4);
}
public void TestCaseE2()
{
string input1 = "A:= INT#10;";
string input2 = "A:= UINT#10;";
string input3 = "A:= LREAL#1.0;";
string input4 = "A:= STRING#'ABC';";
string expect1 = "A=TOS(#10)\n";
string expect2 = "A=TOU(#10)\n";
string expect3 = "A=TODF(#1.0)\n";
string expect4 = "A=\"ABC\"\n";
var result1 = STtoKVScriptCore.Execute(input1);
Console.WriteLine(result1);
var result2 = STtoKVScriptCore.Execute(input2);
Console.WriteLine(result2);
var result3 = STtoKVScriptCore.Execute(input3);
Console.WriteLine(result3);
var result4 = STtoKVScriptCore.Execute(input4);
Console.WriteLine(result4);
Assert.AreEqual(expect1, result1);
Assert.AreEqual(expect2, result2);
Assert.AreEqual(expect3, result3);
Assert.AreEqual(expect4, result4);
}