public void TestSourceLines() { // arrange var lines = new[] { "a <- 1", "if(a == 1) {", "a <- 2", "}" }; // act ROpsApi.SourceLines(lines); var @out = ROpsApi.EvaluateNumData("a"); // assert Assert.AreEqual(@out.First().Data[0], 2.0); }
public void TestBinaryRoundTrip() { // arrange var lines = new[] { $"list_{nameof(TestBinaryRoundTrip)} <- list(ints = c(1,2,3), nums = c(1.0, 2.0, 3.), alpha = c(\"a\",\"b\",\"c\"))", $"copy_of_list_{nameof(TestBinaryRoundTrip)} <- list_{nameof(TestBinaryRoundTrip)}" }; // act ROpsApi.SourceLines(lines); var bytes = ROpsApi.SaveObjectToBinary($"list_{nameof(TestBinaryRoundTrip)}"); ROpsApi.EvaluateNonQuery($"rm(list_{nameof(TestBinaryRoundTrip)})"); ROpsApi.LoadFromBinary(bytes); var evaluated = ROpsApi.Evaluate($"all.equal(copy_of_list_{nameof(TestBinaryRoundTrip)}, list_{nameof(TestBinaryRoundTrip)})"); // assert Assert.IsNotNull(evaluated.First().Value); Assert.IsTrue(evaluated.First().Value !.First().Resolve(out bool allEqual) && allEqual); }