diff --git a/Changelog.md b/Changelog.md index 5c2d547d4e..ca302d825f 100644 --- a/Changelog.md +++ b/Changelog.md @@ -26,6 +26,7 @@ - Update the checklist in `PULL_REQUEST_TEMPLATE.md` to make the text "list of contributors" a link to the file in the repository. (#7524) - Enabled `erb_lint` linter for erb files (#7561) - Refactored the loading method of `javascripts/Results/context_menu.js`. (#7563) +- Added test metadata examples to seed data for R autotesting (#7564) ## [v2.7.1] diff --git a/db/data/autotest_files/r/script_files/test.R b/db/data/autotest_files/r/script_files/test.R index 63a0ba39a3..5c638d2ce2 100644 --- a/db/data/autotest_files/r/script_files/test.R +++ b/db/data/autotest_files/r/script_files/test.R @@ -15,3 +15,22 @@ test_that("negative integers can be added", { test_that("this test raises an error", { my_error() }) + +test_that("this test illustrates MarkUs metadata attributes", { + expect_equal(1, 1) + + exp_signal(new_expectation( + type = "success", + message = "", + markus_overall_comments = "This is an overall comment. Great job!", + markus_tag = "good", + markus_annotation = list( + filename = "submission.R", + content = "This function should not be used", + line_start = 5, + line_end = 5, + column_start = 2, + column_end = 6 + ) + )) +})