define spec() simply

oktest1.pl

# -*- coding: utf-8 -*-

##
## denfine spec() simply
##

use strict;
use warnings;

sub spec {
    my ($text, $block) = @_;
    print "# $text\n";
    $block->();
}


if ($0 eq __FILE__) {
    use Test::More tests => 2;
    #is(1+1, 2, "1+1 should be 2");
    #is(1-1, 0, "1-1 should be 0");
    spec "1+1 should be 2", sub {
        is(1+1, 2);
    };
    spec "1-1 should be 0", sub {
        is(1-1, 0);
    };
}