<commit_before>package t::APL;

# Fail a little more gracefully for those without Test::Base installed.

BEGIN {
  eval {
    require Test::Base;
    import Test::Base qw/ -Base /;
  };
  if ($@) {
    plan(skip_all => "APL tests require Test::Base.;");
    exit 0;
  }
}

use Parrot::Config;
use Parrot::Test;

our @EXPORT = qw(run_apl_is);

BEGIN {
  # APL *really* needs unicode to function, bail out if we don't have it.
  if (!$PConfig{has_icu}) {
    plan skip_all => "No unicode library available.";
    exit 0;
  }
}

# Note - we don't just use the special SKIP entry in the DATA stream because
# it doesn't actually output the skipped test in the TAP output. It just
# fails to run the test.<commit_msg>APL: - supplies a 'plan' method when 'Test::Base' is not available.<commit_after>package t::APL;

# Fail a little more gracefully for those without Test::Base installed.

BEGIN {
  eval {
    require Test::Base;
    import Test::Base qw/ -Base /;
  };
  if ($@) {
    eval 'use Test::More skip_all => "APL tests require Test::Base.;";';
    exit 0;
  }
}

use Parrot::Config;
use Parrot::Test;

our @EXPORT = qw(run_apl_is);

BEGIN {
  # APL *really* needs unicode to function, bail out if we don't have it.
  if (!$PConfig{has_icu}) {
    plan skip_all => "No unicode library available.";
    exit 0;
  }
}

# Note - we don't just use the special SKIP entry in the DATA stream because
# it doesn't actually output the skipped test in the TAP output. It just
# fails to run the test.
{'fraction_non_alphanumeric': 0.12040133779264214, 'fraction_numerical': 0.0026755852842809363, 'mean_word_length': 3.3236994219653178, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 7, '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': '4855177', 'n_tokens_mistral': 519, 'n_tokens_neox': 498, 'n_words': 193}