use Test::More tests => 2;
my $meta;
$meta = WWW::Blog::Metadata->extract_from_uri('http://www.techcrunch.com/')
or die WWW::Blog::Metadata->errstr;
is($meta->language(), 'en');
$meta = WWW::Blog::Metadata->extract_from_uri('http://wirres.net/')
or die WWW::Blog::Metadata->errstr;
is($meta->language(), 'de');