Add ARM files

[dh-make-perl] / dev / arm / libtest-simple-perl / libtest-simple-perl-0.80 / t / curr_test.t

diff --git a/dev/arm/libtest-simple-perl/libtest-simple-perl-0.80/t/curr_test.t b/dev/arm/libtest-simple-perl/libtest-simple-perl-0.80/t/curr_test.t
new file mode 100644 (file)
index 0000000..edd201c
--- /dev/null
+++ b/dev/arm/libtest-simple-perl/libtest-simple-perl-0.80/t/curr_test.t
@@ -0,0 +1,11 @@
+#!/usr/bin/perl -w
+
+# Dave Rolsky found a bug where if current_test() is used and no
+# tests are run via Test::Builder it will blow up.
+
+use Test::Builder;
+$TB = Test::Builder->new;
+$TB->plan(tests => 2);
+print "ok 1\n";
+print "ok 2\n";
+$TB->current_test(2);