R version 4.4.0 alpha (2024-04-01 r86264 ucrt) Copyright (C) 2024 The R Foundation for Statistical Computing Platform: x86_64-w64-mingw32/x64 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > library(testthat) > library(eCerto) > > ## run all tests similar to Ctrl+Shift+T in RStudio > # testthat::test_check(package = "eCerto", reporter=c("minimal", "location")) > > ## check for the code covered by test functions > # x <- covr::package_coverage(function_exclusions = "page_*") > # covr::zero_coverage(x = x) > # covr::function_coverage(fun = eCerto:::app_server) > # covr::function_coverage(fun = eCerto:::list2rv, code = source("tests/testthat/test-list2rv.R")) > > ## tests with snaps fail upon "RCHECK" while being successful in "test_check" > ## setting R_TESTS avoids this problem > Sys.setenv(R_TESTS="") > > ## run all tests > testthat::test_dir(path = "./testthat") ✔ | F W S OK | Context ⠏ | 0 | ExcelUpload ⠋ | 1 | ExcelUpload ⠸ | 4 | ExcelUpload ⠦ | 7 | ExcelUpload ✔ | 7 | ExcelUpload [1.2s] ⠏ | 0 | RData_export ✔ | 2 | RData_export ⠏ | 0 | Rdata_import ⠋ | 1 | Rdata_import ⠧ | 8 | Rdata_import ⠋ | 11 | Rdata_import ✔ | 12 | Rdata_import ⠏ | 0 | app_inits ✔ | 3 | app_inits ⠏ | 0 | app_utils ⠙ | 2 | app_utils ⠸ | 4 | app_utils ✔ | 11 | app_utils ⠏ | 0 | certification ⠋ | 1 | certification ✔ | 3 | certification ⠏ | 0 | fnc_CertValPlot ⠸ | 1 3 | fnc_CertValPlot ✔ | 1 3 | fnc_CertValPlot ⠏ | 0 | fnc_calc_time_diff ✔ | 6 | fnc_calc_time_diff ⠏ | 0 | fnc_digits_DIN1333 ✔ | 1 | fnc_digits_DIN1333 ⠏ | 0 | fnc_get_local_file ✔ | 7 | fnc_get_local_file ⠏ | 0 | fnc_load_xlsx ⠼ | 5 | fnc_load_xlsx ✔ | 10 | fnc_load_xlsx ⠏ | 0 | fnc_plot_lts_data ✔ | 1 5 | fnc_plot_lts_data ⠏ | 0 | fnc_prepFigS1 ✔ | 4 | fnc_prepFigS1 ⠏ | 0 | fnc_prepFigS2 ⠴ | 6 | fnc_prepFigS2 ✔ | 6 | fnc_prepFigS2 ⠏ | 0 | fnc_prepFigS3 ✔ | 1 | fnc_prepFigS3 ⠏ | 0 | fnc_prepTabC0 ✔ | 3 | fnc_prepTabC0 ⠏ | 0 | fnc_prepTabC1 ⠙ | 2 | fnc_prepTabC1 ✔ | 3 | fnc_prepTabC1 ⠏ | 0 | fnc_prepTabC2 ✔ | 4 | fnc_prepTabC2 ⠏ | 0 | fnc_prepTabH1 ✔ | 10 | fnc_prepTabH1 ⠏ | 0 | fnc_read_lts_input ⠸ | 4 | fnc_read_lts_input ✔ | 4 | fnc_read_lts_input ⠏ | 0 | fnc_round_DIN1333 ✔ | 1 | fnc_round_DIN1333 ⠏ | 0 | fnc_steyx ✔ | 6 | fnc_steyx ⠏ | 0 | fnc_styleTabC0 ⠋ | 1 | fnc_styleTabC0 ✔ | 5 | fnc_styleTabC0 ⠏ | 0 | fnc_styleTabC1 ✔ | 1 | fnc_styleTabC1 ⠏ | 0 | fnc_styleTabC2 ✔ | 1 | fnc_styleTabC2 ⠏ | 0 | fnc_styleTabH1 ✔ | 5 | fnc_styleTabH1 ⠏ | 0 | help_the_user_modal ✔ | 4 | help_the_user_modal ⠏ | 0 | homogeneity ⠼ | 5 | homogeneity ✔ | 5 | homogeneity ⠏ | 0 | list2rv ⠹ | 3 | list2rv ⠼ | 5 | list2rv ✔ | 5 | list2rv ⠏ | 0 | materialtabelle ⠹ | 3 | materialtabelle ✔ | 5 | materialtabelle ⠏ | 0 | mod_xlsx_range_select ⠋ | 1 | mod_xlsx_range_select ⠹ | 3 | mod_xlsx_range_select ⠼ | 5 | mod_xlsx_range_select ⠴ | 6 | mod_xlsx_range_select ⠦ | 7 | mod_xlsx_range_select ✔ | 7 | mod_xlsx_range_select ⠏ | 0 | page_start ✔ | 1 0 | page_start ⠏ | 0 | reactiveClass ✔ | 8 | reactiveClass ⠏ | 0 | run_app ✔ | 1 0 | run_app ⠏ | 0 | stability ⠋ | 1 | stability ✔ | 1 | stability ⠏ | 0 | statistic_helper ⠸ | 14 | statistic_helper ✔ | 27 | statistic_helper ══ Results ═════════════════════════════════════════════════════════════════════ Duration: 6.8 s ── Skipped tests (4) ─────────────────────────────────────────────────────────── • On CRAN (4): 'test-fnc_CertValPlot.R:15:3', 'test-fnc_plot_lts_data.R:12:3', 'test-page_start.R:6:5', 'test-run_app.R:5:5' [ FAIL 0 | WARN 0 | SKIP 4 | PASS 186 ] > > ## to run only test for a specific file use > # testthat::test_file(path = "tests/testthat/test-fnc_CertValPlot.R") > # testthat::test_file(path = "tests/testthat/test-statistic_helper.R") > # testthat::test_file(path = "tests/testthat/test-run_app.R") > > proc.time() user system elapsed 7.32 1.29 8.18