Skip to content

Commit eaa5de7

Browse files
sbudaisbudai
committed
unit tests have been further adjusted for such scenarios when there is no internet connection and there is no valid API token
1 parent ce40c44 commit eaa5de7

File tree

6 files changed

+169
-101
lines changed

6 files changed

+169
-101
lines changed

‎tests/testthat/test-en_balancing.R‎

Lines changed: 44 additions & 37 deletions
Original file line numberDiff line numberDiff line change
@@ -1652,7 +1652,8 @@ testthat::test_that(
16521652
business_type = "A63",
16531653
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
16541654
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
1655-
tidy_output = TRUE
1655+
tidy_output = TRUE,
1656+
security_token = "dummy_token"
16561657
),
16571658
regexp = "HTTP 503"
16581659
)
@@ -2265,21 +2266,6 @@ testthat::test_that(
22652266
)
22662267

22672268

2268-
testthat::test_that(
2269-
desc = "sharing_of_frr_capacity() works",
2270-
code = {
2271-
testthat::skip_if_not(
2272-
condition = nchar(Sys.getenv("ENTSOE_PAT")) > 0L,
2273-
message = "No ENTSOE_PAT environment variable set"
2274-
)
2275-
testthat::skip_if_not(
2276-
condition = there_is_provider(),
2277-
message = "The Entso-e API cannot be reached"
2278-
)
2279-
}
2280-
)
2281-
2282-
22832269
testthat::test_that(
22842270
desc = "sharing_of_frr_capacity() covers happy path with mock",
22852271
code = {
@@ -2305,7 +2291,8 @@ testthat::test_that(
23052291
process_type = "A56",
23062292
period_start = lubridate::ymd(x = "2022-01-01", tz = "CET"),
23072293
period_end = lubridate::ymd(x = "2022-01-02", tz = "CET"),
2308-
tidy_output = TRUE
2294+
tidy_output = TRUE,
2295+
security_token = "dummy_token"
23092296
),
23102297
regexp = "HTTP 503"
23112298
)
@@ -2338,7 +2325,8 @@ testthat::test_that(
23382325
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
23392326
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
23402327
security_token = "dummy_token"
2341-
)
2328+
),
2329+
regexp = "HTTP 503"
23422330
)
23432331
}
23442332
)
@@ -2368,7 +2356,8 @@ testthat::test_that(
23682356
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
23692357
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
23702358
security_token = "dummy_token"
2371-
)
2359+
),
2360+
regexp = "HTTP 503"
23722361
)
23732362
}
23742363
)
@@ -2399,7 +2388,8 @@ testthat::test_that(
23992388
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
24002389
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
24012390
security_token = "dummy_token"
2402-
)
2391+
),
2392+
regexp = "HTTP 503"
24032393
)
24042394
}
24052395
)
@@ -2431,7 +2421,8 @@ testthat::test_that(
24312421
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
24322422
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
24332423
security_token = "dummy_token"
2434-
)
2424+
),
2425+
regexp = "HTTP 503"
24352426
)
24362427
}
24372428
)
@@ -2463,7 +2454,8 @@ testthat::test_that(
24632454
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
24642455
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
24652456
security_token = "dummy_token"
2466-
)
2457+
),
2458+
regexp = "HTTP 503"
24672459
)
24682460
}
24692461
)
@@ -2495,7 +2487,8 @@ testthat::test_that(
24952487
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
24962488
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
24972489
security_token = "dummy_token"
2498-
)
2490+
),
2491+
regexp = "HTTP 503"
24992492
)
25002493
}
25012494
)
@@ -2526,7 +2519,8 @@ testthat::test_that(
25262519
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
25272520
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
25282521
security_token = "dummy_token"
2529-
)
2522+
),
2523+
regexp = "HTTP 503"
25302524
)
25312525
}
25322526
)
@@ -2556,7 +2550,8 @@ testthat::test_that(
25562550
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
25572551
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
25582552
security_token = "dummy_token"
2559-
)
2553+
),
2554+
regexp = "HTTP 503"
25602555
)
25612556
}
25622557
)
@@ -2587,7 +2582,8 @@ testthat::test_that(
25872582
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
25882583
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
25892584
security_token = "dummy_token"
2590-
)
2585+
),
2586+
regexp = "HTTP 503"
25912587
)
25922588
}
25932589
)
@@ -2618,7 +2614,8 @@ testthat::test_that(
26182614
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
26192615
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
26202616
security_token = "dummy_token"
2621-
)
2617+
),
2618+
regexp = "HTTP 503"
26222619
)
26232620
}
26242621
)
@@ -2649,7 +2646,8 @@ testthat::test_that(
26492646
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
26502647
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
26512648
security_token = "dummy_token"
2652-
)
2649+
),
2650+
regexp = "HTTP 503"
26532651
)
26542652
}
26552653
)
@@ -2680,7 +2678,8 @@ testthat::test_that(
26802678
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
26812679
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
26822680
security_token = "dummy_token"
2683-
)
2681+
),
2682+
regexp = "HTTP 503"
26842683
)
26852684
}
26862685
)
@@ -2711,7 +2710,8 @@ testthat::test_that(
27112710
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
27122711
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
27132712
security_token = "dummy_token"
2714-
)
2713+
),
2714+
regexp = "HTTP 503"
27152715
)
27162716
}
27172717
)
@@ -2741,7 +2741,8 @@ testthat::test_that(
27412741
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
27422742
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
27432743
security_token = "dummy_token"
2744-
)
2744+
),
2745+
regexp = "HTTP 503"
27452746
)
27462747
}
27472748
)
@@ -2771,7 +2772,8 @@ testthat::test_that(
27712772
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
27722773
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
27732774
security_token = "dummy_token"
2774-
)
2775+
),
2776+
regexp = "HTTP 503"
27752777
)
27762778
}
27772779
)
@@ -2804,7 +2806,8 @@ testthat::test_that(
28042806
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
28052807
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
28062808
security_token = "dummy_token"
2807-
)
2809+
),
2810+
regexp = "HTTP 503"
28082811
)
28092812
}
28102813
)
@@ -2834,7 +2837,8 @@ testthat::test_that(
28342837
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
28352838
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
28362839
security_token = "dummy_token"
2837-
)
2840+
),
2841+
regexp = "HTTP 503"
28382842
)
28392843
}
28402844
)
@@ -2865,7 +2869,8 @@ testthat::test_that(
28652869
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
28662870
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
28672871
security_token = "dummy_token"
2868-
)
2872+
),
2873+
regexp = "HTTP 503"
28692874
)
28702875
}
28712876
)
@@ -2896,7 +2901,8 @@ testthat::test_that(
28962901
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
28972902
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
28982903
security_token = "dummy_token"
2899-
)
2904+
),
2905+
regexp = "HTTP 503"
29002906
)
29012907
}
29022908
)
@@ -2926,7 +2932,8 @@ testthat::test_that(
29262932
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
29272933
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
29282934
security_token = "dummy_token"
2929-
)
2935+
),
2936+
regexp = "HTTP 503"
29302937
)
29312938
}
29322939
)

‎tests/testthat/test-en_generation.R‎

Lines changed: 14 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -774,7 +774,8 @@ testthat::test_that(
774774
eic = "10YFR-RTE------C",
775775
year = 2020L,
776776
security_token = "dummy_token"
777-
)
777+
),
778+
regexp = "HTTP 503"
778779
)
779780
}
780781
)
@@ -803,7 +804,8 @@ testthat::test_that(
803804
eic = "10YDE-VE-------2",
804805
year = 2020L,
805806
security_token = "dummy_token"
806-
)
807+
),
808+
regexp = "HTTP 503"
807809
)
808810
}
809811
)
@@ -834,7 +836,8 @@ testthat::test_that(
834836
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
835837
tidy_output = TRUE,
836838
security_token = "dummy_token"
837-
)
839+
),
840+
regexp = "HTTP 503"
838841
)
839842
}
840843
)
@@ -865,7 +868,8 @@ testthat::test_that(
865868
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
866869
tidy_output = TRUE,
867870
security_token = "dummy_token"
868-
)
871+
),
872+
regexp = "HTTP 503"
869873
)
870874
}
871875
)
@@ -896,7 +900,8 @@ testthat::test_that(
896900
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
897901
tidy_output = TRUE,
898902
security_token = "dummy_token"
899-
)
903+
),
904+
regexp = "HTTP 503"
900905
)
901906
}
902907
)
@@ -927,7 +932,8 @@ testthat::test_that(
927932
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
928933
tidy_output = TRUE,
929934
security_token = "dummy_token"
930-
)
935+
),
936+
regexp = "HTTP 503"
931937
)
932938
}
933939
)
@@ -958,7 +964,8 @@ testthat::test_that(
958964
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
959965
tidy_output = TRUE,
960966
security_token = "dummy_token"
961-
)
967+
),
968+
regexp = "HTTP 503"
962969
)
963970
}
964971
)

‎tests/testthat/test-en_load.R‎

Lines changed: 24 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -615,8 +615,10 @@ testthat::test_that(
615615
eic = "10Y1001A1001A83F",
616616
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
617617
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
618-
tidy_output = TRUE
619-
)
618+
tidy_output = TRUE,
619+
security_token = "dummy_token"
620+
),
621+
regexp = "HTTP 503"
620622
)
621623
}
622624
)
@@ -645,8 +647,10 @@ testthat::test_that(
645647
eic = "10Y1001A1001A83F",
646648
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
647649
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
648-
tidy_output = TRUE
649-
)
650+
tidy_output = TRUE,
651+
security_token = "dummy_token"
652+
),
653+
regexp = "HTTP 503"
650654
)
651655
}
652656
)
@@ -675,8 +679,10 @@ testthat::test_that(
675679
eic = "10Y1001A1001A83F",
676680
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
677681
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
678-
tidy_output = TRUE
679-
)
682+
tidy_output = TRUE,
683+
security_token = "dummy_token"
684+
),
685+
regexp = "HTTP 503"
680686
)
681687
}
682688
)
@@ -705,8 +711,10 @@ testthat::test_that(
705711
eic = "10Y1001A1001A83F",
706712
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
707713
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
708-
tidy_output = TRUE
709-
)
714+
tidy_output = TRUE,
715+
security_token = "dummy_token"
716+
),
717+
regexp = "HTTP 503"
710718
)
711719
}
712720
)
@@ -735,8 +743,10 @@ testthat::test_that(
735743
eic = "10Y1001A1001A83F",
736744
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
737745
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
738-
tidy_output = TRUE
739-
)
746+
tidy_output = TRUE,
747+
security_token = "dummy_token"
748+
),
749+
regexp = "HTTP 503"
740750
)
741751
}
742752
)
@@ -765,8 +775,10 @@ testthat::test_that(
765775
eic = "10Y1001A1001A83F",
766776
period_start = lubridate::ymd(x = "2024-01-01", tz = "CET"),
767777
period_end = lubridate::ymd(x = "2024-01-02", tz = "CET"),
768-
tidy_output = TRUE
769-
)
778+
tidy_output = TRUE,
779+
security_token = "dummy_token"
780+
),
781+
regexp = "HTTP 503"
770782
)
771783
}
772784
)

0 commit comments

Comments
 (0)