1Prima::sys::Test(3) User Contributed Perl Documentation Prima::sys::Test(3)
2
3
4
6 Prima::sys::Test - GUI test tools
7
9 The module contains a small set or tool used for testing of Prima-
10 related code together with standard perl "Test::" suite.
11
13 use Test::More;
14 use Prima::Test;
15 plan tests => 1;
16 ok( create_window, "can create window");
17
19 Methods
20 create_window %args
21 Creates a standard simple Prima window, returns its handle
22
23 set_flag,get_flag,reset_flag
24 These manipulate the state of an internal $flag that stops event
25 loop when set.
26
27 wait_flag
28 Waits for the flag to be raised in 500 msec, or returns false.
29
30 no-X11 environment
31 By default fires skip_all condition if running without X11 connection.
32 If the test can be ran without X11, use as:
33
34 use Prima::Test qw(noX11);
35
36 which signals the module not to do any GUI initialization.
37
39 Upasana Shukla, <me@upasana.me>, Dmitry Karasik,
40 <dmitry@karasik.eu.org>.
41
43 Prima, t/*/*.t
44
45
46
47perl v5.38.0 2023-07-21 Prima::sys::Test(3)