public void R_CompletionFilter01() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
script.Type("x <- lm");
script.DoIdle(100);
script.Type("mmm");
script.DoIdle(100);
script.Backspace();
script.Backspace();
script.Backspace();
script.Backspace();
script.DoIdle(100);
script.Type("abels.{TAB}");
string expected = "x <- labels.default";
string actual = script.EditorText;
actual.Should().Be(expected);
}
}
public void R_LoadedPackageFunctionCompletion() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
var provider = EditorShell.Current.ExportProvider.GetExportedValue<IRSessionProvider>();
using (new RHostScript(provider)) {
REvaluationResult result;
script.Type("c");
script.DoIdle(200);
var session = script.GetCompletionSession();
session.Should().NotBeNull();
script.DoIdle(500);
var list = session.SelectedCompletionSet.Completions.ToList();
var item = list.FirstOrDefault(x => x.DisplayText == "codoc");
item.Should().BeNull();
var rSession = provider.GetOrCreate(GuidList.InteractiveWindowRSessionGuid, null);
rSession.Should().NotBeNull();
using (var eval = rSession.BeginEvaluationAsync().Result) {
result = eval.EvaluateAsync("library('tools')").Result;
}
script.DoIdle(1000);
script.Type("{ESC}");
script.DoIdle(200);
script.Backspace();
script.Type("{ENTER}");
script.DoIdle(100);
script.Type("c");
script.DoIdle(500);
script.Backspace();
session = script.GetCompletionSession();
session.Should().NotBeNull();
list = session.SelectedCompletionSet.Completions.ToList();
item = list.FirstOrDefault(x => x.DisplayText == "codoc");
item.Should().NotBeNull();
}
}
}
