Using plan for testing, test on Linux only

cuonglm · Sep 22, 2017 · 639c232 · 639c232
1 parent 5780bbc
commit 639c232
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 11 deletions.
diff --git a/t/01-use.t b/t/01-use.t
@@ -1,8 +1,7 @@
 use v6;
 
 use Test;
-use lib 'lib';
 
-use-ok('Linux::Process::SignalInfo', 'Linux::Process::SignInfo can be used!');
+plan 1;
 
-done-testing();
+use-ok('Linux::Process::SignalInfo', 'Linux::Process::SignInfo can be used!');
diff --git a/t/02-basic.t b/t/02-basic.t
@@ -1,10 +1,10 @@
 use v6;
 
 use Test;
-use lib 'lib';
-
 use Linux::Process::SignalInfo;
 
+plan :skip-all<These tests are only for Linux> unless $*KERNEL.name eq 'linux';
+plan 5;
 dies-ok(
     { Linux::Process::SignalInfo.new },
     'pid is required'
@@ -16,5 +16,3 @@ ok(
 ok($signal_info.read, 'Reading process signal information');
 ok($signal_info.error eq '', 'No error');
 ok($signal_info.parse, 'Parsing signal information');
-
-done-testing();
diff --git a/t/03-error.t b/t/03-error.t
@@ -1,16 +1,15 @@
 use v6;
 
 use Test;
-use lib 'lib';
-
 use Linux::Process::SignalInfo;
 
+plan :skip-all<These tests are only for Linux> unless $*KERNEL.name eq 'linux';
+plan 4;
+
 ok(
     my $signal_info = Linux::Process::SignalInfo.new(pid => 65537),
     'New instance with non existed PID'
 );
 nok($signal_info.read, 'Reading non existed process');
 ok($signal_info.error ne '', 'Error' ~ $signal_info.error);
 nok($signal_info.parse, 'Empty data');
-
-done-testing();