<commit_before>#!/usr/bin/perl

use strict;
use lib qw(tcl/lib ./lib ../lib ../../lib ../../../lib);
use Parrot::Test tests => 3;
use Test::More;

language_output_is("tcl",<<'TCL',<<OUT,"gets - no args");
  gets
TCL
wrong # args: should be "gets channelId ?varName?"
OUT

language_output_is("tcl", <<'TCL', <<'OUT', "gets - too man args");
  gets foo bar baz
TCL
wrong # args: should be "gets channelId ?varName?"
OUT

language_output_is("tcl",<<'TCL',<<OUT,"gets - bad channel ");
  gets a
TCL
can not find channel named "a"
OUT

# XXX Need to test actually reading something in. <commit_msg>[tcl] convert [get] tests to test_more style<commit_after>#!../../parrot tcl.pbc

source lib/test_more.tcl
plan 3

eval_is {gets} \
  {wrong # args: should be "gets channelId ?varName?"} \
  {no args}
 
eval_is {gets a b c} \
  {wrong # args: should be "gets channelId ?varName?"} \
  {too many args}

eval_is {gets #parrot} \
  {can not find channel named "#parrot"} \
  {bad channel}

# XXX Need to test actually reading something in. 
{'fraction_non_alphanumeric': 0.1650485436893204, 'fraction_numerical': 0.001941747572815534, 'mean_word_length': 3.729357798165138, 'pattern_counts': {'":': 0, '<': 15, '<?xml version=': 0, '>': 4, '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': '3365082', 'n_tokens_mistral': 385, 'n_tokens_neox': 371, 'n_words': 127}