From fa9a742bf257a18a39632079686e9c5f0197a748 Mon Sep 17 00:00:00 2001
From: Matthew Fidler <matthew.fidler@gmail.com>
Date: Sat, 7 Sep 2024 17:57:35 -0500
Subject: [PATCH] Add single item test

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

diff --git a/tests/testthat/test-piping-ini.R b/tests/testthat/test-piping-ini.R
index 558d70274..69738b3e1 100644
--- a/tests/testthat/test-piping-ini.R
+++ b/tests/testthat/test-piping-ini.R
@@ -949,6 +949,16 @@ test_that("ini(diag) tests", {
                  lfun ~ 4
                }))
 
+  tmp <- mod2 %>% ini(diag(lvc))
+
+  expect_equal(tmp$omega,
+               lotri({
+                 lfun ~ 4
+                 lcl ~ c(0.1, 1)
+                 lka ~ c(-0.1, 0.01, 0.45)
+                 lvc ~ 3.45
+               }))
+
   mod <- function() {
     ini({
       lka ~ 0.45