Warning: session_start(): open(/var/lib/php/sessions/sess_qb9t33qefl6vb43a72l2hisvdu, O_RDWR) failed: No space left on device (28) in /var/www/tb-usercake/models/config.php on line 51
Warning: session_start(): Failed to read session data: files (path: /var/lib/php/sessions) in /var/www/tb-usercake/models/config.php on line 51
set flag PingV3.
scope test_leftArrowScript
sclass #Tester { O value = "123"; }
svoid test_leftArrowScript() {
test_leftArrowScript_pinging();
embedded S countLoop(int n) {
ret [[ i <- 0; while lessThan i ]] + n + [[ { i <- plus i 1 }; i ]];
}
S ifThenElseScript = [[
if lessThan a b { joinWithSpace "It's" "less" }
else if greaterThan a b { joinWithSpace "It's" "greater" }
else { joinWithSpace "They're" "equal" }
]];
testFunctionValues(script -> leftArrowVerbose((S) script),
// int primitive
[[ 5 ]], 5,
[[ -5 ]], -5,
// function definition & call
[[
def double x {
Math multiplyExact x 2
}
double 10
]], 20,
// new object with constructor arguments
[[ new Pair "hello" "world" ]], pair("hello", "world"),
// double constant
[[ str 1.5e2 ]], "150.0",
// float constant
[[ 1.5e2f ]], 150f,
// [not implemented, too complicated]
// last = result of last statement
// [[ plus 1 2; Math addExact 5 last ]], 8,
// get static field
[[ Color black ]], Color.black,
// get instance field,
[[ tester <- new test_leftArrowScript_Tester; tester value ]], "123",
// while loop
countLoop(5), 5,
// if statement
[[ if lessThan 0 1 { "ok" } ]], "ok",
[[ if lessThan 1 0 { "ok" } ]], null,
// for each
[[ l <- ll 2 3
sum <- 0
for number in l { sum <- plus sum number }
sum
]], 5,
// for each is also map()
[[ for i in ll 2 3 { plus i 1 }
]], ll(3, 4),
// for each as nested expression
[[ joinWithSpace (for i in ll 2 3 { i }) ]], "2 3",
// some bug
[[
img <- newImage 10 10
r <- randomRect img 10 10
]], rect(0, 0, 10, 10),
// another bug
[[
a <- 1
b <- a
a
]], 1,
// null bug
[[
a <- 1
a <- null
a
]], null,
// return at the end
[[
return 17
]], 17,
// two returns (first wins)
[[
return 13
return 22
]], 13,
// conditional return
[[
if true { return "so true" }
return "oops"
]], "so true",
[[
if false { return "not true" }
return "but this"
]], "but this",
// if-then-else
[[ a <- 1; b <- 2; ]] + ifThenElseScript, "It's less",
[[ a <- 6; b <- 2; ]] + ifThenElseScript, "It's greater",
[[ a <- 5.0; b <- 5.0; ]] + ifThenElseScript, "They're equal",
// nested expressions
[[ plus (plus 1 2) 4 ]], 7,
[[ (plus 5 6) toString ]], "11",
// nested expressions over 2 lines (it's ok to split an expression
// over multiple lines if you at least parenthesis is still open)
[[ (plus 1
(plus 2 3)) ]], 6,
// another case for nested expressions
[[ str (Color black) ]], str(Color.black),
// bug with nested for + new + linebreak + for (phew)
[[ (for y in ll 1 {
new Pair 1 2
for x in null {}
}); 0 ]], 0,
// param declares a variable
[[ param x; x ]], null,
// return with assignment
[[ return x <- 1 ]], 1,
// for pair
[[ for pair a b in ll (pair 1 2) (pair 3 4) {
plus a b
} ]], ll(3, 7),
// for key, value (map)
[[ for a, b in litorderedmap 1 2 3 4 {
plus a b
} ]], ll(3, 7),
// automatically convert int to long for method call
[[ longPlus 1 2 ]], 3L,
// same for constructors
[[ new Ratio 1 ]], Ratio(1),
// call a function from another function
[[ def f1 { 1 }
def f2 { plus (f1) 2 }
f2 ]], 3,
// lambas!!
"map (IF1 a -> new Pair a (neg a)) (ll 1 2)",
ll(pair(1, -1), pair(2, -2)),
// add simple tests here
);
// get reference to current var context with _context
new GazelleV_LeftArrowScriptParser parser;
enableScaffolding(parser);
parser.allowTheWorld();
new VarContext ctx;
assertSame(ctx, parser.parse("_context").get(ctx));
test_leftArrowScriptParseErrors();
test_leftArrowScript_lambdas();
// add more tests here
print("All left-arrow script tests OK!");
}