From 4cfd35c3a991901a867918694f82be072c5d2254 Mon Sep 17 00:00:00 2001 From: Shawn Garbett Date: Tue, 22 Sep 2026 11:52:00 -0500 Subject: [PATCH] Updated test for exportNextRecordName #519 --- .../test-350-exportNextRecordName-Functionality.R | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/tests/testthat/test-350-exportNextRecordName-Functionality.R b/tests/testthat/test-350-exportNextRecordName-Functionality.R index 5e5657ff..5868a73d 100644 --- a/tests/testthat/test-350-exportNextRecordName-Functionality.R +++ b/tests/testthat/test-350-exportNextRecordName-Functionality.R @@ -1,11 +1,12 @@ + + test_that( "Return the next record name", { - Records <- exportRecords(rcon, - fields = "record_id") - next_id <- max(as.numeric(Records$record_id)) + 1 - # Since the test data base can be expected to - expect_equal(exportNextRecordName(rcon), - next_id) + Records <- exportRecordsTyped(rcon, fields = "record_id") + next_id <- exportNextRecordName(rcon) + importRecords(rcon, data.frame(record_id=next_id, record_id_complete="2")) + Records <- exportRecordsTyped(rcon, fields = "record_id") + expect_contains(Records$record_id, next_id); } )