Perl Test::Spec in 5 minutes

5 minutes intro into
Test::Spec
BDD testing system for Perl

use Test::Spec;
describe "StringCalculator" => sub {
my $calculator;
my $calendar;
before each => sub {
$calculator = StringCalculator->new( calendar => ( $calendar = stub() ) );
};
describe "on regular day" => sub {
before each => sub { $calendar->stubs( today_is_holiday => 0 ) };
it "supports basic calculations" => sub {
is( $calculator->add(''), 0, 'returns zero for empty input');
is( $calculator->add('1'), 1, 'returns given number for single number input');
is( $calculator->add('1,1'), 2, 'returns sum of comma delimited numbers');
};
it "supports custom delimiters" => sub {
is( $calculator->add('//;n1,1'), 2);
};
};
describe "on holidays" => sub {
it "throws exception for any input" => sub {
eval { $calculator->add(); };
like( $@, qr/HolidaysError/ );
};
};
};

my $calculator;
my $calendar;
};
};
};
};
};
};
};
Standing on the shoulders of giants.
Test::Builder,Test::More, ...

my $calculator;
my $calendar;
};
};
};
};
};
};
};
Behavior-Driven Development

sub fooadd : Tests {
}
vs Test::Class

sub add : Tests {
}
sub custom_delimiters : Tests {
}
sub holidays : Tests {
}
vs Test::Class

sub add_supports_simple_calculations_on_regular_day : Tests {
}
sub add_supports_custom_delimiters_on_regular_day : Tests {
}
sub add_throws_exception_on_holidays : Tests {
}
vs Test::Class

sub add_returns_zero_for_empty_input_on_regular_day : Tests {
is( $calculator->add(''), 0);
}
sub add_returns_given_number_for_single_number_input_on_regular_day : Tests {
is( $calculator->add('1'), 1);
}
sub add_returns_sum_of_comma_delimited_numbers_on_regular_day : Tests {
is( $calculator->add('1,1'), 2);
}
sub add_throws_exception_for_any_given_input_on_holidays : Tests {
}
vs Test::Class

StringCalculator
on regular day
supports basic calculations
supports custom delimiters
on holidays
throws exception for any input

my $calculator;
my $calendar;
};
};
};
};
};
};
};
Easy mocks/stubs

my $calculator;
my $calendar;
$calculator = StringCalculator->new( calendar => () );
};
before each => sub { Calendar->stubs( today_is_holiday => 0 ) };
};
};
};
before each => sub { Calendar->stubs( today_is_holiday => 1 ) };
};
};
};
Easy mocks/stubs

my $calculator;
my $calendar;
};
};
};
};
};
};
};
Multiple before/after blocks

my $calculator;
my $calendar;
};
xdescribe "on regular day" => sub {
};
};
};
xit "throws exception for any input" => sub {
};
};
};
Shortcuts

Perl Test::Spec in 5 minutes

More Related Content

What's hot (20)

Similar to Perl Test::Spec in 5 minutes (20)

Recently uploaded (20)

Perl Test::Spec in 5 minutes