X-Git-Url: http://vcs.maemo.org/git/?a=blobdiff_plain;f=dev%2Farm%2Flibtest-harness-perl%2Flibtest-harness-perl-3.12%2Fxt%2Fperls%2Fsample-tests%2Fperl_version;fp=dev%2Farm%2Flibtest-harness-perl%2Flibtest-harness-perl-3.12%2Fxt%2Fperls%2Fsample-tests%2Fperl_version;h=533a69bee03c69b6253677bd65edb188da404e79;hb=f477fa73365d491991707e7ed9217b48d6994551;hp=0000000000000000000000000000000000000000;hpb=da95c414033799c3a62606f299c3c00b5c77ca11;p=dh-make-perl

diff --git a/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/xt/perls/sample-tests/perl_version b/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/xt/perls/sample-tests/perl_version
new file mode 100644
index 0000000..533a69b
--- /dev/null
+++ b/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/xt/perls/sample-tests/perl_version
@@ -0,0 +1,5 @@
+use Test::More tests => 2;
+isn::t( $ENV{HARNESS_VERSION}, $], 'different perl' );
+
+my @twib = grep( /\btwib\b/, @INC );
+is( scalar(@twib), 1, 'got my twib lib' ) or warn "@INC";