C:\tmp\perl
> type t\11163309.t
use 5.014; # //, strict, say, s///r
use warnings;
use Test::More;

ok 1, "gimme";

TODO: {
    local $TODO = "proof of concept";
    ok 0, "failing TODO";
}

done_testing;


C:\tmp\perl
> prove
t\11163309.t .. ok
All tests successful.
Files=1, Tests=2,  1 wallclock secs ( 0.12 usr +  0.00 sys =  0.12 CPU)
Result: PASS


C:\tmp\perl
> prove -v
t\11163309.t ..
ok 1 - gimme
not ok 2 - failing TODO # TODO proof of concept
#   Failed (TODO) test 'failing TODO'
#   at t\11163309.t line 11.
1..2
ok
All tests successful.
Files=1, Tests=2,  0 wallclock secs ( 0.09 usr +  0.02 sys =  0.11 CPU)
Result: PASS

##</code><code>##

C:\tmp\perl
> prove
t\11163309.t .. ok
All tests successful.

Test Summary Report
-------------------
t\11163309.t (Wstat: 0 Tests: 2 Failed: 0)
  TODO passed:   2
Files=1, Tests=2,  0 wallclock secs ( 0.08 usr +  0.03 sys =  0.11 CPU)
Result: PASS


C:\tmp\perl
> prove -v
t\11163309.t ..
ok 1 - gimme
ok 2 - passing TODO # TODO proof of concept
1..2
ok
All tests successful.

Test Summary Report
-------------------
t\11163309.t (Wstat: 0 Tests: 2 Failed: 0)
  TODO passed:   2
Files=1, Tests=2,  0 wallclock secs ( 0.09 usr +  0.02 sys =  0.11 CPU)
Result: PASS