Merge pull request #427 from WolframResearch/feature/current-chat-set…

…tings-test Add a test for #426
WolframResearch · Oct 24, 2023 · 0d92df8 · 0d92df8
2 parents 470354f + d608fe4
commit 0d92df8
Showing 1 changed file with 23 additions and 0 deletions.
diff --git a/Tests/CurrentChatSettings.wlt b/Tests/CurrentChatSettings.wlt
@@ -104,3 +104,26 @@ VerificationTest[
     SameTest -> MatchQ,
     TestID   -> "CurrentChatSettings-ChatBlocks@@Tests/CurrentChatSettings.wlt:91,1-106,2"
 ]
+
+(* ::**************************************************************************************************************:: *)
+(* ::Section::Closed:: *)
+(*Regression Tests*)
+
+(* ::**************************************************************************************************************:: *)
+(* ::Subsection::Closed:: *)
+(*#426*)
+VerificationTest[
+    Module[ { model = None, nbo },
+        WithCleanup[
+            nbo = CreateNotebook[
+                DockedCells -> { Cell @ BoxData @ ToBoxes @ Dynamic[ model = CurrentChatSettings[ "Model" ] ] }
+            ],
+            TimeConstrained[ While[ model === None, Pause[ 0.1 ] ], 5 ];
+            model,
+            NotebookClose @ nbo
+        ]
+    ],
+    Except[ _? FailureQ ],
+    SameTest -> MatchQ,
+    TestID -> "CurrentChatSettings-Regression@@Tests/CurrentChatSettings.wlt:115,1-129,2"
+]