Add ARM files

[dh-make-perl] / dev / arm / libpod-simple-perl / libpod-simple-perl-3.07 / t / tiedfh.t

diff --git a/dev/arm/libpod-simple-perl/libpod-simple-perl-3.07/t/tiedfh.t b/dev/arm/libpod-simple-perl/libpod-simple-perl-3.07/t/tiedfh.t
new file mode 100644 (file)
index 0000000..1b10d1f
--- /dev/null
+++ b/dev/arm/libpod-simple-perl/libpod-simple-perl-3.07/t/tiedfh.t
@@ -0,0 +1,58 @@
+# Testing tied output filehandle
+BEGIN {
+    if($ENV{PERL_CORE}) {
+        chdir 't';
+        @INC = '../lib';
+    }
+}
+
+use strict;
+use Test;
+BEGIN { plan tests => 8 };
+
+use Pod::Simple::TiedOutFH;
+ok 1;
+
+print "# Sanity test of Perl and Pod::Simple::TiedOutFH\n";
+
+{
+  my $x = 'abc';
+  my $out = Pod::Simple::TiedOutFH->handle_on($x);
+  print $out "Puppies\n";
+  print $out "rrrrr";
+  print $out "uffuff!";
+  ok $x, "abcPuppies\nrrrrruffuff!";
+  undef $out;
+  ok $x, "abcPuppies\nrrrrruffuff!";
+}
+
+# Now test that we can have two different strings.
+{
+  my $x1 = 'abc';
+  my $x2 = 'xyz';
+  my $out1 = Pod::Simple::TiedOutFH->handle_on($x1);
+  my $out2 = Pod::Simple::TiedOutFH->handle_on($x2);
+
+  print $out1 "Puppies\n";
+  print $out2 "Kitties\n";
+  print $out2 "mmmmm";
+  print $out1 "rrrrr";
+  print $out2 "iaooowwlllllllrrr!\n";
+  print $out1 "uffuff!";
+
+  ok $x1, "abcPuppies\nrrrrruffuff!",              "out1 test";
+  ok $x2, "xyzKitties\nmmmmmiaooowwlllllllrrr!\n", "out2 test";
+
+  undef $out1;
+  undef $out2;
+
+  ok $x1, "abcPuppies\nrrrrruffuff!",              "out1 test";
+  ok $x2, "xyzKitties\nmmmmmiaooowwlllllllrrr!\n", "out2 test";
+}
+
+
+print "# Wrapping up... one for the road...\n";
+ok 1;
+print "# --- Done with ", __FILE__, " --- \n";
+
+