Add ARM files

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

diff --git a/dev/arm/libtest-simple-perl/libtest-simple-perl-0.80/t/tbt_05faildiag.t b/dev/arm/libtest-simple-perl/libtest-simple-perl-0.80/t/tbt_05faildiag.t
new file mode 100644 (file)
index 0000000..59ad721
--- /dev/null
+++ b/dev/arm/libtest-simple-perl/libtest-simple-perl-0.80/t/tbt_05faildiag.t
@@ -0,0 +1,44 @@
+#!/usr/bin/perl
+
+use Test::Builder::Tester tests => 5;
+use Test::More;
+
+# test_fail
+
+test_out("not ok 1 - one");
+test_fail(+1);
+ok(0,"one");
+
+test_out("not ok 2 - two");
+test_fail(+2);
+
+ok(0,"two");
+
+test_test("test fail");
+
+test_fail(+2);
+test_out("not ok 1 - one");
+ok(0,"one");
+test_test("test_fail first");
+
+# test_diag
+
+use Test::Builder;
+my $test = new Test::Builder;
+
+test_diag("this is a test string","so is this");
+$test->diag("this is a test string\n", "so is this\n");
+test_test("test diag");
+
+test_diag("this is a test string","so is this");
+$test->diag("this is a test string\n");
+$test->diag("so is this\n");
+test_test("test diag multi line");
+
+test_diag("this is a test string");
+test_diag("so is this");
+$test->diag("this is a test string\n");
+$test->diag("so is this\n");
+test_test("test diag multiple");
+
+