<commit_before>#!../../parrot
# Copyright (C) 2001-2006, The Perl Foundation.
# $Id$

=head1 NAME

languages/tcl/t/internal/select_option.t

=head1 DESCRIPTION

Excercize select_options() - the feature that lets us specify, for example
[string triml] instead of [string trimleft].

=head1 SYNOPSIS

    % prove t/internal/select_option.t

=cut

.HLL 'Tcl', 'tcl_group'
.namespace

.sub main :main
    load_bytecode 'library/Test/More.pir'

    # get the testing functions
    .local pmc plan, ok, is

    plan      = find_global 'Test::More', 'plan'
    ok        = find_global 'Test::More', 'ok'
    is        = find_global 'Test::More', 'is'

    load_bytecode 'languages/tcl/runtime/tcllib.pir'

    # Variable declarations, initializations
    .local pmc test       # the test harness object.
               test = new 'Test::Builder'

    plan(6)
    .local string message
<commit_msg>[tcl] typo, remove leftover code<commit_after>#!../../parrot
# Copyright (C) 2001-2006, The Perl Foundation.
# $Id$

=head1 NAME

languages/tcl/t/internal/select_option.t

=head1 DESCRIPTION

Excercise select_options() - the feature that lets us specify, for example
[string triml] instead of [string trimleft].

=head1 SYNOPSIS

    % prove t/internal/select_option.t

=cut

.HLL 'Tcl', 'tcl_group'
.namespace

.sub main :main
    load_bytecode 'library/Test/More.pir'

    # get the testing functions
    .local pmc plan, ok, is

    plan      = find_global 'Test::More', 'plan'
    ok        = find_global 'Test::More', 'ok'
    is        = find_global 'Test::More', 'is'

    load_bytecode 'languages/tcl/runtime/tcllib.pir'

    plan(6)
    .local string message

{'fraction_non_alphanumeric': 0.12002412545235223, 'fraction_numerical': 0.014475271411338963, 'mean_word_length': 3.016949152542373, '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': '3300690', 'n_tokens_mistral': 607, 'n_tokens_neox': 563, 'n_words': 157}