Add ARM files

[dh-make-perl] / dev / arm / libio-stringy-perl / io-stringy-2.110 / t / two.t

diff --git a/dev/arm/libio-stringy-perl/io-stringy-2.110/t/two.t b/dev/arm/libio-stringy-perl/io-stringy-2.110/t/two.t
new file mode 100644 (file)
index 0000000..7011f29
--- /dev/null
+++ b/dev/arm/libio-stringy-perl/io-stringy-2.110/t/two.t
@@ -0,0 +1,53 @@
+#!/usr/bin/perl -w         #-*-Perl-*-
+
+use lib "./t", "./lib"; 
+use IO::Scalar;
+use ExtUtils::TBone;
+use Common;
+
+
+#--------------------
+#
+# TEST...
+#
+#--------------------
+
+### Make a tester:
+my $T = typical ExtUtils::TBone;
+Common->test_init(TBone=>$T);
+$T->log_warnings;
+
+### Set the counter:
+my $ntests = (($] >= 5.004) ? 2 : 0);
+$T->begin($ntests);
+if ($ntests == 0) {
+    $T->end;
+    exit 0;
+}
+
+### Open handles on strings:
+my $str1 = "Tea for two";
+my $str2 = "Me 4 U";
+my $str3 = "hello";
+my $S1 = IO::Scalar->new(\$str1);
+my $S2 = IO::Scalar->new(\$str2);
+
+### Interleave output:
+print $S1 ", and two ";
+print $S2 ", and U ";
+my $S3 = IO::Scalar->new(\$str3);
+$S3->print(", world");
+print $S1 "for tea";
+print $S2 "4 me";
+
+### Verify:
+$T->ok_eq($str1, 
+         "Tea for two, and two for tea",
+         "COHERENT STRING 1");
+$T->ok_eq($str2, 
+         "Me 4 U, and U 4 me",
+         "COHERENT STRING 2");
+
+### So we know everything went well...
+$T->end;
+