Equality Checks

A basic test compares an actual value with an expected value.

equality_checks.pl

use strict;
use warnings;

sub check_equal {
    my ($actual, $expected) = @_;
    return $actual eq $expected ? "pass" : "fail";
}

my $actual = ;
my $expected = "green";
my $status = check_equal($actual, $expected);

print "actual=$actual\n";
print "expected=$expected\n";
print "status=$status\n";

use strict;
use warnings;

sub check_equal {
    my ($actual, $expected) = @_;
    return $actual eq $expected ? "pass" : "fail";
}

my $actual = ;
my $expected = "green";
my $status = check_equal($actual, $expected);

print "actual=$actual\n";
print "expected=$expected\n";
print "status=$status\n";

use strict;
use warnings;

sub check_equal {
    my ($actual, $expected) = @_;
    return $actual eq $expected ? "pass" : "fail";
}

my $actual = ;
my $expected = "green";
my $status = check_equal($actual, $expected);

print "actual=$actual\n";
print "expected=$expected\n";
print "status=$status\n";

assertion An assertion checks whether a result matches what the test expected.