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

=head1 NAME

t/op/sprintf.t  -- sprintf tests

=head1 DESCRIPTION

These tests are based on sprintf tests from perl 5.9.4.

Tests sprintf, excluding handling of 64-bit integers or long
doubles (if supported), of machine-specific short and long
integers, machine-specific floating point exceptions (infinity,
not-a-number ...), of the effects of locale, and of features
specific to multi-byte characters (under the utf8 pragma and such).

Individual tests are stored in the C<sprintf_tests> file in the same
directory; There is one test per line. In each test, there are three
required fields:

=over 4

=item printf template

=item data to be formatted (as a parrot expression)

=item expected result of formatting

=back

Optional fields contain

=over 4

=item a comment

=back

Each field is separated by one or more tabs.  If formatting requires more than
one data item (for example, if variable field widths are used), the Parrot
data expression should return a reference to an array having the requisite
number of elements.  Even so, subterfuge is sometimes required:
see tests for %n and %p.

XXX: FIXME: TODO:
Tests that are expected to fail on a certain OS can be marked as such
by trailing the comment with a skip: section. Skips are tags separated
by space consisting of a $^O optionally trailed with :osvers. In the
latter case, all os-levels below that are expected to fail. A special
tag 'all' is allowed for todo tests that should fail on any system

>%G<   >1234567e96<  >1.23457E+102<   >exponent too big skip: os390<
>%.0g< >-0.0<        >-0<             >No minus skip: MSWin32 VMS hpux:10.20<
>%d<   >4<           >1<              >4 != 1 skip: all<

=head1 SYNOPSIS

    % prove t/op/sprintf.t<commit_msg> r20898@windwheel:  chromatic | 2006-09-22 23:13:40 -0700  Fixed an unintentional malformed POD directive causing a failure in t/doc/pod.t.<commit_after>#!./parrot -G
# Copyright (C) 2006, The Perl Foundation.
# $Id$

=head1 NAME

t/op/sprintf.t  -- sprintf tests

=head1 DESCRIPTION

These tests are based on sprintf tests from perl 5.9.4.

Tests sprintf, excluding handling of 64-bit integers or long
doubles (if supported), of machine-specific short and long
integers, machine-specific floating point exceptions (infinity,
not-a-number ...), of the effects of locale, and of features
specific to multi-byte characters (under the utf8 pragma and such).

Individual tests are stored in the C<sprintf_tests> file in the same
directory; There is one test per line. In each test, there are three
required fields:

=over 4

=item printf template

=item data to be formatted (as a parrot expression)

=item expected result of formatting

=back

Optional fields contain

=over 4

=item a comment

=back

Each field is separated by one or more tabs.  If formatting requires more than
one data item (for example, if variable field widths are used), the Parrot
data expression should return a reference to an array having the requisite
number of elements.  Even so, subterfuge is sometimes required:
see tests for %n and %p.

XXX: FIXME: TODO:
Tests that are expected to fail on a certain OS can be marked as such
by trailing the comment with a skip: section. Skips are tags separated
by space consisting of a $^O optionally trailed with :osvers. In the
latter case, all os-levels below that are expected to fail. A special
tag 'all' is allowed for todo tests that should fail on any system

>%GE<gt>   >1234567e96<  >1.23457E+102<   >exponent too big skip: os390<
>%.0g< >-0.0<        >-0<             >No minus skip: MSWin32 VMS hpux:10.20<
>%d<   >4<           >1<              >4 != 1 skip: all<

=head1 SYNOPSIS

    % prove t/op/sprintf.t
{'fraction_non_alphanumeric': 0.07509353287012292, 'fraction_numerical': 0.032870122928915016, 'mean_word_length': 3.615289765721332, 'pattern_counts': {'":': 0, '<': 29, '<?xml version=': 0, '>': 30, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 2, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '295671', 'n_tokens_mistral': 1215, 'n_tokens_neox': 1114, 'n_words': 559}