public void R_SignatureSessionNavigation() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
FunctionRdDataProvider.HostStartTimeout = 10000;
using (new RHostScript(EditorShell.Current.ExportProvider.GetExportedValue<IRSessionProvider>())) {
PrepareFunctionIndex();
FunctionIndexUtility.GetFunctionInfoAsync("lm").Wait(3000);
script.Type("x <- lm(subset = a, sing");
script.DoIdle(1000);
script.Type("{TAB}");
script.DoIdle(1000);
ISignatureHelpSession session = script.GetSignatureSession();
session.Should().NotBeNull();
script.DoIdle(200);
IParameter parameter = session.SelectedSignature.CurrentParameter;
parameter.Should().NotBeNull();
parameter.Name.Should().Be("singular.ok");
script.MoveLeft(17);
script.DoIdle(200);
parameter = session.SelectedSignature.CurrentParameter;
parameter.Name.Should().Be("subset");
script.MoveRight(3);
script.DoIdle(200);
parameter = session.SelectedSignature.CurrentParameter;
parameter.Name.Should().Be("singular.ok");
}
}
}
public void R_SignatureParametersMatch() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
FunctionRdDataProvider.HostStartTimeout = 10000;
using (new RHostScript(EditorShell.Current.ExportProvider.GetExportedValue<IRSessionProvider>())) {
PrepareFunctionIndex();
FunctionIndexUtility.GetFunctionInfoAsync("lm").Wait(3000);
script.Type("x <- lm(");
script.DoIdle(2000);
ISignatureHelpSession session = script.GetSignatureSession();
session.Should().NotBeNull();
IParameter parameter = session.SelectedSignature.CurrentParameter;
parameter.Should().NotBeNull();
parameter.Name.Should().Be("formula");
script.Type("sub");
script.DoIdle(500);
script.Type("{TAB}");
script.DoIdle(1000);
parameter = session.SelectedSignature.CurrentParameter;
parameter.Name.Should().Be("subset");
string actual = script.EditorText;
actual.Should().Be("x <- lm(subset = )");
session = script.GetSignatureSession();
parameter = session.SelectedSignature.CurrentParameter;
}
}
}
public void R_ErrorTagsTest01() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
// Force tagger creation
var tagSpans = script.GetErrorTagSpans();
script.Type("x <- {");
script.Delete();
script.DoIdle(500);
tagSpans = script.GetErrorTagSpans();
string errorTags = script.WriteErrorTags(tagSpans);
errorTags.Should().Be("[5 - 6] } expected\r\n");
var item = tagSpans[0].Tag as IEditorTaskListItem;
item.Line.Should().Be(1);
item.Column.Should().Be(6);
item.FileName.Should().Be("filename");
item.HelpKeyword.Should().Be("vs.r.validationerror");
script.Type("}");
script.DoIdle(500);
tagSpans = script.GetErrorTagSpans();
tagSpans.Should().BeEmpty();
}
}
public void R_LibrarySuggestedActions() {
using (var script = new TestScript(" library(base)", RContentTypeDefinition.ContentType)) {
IEnumerable<SuggestedActionSet> sets = null;
ILightBulbSession session = null;
var e = EditorShell.Current.ExportProvider;
var svc = e.GetExportedValue<ISuggestedActionCategoryRegistryService>();
script.Invoke(() => {
var broker = e.GetExportedValue<ILightBulbBroker>();
broker.CreateSession(svc.AllCodeFixes, EditorWindow.CoreEditor.View);
session = script.GetLightBulbSession();
session.Should().NotBeNull();
session.Expand();
session.TryGetSuggestedActionSets(out sets);
});
sets.Should().NotBeNull();
sets.Should().HaveCount(0);
session.Dismiss();
script.DoIdle(200);
script.MoveRight(2);
script.DoIdle(200);
sets = null;
script.Invoke(() => {
var broker = e.GetExportedValue<ILightBulbBroker>();
broker.CreateSession(svc.Any, EditorWindow.CoreEditor.View);
session = script.GetLightBulbSession();
session.Should().NotBeNull();
session.Expand();
session.TryGetSuggestedActionSets(out sets);
});
script.DoIdle(3000);
sets = null;
script.Invoke(() => {
session.TryGetSuggestedActionSets(out sets);
});
sets.Should().NotBeNull();
sets.Should().HaveCount(1);
var set = sets.First();
set.Actions.Should().HaveCount(2);
var actions = set.Actions.ToArray();
actions[0].Should().BeOfType(typeof(InstallPackageSuggestedAction));
actions[1].Should().BeOfType(typeof(LoadLibrarySuggestedAction));
}
}
public void R_AutoFormatScopeBraces03() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
REditorSettings.FormatOptions.BracesOnNewLine = false;
script.Type("while(true) {");
script.DoIdle(300);
script.Type("{ENTER}if(x>1) {");
script.DoIdle(300);
script.Type("{ENTER}foo");
string expected = "while (true) {\r\n if (x > 1) {\r\n foo\r\n }\r\n}";
string actual = script.EditorText;
actual.Should().Be(expected);
}
}
public void R_ProvisionalCurlyBrace01() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
REditorSettings.FormatOptions.BracesOnNewLine = false;
script.Type("while(1)");
script.DoIdle(300);
script.Type("{");
script.DoIdle(300);
script.Type("{ENTER}}");
string expected = "while (1) {\r\n}";
string actual = script.EditorText;
actual.Should().Be(expected);
}
}
public void R_ProvisionalText02() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
script.Type("c(\"");
string expected = "c(\"\")";
string actual = script.EditorText;
actual.Should().Be(expected);
// Move caret outside of the provisional text area
// and back so provisional text becomes permanent.
script.MoveRight();
script.MoveLeft();
// Let parser hit on idle so AST updates
script.DoIdle(300);
// There should not be completion inside ""
script.Type("\"");
expected = "c(\"\"\")";
actual = script.EditorText;
actual.Should().Be(expected);
}
}
public void R_ProvisionalText01() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
script.Type("{");
script.Type("(");
script.Type("[");
script.Type("\"");
string expected = "{([\"\"])}";
string actual = script.EditorText;
actual.Should().Be(expected);
REditorSettings.AutoFormat = false;
script.Type("\"");
script.Type("]");
script.Type(")");
script.Type("}");
script.DoIdle(1000);
expected = "{([\"\"])}";
actual = script.EditorText;
actual.Should().Be(expected);
}
}
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_KeywordIntellisense() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
script.Type("funct");
script.DoIdle(100);
script.Type("{TAB}");
string expected = "function";
string actual = script.EditorText;
actual.Should().Be(expected);
}
}
public void R_RequireIntellisense() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
script.Type("require(uti");
script.DoIdle(100);
script.Type("{TAB}");
string expected = "require(utils)";
string actual = script.EditorText;
actual.Should().Be(expected);
}
}
public void R_AutoFormatFunctionBraces() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
script.Type("function(a,b){");
script.DoIdle(300);
script.Type("{ENTER}a");
string expected = "function(a, b) {\r\n a\r\n}";
string actual = script.EditorText;
actual.Should().Be(expected);
}
}
public void R_SmartIndentTest() {
using (var script = new TestScript(string.Empty, RContentTypeDefinition.ContentType)) {
REditorSettings.FormatOptions.BracesOnNewLine = false;
script.MoveRight();
script.Type("{{ENTER}a");
script.DoIdle(300);
string expected = "{\r\n a\r\n}";
string actual = script.EditorText;
actual.Should().Be(expected);
}
}
public void R_AutoFormatScopeBraces02() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
REditorSettings.FormatOptions.BracesOnNewLine = true;
script.Type("if(x>1){ENTER}{");
script.DoIdle(300);
script.Type("{ENTER}a");
string expected = "if (x > 1) \r\n{\r\n a\r\n}";
string actual = script.EditorText;
actual.Should().Be(expected);
}
}
public void R_OutlineToggleAll() {
string text = _files.LoadDestinationFile("lsfit.r");
using (var script = new TestScript(text, RContentTypeDefinition.ContentType)) {
script.DoIdle(500);
IOutliningManagerService svc = EditorShell.Current.ExportProvider.GetExportedValue<IOutliningManagerService>();
IOutliningManager mgr = svc.GetOutliningManager(EditorWindow.CoreEditor.View);
var snapshot = EditorWindow.TextBuffer.CurrentSnapshot;
var viewLines = EditorWindow.CoreEditor.View.TextViewLines;
viewLines.Count.Should().Be(40);
script.DoIdle(500);
EditorWindow.ExecCommand(VSConstants.VSStd2K, (int)VSConstants.VSStd2KCmdID.OUTLN_TOGGLE_ALL);
script.DoIdle(1000);
IEnumerable<ICollapsed> collapsed = mgr.GetCollapsedRegions(new SnapshotSpan(snapshot, new Span(0, snapshot.Length)));
collapsed.Count().Should().Be(20);
EditorWindow.ExecCommand(VSConstants.VSStd2K, (int)VSConstants.VSStd2KCmdID.OUTLN_TOGGLE_ALL);
script.DoIdle(500);
viewLines = EditorWindow.CoreEditor.View.TextViewLines;
viewLines.Count.Should().Be(40);
EditorWindow.ExecCommand(VSConstants.VSStd2K, (int)VSConstants.VSStd2KCmdID.OUTLN_STOP_HIDING_ALL);
script.DoIdle(200);
mgr.Enabled.Should().Be(false);
EditorWindow.ExecCommand(VSConstants.VSStd2K, (int)VSConstants.VSStd2KCmdID.OUTLN_START_AUTOHIDING);
script.DoIdle(200);
mgr.Enabled.Should().Be(true);
script.MoveDown(9);
EditorWindow.ExecCommand(VSConstants.VSStd2K, (int)VSConstants.VSStd2KCmdID.OUTLN_TOGGLE_CURRENT);
script.DoIdle(500);
collapsed = mgr.GetCollapsedRegions(new SnapshotSpan(snapshot, new Span(0, snapshot.Length)));
collapsed.Count().Should().Be(1);
EditorWindow.ExecCommand(VSConstants.VSStd2K, (int)VSConstants.VSStd2KCmdID.OUTLN_TOGGLE_CURRENT);
script.DoIdle(200);
collapsed = mgr.GetCollapsedRegions(new SnapshotSpan(snapshot, new Span(0, snapshot.Length)));
collapsed.Count().Should().Be(0);
}
}
public void R_NoCompletionOnTabWhenNoMatch() {
// Tab only completes when selected item starts
// with the text typed so far in the buffer
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
script.DoIdle(100);
script.Type("while aaa");
script.DoIdle(300);
script.Type("{TAB}");
script.DoIdle(100);
string actual = script.EditorText;
actual.Should().Be("while aaa"); // nothing was inserted from the completion list
EditorWindow.CoreEditor.View.Caret.Position.BufferPosition.Position.Should().Be(actual.Length);
}
}
public void R_CompletionOnTab() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
var provider = EditorShell.Current.ExportProvider.GetExportedValue<IRSessionProvider>();
using (var hostScript = new RHostScript(provider)) {
REditorSettings.ShowCompletionOnTab = true;
script.DoIdle(100);
script.Type("f1<-x");
EditorShell.Current.DispatchOnUIThread(() => script.GetCompletionSession().Dismiss());
script.DoIdle(300);
script.Type("{TAB}");
script.DoIdle(500);
script.Type("{TAB}");
script.DoIdle(200);
string actual = script.EditorText;
actual.Should().Be("f1<-x11");
REditorSettings.ShowCompletionOnTab = false;
}
}
}
public void R_AutoFormatFuncionDefinition01() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
REditorSettings.FormatOptions.BracesOnNewLine = true;
string text = "library ( abind){ENTER}x <-function (x,y, wt= NULL, intercept =TRUE, tolerance=1e-07, {ENTER} yname = NULL){ENTER}{{ENTER}abind(a, )";
script.Type(text);
script.DoIdle(300);
string actual = script.EditorText;
string expected =
@"library(abind)
x <- function(x, y, wt = NULL, intercept = TRUE, tolerance = 1e-07,
yname = NULL)
{
abind(a, )
}";
actual.Should().Be(expected);
}
}
public void R_SnippetsCompletion01() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
script.DoIdle(100);
script.Type("whil");
script.DoIdle(300);
EditorShell.Current.DispatchOnUIThread(() => {
var session = script.GetCompletionSession();
session.Should().NotBeNull();
var infoSourceProvider = EditorShell.Current.ExportProvider.GetExportedValue<ISnippetInformationSourceProvider>();
var infoSource = infoSourceProvider.InformationSource;
var completion = session.SelectedCompletionSet.SelectionStatus.Completion;
bool isSnippet = infoSource.IsSnippet(completion.DisplayText);
isSnippet.Should().BeTrue();
var glyph = completion.IconSource;
var snippetGlyph = GlyphService.GetGlyph(StandardGlyphGroup.GlyphCSharpExpansion, StandardGlyphItem.GlyphItemPublic);
glyph.Should().Be(snippetGlyph);
});
}
}
public void R_AutoFormatFunctionArgument() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
REditorSettings.FormatOptions.BracesOnNewLine = false;
script.Type("zzzz(a=1,{ENTER}");
script.DoIdle(300);
script.Type("b=2");
string expected = "zzzz(a = 1,\r\n b=2)";
string actual = script.EditorText;
actual.Should().Be(expected);
}
}
public void R_AutoFormatIfNoScope() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
script.Type("if(x>1)");
script.DoIdle(300);
script.Type("{ENTER}a");
string expected = "if (x > 1)\r\n a";
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();
}
}
}
public void R_AutoFormatScopeBraces10() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
REditorSettings.FormatOptions.BracesOnNewLine = false;
script.Type("if(TRUE){");
script.DoIdle(300);
script.Type("{ENTER}a");
script.MoveDown();
script.MoveRight();
script.Type("{ENTER}");
string expected = "if (TRUE) {\r\n a\r\n}\r\n";
string actual = script.EditorText;
actual.Should().Be(expected);
}
}
public void R_CompletionFiles() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
string asmPath = Assembly.GetExecutingAssembly().GetAssemblyPath();
RToolsSettings.Current.WorkingDirectory = Path.GetDirectoryName(asmPath);
script.DoIdle(100);
script.Type("x <- \"");
script.DoIdle(1000);
script.Type("{TAB}");
script.DoIdle(100);
var session = script.GetCompletionSession();
session.Should().NotBeNull();
script.DoIdle(200);
var list = session.SelectedCompletionSet.Completions.ToList();
var item = list.FirstOrDefault(x => x.DisplayText == "ItemTemplates");
item.Should().NotBeNull();
}
}
public void R_CompletionFilter02() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
script.Type("x <- lm");
script.DoIdle(100);
script.Type("+");
string expected = "x <- lm+";
string actual = script.EditorText;
actual.Should().Be(expected);
}
}
public void R_CompletionFunctionBraces01() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
var provider = EditorShell.Current.ExportProvider.GetExportedValue<IRSessionProvider>();
using (var hostScript = new RHostScript(provider)) {
string message = null;
hostScript.Session.Output += (s, e) => {
message = e.Message;
};
script.DoIdle(100);
script.Type("instal");
script.DoIdle(1000);
script.Type("{TAB}");
script.DoIdle(100);
string actual = script.EditorText;
actual.Should().Be("install.packages()");
EditorWindow.CoreEditor.View.Caret.Position.BufferPosition.Position.Should().Be(actual.Length - 1);
message.Should().NotContain("Error");
}
}
}
public async Task R_DeclaredVariablesCompletion02() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
var provider = EditorShell.Current.ExportProvider.GetExportedValue<IRSessionProvider>();
using (var hostScript = new RHostScript(provider)) {
await ExecuteRCode(hostScript.Session, "setClass('Person', representation(name = 'character', age = 'numeric'))\r\n");
await ExecuteRCode(hostScript.Session, "hadley <- new('Person', name = 'Hadley', age = 31)\r\n");
PrimeIntellisenseProviders();
script.DoIdle(1000);
script.Type("hadle");
script.DoIdle(500);
script.Type("{TAB}");
script.DoIdle(500);
script.Type("@");
script.DoIdle(500);
script.Type("na");
script.DoIdle(500);
script.Type("{TAB}");
string expected = "hadley@name";
string actual = script.EditorText;
actual.Should().Be(expected);
}
}
}
public void R_CompletionFunctionBraces02() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
var provider = EditorShell.Current.ExportProvider.GetExportedValue<IRSessionProvider>();
using (var hostScript = new RHostScript(provider)) {
string message = null;
hostScript.Session.Output += (s, e) => {
message = e.Message;
};
script.DoIdle(100);
script.Type("bas");
script.DoIdle(1000);
script.Type("{TAB}");
script.DoIdle(100);
string actual = script.EditorText;
actual.Should().Be("base");
message.Should().NotContain("Error");
}
}
}
public async Task R_DeclaredVariablesCompletion01() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
var provider = EditorShell.Current.ExportProvider.GetExportedValue<IRSessionProvider>();
using (var hostScript = new RHostScript(provider)) {
await ExecuteRCode(hostScript.Session, "zzz111 <- 1\r\n");
await ExecuteRCode(hostScript.Session, "zzz111$y222 <- 2\r\n");
PrimeIntellisenseProviders();
script.DoIdle(500);
script.Type("zzz1");
script.DoIdle(500);
script.Type("{TAB}");
script.DoIdle(500);
script.Type("$");
script.DoIdle(500);
script.Type("y2");
script.DoIdle(500);
script.Type("{TAB}");
string expected = "zzz111$y222";
string actual = script.EditorText;
actual.Should().Be(expected);
}
}
}
public void R_NoCompletionOnTab() {
using (var script = new TestScript(RContentTypeDefinition.ContentType)) {
var provider = EditorShell.Current.ExportProvider.GetExportedValue<IRSessionProvider>();
using (var hostScript = new RHostScript(provider)) {
script.DoIdle(100);
script.Type("f1<-function(x,y");
script.DoIdle(300);
script.Type("{TAB}");
script.DoIdle(100);
string actual = script.EditorText;
actual.Should().Be("f1<-function(x,y)");
EditorWindow.CoreEditor.View.Caret.Position.BufferPosition.Position.Should().Be(actual.Length);
}
}
}