1use strict;
2use warnings;
3
4use Test::More;
5use Prima::sys::Test;
6use Prima::Application;
7
8plan tests => 12;
9
10my $window = create_window;
11my $ww = $window-> insert( Widget =>
12	origin => [ 0, 0],
13	sizeMin => [ 10, 10],
14	sizeMax => [ 200, 200],
15);
16$ww-> size( 100, 100);
17my @sz = $ww-> size;
18cmp_ok( $sz[0], '>=', 10, "create" );
19cmp_ok( $sz[1], '>=', 10, "create" );
20cmp_ok( $sz[0], '<=', 200, "create" );
21cmp_ok( $sz[1], '<=', 200, "create");
22$ww-> size( 1, 1);
23@sz = $ww-> size;
24cmp_ok( $sz[0], '>=', 10, "runtime sizeMin" );
25cmp_ok( $sz[1], '>=', 10, "runtime sizeMin" );
26cmp_ok( $sz[0], '<=', 200, "runtime sizeMin" );
27cmp_ok( $sz[1], '<=', 200, "runtime sizeMin" );
28$ww-> owner( $::application);
29$ww-> owner( $window );
30$ww-> size( 1000, 1000);
31cmp_ok( $sz[0], '>=', 10, "reparent sizeMax" );
32cmp_ok( $sz[1], '>=', 10, "reparent sizeMax" );
33cmp_ok( $sz[0], '<=', 200, "reparent sizeMax" );
34cmp_ok( $sz[1], '<=', 200, "reparent sizeMax" );
35
36$ww-> destroy;
37