#!/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();