#!perl use 5.008; use strict; use warnings; use utf8; use lib qw(../lib/); use Test::More; my $class = 'Text::Guess::Language'; use_ok($class); my $text =<guess($text),'no','is no'); done_testing;