Unit Tests with Perl

Test::Simple

use strict;
use warnings;

use Test::Simple tests => 1;

sub add {
    my ($a, $b) = @_;
    return $a + $b;
}

ok(add(1,2) == 3, 'Simple addition calculated correctly.');

See https://metacpan.org/pod/Test::Simple

References

• Extreme Perl: Chapter 13: Unit Testing
• What is the best way to add tests to existing code?