From c2bbe701bec0c9eb05c28164b82cbab7d9aa6103 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <waldir.leoncio@gmail.com>
Date: Tue, 14 Jul 2020 11:18:11 +0200
Subject: [PATCH] Added tests for squeeze

---
 tests/testthat/test-convertedBaseFunctions.R | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/tests/testthat/test-convertedBaseFunctions.R b/tests/testthat/test-convertedBaseFunctions.R
index 715fe97..705955e 100644
--- a/tests/testthat/test-convertedBaseFunctions.R
+++ b/tests/testthat/test-convertedBaseFunctions.R
@@ -178,4 +178,14 @@ test_that("blanks works as expected", {
 	expect_equal(blanks(0), "")
 	expect_equal(blanks(1), " ")
 	expect_equal(blanks(10), "          ")
+})
+
+test_that("squeeze works as expected", {
+	A <- array(dim = c(2, 1, 2))
+	A[, , 1] <- c(1, 2)
+	A[, , 2] <- c(3, 4)
+	expect_equal(squeeze(A), matrix(1:4, 2))
+	A <- array(0, dim = c(1, 1, 3))
+	A[, , 1:3] <- 1:3
+	expect_equal(squeeze(A), matrix(1:3, 3))
 })
\ No newline at end of file