New upstream version 0.34

[deb_pkgs/libstatistics-r-perl.git] / t / FlawedStatisticsR.pm

diff --git a/t/FlawedStatisticsR.pm b/t/FlawedStatisticsR.pm
new file mode 100644 (file)
index 0000000..4977250
--- /dev/null
+++ b/t/FlawedStatisticsR.pm
@@ -0,0 +1,16 @@
+package t::FlawedStatisticsR;
+
+use Statistics::R;
+use base qw(Statistics::R);
+my $eos = 'Statistics::R::EOS';
+
+# Override the wrap_cmd() method of Statistics::R with a faulty one
+sub wrap_cmd {
+   my ($self, $cmd) = @_;
+   $cmd = qq`zzzzzzzzzzzzzzz; write("$eos",stdout())\n`;
+   return $cmd;
+}
+
+1;
+
+__END__