use warnings;
use autodie;

use Statistics::RserveClient::REXP::Unknown;

use Test::More tests => 2;

my $unknown = new Statistics::RserveClient::REXP::Unknown('test');

isa_ok( $unknown, 'Statistics::RserveClient::REXP::Unknown', 'new returns an object that' );
is( $unknown->getUnknownType(), 'test', 'Unknown is an unknown "test"' );

done_testing();