t/FlawedStatisticsR.pm

   1 package t::FlawedStatisticsR;
   2
   3 use Statistics::R;
   4 use base qw(Statistics::R);
   5 my $eos = 'Statistics::R::EOS';
   6
   7 # Override the wrap_cmd() method of Statistics::R with a faulty one
   8 sub wrap_cmd {
   9    my ($self, $cmd) = @_;
  10    $cmd = qq`zzzzzzzzzzzzzzz; write("$eos",stdout())\n`;
  11    return $cmd;
  12 }
  13
  14 1;
  15
  16 __END__