Add ARM files

[dh-make-perl] / dev / arm / libtest-harness-perl / libtest-harness-perl-3.12 / t / sample-tests / delayed

diff --git a/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/t/sample-tests/delayed b/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/t/sample-tests/delayed
new file mode 100644 (file)
index 0000000..94f667f
--- /dev/null
+++ b/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/t/sample-tests/delayed
@@ -0,0 +1,33 @@
+# Used to test Process.pm
+
+BEGIN {
+    if ( $ENV{PERL_CORE} ) {
+        unshift @INC, '../lib';
+    }
+}
+
+use Time::HiRes qw(sleep);
+
+my $delay = 0.01;
+
+$| = 1;
+
+my @parts = (
+    "1.",
+    ".5\n",
+    "ok 1 00000\n",
+    "ok 2\nnot",
+    " ok 3",
+    "\nok 4\nok ",
+    "5 00000",
+    ""
+);
+
+my $delay_at = shift || 0;
+
+while (@parts) {
+    sleep $delay if ( $delay_at & 1 );
+    $delay_at >>= 1;
+    print shift @parts;
+}
+sleep $delay if ( $delay_at & 1 );