X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2FLinux-Seccomp.t;h=ee1737f939dfc0c28de96c33933e6caf6834f081;hb=f228e548b6ed6079886c786bc6cb85076413c1f4;hp=771d41e4851f9b92e87d98b8bb3975360cfa1c91;hpb=bcf524c10c0ad85fcef711acffc3251bb8472352;p=linux-seccomp.git

diff --git a/t/Linux-Seccomp.t b/t/Linux-Seccomp.t
index 771d41e..ee1737f 100644
--- a/t/Linux-Seccomp.t
+++ b/t/Linux-Seccomp.t
@@ -2,8 +2,9 @@
 use strict;
 use warnings;
 
-use Test::More tests => 2;
-BEGIN { use_ok('Linux::Seccomp') };
+use Errno qw/EINVAL/;
+use Test::More tests => 4;
+BEGIN { use_ok('Linux::Seccomp', ':all') };
 
 
 my $fail = 0;
@@ -122,3 +123,20 @@ foreach my $constname (qw(
 }
 
 ok( $fail == 0 , 'Constants' );
+
+is_deeply version, [2, 3, 1], 'library version is 2.3.1';
+
+my $got_sigsys = 0;
+$SIG{SYS} = sub { $got_sigsys = 1 };
+
+my $ctx = Linux::Seccomp->new(SCMP_ACT_ALLOW);
+$ctx->rule_add(SCMP_ACT_TRAP, syscall_resolve_name('mkdir'));
+my $result = $ctx->load;
+
+SKIP: {
+	skip 'loading filter fails with EINVAL -- does your kernel have CONFIG_SECCOMP_FILTER=y?'
+	  if $result == -EINVAL;
+
+	mkdir 'testdir';
+	ok $got_sigsys, 'filter with SCMP_ACT_TRAP on mkdir() works';
+}