Import Test-More 1.301001 alpha 63

1 files changed, 24 insertions, 0 deletions

diff --git a/cpan/Test-Simple/t/Test-Simple.t b/cpan/Test-Simple/t/Test-Simple.t
new file mode 100644
index 0000000000..8e1fe7ddb1
--- /dev/null
+++ b/cpan/Test-Simple/t/Test-Simple.t
@@ -0,0 +1,24 @@
+use strict;
+use warnings;
+
+use Test::Simple tests => 1;
+use Test::Stream::Tester;
+
+events_are (
+    intercept {
+        ok(1, "Pass");
+        ok(0, "Fail");
+    },
+    check {
+        event ok => {
+            bool => 1,
+            name => 'Pass',
+            diag => '',
+        };
+        event ok => {
+            bool => 0,
+            name => 'Fail',
+            diag => qr/Failed test 'Fail'/,
+        };
+    },
+);