t/08-errors.t

   1 #! perl
   2
   3 use strict;
   4 use warnings;
   5 use Test::More;
   6 use Statistics::R;
   7
   8 plan tests => 3;
   9
  10 my $R;
  11
  12 ok $R = Statistics::R->new();
  13
  14
  15 eval {
  16    $R->run( q`print "ASDF"` );
  17 };
  18 ok $@, 'Syntax error';
  19 # Actual error message vary depending on locale
  20
  21
  22 eval {
  23    $R->run( q`print(ASDF)` );
  24 };
  25 ok $@, 'Runtime error';
  26