#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::NoWarnings ();
use HTTP::BrowserDetect;
my $browser = HTTP::BrowserDetect->new(
"Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0)");
ok( !$browser->language, "no language detected" );
diag( $browser->language );
Test::NoWarnings::had_no_warnings();
done_testing();