SPUG: Test::More::ok() not inverting logic with local $TODO

Michael R. Wolf MichaelRWolf at att.net
Sun Dec 28 18:22:00 PST 2008

This behaves passes (i.e. outputs 'ok')  with perl(1) and prove(1),  
regardless of whether the commented lines are enabled.  !!!

#! /usr/bin/perl

use Test::More tests => 1;

#TODO: {
#    local $TODO = 'Learn math';
     ok( 1,           'Learn the basics');

I was expecting that TODO blocks would fail on success.  What am I  

Michael R. Wolf
     All mammals learn by playing!
         MichaelRWolf at att.net

More information about the spug-list mailing list