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