<commit_before>
'fixture for Chooser.spec.vbs

'opens a browse for folder window and returns user-selected value

'requires the calling script to simulate user action

With CreateObject("includer")
    Execute .read("Chooser")
End With
Dim ch : Set ch = New Chooser

ch.SetRootPath "%tmp%"
Dim obj : Set obj = ch.FolderObject

WScript.StdOut.WriteLine TypeName(obj)

Set obj = Nothing
<commit_msg>comment<commit_after>
'fixture for Chooser.spec.vbs

'opens a browse for folder window and returns user-selected value

'requires the calling script to simulate user action

'specifically,
'when the user cancels out of the dialog, 
'then the following statement is True
'TypeName(obj) = "Nothing"

With CreateObject("includer")
    Execute .read("Chooser")
End With
Dim ch : Set ch = New Chooser

ch.SetRootPath "%tmp%"
Dim obj : Set obj = ch.FolderObject

WScript.StdOut.WriteLine TypeName(obj)

Set obj = Nothing

{'fraction_non_alphanumeric': 0.08442982456140351, 'fraction_numerical': 0.0, 'mean_word_length': 4.7421383647798745, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '7032792', 'n_tokens_mistral': 292, 'n_tokens_neox': 278, 'n_words': 109}