!include once #1034831 // Gazelle 22 Function Include for Testing

svoid test_compiledLeftArrowScript() {
  embedded S countLoop(int n) {
    ret [[ i <- 0; while lessThan i ]] + n + [[ { i <- plus i 1 }; i ]];
  }
  
  embedded void testScript(S script, O expectedValue) {
    var makeIF0 = leftArrowScriptToEvaluable(leftArrowParse(script));
    makeIF0.printDisassembly(true);
    print(+script);
    assertEqualsVerbose(expectedValue, makeIF0!!);
  }
  
  // int primitive
  testScript([[ 5 ]], 5);
  testScript([[ -5 ]], -5);

  // double primitive
  testScript([[ str 1.5e2 ]], "150.0");
    
  // new object with constructor arguments
  testScript([[ new Pair "hello" "world" ]], pair("hello", "world"));
  
  // assign & get variable
  testScript([[ i <- 23; i ]], 23);
  
  // while loop
  testScript(countLoop(5), 5);
  
  // conditional return
  testScript([[
    if true { return "so true" }
    return "oops"
  ]], "so true");
  
  testScript([[
    if false { return "not true" }
    return "but this"
  ]], "but this");
    
}

Began life as a copy of #1033988