context("Basic test")

test_that("test of the basic functionality", {
    skip_on_cran()
    julia <- julia_setup(installJulia = TRUE)

    expect_equal(julia_eval("sqrt(2)"), sqrt(2))
    expect_equal(julia_call("sqrt", 2), sqrt(2))
    expect_equal(julia_eval("sqrt")(2), sqrt(2))
    expect_equal({julia_command("a = sqrt(2)"); julia_eval("a")}, sqrt(2))
    expect_true(julia_exists("sqrt"))
    expect_output(julia_help("sqrt"))

    expect_equal({julia_assign("x", sqrt(2)); julia_eval("x")}, sqrt(2))
    expect_equal({julia_assign("rsqrt", sqrt); julia_eval("rsqrt(2)")}, sqrt(2))

    expect_equal(julia_call("sqrt.", c(1:10)), sqrt(c(1:10)))
    expect_equal(julia_call("log.", c(1:10)), log(c(1:10)))
})

test_that("test of white space stripping for string command", {
    skip_on_cran()
    julia <- julia_setup(installJulia = TRUE)

    expect_equal({julia_command("b = sqrt(2)
                                "); julia_eval("b
                                               ")}, sqrt(2))
})