view release on metacpan or  search on metacpan

t/05-send_feedback.t  view on Meta::CPAN

#!perl -T
use strict;
use warnings;
use Test::More (tests => 9);
use Net::Mollom;
use Exception::Class::TryCatch qw(catch);

# ham content
my $mollom = Net::Mollom->new(
    private_key => '42d54a81124966327d40c928fa92de0f',
    public_key => '72446602ffba00c907478c8f45b83b03',
);
isa_ok($mollom, 'Net::Mollom');
$mollom->servers(['dev.mollom.com']);

my $check;
SKIP: {
    eval { 
        $check = $mollom->check_content(
            post_title => 'Foo Bar',
            post_body => q/
                Lorem ipsum dolor sit amet, consectetur adipiscing elit. 
                Mauris ultricies, lorem in gravida rhoncus, tortor dui viverra magna, 
                vitae vehicula neque ligula et nibh. Pellentesque habitant morbi tristique 
                senectus et netus et malesuada fames ac turpis egestas. Etiam et libero. 
                Vivamus orci.
            /,

        );
    };
    skip("Can't reach Mollom servers", 8) if catch(['Net::Mollom::CommunicationException']);
    isa_ok($check, 'Net::Mollom::ContentCheck');
    ok($check->is_ham, 'it is ham');

    # test parameter validation
    eval { $mollom->send_feedback };
    ok($@);
    like($@, qr/'feedback' missing/);
    eval { $mollom->send_feedback(feedback => 'sucks') };
    ok($@);
    like($@, qr/did not pass regex check/);

    sleep(1);
    my $results = $mollom->send_feedback(feedback => 'unwanted');
    ok($results);

    # specifying the session_id
    sleep(1);
    $results = $mollom->send_feedback(feedback => 'unwanted', session_id => 123);
    ok($results);
}