Add a simple test of essential functionality

diff --git a/t/Linux-Seccomp.t b/t/Linux-Seccomp.t
index 771d41e4851f9b92e87d98b8bb3975360cfa1c91..954b2cce2926b06598e0219b2e60d31a6ab810a8 100644 (file)
--- a/t/Linux-Seccomp.t
+++ b/t/Linux-Seccomp.t
@@ -2,8 +2,8 @@
 use strict;
 use warnings;
 
-use Test::More tests => 2;
-BEGIN { use_ok('Linux::Seccomp') };
+use Test::More tests => 3;
+BEGIN { use_ok('Linux::Seccomp', ':all') };
 
 
 my $fail = 0;
@@ -122,3 +122,13 @@ foreach my $constname (qw(
 }
 
 ok( $fail == 0 , 'Constants' );
+
+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'));
+$ctx->load;
+
+mkdir 'testdir';
+ok $got_sigsys, 'filter with SCMP_ACT_TRAP on mkdir() works';