<commit_before>#! perl
# Copyright (C) 2007, The Perl Foundation.
# $Id$
# 115-auto_warnings.t

use strict;
use warnings;
use Test::More;
use Cwd;
use Carp;
use lib qw( lib );

if ( $^O eq 'MSWin32' ) {
    plan( skip_all => 'Not yet tested on Win32');
}
else {
    plan( tests => 4 );
}

use_ok('Parrot::Configure');
use_ok('Parrot::Configure::Step');
use_ok('config::auto::warnings');

my $step = 'dummy';

my $conf = Parrot::Configure->new;
$conf->data->set('cc', 'cc');
$conf->data->set('ccflags', '-I/usr/include');

my $cwd = cwd();
my $warning;

$warning = "-Wall";
{
    my $verbose = 0;
    my $rv      = auto::warnings::try_warning($step, $conf, $warning);
    is( $rv, 1, "Got expected exit code of 1" );
}

################### DOCUMENTATION ###################

=head1 NAME

115-auto_warnings.t - test config::auto::warnings

=head1 SYNOPSIS

    % prove t/configure/115-auto_warnings.t

=head1 DESCRIPTION

The files in this directory test functionality used by F<Configure.pl>.

The tests in this file test subroutines exported by config::auto::warnings.

=head1 AUTHOR

<NAME> <<EMAIL>>

=head1 SEE ALSO

config::auto::warnings, F<Configure.pl>.

=cut

# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4:
<commit_msg>One test placed in TODO block per suggestion from chromatic.<commit_after>#! perl
# Copyright (C) 2007, The Perl Foundation.
# $Id$
# 115-auto_warnings.t

use strict;
use warnings;
use Test::More;
use Cwd;
use Carp;
use lib qw( lib );

if ( $^O eq 'MSWin32' ) {
    plan( skip_all => 'Not yet tested on Win32');
}
else {
    plan( tests => 4 );
}

use_ok('Parrot::Configure');
use_ok('Parrot::Configure::Step');
use_ok('config::auto::warnings');

my $step = 'dummy';

my $conf = Parrot::Configure->new;
$conf->data->set('cc', 'cc');
$conf->data->set('ccflags', '-I/usr/include');

my $cwd = cwd();
my $warning;

TODO: {
    # http://rt.perl.org/rt3/Ticket/Display.html?id=47395
    local $TODO =
        q<Reported failing where vendor-supplied Perl 5 Config.pm does not match true state of system available for Parrot configuration>;
    $warning = "-Wall";
    {
        my $verbose = 0;
        my $rv      = auto::warnings::try_warning($step, $conf, $warning);
        is( $rv, 1, "Got expected exit code of 1" );
    }
}

################### DOCUMENTATION ###################

=head1 NAME

115-auto_warnings.t - test config::auto::warnings

=head1 SYNOPSIS

    % prove t/configure/115-auto_warnings.t

=head1 DESCRIPTION

The files in this directory test functionality used by F<Configure.pl>.

The tests in this file test subroutines exported by config::auto::warnings.

=head1 AUTHOR

<NAME> <<EMAIL>>

=head1 SEE ALSO

config::auto::warnings, F<Configure.pl>.

=cut

# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4:

{'fraction_non_alphanumeric': 0.18128453038674033, 'fraction_numerical': 0.02382596685082873, 'mean_word_length': 4.020797227036395, 'pattern_counts': {'":': 0, '<': 14, '<?xml version=': 0, '>': 28, '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': '7126987', 'n_tokens_mistral': 1121, 'n_tokens_neox': 1042, 'n_words': 291}