The Most Basic Perl Test Program

#!/usr/bin/perl -w

print "1..1\n";

print 1 + 1 == 2 ? "ok 1\n" : "not ok 1\n";

since 1 + 1 is 2, this prints:

1..1
ok 1

• "1..1" I'm going to run one test.

• "ok 1" The first test passed.

Prev | toc | Next