nixo
/
gri3-wm
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add testcases :-)

next
Michael Stapelberg 2009-07-16 13:43:43 +02:00
parent 0434b6ea3d
commit 47041bdd73
4 changed files with 95 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
testcases/Makefile Normal file
View File

@ -0,0 +1,4 @@
test:
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, '/home/michael/xcb-perl/X11-XCB/lib/', '/home/michael/xcb-perl/X11-XCB/blib/lib', '/home/michael/xcb-perl/X11-XCB/blib/arch')" t/*.t
all: test

10
testcases/t/00-load.t Normal file
View File

@ -0,0 +1,10 @@
#!perl
use Test::More tests => 2;
BEGIN {
use_ok( 'X11::XCB::Connection' );
use_ok( 'X11::XCB::Window' );
}
diag( "Testing i3, Perl $], $^X" );

33
testcases/t/01-tile.t Normal file
View File

@ -0,0 +1,33 @@
#!perl
use Test::More tests => 4;
use Test::Deep;
use X11::XCB qw(:all);
use Data::Dumper;
BEGIN {
use_ok('X11::XCB::Window');
}
X11::XCB::Connection->connect(':0');
my $original_rect = X11::XCB::Rect->new(x => 0, y => 0, width => 30, height => 30);
my $window = X11::XCB::Window->new(
class => WINDOW_CLASS_INPUT_OUTPUT,
rect => $original_rect,
#override_redirect => 1,
background_color => 12632256
);
isa_ok($window, 'X11::XCB::Window');
is_deeply($window->rect, $original_rect, "rect unmodified before mapping");
$window->create;
$window->map;
my $new_rect = $window->rect;
ok(!eq_deeply($new_rect, $original_rect), "Window got repositioned");
diag( "Testing i3, Perl $], $^X" );

48
testcases/t/02-fullscreen.t Normal file
View File

@ -0,0 +1,48 @@
#!perl
use Test::More tests => 5;
use Test::Deep;
use X11::XCB qw(:all);
# We use relatively long sleeps (1/4 second) to make sure the window manager
# reacted.
use Time::HiRes qw(usleep);
BEGIN {
use_ok('X11::XCB::Window');
}
X11::XCB::Connection->connect(':0');
my $original_rect = X11::XCB::Rect->new(x => 0, y => 0, width => 30, height => 30);
my $window = X11::XCB::Window->new(
class => WINDOW_CLASS_INPUT_OUTPUT,
rect => $original_rect,
#override_redirect => 1,
background_color => 12632256
);
isa_ok($window, 'X11::XCB::Window');
is_deeply($window->rect, $original_rect, "rect unmodified before mapping");
$window->create;
$window->map;
usleep(0.25);
my $new_rect = $window->rect;
ok(!eq_deeply($new_rect, $original_rect), "Window got repositioned");
$original_rect = $new_rect;
usleep(0.25);
$window->fullscreen(1);
usleep(0.25);
$new_rect = $window->rect;
ok(!eq_deeply($new_rect, $original_rect), "Window got repositioned after fullscreen");
diag( "Testing i3, Perl $], $^X" );