move back to a stable Test-Simple, v1.001014

1 files changed, 30 insertions, 0 deletions

diff --git a/cpan/Test-Simple/t/auto.t b/cpan/Test-Simple/t/auto.t
new file mode 100644
index 0000000000..0010342ee9
--- /dev/null
+++ b/cpan/Test-Simple/t/auto.t
@@ -0,0 +1,30 @@
+use strict;
+use warnings;
+
+use lib 't';
+
+use Test::Tester tests => 5;
+
+use SmallTest;
+
+use MyTest;
+
+{
+	my ($prem, @results) = run_tests(
+		sub { MyTest::ok(1, "run pass")}
+	);
+
+	is_eq($results[0]->{name}, "run pass");
+	is_num($results[0]->{ok}, 1);
+}
+
+{
+	my ($prem, @results) = run_tests(
+		sub { MyTest::ok(0, "run fail")}
+	);
+
+	is_eq($results[0]->{name}, "run fail");
+	is_num($results[0]->{ok}, 0);
+}
+
+is_eq(ref(SmallTest::getTest()), "Test::Tester::Delegate");