use warnings;
use autodie;

use Statistics::RserveClient::REXP;

use Test::More tests => 3;

my $rexp = new Statistics::RserveClient::REXP;

isa_ok( $rexp, 'Statistics::RserveClient::REXP', 'new returns an object that' );
ok( !$rexp->isExpression(), 'Rexp is not an expression' );

is( $rexp->toHTML(),
    "<div class='rexp xt_16'><span class='typename'>vector</span></div>\n",
    'HTML representation'
);

done_testing();