Tests: added test for reading body from IO::Handle-like object.

1 files changed, 33 insertions, 0 deletions

diff --git a/test/perl/body_io_fake/IOFake.pm b/test/perl/body_io_fake/IOFake.pm
new file mode 100644
index 00000000..d2542aa5
--- /dev/null
+++ b/test/perl/body_io_fake/IOFake.pm
@@ -0,0 +1,33 @@
+package IOFake;
+
+sub new {
+    my $class = shift;
+    my $errors = shift;
+    my $self = {};
+
+    $self->{_count} = 2;
+    $self->{_errors} = $errors;
+
+    bless $self, $class;
+    return $self;
+}
+
+sub getline() {
+    my $self = shift;
+
+    if ($self->{_count} > 0) {
+        return $self->{_count}--;
+    }
+
+    $self->{_errors}->print('IOFake getline() $/ is ' . ${ $/ });
+
+    return;
+}
+
+sub close() {
+    my $self = shift;
+
+    $self->{_errors}->print('IOFake close() called');
+};
+
+1;