use strict; use warnings; use Test::More 'no_plan'; ok(1, 'im ok'); is(1, 1, 'one is one'); like('abc', qr/b/, 'contains b'); TODO: { local $TODO = 'just cant get these working?'; is(1, 2, 'one is two?'); like('abc', qr/d/, 'contains d?'); } SKIP: { skip 'to the loo', 2; ok(2, 'youre ok'); fail('dont run me'); } TODO: { todo_skip 'to the loo again', 2; ok(2, 'were ok'); fail('really dont run me'); }