<commit_before>#!/usr/bin/perl

use strict;
use warnings;
use lib qw(tcl/lib ./lib ../lib ../../lib ../../../lib);

use Parrot::Test tests => 14;
use Parrot::Config;
use Test::More;

SKIP: {
    skip( "Parrot not configured with ICU", 5 ) unless $PConfig{has_icu};
    language_output_is( "tcl", <<TCL, <<OUT, "string match nocase" );
  puts [string match -nocase ABC abc]
TCL
1
OUT

    language_output_is( "tcl", <<'TCL', <<OUT, "string match nocase: unicode (Greek alphas)" );
  puts [string match -nocase \u03b1 \u0391]
TCL
1
OUT

    language_output_is( "tcl", <<'TCL', <<OUT, "string equal, diff with -nocase" );
  puts [string equal -nocase APPLEs oranGES]
TCL
0
OUT

    language_output_is( "tcl", <<'TCL', <<OUT, "string equal, same with -nocase" );
  puts [string equal -nocase baNAna BAnana]
TCL
1
OUT

    language_output_is( "tcl", <<'TCL', <<OUT, "string equal, -length and -nocase" );
  puts [string equal -nocase -length 4 fERry FeRroUs]
TCL
1
OUT
}

# XXX - many of the classes are NOT tested here, and we rely
# on the cvs tests from tcl for that.

my %doubles = qw(
    2.1    1
    7.0    1
    7      1
    1e1    1
    .1     1
    no     0
    .      0
    +2.    1
    -2.    1
);

foreach my $double ( keys %doubles ) {
    language_output_is( "tcl", <<"TCL", <<"OUT", "string is double: $double" );
    puts [string is double $double]
TCL
$doubles{$double}
OUT

}

# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4:<commit_msg>[tcl]: Added RT ticket number #40629 to TODO item<commit_after>#!/usr/bin/perl

use strict;
use warnings;
use lib qw(tcl/lib ./lib ../lib ../../lib ../../../lib);

use Parrot::Test tests => 14;
use Parrot::Config;
use Test::More;

SKIP: {
    skip( "Parrot not configured with ICU", 5 ) unless $PConfig{has_icu};
    language_output_is( "tcl", <<TCL, <<OUT, "string match nocase" );
  puts [string match -nocase ABC abc]
TCL
1
OUT

    language_output_is( "tcl", <<'TCL', <<OUT, "string match nocase: unicode (Greek alphas)" );
  puts [string match -nocase \u03b1 \u0391]
TCL
1
OUT

    language_output_is( "tcl", <<'TCL', <<OUT, "string equal, diff with -nocase" );
  puts [string equal -nocase APPLEs oranGES]
TCL
0
OUT

    language_output_is( "tcl", <<'TCL', <<OUT, "string equal, same with -nocase" );
  puts [string equal -nocase baNAna BAnana]
TCL
1
OUT

    language_output_is( "tcl", <<'TCL', <<OUT, "string equal, -length and -nocase" );
  puts [string equal -nocase -length 4 fERry FeRroUs]
TCL
1
OUT
}

# XXX (#40629): - many of the classes are NOT tested here, and we rely
# on the cvs tests from tcl for that.

my %doubles = qw(
    2.1    1
    7.0    1
    7      1
    1e1    1
    .1     1
    no     0
    .      0
    +2.    1
    -2.    1
);

foreach my $double ( keys %doubles ) {
    language_output_is( "tcl", <<"TCL", <<"OUT", "string is double: $double" );
    puts [string is double $double]
TCL
$doubles{$double}
OUT

}

# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4:
{'fraction_non_alphanumeric': 0.15210355987055016, 'fraction_numerical': 0.02912621359223301, 'mean_word_length': 2.8541147132169575, 'pattern_counts': {'":': 0, '<': 51, '<?xml version=': 0, '>': 5, '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': '7126386', 'n_tokens_mistral': 1262, 'n_tokens_neox': 1222, 'n_words': 396}