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