summaryrefslogtreecommitdiff
path: root/cpan/Test-Simple/t/Behavior/todo.t
diff options
context:
space:
mode:
Diffstat (limited to 'cpan/Test-Simple/t/Behavior/todo.t')
-rw-r--r--cpan/Test-Simple/t/Behavior/todo.t43
1 files changed, 0 insertions, 43 deletions
diff --git a/cpan/Test-Simple/t/Behavior/todo.t b/cpan/Test-Simple/t/Behavior/todo.t
deleted file mode 100644
index cb5a6e34b0..0000000000
--- a/cpan/Test-Simple/t/Behavior/todo.t
+++ /dev/null
@@ -1,43 +0,0 @@
-use strict;
-use warnings;
-
-use Test::More;
-use Test::Stream::Tester;
-
-my $events = intercept {
- local $TODO = "";
- ok(0, "Should not be in todo 1");
-
- local $TODO = 0;
- ok(0, "Should not be in todo 2");
-
- local $TODO = undef;
- ok(0, "Should not be in todo 3");
-
- local $TODO = "foo";
- ok(0, "Should be in todo");
-};
-
-events_are(
- $events,
- check {
- event ok => { in_todo => 0 };
- event ok => { in_todo => 0 };
- event ok => { in_todo => 0 };
- event ok => { in_todo => 1 };
- directive 'end';
- },
- "Verify TODO state"
-);
-
-my $i = 0;
-for my $e (@$events) {
- next if $e->context->in_todo;
-
- my @tap = $e->to_tap(++$i);
- my $ok_line = $tap[0];
- chomp(my $text = $ok_line->[1]);
- is($text, "not ok $i - Should not be in todo $i", "No TODO directive $i");
-}
-
-done_testing;