From 4b683a8713d276397163496ee941317da29e070a Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Sun, 18 May 2025 10:14:09 +0300
Subject: [PATCH] wip

---
 hbs2-tests/test/TestNCQ.hs | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/hbs2-tests/test/TestNCQ.hs b/hbs2-tests/test/TestNCQ.hs
index b3249942..10e10aad 100644
--- a/hbs2-tests/test/TestNCQ.hs
+++ b/hbs2-tests/test/TestNCQ.hs
@@ -352,14 +352,12 @@ main = do
 
   let dict = makeDict @C do
 
+
         entry $ bindMatch "--help" $ nil_ \case
           HelpEntryBound what -> helpEntry what
-          [StringLike s]      -> helpList False (Just s)
-          _                   -> helpList False Nothing
+          [StringLike s]      -> helpList True (Just s)
+          _                   -> helpList True Nothing
 
-        internalEntries
-
-        entry $ bindMatch "#!" $ nil_ $ const none
 
         entry $ bindMatch "--run" $ \case
           (StringLike what : args) -> liftIO do
@@ -419,6 +417,9 @@ main = do
 
           e -> throwIO $ BadFormException @C (mkList e)
 
+        hidden do
+          internalEntries
+          entry $ bindMatch "#!" $ nil_ $ const none
 
   setupLogger