Fix unit tests

uclahs-cds · Oct 10, 2023 · 047ad84 · 047ad84
1 parent 9397177
commit 047ad84
Showing 1 changed file with 16 additions and 16 deletions.
diff --git a/tests/testthat/test-auto.axis.R b/tests/testthat/test-auto.axis.R
@@ -1,7 +1,7 @@
 test_that(
     'prep.axis returns unchanged data with length > 1', {
         yat <- seq(0, 10, 2);
-        result <- prep.axis(yat, 1:10);
+        result <- prep.axis(yat, 1:10, 'yat');
 
         expect_equal(result, yat);
         }
@@ -10,7 +10,7 @@ test_that(
 test_that(
     'prep.axis returns unchanged boolean value', {
         xat <- TRUE;
-        result <- prep.axis(yat, 1:10);
+        result <- prep.axis(xat, 1:10, 'xat');
 
         expect_equal(result, xat);
         }
@@ -19,15 +19,15 @@ test_that(
 test_that(
     'prep.axis returns unchanged NULL value', {
         yat <- NULL;
-        result <- prep.axis(yat, 1:10);
+        result <- prep.axis(yat, 1:10, 'yat');
 
         expect_equal(result, yat);
         }
     );
 
 test_that(
     'prep.axis returns a list with "auto" setting', {
-        result <- prep.axis('auto', 1:10);
+        result <- prep.axis('auto', 1:10, 'yat');
         expect_true(is.list(result));
         }
     );
@@ -37,7 +37,7 @@ test_that(
         local({
             expected.at <- 1:10;
             local_mock(auto.axis = function(...) list(at = expected.at));
-            result <- prep.axis('auto', 1:10);
+            result <- prep.axis('auto', 1:10, 'yat');
 
             expect_equal(result$at, expected.at);
             });
@@ -49,7 +49,7 @@ test_that(
         local({
             expected.labels <- 1:5 * 2;
             local_mock(auto.axis = function(...) list(labels = expected.labels));
-            result <- prep.axis('auto', 1:10);
+            result <- prep.axis('auto', 1:10, 'yat');
 
             expect_equal(result$labels, expected.labels);
             });
@@ -61,7 +61,7 @@ test_that(
         local({
             expected.data <- 11:20 ** 2;
             local_mock(auto.axis = function(...) list(data = expected.data));
-            result <- prep.axis('auto', 1:10);
+            result <- prep.axis('auto', 1:10, 'yat');
 
             expect_equal(result$data, expected.data);
             });
@@ -70,7 +70,7 @@ test_that(
 
 test_that(
     'prep.axis returns a list with "auto.linear" setting', {
-        result <- prep.axis('auto.linear', 1:10);
+        result <- prep.axis('auto.linear', 1:10, 'yat');
         expect_true(is.list(result));
         }
     );
@@ -80,7 +80,7 @@ test_that(
         local({
             expected.at <- 1:10;
             local_mock(auto.axis = function(...) list(at = expected.at));
-            result <- prep.axis('auto.linear', 1:10);
+            result <- prep.axis('auto.linear', 1:10, 'yat');
 
             expect_equal(result$at, expected.at);
             });
@@ -92,7 +92,7 @@ test_that(
         local({
             expected.labels <- 6:11 * 2;
             local_mock(auto.axis = function(...) list(labels = expected.labels));
-            result <- prep.axis('auto.linear', 1:10);
+            result <- prep.axis('auto.linear', 1:10, 'yat');
 
             expect_equal(result$labels, expected.labels);
             });
@@ -104,7 +104,7 @@ test_that(
         local({
             expected.data <- 4:16 ** 2;
             local_mock(auto.axis = function(...) list(data = expected.data));
-            result <- prep.axis('auto.linear', 1:10);
+            result <- prep.axis('auto.linear', 1:10, 'yat');
 
             expect_equal(result$data, expected.data);
             });
@@ -113,7 +113,7 @@ test_that(
 
 test_that(
     'prep.axis returns a list with "auto.log" setting', {
-        result <- prep.axis('auto.log', 1:10);
+        result <- prep.axis('auto.log', 1:10, 'yat');
         expect_true(is.list(result));
         }
     );
@@ -123,7 +123,7 @@ test_that(
         local({
             expected.at <- 1:10;
             local_mock(auto.axis = function(...) list(at = expected.at));
-            result <- prep.axis('auto.log', 1:10);
+            result <- prep.axis('auto.log', 1:10, 'yat');
 
             expect_equal(result$at, expected.at);
             });
@@ -135,7 +135,7 @@ test_that(
         local({
             expected.labels <- 1:10 * 10;
             local_mock(auto.axis = function(...) list(labels = expected.labels));
-            result <- prep.axis('auto.log', 1:10);
+            result <- prep.axis('auto.log', 1:10, 'yat');
 
             expect_equal(result$labels, expected.labels);
             });
@@ -147,7 +147,7 @@ test_that(
         local({
             expected.data <- 1:6 ** 3;
             local_mock(auto.axis = function(...) list(data = expected.data));
-            result <- prep.axis('auto.log', 1:10);
+            result <- prep.axis('auto.log', 1:10, 'yat');
 
             expect_equal(result$data, expected.data);
             });
@@ -158,7 +158,7 @@ test_that(
     'prep.axis throws error on invalid setting', {
         expect_error(
             object = {
-                prep.axis('invalid', 1:10);
+                prep.axis('invalid', 1:10, 'yat');
                 },
             regexp = 'invalid'
             );