unit tests further improved

Author: sbudai

tests/testthat/test-en_balancing.R

@@ -1,3 +1,14 @@
+testthat::test_that(
+  desc = "all_approved_eic() validates inputs",
+  code = {
+    testthat::expect_error(
+      object = all_approved_eic("foo"),
+      regexp = 'unused argument \\("foo"\\)'
+    )
+  }
+)
+
+
 testthat::test_that(
   desc = "all_approved_eic() works",
   code = {
@@ -21,8 +32,15 @@ testthat::test_that(
       object = names(tbl),
       expected = c("EicCode", "EicLongName")
     )
+  }
+)
+
+
+testthat::test_that(
+  desc = "party_eic() validates inputs",
+  code = {
     testthat::expect_error(
-      object = all_approved_eic("foo"),
+      object = party_eic("foo"),
       regexp = 'unused argument \\("foo"\\)'
     )
   }
@@ -55,8 +73,15 @@ testthat::test_that(
     testthat::expect_true(
       object = all(tbl$type == "X")
     )
+  }
+)
+
+
+testthat::test_that(
+  desc = "area_eic() validates inputs",
+  code = {
     testthat::expect_error(
-      object = party_eic("foo"),
+      object = area_eic("foo"),
       regexp = 'unused argument \\("foo"\\)'
     )
   }
@@ -89,8 +114,15 @@ testthat::test_that(
     testthat::expect_true(
       object = all(tbl$type == "Y")
     )
+  }
+)
+
+
+testthat::test_that(
+  desc = "accounting_point_eic() validates inputs",
+  code = {
     testthat::expect_error(
-      object = area_eic("foo"),
+      object = accounting_point_eic("foo"),
       regexp = 'unused argument \\("foo"\\)'
     )
   }
@@ -123,8 +155,15 @@ testthat::test_that(
     testthat::expect_true(
       object = all(tbl$type == "Z")
     )
+  }
+)
+
+
+testthat::test_that(
+  desc = "tie_line_eic() validates inputs",
+  code = {
     testthat::expect_error(
-      object = accounting_point_eic("foo"),
+      object = tie_line_eic("foo"),
       regexp = 'unused argument \\("foo"\\)'
     )
   }
@@ -157,8 +196,15 @@ testthat::test_that(
     testthat::expect_true(
       object = all(tbl$type == "T")
     )
+  }
+)
+
+
+testthat::test_that(
+  desc = "location_eic() validates inputs",
+  code = {
     testthat::expect_error(
-      object = tie_line_eic("foo"),
+      object = location_eic("foo"),
       regexp = 'unused argument \\("foo"\\)'
     )
   }
@@ -191,8 +237,15 @@ testthat::test_that(
     testthat::expect_true(
       object = all(tbl$type == "V")
     )
+  }
+)
+
+
+testthat::test_that(
+  desc = "resource_object_eic() validates inputs",
+  code = {
     testthat::expect_error(
-      object = location_eic("foo"),
+      object = resource_object_eic("foo"),
       regexp = 'unused argument \\("foo"\\)'
     )
   }
@@ -225,8 +278,15 @@ testthat::test_that(
     testthat::expect_true(
       object = all(tbl$type == "W")
     )
+  }
+)
+
+
+testthat::test_that(
+  desc = "substation_eic() validates inputs",
+  code = {
     testthat::expect_error(
-      object = resource_object_eic("foo"),
+      object = substation_eic("foo"),
       regexp = 'unused argument \\("foo"\\)'
     )
   }
@@ -259,8 +319,15 @@ testthat::test_that(
     testthat::expect_true(
       object = all(tbl$type == "A")
     )
+  }
+)
+
+
+testthat::test_that(
+  desc = "all_allocated_eic() validates inputs",
+  code = {
     testthat::expect_error(
-      object = substation_eic("foo"),
+      object = all_allocated_eic("foo"),
       regexp = 'unused argument \\("foo"\\)'
     )
   }
@@ -295,10 +362,6 @@ testthat::test_that(
         "display_name"
       )
     )
-    testthat::expect_error(
-      object = all_allocated_eic("foo"),
-      regexp = 'unused argument \\("foo"\\)'
-    )
   }
 )