From ec151046007d1fc57585e0a4fee8fb41300611e3 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Thu, 21 Jul 2022 20:12:35 +0200 Subject: Remove platform sensitive convergence tests --- tests/testthat/summary_parent_FOCUS_2006.txt | 20 ++++++++++---------- tests/testthat/test_summary.R | 2 +- 2 files changed, 11 insertions(+), 11 deletions(-) (limited to 'tests') diff --git a/tests/testthat/summary_parent_FOCUS_2006.txt b/tests/testthat/summary_parent_FOCUS_2006.txt index d31bd869..60a36b67 100644 --- a/tests/testthat/summary_parent_FOCUS_2006.txt +++ b/tests/testthat/summary_parent_FOCUS_2006.txt @@ -3,18 +3,18 @@ Fitted in test time 0 s Convergence: dataset -model FOCUS_A FOCUS_C FOCUS_D - SFO OK OK OK - FOMC OK OK OK - DFOP OK OK OK - HS OK OK OK +model FOCUS_C FOCUS_D + SFO OK OK + FOMC OK OK + DFOP OK OK + HS OK OK OK: No warnings Ill-defined parameters: dataset -model FOCUS_A FOCUS_C FOCUS_D - SFO - FOMC parent_0, alpha, beta, sigma alpha, beta - DFOP g g - HS k2 +model FOCUS_C FOCUS_D + SFO + FOMC alpha, beta + DFOP g + HS k2 diff --git a/tests/testthat/test_summary.R b/tests/testthat/test_summary.R index a31d3bae..87dc7de2 100644 --- a/tests/testthat/test_summary.R +++ b/tests/testthat/test_summary.R @@ -47,7 +47,7 @@ test_that("Summaries are reproducible", { }) test_that("Summaries of mmkin objects are reproducible", { - test_summary <- summary(fits) + test_summary <- summary(fits[ , 2:3]) test_summary$time <- c(elapsed = "test time 0") expect_known_output(print(test_summary), "summary_parent_FOCUS_2006.txt") }) -- cgit v1.2.1