Merge pull request #52 from ChrisRackauckas-Claude/fix-dde-test-bug

Fix test failures in DDE and SDE tests

Author: ChrisRackauckas

tests/testthat/test_dde.R

@@ -17,7 +17,7 @@ end")
   constant_lags <- c(20.0)
   JuliaCall::julia_assign("u0", u0)
   JuliaCall::julia_assign("tspan", tspan)
-  JuliaCall::julia_assign("constant_lags", tspan)
+  JuliaCall::julia_assign("constant_lags", constant_lags)
   prob <- JuliaCall::julia_eval("DDEProblem(f, u0, h, tspan, constant_lags = constant_lags)")
   sol <- de$solve(prob,de$MethodOfSteps(de$Tsit5()))
   udf <- as.data.frame(t(sapply(sol$u,identity)))

tests/testthat/test_sde.R

@@ -91,7 +91,7 @@ test_that('non-diagonal noise works',{
   JuliaCall::julia_assign("u0", u0)
   JuliaCall::julia_assign("tspan", tspan)
   JuliaCall::julia_assign("noise_rate_prototype", noise_rate_prototype)
-  prob <- JuliaCall::julia_eval("SDEProblem(f, g, u0, tspan, p, noise_rate_prototype=noise_rate_prototype)")
+  prob <- JuliaCall::julia_eval("SDEProblem(f, g, u0, tspan, nothing, noise_rate_prototype=noise_rate_prototype)")
   sol <- de$solve(prob)
   udf <- as.data.frame(t(sapply(sol$u,identity)))
   expect_true(length(sol$t)>10)