view release on metacpan or  search on metacpan

t/Mail-Pyzor-Digest-Pieces.t  view on Meta::CPAN

use constant _NORMALIZE => (
    "Thanks to everyone that helped with talks, staffing, moving boxes, grabbing coffee, and everything else around the conference this year. This one was one for the record books, and we've been getting some really great feedback to build on for nex...
    'A special thank you to the speakers this year! Thank you for all of the effort you put in to your talks. The content is what makes this conference, worthwhile for all of our attendees. Your effort is greatly appreciated. ',
    'Non-panelists: please send us your presentations, so we can get then up on the site.',
    'The speaker polls are open until the 10th, and we’ll be pushing attendees to submit ratings for a bit yet. Once they’ve closed I’ll get it all aggregated and sent out to you. ',
    'You can disable the “AutoSSL cannot request a certificate because all of the website’s domains have failed DCV (Domain Control Validation).” type of notification through the cPanel interface:',
    "ha\xc2\xa0ha\xc2\xa0",
    "oh \xc2\xa0yeah \xc2\xa0 wtf\xc2\xa0  huh",
    "middle\xc2\xa0nbsp",
    "t\xc2\xa0nbsp\xc2\xa0",
    "trailing newline\n",
    "\xc2\xa0l\xc2\xa0nbsp",
    "\nleading newline",
    "\xff\xff\xff invalid UTF-8",
    "\xff\xff\xff invalid UTF-8 w/ trailing nbsp\xc2\xa0",
    "NUL\0bytesss",
    'Message Title Trevor Bordner updated an issue Cobra / COBRA-8189 Unable to renew AutoSSL certificates if proxy subdomains exist in userdata_SSL files - Clone Change By: Trevor Bordner BRANCH: COBRA-8189_apache_conf_distiller BINARY: v11.75.9045....
);

#e.g., num_method_tests()
sub new {
    my ( $class, @args ) = @_;
    my $self = $class->SUPER::new(@args);

    $self->num_method_tests( test_normalize => 2 * _NORMALIZE() );

    $self->{'_message_hr'} = Test::Mail::Pyzor::get_test_emails_hr();

    $self->num_method_tests( test_digest_payloads => 1 * keys %{ $self->{'_message_hr'} } );

    return $self;
}

sub _run_pyzor {
    my ( $cmd, $input_sr, @args ) = @_;

    my $out = q<>;
    my $err = q<>;
    IPC::Run::run(
        [ Test::Mail::Pyzor::python_bin(), "$FindBin::Bin/support/$cmd.py", @args ],
        $input_sr,
        \$out,
        \$err,
    );

    warn $err if length $err;

    return $out;
}

sub _pyzor_normalize {
    return _run_pyzor( 'normalize', @_ );
}

sub _pyzor_digest_payloads {
    my $out = _run_pyzor( 'digest_payloads', @_ );

    my $json = JSON->new()->allow_nonref();

    return [ map { $json->decode($_) } split m<\n+>, $out ];
}

sub test_digest_payloads : Tests() {
    my ($self) = @_;

  SKIP: {
        $self->_skip_if_no_python_pyzor( $self->num_tests() );

        my %name_message = %{ $self->{'_message_hr'} };

        for my $name ( sort keys %name_message ) {
          SKIP: {
                skip $name, 1 if Test::Mail::Pyzor::EMAIL_DIGEST()->{$name};

                # Email::MIME seems to fiddle with the string that it receives,
                # so let’s protect against that by giving a disposable copy.
                my $msg = Email::MIME->new( q<> . ${ $name_message{$name} } );

                my $payloads_ar = Mail::Pyzor::Digest::Pieces::digest_payloads($msg);

                my $expected_ar = _pyzor_digest_payloads( $name_message{$name} );

                # Required because of Email::MIME::Encodings’s heavy-handed
                # approach to email line endings. (YOU WILL SUBMIT!!)
                s<\x0d\x0a><\x0a>g for ( @$payloads_ar, @$expected_ar );

                utf8::encode($_) for @$payloads_ar, @$expected_ar;

                is_deeply(
                    $payloads_ar,
                    $expected_ar,
                    $name,
                  )
                  or do {
                    for my $i ( 1 .. $#$expected_ar ) {
                        diag Test::Mail::Pyzor::dump( $payloads_ar->[$i] );
                        diag Test::Mail::Pyzor::dump( $expected_ar->[$i] );
                    }
                  };
            }
        }
    }

    return;
}

sub test_should_handle_line : Tests(6) {
    my @yes = (
        'heckyeah',
        'righteous',
        "oh\xc2\xa0yeah",    # *not* decoded, i.e., raw bytes
    );

    for my $line (@yes) {
        ok(
            Mail::Pyzor::Digest::Pieces::should_handle_line($line),
            "yes: " . Test::Mail::Pyzor::dump($line),
        );
    }