t/07-robust.t

   1 #! perl
   2
   3 use strict;
   4 use warnings;
   5 use Test::More;
   6 use Statistics::R;
   7
   8 plan tests => 10003;
   9
  10
  11 # Test that the IOs are well-oiled. In Statistics::R version 0.20, a slight
  12 # imprecision in the regular expression to parse the output stream caused a
  13 # problem was apparent only once every few thousands times
  14
  15 my ($R, $input);
  16
  17 ok $R = Statistics::R->new();
  18
  19 ok $R->set('x', $input);
  20
  21 for my $i (1 .. 10000) {
  22    is($R->get('x'), undef);
  23 }
  24
  25 ok $R->stop();