test(RunModel.Supervisor): add test with disordered Diversion nodes

Refs #126

test(RunModel.Supervisor): add test with disordered Diversion nodes
Refs #126
dd014056 · David · b6432dce · dd014056
Commit dd014056 authored 2 years ago by David
Hide whitespace changes
Inline Side-by-side

Showing

with 1 addition and 0 deletions
+1 -0
--- a/tests/testthat/test-RunModel.Supervisor.R
+++ b/tests/testthat/test-RunModel.Supervisor.R
@@ -89,6 +89,7 @@ test_that("RunModel.Supervisor with diversion node should not produce NAs", {
                                           length = 25,
                                           model = "Diversion",
                                           area = NA))
+  nodes_div <- nodes_div[order(nodes_div$model), ]
  g_div <- CreateGRiwrm(nodes_div)
  Qobs2 <- matrix(data = rep(0, length(DatesR)), ncol = 1)
  colnames(Qobs2) <- "54001"