use warnings;
use autodie;

use Statistics::RserveClient::REXP::Language;

use Test::More tests => 3;

my $lang = new Statistics::RserveClient::REXP::Language;

isa_ok( $lang, 'Statistics::RserveClient::REXP::Language', 'new returns an object that' );
ok( !$lang->isExpression(), 'Language is not an expression' );
ok( $lang->isLanguage(),    'Language is a language' );

done_testing();