diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2003-09-16 16:21:48 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-17 06:00:48 +0000 |
| commit | be4925cb01e0e3f28046e3417d8e84ca65859589 (patch) | |
| tree | 943e5911b154e672e82c858d6570f955a24b1672 /os2 | |
| parent | 639cf43be4808c24d6c8660c3a09bcb92311abbf (diff) | |
| download | perl-be4925cb01e0e3f28046e3417d8e84ca65859589.tar.gz | |
os2_process.t
Message-ID: <20030917062147.GA20400@math.berkeley.edu>
p4raw-id: //depot/perl@21258
Diffstat (limited to 'os2')
| -rw-r--r-- | os2/OS2/Process/t/os2_process.t | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/os2/OS2/Process/t/os2_process.t b/os2/OS2/Process/t/os2_process.t index 016c799360..123525dd4d 100644 --- a/os2/OS2/Process/t/os2_process.t +++ b/os2/OS2/Process/t/os2_process.t @@ -24,7 +24,7 @@ BEGIN { # Remap I/O to the parent's window } use strict; -use Test::More tests => 230; +use Test::More tests => 232; use OS2::Process; sub SWP_flags ($) { @@ -407,9 +407,14 @@ ok $my_pos, 'got my position'; ok IsWindowShowing $k_hwnd, 'kid is showing'; ok IsWindowVisible $k_hwnd, 'kid is flaged as visible'; ok IsWindowEnabled $k_hwnd, 'kid is flaged as enabled'; + SKIP: { + skip 'if defaultVIO=MAXIMIZED, new windows are shifted, but maximize to UL corner', 1 unless $fl & 0x800; + ok hWindowPos_set({x => $ppos[0], y => $ppos[1]}, $k_hwnd), 'x,y-restore for de-minimization of MAXIMIZED'; + } @nkpos = WindowPos $k_hwnd; is_deeply([@ppos[0..5]], [@nkpos[0..5]], 'position restored'); + # Now the other way ok hWindowPos_set( {flags => 0x400}, $k_hwnd), 'set to minimized'; ok !IsWindowShowing $k_hwnd, 'kid is not showing'; @@ -452,6 +457,10 @@ ok $my_pos, 'got my position'; ok IsWindowShowing $k_hwnd, 'kid is showing'; ok IsWindowVisible $k_hwnd, 'kid is flaged as visible'; ok IsWindowEnabled $k_hwnd, 'kid is flaged as enabled'; + SKIP: { + skip 'if defaultVIO=MAXIMIZED, new windows are shifted, but maximize to UL corner', 1 unless $fl & 0x800; + ok hWindowPos_set({x => $ppos[0], y => $ppos[1]}, $k_hwnd), 'x,y-restore for de-minimization of MAXIMIZED'; + } @nkpos = WindowPos $k_hwnd; is_deeply([@ppos[0..5]], [@nkpos[0..5]], 'position restored'); |