Core Testing Tools

Ok Lines

The basic ok shape records whether one condition passed.

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

Ok Lines

actual
ok_lines.pl
Replay: real traced execution (multi-file project)
use strict;
use warnings;

my $actual = 5;
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 = 4;
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 = 7;
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";

  1. $actual ← 5, $expected ← 5, $passed ← 1, $line ← ok 1 - total

    4my $actual→ 5 = 5; #@actual=4, 75my $expected→ 5 = 5;6my $passed→ 1 = $actual5 == $expected5;7my $line→ ok 1 - total = $passed1 ? "ok 1 - total" : "not ok 1 - total";89print "actual=$actual5\n";10print "expected=$expected5\n";11print "passed=$passed1\n";12print "line=$lineok 1 - total\n";
    outputactual=5
expected=5
passed=1
line=ok 1 - total

  1. $actual ← 4, $expected ← 5, $passed ← (empty), $line ← not ok 1 - total

    4my $actual→ 4 = 4;5my $expected→ 5 = 5;6my $passed→ (empty) = $actual4 == $expected5;7my $line→ not ok 1 - total = $passed(empty) ? "ok 1 - total" : "not ok 1 - total";89print "actual=$actual4\n";10print "expected=$expected5\n";11print "passed=$passed(empty)\n";12print "line=$linenot ok 1 - total\n";
    outputactual=4
expected=5
passed=
line=not ok 1 - total

  1. $actual ← 7, $expected ← 5, $passed ← (empty), $line ← not ok 1 - total

    4my $actual→ 7 = 7;5my $expected→ 5 = 5;6my $passed→ (empty) = $actual7 == $expected5;7my $line→ not ok 1 - total = $passed(empty) ? "ok 1 - total" : "not ok 1 - total";89print "actual=$actual7\n";10print "expected=$expected5\n";11print "passed=$passed(empty)\n";12print "line=$linenot ok 1 - total\n";
    outputactual=7
expected=5
passed=
line=not ok 1 - total