Test only if BEAST2 is available

richelbilderbeek · richelbilderbeek · commit dbebc92a4415 · 2025-01-26T19:41:34.000+01:00
diff --git a/tests/testthat/test-issue_108.R b/tests/testthat/test-issue_108.R
@@ -21,11 +21,11 @@ test_that("issue 108", {
     )
   )
 
-  # Works?
-  expect_true(beastier::is_beast2_input_file(output_filename))
-
-  # Really really Works?
   if (beastier::is_beast2_installed()) {
+    # Works?
+    expect_true(beastier::is_beast2_input_file(output_filename))
+
+    # Really really works?
     beast2_xml_lines <- readr::read_lines(output_filename)
     expect_true(beastier::are_beast2_input_lines_deep(beast2_xml_lines))
   }

Original file line number	Diff line number	Diff line change
`@@ -21,11 +21,11 @@ test_that("issue 108", {`
`21`	`21`	`)`
`22`	`22`	`)`
`23`	`23`
`24`		`- # Works?`
`25`		`- expect_true(beastier::is_beast2_input_file(output_filename))`
`26`		`-`
`27`		`- # Really really Works?`
`28`	`24`	`if (beastier::is_beast2_installed()) {`
	`25`	`+ # Works?`
	`26`	`+ expect_true(beastier::is_beast2_input_file(output_filename))`
	`27`	`+`
	`28`	`+ # Really really works?`
`29`	`29`	`beast2_xml_lines <- readr::read_lines(output_filename)`
`30`	`30`	`expect_true(beastier::are_beast2_input_lines_deep(beast2_xml_lines))`
`31`	`31`	`}`