Merge pull request #76 from sorryforthecommit/fix_installation_as_root_fix

Fix bad plan skip_all in 01load.t

Author: pvoglhofer

t/01load.t

@@ -9,11 +9,11 @@ use FindBin qw($Bin $RealBin);
 use lib "$Bin/../../Gtk3-WebKit2/lib";
 use URI;
 
-use_ok 'WWW::WebKit2';
-
 #Running tests as root will sometimes spawn an X11 that cannot be closed automatically and leave the test hanging
 plan skip_all => 'Tests run as root may hang due to X11 server not closing.' unless $>;
 
+use_ok 'WWW::WebKit2';
+
 my $timeout = 1000;
 
 my $sel= WWW::WebKit2->new(xvfb => 1);

t/drag_and_drop.t

@@ -8,11 +8,11 @@ use FindBin qw($Bin $RealBin);
 use lib "$Bin/../../Gtk3-WebKit2/lib";
 use URI;
 
-use_ok 'WWW::WebKit2';
-
 #Running tests as root will sometimes spawn an X11 that cannot be closed automatically and leave the test hanging
 plan skip_all => 'Tests run as root may hang due to X11 server not closing.' unless $>;
 
+use_ok 'WWW::WebKit2';
+
 my $webkit = WWW::WebKit2->new(xvfb => 1);
 eval { $webkit->init; };
 if ($@ and $@ =~ /\ACould not start Xvfb/) {

t/drag_and_drop_mouse.t

@@ -8,12 +8,11 @@ use FindBin qw($Bin $RealBin);
 use lib "$Bin/../../Gtk3-WebKit2/lib";
 use URI;
 
-
-use_ok 'WWW::WebKit2';
-
 #Running tests as root will sometimes spawn an X11 that cannot be closed automatically and leave the test hanging
 plan skip_all => 'Tests run as root may hang due to X11 server not closing.' unless $>;
 
+use_ok 'WWW::WebKit2';
+
 my $webkit = WWW::WebKit2->new(xvfb => 1);
 
 eval { $webkit->init; };
@@ -32,4 +31,4 @@ $webkit->open("$Bin/test/drag_and_drop.html");
 $webkit->mouse_input_drag_and_drop_to_object('id=dragme', 'id=target');
 ok($webkit->is_element_present('xpath=//div[@id="target"]//div[@id="dragme"]'), 'Element has been successfully dragged by the mouse');
 
-done_testing;
+done_testing;

t/events.t

@@ -10,10 +10,11 @@ use lib "$Bin/../../Gtk3-WebKit2/lib";
 use Test::Fake::HTTPD;
 use URI;
 
-use_ok 'WWW::WebKit2';
-
 #Running tests as root will sometimes spawn an X11 that cannot be closed automatically and leave the test hanging
 plan skip_all => 'Tests run as root may hang due to X11 server not closing.' unless $>;
+
+use_ok 'WWW::WebKit2';
+
 my $webkit = WWW::WebKit2->new(xvfb => 1);
 eval { $webkit->init; };
 if ($@ and $@ =~ /\ACould not start Xvfb/) {

t/inspector.t

@@ -10,11 +10,11 @@ use File::Slurper qw(read_text);
 use lib "$Bin/../../Gtk3-WebKit2/lib";
 use URI;
 
-use_ok 'WWW::WebKit2';
-
 #Running tests as root will sometimes spawn an X11 that cannot be closed automatically and leave the test hanging
 plan skip_all => 'Tests run as root may hang due to X11 server not closing.' unless $>;
 
+use_ok 'WWW::WebKit2';
+
 my $webkit = WWW::WebKit2->new(xvfb => 1);
 eval { $webkit->init; };
 if ($@ and $@ =~ /\ACould not start Xvfb/) {

t/keyboard.t

@@ -8,11 +8,11 @@ use FindBin qw($Bin $RealBin);
 use lib "$Bin/../../Gtk3-WebKit2/lib";
 use URI;
 
-use_ok 'WWW::WebKit2';
-
 #Running tests as root will sometimes spawn an X11 that cannot be closed automatically and leave the test hanging
 plan skip_all => 'Tests run as root may hang due to X11 server not closing.' unless $>;
 
+use_ok 'WWW::WebKit2';
+
 my $webkit = WWW::WebKit2->new(xvfb => 1);
 eval { $webkit->init; };
 if ($@ and $@ =~ /\ACould not start Xvfb/) {

t/locator.t

@@ -8,11 +8,12 @@ use FindBin qw($Bin $RealBin);
 use lib "$Bin/../../Gtk3-WebKit2/lib";
 use URI;
 
-use_ok 'WWW::WebKit2';
 
 #Running tests as root will sometimes spawn an X11 that cannot be closed automatically and leave the test hanging
 plan skip_all => 'Tests run as root may hang due to X11 server not closing.' unless $>;
 
+use_ok 'WWW::WebKit2';
+
 my $webkit = WWW::WebKit2->new(xvfb => 1);
 eval { $webkit->init; };
 if ($@ and $@ =~ /\ACould not start Xvfb/) {

t/logging.t

@@ -10,11 +10,11 @@ use FindBin qw($Bin $RealBin);
 use lib "$Bin/../../Gtk3-WebKit2/lib";
 use URI;
 
-use_ok 'WWW::WebKit2';
-
 #Running tests as root will sometimes spawn an X11 that cannot be closed automatically and leave the test hanging
 plan skip_all => 'Tests run as root may hang due to X11 server not closing.' unless $>;
 
+use_ok 'WWW::WebKit2';
+
 my $dir = File::Temp->newdir();
 
 # logging should be off by default

t/mouse.t

@@ -8,11 +8,11 @@ use FindBin qw($Bin $RealBin);
 use lib "$Bin/../../Gtk3-WebKit2/lib";
 use URI;
 
-use_ok 'WWW::WebKit2';
-
 #Running tests as root will sometimes spawn an X11 that cannot be closed automatically and leave the test hanging
 plan skip_all => 'Tests run as root may hang due to X11 server not closing.' unless $>;
 
+use_ok 'WWW::WebKit2';
+
 my $webkit = WWW::WebKit2->new(xvfb => 1);
 eval { $webkit->init; };
 if ($@ and $@ =~ /\ACould not start Xvfb/) {

t/navigator.t

@@ -8,11 +8,11 @@ use FindBin qw($Bin $RealBin);
 use lib "$Bin/../../Gtk3-WebKit2/lib";
 use URI;
 
-use_ok 'WWW::WebKit2';
-
 #Running tests as root will sometimes spawn an X11 that cannot be closed automatically and leave the test hanging
 plan skip_all => 'Tests run as root may hang due to X11 server not closing.' unless $>;
 
+use_ok 'WWW::WebKit2';
+
 my $webkit = WWW::WebKit2->new(xvfb => 1);
 eval { $webkit->init; };
 if ($@ and $@ =~ /\ACould not start Xvfb/) {