From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 19 Nov 2016 20:06:05 +0000 (+0000)
Subject: Add a simple test of essential functionality
X-Git-Tag: 0.002~5
X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=16ca5f5de629d1df10da2103836e8e0375613c27;p=linux-seccomp.git

Add a simple test of essential functionality
---

diff --git a/t/Linux-Seccomp.t b/t/Linux-Seccomp.t
index 771d41e..954b2cc 100644
--- 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';