Building and Testing Tk::Square

Once all the files are in place, we simply run:

% perl Makefile.PL

which generates the topmost Makefile as well as pTk/Makefile. Then a simple make munges pTk/mTk/generic/tkSquare.c, compiles the munged pTk/tkSquare.c, runs xsubpp on Square.xs, and then compiles the generated Square.c file and links the o files into a single so loadable (for Unix). The autosplit subroutines, the Square.pm file, and the loadable are all copied into blib, the build library, for testing.

t/square_demo.t

Here's the test program. It's a rather normal Perl/Tk program with a few special-purpose print statements. When we type make test, files in the t directory are executed, each of which prints out the number of tests and strings of the form "ok " or "not ok ", specifying the status of each test. For related information, check out the Test::Harness module.

#!/usr/local/bin/perl -w # This program creates Square widget. The Square class # has these default bindings: # # <1> press/drag : moves the Square to the pointer # "a" : toggles size( ) animation on/off BEGIN {
 $| = 1;
print "1..3\n";
}
use Tk; use Tk::Square; use strict; my $mw = MainWindow->new;
print "ok 1\n"; my $sq = $mw->Square;
print "ok 2\n"; $sq->pack(qw/-expand yes -fill both/); $sq->focus; MainLoop;
print "ok 3\n";