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');
}