<commit_before>#!../../parrot tcl.pbc

source lib/test_more.tcl
plan 4

eval_is {eval} \
  {wrong # args: should be "eval arg ?arg ...?"} \
  {no args}

eval_is {
 eval "set a 2"
} 2 {single arg}

eval_is {
 eval set a 2
} 2 {multiple args}

eval_is {
 eval set a 2
 set a
} 2 {multiple args, verify side effects}<commit_msg>[tcl] - some failing partcl tests: need these to get [info complete] working...<commit_after>#!../../parrot tcl.pbc

source lib/test_more.tcl
plan 7

eval_is {eval} \
  {wrong # args: should be "eval arg ?arg ...?"} \
  {no args}

eval_is {
 eval "set a 2"
} 2 {single arg}

eval_is {
 eval set a 2
} 2 {multiple args}

eval_is {
 eval set a 2
 set a
} 2 {multiple args, verify side effects}

eval_is {eval "set a \{"}  {missing close-brace}   {close brace}
eval_is {eval "set a \["}  {missing close-bracket} {close bracket}
eval_is {eval {set a "}}   {missing "}             {close quote}
{'fraction_non_alphanumeric': 0.14551422319474835, 'fraction_numerical': 0.015317286652078774, 'mean_word_length': 2.961038961038961, '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': '2820446', 'n_tokens_mistral': 364, 'n_tokens_neox': 341, 'n_words': 125}