From cc50f2fdf153f2280cd49521bf7bfe137e451116 Mon Sep 17 00:00:00 2001
From: Maciej Banas <maciej.banas@contractors.roche.com>
Date: Fri, 18 Oct 2024 09:05:58 +0000
Subject: [PATCH] Add tests to cover patch.

---
 tests/testthat/_snaps/z-GitStats.md        | 18 ++++++++++++++++++
 tests/testthat/test-get_release-GitStats.R |  1 +
 tests/testthat/test-z-GitStats.R           | 15 +++++++++++++++
 3 files changed, 34 insertions(+)

diff --git a/tests/testthat/_snaps/z-GitStats.md b/tests/testthat/_snaps/z-GitStats.md
index ffce6da0..891fca2a 100644
--- a/tests/testthat/_snaps/z-GitStats.md
+++ b/tests/testthat/_snaps/z-GitStats.md
@@ -49,6 +49,24 @@
     ! Use either `with_code` of `with_files` parameter.
     i If you want to search for [shiny] code in given files - use `in_files` parameter together with `with_code` instead.
 
+# print_storage_attribute
+
+    Code
+      test_gitstats_priv$print_storage_attribute(storage_data = test_mocker$use(
+        "commits_table"), storage_name = "commits")
+    Output
+      <cli_ansi_string>
+      [1] [date range: 2023-06-15 - 2023-06-30]
+
+---
+
+    Code
+      test_gitstats_priv$print_storage_attribute(storage_data = test_mocker$use(
+        "release_logs_table"), storage_name = "release_logs")
+    Output
+      <cli_ansi_string>
+      [1] [date range: 2023-08-01 - 2023-09-30]
+
 # subgroups are cleanly printed in GitStats
 
     Code
diff --git a/tests/testthat/test-get_release-GitStats.R b/tests/testthat/test-get_release-GitStats.R
index c079120b..20cccafe 100644
--- a/tests/testthat/test-get_release-GitStats.R
+++ b/tests/testthat/test-get_release-GitStats.R
@@ -26,4 +26,5 @@ test_that("get_release_logs works as expected", {
     verbose = FALSE
   )
   expect_releases_table(release_logs_table)
+  test_mocker$cache(release_logs_table)
 })
diff --git a/tests/testthat/test-z-GitStats.R b/tests/testthat/test-z-GitStats.R
index 1782bbe5..31df2b45 100644
--- a/tests/testthat/test-z-GitStats.R
+++ b/tests/testthat/test-z-GitStats.R
@@ -84,6 +84,21 @@ test_that("check_if_args_changed", {
   )
 })
 
+test_that("print_storage_attribute", {
+  expect_snapshot(
+    test_gitstats_priv$print_storage_attribute(
+      storage_data = test_mocker$use("commits_table"),
+      storage_name = "commits"
+    )
+  )
+  expect_snapshot(
+    test_gitstats_priv$print_storage_attribute(
+      storage_data = test_mocker$use("release_logs_table"),
+      storage_name = "release_logs"
+    )
+  )
+})
+
 test_that("show_orgs print orgs properly", {
   test_gitstats <- create_test_gitstats(hosts = 2)
   expect_equal(