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

scope test_LeftArrowScriptAutoCompleter

svoid test_LeftArrowScriptAutoCompleter() {
  new GazelleV_LeftArrowScriptParser parser;
  LeftArrowScriptAutoCompleter completer = new(parser);
  
  // simple test for completing global function name
  
  completer.globalMethodNames = -> ll("add", "pat", "lol");
  
  completer.parser.noImports();
  
  assertEmpty(completer.parser.globalClassNames());
  completer.seek("a", 1);
  assertEqualsVerbose("a", completer.typedCharacters());
  assertEqualsVerbose(ll("add", "pat", "false"), completer.getCompletions());
  
  // test that completed word is not shown as suggestion
  parser = new GazelleV_LeftArrowScriptParser;
  completer = new LeftArrowScriptAutoCompleter(parser);
  completer.globalMethodNames = -> ll("add", "pat", "lol");
  completer.parser.importedPackages = -> null; // to suppress class names being returned
  
  completer.seek("add", 3);
  assertFalseVerbose(contains(completer.getCompletions(), "add"));
  
  // test for standard function arguments (untyped, will break when
  // we introduce typing)
  
  parser = new GazelleV_LeftArrowScriptParser;
  completer = new LeftArrowScriptAutoCompleter(parser);
  completer.globalMethodNames = -> ll("add", "pat", "lol");
  completer.parser.importedPackages = -> null; // to suppress class names being returned
  
  completer.seek("add ", 4);
  assertContainsAll(completer.getCompletions(), ll("true", "false", "null"));
  
  // complete class name
  for (S text : ll("Mat", "Mat ")) {
    parser = new GazelleV_LeftArrowScriptParser; // restore class finding
    completer = new LeftArrowScriptAutoCompleter(parser);
    completer.seek(printQuoted(+text), 3);
    var completions = completer.getCompletions();
    pnlReversed(takeFirst(10, completions));
    assertEquals(0, indexOf(completions, "Math"));
  }
  
  // same after "new"
  parser = new GazelleV_LeftArrowScriptParser; // restore class finding
  completer = new LeftArrowScriptAutoCompleter(parser);
  
  completer.seek(print("new Inte"), 8);
  var completions = completer.getCompletions();
  pnlReversed(takeFirst(10, completions));
  assertEquals(0, indexOf(completions, "Integer"));
  
  // find inner classes of global function container
  parser = new GazelleV_LeftArrowScriptParser; // restore class finding
  parser.allowTheWorld(FunctionContainer.class);
  completer = new LeftArrowScriptAutoCompleter(parser);
  completer.seek(print("MyN"), 3);
  completions = completer.getCompletions();
  pnlReversed(takeFirst(10, completions));
  assertEquals(0, indexOf(completions, "MyName"));
  
  // auto-complete global script-defined functions
  parser = new GazelleV_LeftArrowScriptParser;
  parser.functionDefs.put("hello", new GazelleV_LeftArrowScript.FunctionDef);
  completer = new LeftArrowScriptAutoCompleter(parser);
  completer.seekEnd("he");
  completions = completer.getCompletions();
  assertContains(completions, "hello");
  
  testVars();
  testMethodsOfNewInstance();
  testMethodsOfNewInstanceInVar();
  testMethodsOfFunctionResultInVar();
  testMethodsOfLambdaParameter();
  testMethodsOfForVariable();
    
  printWithPrecedingNL("Auto-completer works!");
}

svoid #testVars {
  // auto-complete variable names
  var parser = new GazelleV_LeftArrowScriptParser;
  parser.noImports();
  var completer = new LeftArrowScriptAutoCompleter(parser);
  completer.seekEnd("a <- 1\n");
  pnl("knowVarsByTokenIdx", completer.knownVarsByTokenIdx);
  assertSetsEqual(print(listPlus(completer.predefinedExpressions(), "a")),
    print(completer.getCompletions()));
}

svoid #testMethodsOfNewInstance {
  var parser = enableScaffolding(new GazelleV_LeftArrowScriptParser);
  //parser.noImports();
  var completer = enableScaffolding(new LeftArrowScriptAutoCompleter(parser));
  completer.seekEnd("new Double, ");
  assertContains(print(completer.getCompletions()), "doubleValue"); 
}

svoid #testMethodsOfNewInstanceInVar {
  var parser = enableScaffolding(new GazelleV_LeftArrowScriptParser);
  parser.onTypeHook(type -> print("TypeHook at " + parser.t() + " (" + parser.tokIdx() + ": " + type);
  //parser.noImports();
  var completer = /*enableScaffolding*/(new LeftArrowScriptAutoCompleter(parser));
  completer.seekEnd("x <- new Double; x ");
  //pnl("TYPEHOOK", completer.typeHooks);
  assertContains(print(completer.getCompletions()), "doubleValue"); 
}

svoid #testMethodsOfFunctionResultInVar {
  var parser = enableScaffolding(new GazelleV_LeftArrowScriptParser);
  var completer = /*enableScaffolding*/(new LeftArrowScriptAutoCompleter(parser));
  completer.seekEnd([[ def myFunc: S { "" }; x <- myFunc; x ]]);
  assertContains(print(completer.getCompletions()), "length"); 
}

svoid #testMethodsOfLambdaParameter {
  var parser = enableScaffolding(new GazelleV_LeftArrowScriptParser);
  parser.allowTheWorld(FunctionContainer.class);
  var completer = /*enableScaffolding*/(new LeftArrowScriptAutoCompleter(parser));
  completer.seekEnd([[ IVF1 a: S -> a ]]);
  assertContains(print(completer.getCompletions()), "length"); 
}

svoid #testMethodsOfForVariable {
  var parser = enableScaffolding(new GazelleV_LeftArrowScriptParser);
  parser.allowTheWorld(FunctionContainer.class);
  var completer = /*enableScaffolding*/(new LeftArrowScriptAutoCompleter(parser));
  completer.seekEnd([[ for s: S in null { s ]]);
  assertContains(print(completer.getCompletions()), "length"); 
}

sclass #FunctionContainer {
  class MyName {}
  interface IVF1<A> { void get(A a); }
}