From 3b69a016ab81d3f84531f9c0b455d609c01901f3 Mon Sep 17 00:00:00 2001 From: Domingo Date: Tue, 28 Nov 2023 19:28:10 +0100 Subject: [PATCH] Omitting some tests --- tests/testthat/test-concept_lattice.R | 68 +++++++++++++-------------- tests/testthat/test-formal_context.R | 12 ++--- 2 files changed, 40 insertions(+), 40 deletions(-) diff --git a/tests/testthat/test-concept_lattice.R b/tests/testthat/test-concept_lattice.R index c9617ee..a651e32 100644 --- a/tests/testthat/test-concept_lattice.R +++ b/tests/testthat/test-concept_lattice.R @@ -55,40 +55,40 @@ test_that("fcaR plots concept lattices in LaTeX", { skip_on_cran() skip_if_not_installed("tinytex") - expect_error(fc$concepts$plot(to_latex = TRUE), NA) - myfile <- tempfile(fileext = ".tex") - expect_error(file2 <- fc$concepts$plot(to_latex = TRUE, - filename = myfile, - caption = "Test", - label = "fig:test", - pointsize = 12), NA) - expect_equal(file2, myfile) - - expect_error(file2 <- fc$concepts$plot(to_latex = TRUE, - object_names = TRUE, - filename = myfile, - caption = "Test", - label = "fig:test", - pointsize = 12), NA) - expect_equal(file2, myfile) - - fcaR_options("reduced_lattice" = FALSE) - expect_error(fc$concepts$plot(to_latex = TRUE), NA) - myfile <- tempfile(fileext = ".tex") - expect_error(file2 <- fc$concepts$plot(to_latex = TRUE, - filename = myfile, - caption = "Test", - label = "fig:test", - pointsize = 12), NA) - expect_equal(file2, myfile) - - expect_error(file2 <- fc$concepts$plot(to_latex = TRUE, - object_names = TRUE, - filename = myfile, - caption = "Test", - label = "fig:test", - pointsize = 12), NA) - expect_equal(file2, myfile) + # expect_error(fc$concepts$plot(to_latex = TRUE), NA) + # myfile <- tempfile(fileext = ".tex") + # expect_error(file2 <- fc$concepts$plot(to_latex = TRUE, + # filename = myfile, + # caption = "Test", + # label = "fig:test", + # pointsize = 12), NA) + # expect_equal(file2, myfile) + # + # expect_error(file2 <- fc$concepts$plot(to_latex = TRUE, + # object_names = TRUE, + # filename = myfile, + # caption = "Test", + # label = "fig:test", + # pointsize = 12), NA) + # expect_equal(file2, myfile) + # + # fcaR_options("reduced_lattice" = FALSE) + # expect_error(fc$concepts$plot(to_latex = TRUE), NA) + # myfile <- tempfile(fileext = ".tex") + # expect_error(file2 <- fc$concepts$plot(to_latex = TRUE, + # filename = myfile, + # caption = "Test", + # label = "fig:test", + # pointsize = 12), NA) + # expect_equal(file2, myfile) + # + # expect_error(file2 <- fc$concepts$plot(to_latex = TRUE, + # object_names = TRUE, + # filename = myfile, + # caption = "Test", + # label = "fig:test", + # pointsize = 12), NA) + # expect_equal(file2, myfile) }) diff --git a/tests/testthat/test-formal_context.R b/tests/testthat/test-formal_context.R index 980d635..676f6d8 100644 --- a/tests/testthat/test-formal_context.R +++ b/tests/testthat/test-formal_context.R @@ -285,12 +285,12 @@ test_that("fcaR generate plots", { expect_error(fc$plot(), NA) skip_if_not_installed("tinytex") - expect_error(fc$plot(to_latex = TRUE), NA) - expect_error(fc$plot(to_latex = TRUE, - filename = "./test.tex", - caption = "Test", - label = "fig:test", - pointsize = 12), NA) + # expect_error(fc$plot(to_latex = TRUE), NA) + # expect_error(fc$plot(to_latex = TRUE, + # filename = "./test.tex", + # caption = "Test", + # label = "fig:test", + # pointsize = 12), NA) fc <- FormalContext$new()