Test::Tk - Testing Tk widgets.
use Test::More tests => 5; BEGIN { use_ok('Tk::MyWidget') }; createapp( ); my $widget; if (defined $app) { $widget = $app->MyWidget->pack; } @tests = ( [sub { return defined $widget }, 1, 'Created MyWidget'], [sub { return 1 }, 1, 'A demo test'], ); starttesting;
This module aims to assist in the testing of Perl/T kwidgets.
createapp creates a MainWindow widget and places it in the variable $app. It sets a timer with delay $delay to start the internal test routine.
b<starttesting> launches the main loop and sets a timer with delay $delay to start the internal test routine.
When testing is done the MainWindow is destroyed and the test script continues.
You can set a command line parameter show to test command on the command line. eg perl -Mblib t/My-Test.t show. The application will not terminate so you can visually inspect it.
It will perform two tests. You need to account for these when you set your number of tests.
If you are not on Windows and no XServer is running, all tests will be skipped.
Holds the reference to the MainWindow object. If createapp cannot create If you are not on Windows and no XServer is running, the MainWindow will not be created and $app remains undefined. Do not change this variable.
Default value 100. The delay time between creating the test app and start of the testing. You may want to increase this value in case all tests succeed but your test program still throws an error.
Default value Tk::MainWindow. You can set it to a derived class.
Each element of @tests should contain a list of three elements.
The sub should return the expected value for the test to succeed.
This can be a simple scalar but also the reference to a list or a hash. You may even specify a complexer data structure.
A brief description of the test so you know which test passed or failed.
By default 0. Is set when the show option is given at the command line. You can overwrite this by setting or clearing this yourself.
Creates a MainWindow object and sets the countdown timer for testing. You still must call $app->MainWindow yourself.
Returns true of both hashes have an identical set of keys and all values are equal. If a value is a reference to a list it will call listcompare. If a value is a reference to a hash it will call hashcompare.
Returns true of both lists have are of equal size and content. If a list element is a reference to a list it will call listcompare. If a list element is a reference to a hash it will call hashcompare.
Launches the main loop and sets a timer with delay $delay to start the internal test routine.
Test::More
Hans Jeuken, <hanje at cpan dot org@>
This should also work for Tcl::pTk widgets. However, the testing of this module during install is done with Tk. So this is set as a prerequisite. A duplicate module with slightly different defaults for Tcl::pTk is thinkable.
Copyright (C) 2023 by Hans Jeuken
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.34.0 or, at your option, any later version of Perl 5 you may have available.
To install Test::Tk, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Test::Tk
CPAN shell
perl -MCPAN -e shell install Test::Tk
For more information on module installation, please visit the detailed CPAN module installation guide.