Ok Lines

The basic ok shape records whether one condition passed.

ok_lines.pl

use strict;
use warnings;

my $actual = ;
my $expected = 5;
my $passed = $actual == $expected;
my $line = $passed ? "ok 1 - total" : "not ok 1 - total";

print "actual=$actual\n";
print "expected=$expected\n";
print "passed=$passed\n";
print "line=$line\n";

use strict;
use warnings;

my $actual = ;
my $expected = 5;
my $passed = $actual == $expected;
my $line = $passed ? "ok 1 - total" : "not ok 1 - total";

print "actual=$actual\n";
print "expected=$expected\n";
print "passed=$passed\n";
print "line=$line\n";

use strict;
use warnings;

my $actual = ;
my $expected = 5;
my $passed = $actual == $expected;
my $line = $passed ? "ok 1 - total" : "not ok 1 - total";

print "actual=$actual\n";
print "expected=$expected\n";
print "passed=$passed\n";
print "line=$line\n";

ok-lines An ok line pairs a boolean result with a short name so a failure can point to a specific check.