1use strict; 2use warnings; 3 4use Test::More; 5use Prima::sys::Test; 6 7plan tests => 5; 8 9my $window = create_window; 10my $first = $window-> insert( 'Widget'); 11my $second = $window-> insert( 'Widget'); 12 13is(( $second-> next || 0), $first, "create" ); 14is(( $first-> prev || 0), $second, "create" ); 15 16reset_flag; 17$second-> set( onZOrderChanged => sub { set_flag(0); }); 18$second-> insert_behind( $first); 19 20is(( $second-> prev || 0), $first, "runtime" ); 21is(( $first-> next || 0), $second, "runtime" ); 22ok( wait_flag, "event" ); 23 24$first-> destroy; 25$second-> destroy; 26