#! perl

use strict;
use warnings;
use Test::More;
use Statistics::R;

my $R;

ok $R = Statistics::R->new();


eval {
   $R->run( q`print "ASDF"` );
};
ok $@, 'Syntax error';
# Actual error message vary depending on locale


eval {
   $R->run( q`print(ASDF)` );
};
ok $@, 'Runtime error';

done_testing;