one more test fix for #236

UrbanAnalyst · Aug 9, 2024 · 9775b32 · 9775b32
1 parent 7af79d5
commit 9775b32
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: dodgr
 Title: Distances on Directed Graphs
-Version: 0.4.1.022
+Version: 0.4.1.023
 Authors@R: c(
     person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre")),
     person("Andreas", "Petutschnig", role = "aut"),

diff --git a/R/graph-contraction.R b/R/graph-contraction.R
@@ -48,7 +48,7 @@ dodgr_contract_graph <- function (graph, verts = NULL, nocache = FALSE) {
         if (!is.character (verts)) {
             message (
                 "'verts' will be presumed to be character labels",
-                "matching 'id' columns of 'dodgr_vertices()'."
+                " matching 'id' columns of 'dodgr_vertices()'."
             )
             verts <- paste0 (verts)
         }

diff --git a/codemeta.json b/codemeta.json
@@ -11,7 +11,7 @@
   "codeRepository": "https://github.com/UrbanAnalyst/dodgr",
   "issueTracker": "https://github.com/UrbanAnalyst/dodgr/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.4.1.022",
+  "version": "0.4.1.023",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",

diff --git a/tests/testthat/test-graph-fns.R b/tests/testthat/test-graph-fns.R
@@ -104,7 +104,10 @@ test_that ("contract graph", {
     )
 
     verts <- as.numeric (verts [, 1])
-    expect_silent (graph_c4 <- dodgr_contract_graph (graph, verts = verts))
+    expect_message (
+        graph_c4 <- dodgr_contract_graph (graph, verts = verts),
+        "'verts' will be presumed to be character labels matching"
+    )
     expect_identical (graph_c2, graph_c4)
 })