use strict;
use warnings;
use Test::More tests => 4;

# Enforce non-blank test description
use lib qw( blib/lib );
use Test::More::Strict description => sub {
    my $desc = shift;
    return defined $desc and $desc =~ /\S/;
};

ok 1;
ok 1, 'this has a message';
ok 1, 'this also has a message';
ok 0;