From a1e85d65bc463e01cb00fbaafc1cc4aa35e706cd Mon Sep 17 00:00:00 2001
From: Roland Conybeare <rconybeare@gmail.com>
Date: Sat, 28 Feb 2026 13:36:27 +1100
Subject: [PATCH] xo-interpreter2: report_memory_use() unit test

---
 include/xo/interpreter2/VsmConfig.hpp   |  6 ++++
 src/skrepl/skreplxx.cpp                 |  2 +-
 utest/VirtualSchematikaMachine.test.cpp | 37 +++++++++++++++++++++++++
 3 files changed, 44 insertions(+), 1 deletion(-)

diff --git a/include/xo/interpreter2/VsmConfig.hpp b/include/xo/interpreter2/VsmConfig.hpp
index bfbe152e..bfd6dbf6 100644
--- a/include/xo/interpreter2/VsmConfig.hpp
+++ b/include/xo/interpreter2/VsmConfig.hpp
@@ -25,6 +25,12 @@ namespace xo {
                 return retval;
             }
 
+            VsmConfig with_parser_debug_flag(bool x) const {
+                VsmConfig retval = *this;
+                retval.rdr_config_.parser_debug_flag_ = x;
+                return retval;
+            }
+
             /** true for interactive parser session; false for batch session **/
             bool interactive_flag_ = true;
 
diff --git a/src/skrepl/skreplxx.cpp b/src/skrepl/skreplxx.cpp
index 6d68fb32..3362b823 100644
--- a/src/skrepl/skreplxx.cpp
+++ b/src/skrepl/skreplxx.cpp
@@ -188,7 +188,7 @@ namespace xo {
         // outer loop: fetch one line of interactive input
         while (replxx_getline(interactive_, vsm_.is_at_toplevel(), rx_, &input)) {
 
-            // inner lo9op: consume up to one expression at a time.
+            // inner loop: consume up to one expression at a time.
             while (!input.empty() && this->_read_eval_print(&input, false /*eof*/))
                 {
                     ;
diff --git a/utest/VirtualSchematikaMachine.test.cpp b/utest/VirtualSchematikaMachine.test.cpp
index a42746ae..4e5d6355 100644
--- a/utest/VirtualSchematikaMachine.test.cpp
+++ b/utest/VirtualSchematikaMachine.test.cpp
@@ -584,6 +584,43 @@ namespace xo {
             log && vsm_fixture.log_memory_layout(&log);
         }
 
+        TEST_CASE("VirtualSchematikaMachine-report_memory_use", "[interpreter2][VSM]")
+        {
+            const auto & testname = Catch::getResultCapture().getCurrentTestName();
+
+            bool c_debug_flag = false;
+            scope log(XO_DEBUG(c_debug_flag), xtag("test", testname));
+
+            VsmFixture vsm_fixture(testname, c_debug_flag,
+                                   VsmConfig().with_parser_debug_flag(c_debug_flag));
+            auto & vsm = vsm_fixture.vsm_;
+
+            bool eof_flag = true;
+
+            vsm.begin_interactive_session();
+
+            span_type input = span_type::from_cstr("report_memory_use();");
+
+            log && log(xtag("input", input));
+
+            VsmResultExt res
+                = vsm.read_eval_print(input, eof_flag);
+
+            REQUIRE(res.is_value());
+            REQUIRE(res.value());
+
+            log && log(xtag("res.tseq", res.value()->_typeseq()),
+                       xtag("res.type", TypeRegistry::id2name(res.value()->_typeseq())));
+
+            auto x = obj<AGCObject,DBoolean>::from(*res.value());
+            REQUIRE(x);
+            REQUIRE(x->value() == true);
+
+            REQUIRE(res.remaining_.size() == 1);
+            REQUIRE(*res.remaining_.lo() == '\n');
+
+            //log && vsm_fixture.log_memory_layout(&log);
+        }
     } /*namespace ut*/
 } /*namespace xo*/