Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
IN-WOP
SeineBasin2
Commits
a33aede5
Commit
a33aede5
authored
Jan 14, 2022
by
Dorchies David
Browse files
test: failed after integration of RCP8.5
parent
33bcb7a7
Pipeline
#31854
passed with stages
in 53 minutes and 13 seconds
Changes
2
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
tests/testthat/test-createBasinsObs.R
View file @
a33aede5
...
...
@@ -26,7 +26,9 @@ if (Sys.getenv("CI") == "") {
scenario
<-
cfg
$
hydroclim
$
drias
$
scenarios
[
1
]
test_that
(
"createBasinsObs should work"
,
{
BasinsObs
<-
createBasinsObs
(
scenarioDriasFiles
[,
scenario
],
files
<-
scenarioDriasFiles
[,
scenario
]
files
<-
files
[
grep
(
"Historical|rcp4.5"
,
files
)]
BasinsObs
<-
createBasinsObs
(
files
,
dfMailles
=
dfMailles
,
cfg
=
cfg
)
expect_true
(
TRUE
)
})
...
...
tests/testthat/test-readDrias2020.R
View file @
a33aede5
...
...
@@ -4,7 +4,7 @@ if (Sys.getenv("CI") == "") {
scenario
<-
cfg
$
hydroclim
$
drias
$
scenarios
[
1
]
test_that
(
"readDrias2020 for 1 file should be OK"
,
{
l
<-
readDrias2020
(
scenarioDriasFiles
[
3
,
scenario
],
cfg
=
cfg
)
l
<-
readDrias2020
(
scenarioDriasFiles
[
4
,
scenario
],
cfg
=
cfg
)
expect_equal
(
format
(
l
$
DatesR
[
1
],
format
=
"%Y-%m-%d"
),
"1951-01-01"
)
expect_equal
(
format
(
l
$
DatesR
[
length
(
l
$
DatesR
)],
format
=
"%Y-%m-%d"
),
"2005-12-31"
)
expect_equal
(
paste
(
l
$
cells
[[
1
]]
$
XY
,
collapse
=
"x"
),
names
(
l
$
cells
)[
1
])
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment