Add ARM files

[dh-make-perl] / dev / arm / libtest-harness-perl / libtest-harness-perl-3.12 / xt / perls / harness_perl.t

diff --git a/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/xt/perls/harness_perl.t b/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/xt/perls/harness_perl.t
new file mode 100755 (executable)
index 0000000..e8ea71e
--- /dev/null
+++ b/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/xt/perls/harness_perl.t
@@ -0,0 +1,73 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+use Test::More;
+
+# TODO we need to have some way to find one or more alternate versions
+# of perl on the smoke machine so that we can verify that the installed
+# perl can be used to test against the alternate perls without
+# installing the harness in the alternate perls.  Does that make sense?
+#
+# Example:
+#  harness process (i.e. bin/prove) is perl 5.8.8.
+#  subprocesses    (i.e. t/test.t) are perl 5.6.2.
+
+my @perls;
+
+BEGIN {
+    my $perls_live_at = '/usr/local/stow/';
+    @perls = grep( { -e $_ }
+        map( {"$perls_live_at/perl-$_/bin/perl"} qw(5.5.4 5.6.2) ) );
+    if (@perls) {
+        plan( tests => scalar(@perls) * 4 );
+    }
+    else {
+        plan( skip_all => "no perls found in '$perls_live_at'" );
+    }
+}
+
+use File::Temp ();
+use File::Path ();
+use IPC::Run   ();
+
+mkdir('twib') or die "cannot create 'twib' $!";
+
+{    # create a lib
+    open( my $fh, '>', 'twib/foo.pm' );
+    print $fh "package twib;\nsub foo {'bar';}\n1;\n";
+}
+
+END {
+    File::Path::rmtree('twib');
+}
+
+my @tests = qw(
+  xt/perls/sample-tests/perl_version
+);
+
+# TODO and something with taint
+
+# make the tests check that the perl is indeed the $perl (thus they are
+# just printed tests.)
+foreach my $perl (@perls) {
+
+    # TODO make the API be *not* an environment variable!
+    local $ENV{HARNESS_PERL} = $perl;
+
+    my ( $in, $out, $err ) = ( undef, '', '' );
+    my $ret = IPC::Run::run(
+        [
+            $^X, '-Ilib',
+            'bin/prove', '-It/lib', '-Itwib', @tests
+        ],
+        \$in, \$out, \$err
+    );
+    ok( $ret, 'no death' );
+    like( $out, qr/All tests successful/, 'success' );
+    like( $out, qr/Result: PASS/,         'passed' );
+    is($err, '', 'no error');
+}
+
+# vim:ts=4:sw=4:et:sta