<commit_before>#! perl -w
# $Id$

use Data::Dumper;
#use Test::More tests => 1;
use Test::More  skip_all => 'befunge.pasm does not compile';
use Parrot::Test;

use FindBin;

# execute test.bef
my $language_dir = $FindBin::Bin . '/..'; 
my $parrot       = "../../parrot";

# flatten filenames (don't use directories)
my $out_f = 'test.out';

# STDERR is written into same output file
my $exit_code = Parrot::Test::run_command( <commit_msg>[befunge] Converted 'perl -w' to 'use warnings' where appropriate (part 4)<commit_after>#! perl
# $Id$

use warnings;
use Data::Dumper;
#use Test::More tests => 1;
use Test::More  skip_all => 'befunge.pasm does not compile';
use Parrot::Test;

use FindBin;

# execute test.bef
my $language_dir = $FindBin::Bin . '/..'; 
my $parrot       = "../../parrot";

# flatten filenames (don't use directories)
my $out_f = 'test.out';

# STDERR is written into same output file
my $exit_code = Parrot::Test::run_command( 
{'fraction_non_alphanumeric': 0.16350210970464135, 'fraction_numerical': 0.0031645569620253164, 'mean_word_length': 4.157608695652174, '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': '2104697', 'n_tokens_mistral': 356, 'n_tokens_neox': 347, 'n_words': 105}