From dd0140562ad5565f92260f0feda34136400fa5df Mon Sep 17 00:00:00 2001
From: David <david.dorchies@inrae.fr>
Date: Thu, 11 May 2023 14:21:58 +0200
Subject: [PATCH] test(RunModel.Supervisor): add test with disordered Diversion
nodes
Refs #126
---
tests/testthat/test-RunModel.Supervisor.R | 1 +
1 file changed, 1 insertion(+)
diff --git a/tests/testthat/test-RunModel.Supervisor.R b/tests/testthat/test-RunModel.Supervisor.R
index db0781e..8f8675c 100644
--- 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"
--
GitLab