diff --git a/tests/testthat/test-edge-delay.R b/tests/testthat/test-edge-delay.R
index b32bae99..064e42de 100644
--- a/tests/testthat/test-edge-delay.R
+++ b/tests/testthat/test-edge-delay.R
@@ -65,8 +65,9 @@ test_that('column names must exist in DT', {
   expect_error(edge_delay(copy_edges, DT, id = id, window = window),
                'dyadID field')
 
-  expect_error(edge_delay(edges, DT, id = id, direction = 'potato'),
-               'direction field')
+  expect_error(edge_delay(edges, DT, id = id, window = window,
+                          direction = 'potato'),
+               'potato field')
 
   copy_DT <- copy(clean_DT)
   copy_DT[, timegroup := NULL]