koma/i3
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

testcases: correctly enable lexical pragmata

Browse Source 
eval 'package foo; use strict;' enables strict within eval, it does
not leak into the surrounding scope.
Also fix various warnings/compile errors found due to now enabled
strict and warnings.
This commit is contained in:
Maik Fischer
2011-11-21 21:04:00 +01:00
committed by Michael Stapelberg
parent 0a65b770e8
commit 1b1d7941ec
19 changed files with 42 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
testcases/t/102-dock.t
View File

@ -88,7 +88,7 @@ $window = open_window($x, {
window_type => $x->atom(name => '_NET_WM_WINDOW_TYPE_DOCK'),
});
my $rect = $window->rect;
$rect = $window->rect;
is($rect->width, $primary->rect->width, 'dock client is as wide as the screen');
is($rect->height, 30, 'height is unchanged');
@ -153,8 +153,8 @@ $window = open_window($x, {
$window->_create();
# Add a _NET_WM_STRUT_PARTIAL hint
my $atomname = $x->atom(name => '_NET_WM_STRUT_PARTIAL');
my $atomtype = $x->atom(name => 'CARDINAL');
$atomname = $x->atom(name => '_NET_WM_STRUT_PARTIAL');
$atomtype = $x->atom(name => 'CARDINAL');
$x->change_property(
PROP_MODE_REPLACE,
@ -180,7 +180,7 @@ $window->destroy;
# regression test: transient dock client
#####################################################################
$fwindow = open_window($x, {
my $fwindow = open_window($x, {
dont_map => 1,
background_color => '#FF0000',
window_type => $x->atom(name => '_NET_WM_WINDOW_TYPE_DOCK'),