public async Task VariableGrid_ConstructorTest()
{
VisualTreeObject actual = null;
using (var hostScript = new VariableRHostScript()) {
using (var script = new ControlTestScript(typeof(VariableGridHost))) {
DoIdle(100);
var result = await hostScript.EvaluateAsync("grid.test <- matrix(1:10, 2, 5)");
VariableViewModel wrapper = new VariableViewModel(result, VsAppShell.Current.ExportProvider.GetExportedValue <IObjectDetailsViewerAggregator>());
DoIdle(2000);
wrapper.Should().NotBeNull();
UIThreadHelper.Instance.Invoke(() => {
var host = (VariableGridHost)script.Control;
host.SetEvaluation(wrapper);
});
DoIdle(1000);
actual = VisualTreeObject.Create(script.Control);
ViewTreeDump.CompareVisualTrees(_files, actual, "VariableGrid02");
}
}
}
public async Task SortTest01()
{
VisualTreeObject actual = null;
using (var hostScript = new VariableRHostScript()) {
using (var script = new ControlTestScript(typeof(VariableGridHost))) {
await PrepareControl(hostScript, script, "grid.test <- matrix(1:10, 2, 5)");
var header = await VisualTreeExtensions.FindChildAsync <HeaderTextVisual>(script.Control);
var grid = await VisualTreeExtensions.FindChildAsync <VisualGrid>(script.Control);
header.Should().NotBeNull();
await UIThreadHelper.Instance.InvokeAsync(() => {
grid.ToggleSort(header, false);
DoIdle(200);
grid.ToggleSort(header, false);
});
DoIdle(200);
actual = VisualTreeObject.Create(script.Control);
ViewTreeDump.CompareVisualTrees(_files, actual, "VariableGridSorted01");
}
}
}
public async Task SortTest02()
{
VisualTreeObject actual = null;
using (var script = new ControlTestScript(typeof(VariableGridHost))) {
await PrepareControl(_hostScript, script, "grid.test <- mtcars");
UIThreadHelper.Instance.Invoke(() => {
var grid = VisualTreeTestExtensions.FindFirstVisualChildOfType <VisualGrid>(script.Control);
var header = VisualTreeTestExtensions.FindFirstVisualChildOfType <HeaderTextVisual>(script.Control); // mpg
header = VisualTreeTestExtensions.FindNextVisualSiblingOfType <HeaderTextVisual>(header); // cyl
header.Should().NotBeNull();
grid.ToggleSort(header, false);
DoIdle(200);
header = VisualTreeTestExtensions.FindNextVisualSiblingOfType <HeaderTextVisual>(header); // disp
header = VisualTreeTestExtensions.FindNextVisualSiblingOfType <HeaderTextVisual>(header); // hp
grid.ToggleSort(header, add: true);
grid.ToggleSort(header, add: true);
DoIdle(200);
});
actual = VisualTreeObject.Create(script.Control);
ViewTreeDump.CompareVisualTrees(_files, actual, "VariableGridSorted02");
}
}
public void ConstructorTest02()
{
using (var script = new ControlTestScript(typeof(VariableView))) {
var actual = VisualTreeObject.Create(script.Control);
ViewTreeDump.CompareVisualTrees(_files, actual, "VariableExplorer02");
}
}
public async Task VariableGrid_ConstructorTest02()
{
VisualTreeObject actual = null;
using (var hostScript = new VariableRHostScript()) {
using (var script = new ControlTestScript(typeof(VariableGridHost))) {
DoIdle(100);
var result = await hostScript.EvaluateAsync("grid.test <- matrix(1:10, 2, 5)");
EvaluationWrapper wrapper = new EvaluationWrapper(result);
DoIdle(2000);
wrapper.Should().NotBeNull();
UIThreadHelper.Instance.Invoke(() => {
var host = (VariableGridHost)script.Control;
host.SetEvaluation(wrapper);
});
DoIdle(1000);
actual = VisualTreeObject.Create(script.Control);
ViewTreeDump.CompareVisualTrees(_files, actual, "VariableGrid02");
}
}
}
public async Task ConstructorTest()
{
using (var script = new ControlTestScript(typeof(VariableGridHost), Services)) {
await PrepareControl(_hostScript, script, "grid.test <- matrix(1:10, 2, 5)");
var actual = VisualTreeObject.Create(script.Control);
ViewTreeDump.CompareVisualTrees(_files, actual, "VariableGrid02");
}
}
public async Task SimpleFunctionTest()
{
using (var script = new ControlTestScript(typeof(VariableView), Services)) {
DoIdle(100);
await HostScript.Session.ExecuteAsync("x <- lm");
DoIdle(1000);
var actual = VisualTreeObject.Create(script.Control);
ViewTreeDump.CompareVisualTrees(_files, actual, "VariableExplorer04");
}
}
public async Task SimpleDataTest()
{
VisualTreeObject actual = null;
using (var script = new ControlTestScript(typeof(VariableView))) {
DoIdle(100);
await HostScript.Session.ExecuteAsync("x <- c(1:10)");
DoIdle(1000);
actual = VisualTreeObject.Create(script.Control);
ViewTreeDump.CompareVisualTrees(_files, actual, "VariableExplorer03");
}
}
public void SimpleFunctionTest()
{
VisualTreeObject actual = null;
using (var script = new ControlTestScript(typeof(VariableView))) {
DoIdle(100);
Task.Run(async() => {
await HostScript.Session.ExecuteAsync("x <- lm");
}).Wait();
DoIdle(1000);
actual = VisualTreeObject.Create(script.Control);
}
ViewTreeDump.CompareVisualTrees(_files, actual, "VariableExplorer04");
}
public void VariableExplorer_SimpleDataTest()
{
VisualTreeObject actual = null;
using (var hostScript = new VsRHostScript()) {
using (var script = new ControlTestScript(typeof(VariableView))) {
DoIdle(100);
Task.Run(async() => {
using (var eval = await hostScript.Session.BeginEvaluationAsync()) {
await eval.EvaluateAsync("x <- c(1:10)", REvaluationKind.Mutating);
}
}).Wait();
DoIdle(2000);
actual = VisualTreeObject.Create(script.Control);
}
}
ViewTreeDump.CompareVisualTrees(_files, actual, "VariableExplorer03");
}
public async Task EvalModeTest(bool dynamicMode, string baselineName)
{
using (var script = new ControlTestScript(typeof(VariableGridHost), Services)) {
using (var inter = await _hostScript.Session.BeginInteractionAsync()) {
await inter.RespondAsync("grid.test <- matrix(1:10)");
}
await PrepareControl(_hostScript, script, "grid.test");
Services.GetService <IRSettings>().GridDynamicEvaluation = dynamicMode;
using (var inter = await _hostScript.Session.BeginInteractionAsync()) {
await inter.RespondAsync("grid.test <- matrix(1:20)");
}
await UIThreadHelper.Instance.InvokeAsync(() => {
DoIdle(500);
});
var actual = VisualTreeObject.Create(script.Control);
ViewTreeDump.CompareVisualTrees(_files, actual, baselineName);
}
}
public async Task SortTest01()
{
using (var script = new ControlTestScript(typeof(VariableGridHost), Services)) {
await PrepareControl(_hostScript, script, "grid.test <- matrix(1:10, 2, 5)");
var header = await VisualTreeTestExtensions.FindFirstVisualChildOfType <HeaderTextVisual>(script.Control);
header.Should().NotBeNull();
var grid = await VisualTreeTestExtensions.FindFirstVisualChildOfType <VisualGrid>(script.Control);
await UIThreadHelper.Instance.InvokeAsync(() => {
grid.ToggleSort(new GridIndex(0, header.ColumnIndex), false);
DoIdle(200);
grid.ToggleSort(new GridIndex(0, header.ColumnIndex), false);
});
DoIdle(200);
var actual = VisualTreeObject.Create(script.Control);
ViewTreeDump.CompareVisualTrees(_files, actual, "VariableGridSorted01");
}
}
