From cf0365cf413ee49ce4018701fd1d1f7aa9f21c73 Mon Sep 17 00:00:00 2001 From: Petter Hopp Date: Mon, 29 Nov 2021 14:12:18 +0100 Subject: [PATCH] test: refactored test_OK_column_standards --- tests/testthat/test_OK_column_standards.R | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/tests/testthat/test_OK_column_standards.R b/tests/testthat/test_OK_column_standards.R index e974f25..e26cd5c 100644 --- a/tests/testthat/test_OK_column_standards.R +++ b/tests/testthat/test_OK_column_standards.R @@ -1,7 +1,6 @@ library(NVIdb) library(OKplan) library(testthat) -context("OK_column_standards") test_that("Standard colwidths in Excel for OK-selections", { # Generate data frame with column names for table that should be exported to Excel @@ -34,7 +33,7 @@ test_that("Standard colwidths in Excel for OK-selections", { # Compare Add fylke, current fylkenr and current fylke with correct result expect_identical(standardize_columns(data = df, - dbsource = "sau_brucella_slakteri", + dbsource = "ok_blodprover_slakteri", standards = OK_column_standards, property = "colwidths_Excel"), correct_result) @@ -74,7 +73,7 @@ test_that("Standard collabels for OK selections", { # Compare Add fylke, current fylkenr and current fylke with correct result expect_identical(standardize_columns(data = df, - dbsource = "sau_brucella_slakteri", + dbsource = "ok_blodprover_slakteri", standards = OK_column_standards, property = "collabels"), correct_result)