#!perl -Tw
use strict;
use warnings;
use Test::More tests => 4;
# Test for https://rt.cpan.org/Ticket/Display.html?id=100242
BEGIN {
use_ok('HTML::SocialMedia');
}
RT100242: {
# Stop I18N::LangTags::Detect from detecting something
delete $ENV{'LANGUAGE'};
delete $ENV{'LC_ALL'};
delete $ENV{'LC_MESSAGES'};
delete $ENV{'LANG'};
if($^O eq 'MSWin32') {
$ENV{'IGNORE_WIN32_LOCALE'} = 1;
}
$ENV{'HTTP_ACCEPT_LANGUAGE'} = 'hr-HR';
$ENV{'REMOTE_ADDR'} = '195.29.95.225';
my $sm = new_ok('HTML::SocialMedia' => [ logger => MyLogger->new() ]);
ok(defined($sm->as_string(facebook_like_button => 1)));
}
# On some platforms it's failing - find out why
package MyLogger;
sub new {
my ($proto, %args) = @_;
my $class = ref($proto) || $proto;
return bless { }, $class;
}
sub warn {
my $self = shift;
my $message = shift;
# Enable this for debugging
# ::diag($message);
::ok($message =~ /Can't determine language from IP 195.29.95.225, country hr/);
}
sub debug {
my $self = shift;
my $message = shift;
# Enable this for debugging
# ::diag($message);
}