11 ok $R = Statistics::R->new();
14 # Test that we can recover from a R quit() command
15 is $R->run(q`quit()`), '', 'Handle quit()';
16 is $R->run(q`cat("foo")`), 'foo';
19 # Test that large arrays can be read
20 ok $R->set('y', [1 .. 100_000]), 'Large arrays';
21 is $R->get('y')->[-1], 100_000;
24 # Test that the IOs are well-oiled. In Statistics::R version 0.20, a slight
25 # imprecision in the regular expression to parse the output stream caused a
26 # problem that was apparent only once every few thousands times
27 ok $R->set('z', $input), 'Smooth IO';
28 for my $i (1 .. 10_000) {
29 is $R->get('z'), undef;