155 lines
3.7 KiB
C++
155 lines
3.7 KiB
C++
#ifdef TESTS_BUILD
|
|
#include <catch.hpp>
|
|
#include "../src/Script.hpp"
|
|
using namespace Porygon;
|
|
|
|
TEST_CASE( "Numerical for loop without step", "[integration]" ) {
|
|
auto script = Script::Create(uR"(
|
|
result = 0
|
|
for i = 0,10 do
|
|
result = result + 3
|
|
end
|
|
)");
|
|
REQUIRE(!script->Diagnostics -> HasErrors());
|
|
script->Evaluate();
|
|
auto var = script->GetVariable(u"result");
|
|
REQUIRE(var->EvaluateInteger() == 33);
|
|
delete script;
|
|
}
|
|
|
|
TEST_CASE( "Numerical for loop with step", "[integration]" ) {
|
|
auto script = Script::Create(uR"(
|
|
result = 0
|
|
for i = 0,10,3 do
|
|
result = result + 3
|
|
end
|
|
)");
|
|
REQUIRE(!script->Diagnostics -> HasErrors());
|
|
script->Evaluate();
|
|
auto var = script->GetVariable(u"result");
|
|
REQUIRE(var->EvaluateInteger() == 12);
|
|
delete script;
|
|
}
|
|
|
|
TEST_CASE( "Numerical for loop with negative step", "[integration]" ) {
|
|
auto script = Script::Create(uR"(
|
|
result = 0
|
|
for i = 10,0,-1 do
|
|
result = result + 3
|
|
end
|
|
)");
|
|
REQUIRE(!script->Diagnostics -> HasErrors());
|
|
script->Evaluate();
|
|
auto var = script->GetVariable(u"result");
|
|
REQUIRE(var->EvaluateInteger() == 33);
|
|
delete script;
|
|
}
|
|
|
|
|
|
TEST_CASE( "Numerical for loop creates variable", "[integration]" ) {
|
|
auto script = Script::Create(uR"(
|
|
result = 0
|
|
for i = 0,5 do
|
|
result = result + i
|
|
end
|
|
)");
|
|
REQUIRE(!script->Diagnostics -> HasErrors());
|
|
script->Evaluate();
|
|
auto var = script->GetVariable(u"result");
|
|
REQUIRE(var->EvaluateInteger() == 15);
|
|
delete script;
|
|
}
|
|
|
|
TEST_CASE( "Numerical for loop, break", "[integration]" ) {
|
|
auto script = Script::Create(uR"(
|
|
result = 0
|
|
for i = 0,5 do
|
|
if i > 3 then break end
|
|
result = result + i
|
|
end
|
|
)");
|
|
REQUIRE(!script->Diagnostics -> HasErrors());
|
|
script->Evaluate();
|
|
auto var = script->GetVariable(u"result");
|
|
REQUIRE(var->EvaluateInteger() == 6);
|
|
delete script;
|
|
}
|
|
|
|
|
|
TEST_CASE( "Generic for loop over simple numerical table, get keys", "[integration]" ) {
|
|
auto script = Script::Create(uR"(
|
|
local table = {1, 3, 5, 7, 9}
|
|
result = 0
|
|
for i in table do
|
|
result = result + i
|
|
end
|
|
)");
|
|
REQUIRE(!script->Diagnostics -> HasErrors());
|
|
script->Evaluate();
|
|
auto var = script->GetVariable(u"result");
|
|
REQUIRE(var->EvaluateInteger() == 15);
|
|
delete script;
|
|
}
|
|
|
|
TEST_CASE( "Generic for loop over simple numerical table, get values", "[integration]" ) {
|
|
auto script = Script::Create(uR"(
|
|
local table = {1, 3, 5, 7, 9}
|
|
result = 0
|
|
for i,v in table do
|
|
result = result + v
|
|
end
|
|
)");
|
|
REQUIRE(!script->Diagnostics -> HasErrors());
|
|
script->Evaluate();
|
|
auto var = script->GetVariable(u"result");
|
|
REQUIRE(var->EvaluateInteger() == 25);
|
|
delete script;
|
|
}
|
|
|
|
TEST_CASE( "Generic for loop over simple numerical table, break", "[integration]" ) {
|
|
auto script = Script::Create(uR"(
|
|
local table = {1, 3, 5, 7, 9}
|
|
result = 0
|
|
for i,v in table do
|
|
if i > 3 then break end
|
|
result = result + v
|
|
end
|
|
)");
|
|
REQUIRE(!script->Diagnostics -> HasErrors());
|
|
script->Evaluate();
|
|
auto var = script->GetVariable(u"result");
|
|
REQUIRE(var->EvaluateInteger() == 9);
|
|
delete script;
|
|
}
|
|
|
|
TEST_CASE( "While loop", "[integration]" ) {
|
|
auto script = Script::Create(uR"(
|
|
result = 0
|
|
while result < 5 do
|
|
result = result + 1
|
|
end
|
|
)");
|
|
REQUIRE(!script->Diagnostics -> HasErrors());
|
|
script->Evaluate();
|
|
auto var = script->GetVariable(u"result");
|
|
REQUIRE(var->EvaluateInteger() == 5);
|
|
delete script;
|
|
}
|
|
|
|
TEST_CASE( "While loop break", "[integration]" ) {
|
|
auto script = Script::Create(uR"(
|
|
result = 0
|
|
while true do
|
|
result = result + 1
|
|
if result >= 5 then break end
|
|
end
|
|
)");
|
|
REQUIRE(!script->Diagnostics -> HasErrors());
|
|
script->Evaluate();
|
|
auto var = script->GetVariable(u"result");
|
|
REQUIRE(var->EvaluateInteger() == 5);
|
|
delete script;
|
|
}
|
|
|
|
#endif
|