X-Git-Url: http://vcs.maemo.org/git/?a=blobdiff_plain;f=dev%2Farm%2Flibtest-harness-perl%2Flibtest-harness-perl-3.12%2Ft%2Fsource_tests%2Fharness_complain;fp=dev%2Farm%2Flibtest-harness-perl%2Flibtest-harness-perl-3.12%2Ft%2Fsource_tests%2Fharness_complain;h=1ef4cf05347780b6774f522475aed0b404cb7bc8;hb=f477fa73365d491991707e7ed9217b48d6994551;hp=0000000000000000000000000000000000000000;hpb=da95c414033799c3a62606f299c3c00b5c77ca11;p=dh-make-perl

diff --git a/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/t/source_tests/harness_complain b/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/t/source_tests/harness_complain
new file mode 100644
index 0000000..1ef4cf0
--- /dev/null
+++ b/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/t/source_tests/harness_complain
@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+
+print "1..1\n";
+
+die "I should have no args -- @ARGV" if (@ARGV);
+print "ok 1 - this is a test\n";
+