#!/usr/bin/env perl
use strict;
use warnings;
use Test::More 'tests' => 4;
is('expected','expected','Expected result OK');
is('expected','unexpected','Unexpected result not OK');
TODO: {
    local $TODO = 'Making sure this test is still marked fail, not todo pass';
    pass('whoop deee');
}
SKIP: {
    skip('cuz I can',1);
    fail('har har');
}
0;