X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=t%2Fmenu%2Fparse_access_string.t;fp=t%2Fmenu%2Fparse_access_string.t;h=521269995c9e4cd38c3659779f3acd8facf67e3a;hb=53593baa211863fbf66540cf1bcc36c8fb37257f;hp=0000000000000000000000000000000000000000;hpb=deb4d2dbb676d7d6f69dfe7815d6e0cb09bd4a44;p=kivitendo-erp.git

diff --git a/t/menu/parse_access_string.t b/t/menu/parse_access_string.t
new file mode 100644
index 000000000..521269995
--- /dev/null
+++ b/t/menu/parse_access_string.t
@@ -0,0 +1,80 @@
+use strict;
+
+use Test::More;
+
+use lib 't';
+use Support::TestSetup;
+
+Support::TestSetup::login();
+
+use_ok 'SL::Menu';
+
+#my $menu = SL::Menu->new('user');
+my $menu = 'SL::Menu';
+
+my %node;
+$node{id} = 'test_node';
+
+$node{access} = 'sales_quotation_edit';
+ok($menu->parse_access_string(\%node), 'simple parse granted');
+
+$node{access} = 'no such right';
+ok(!$menu->parse_access_string(\%node), 'simple parse not granted');
+
+$node{access} = 'sales_quotation_edit)';
+eval {$menu->parse_access_string(\%node); ok(0, 'detect missing opening parenthesis'); 1} or do { ok(1, 'detect missing opening parenthesis'); };
+
+$node{access} = '(sales_quotation_edit';
+eval {$menu->parse_access_string(\%node); ok(0, 'detect missing closing parenthesis'); 1} or do { ok(1, 'detect missing closing parenthesis'); };
+
+$node{access} = 'sales_quotation_edit-';
+eval {$menu->parse_access_string(\%node); ok(0, 'detect unrecognized token'); 1} or do { ok(1, 'detect unrecognized token'); };
+
+$node{access} = 'sales_order_edit & sales_quotation_edit';
+ok($menu->parse_access_string(\%node), 'grant and grant');
+
+$node{access} = 'no_such_right & sales_quotation_edit';
+ok(!$menu->parse_access_string(\%node), 'not grant and grant');
+
+$node{access} = 'no_such_right & no_such_right';
+ok(!$menu->parse_access_string(\%node), 'not grant and not grant');
+
+$node{access} = 'sales_order_edit|sales_quotation_edit';
+ok($menu->parse_access_string(\%node), 'grant or grant');
+
+$node{access} = 'no_such_right | sales_quotation_edit';
+ok($menu->parse_access_string(\%node), 'not grant or grant');
+
+$node{access} = 'no_such_right | no_such_right';
+ok(!$menu->parse_access_string(\%node), 'not grant or not grant');
+
+$node{access} = '(sales_quotation_edit & sales_order_edit | (no_such_right & sales_order_edit))';
+ok($menu->parse_access_string(\%node), 'parenthesis 1');
+
+$node{access} = '(no_such_right & sales_order_edit | (no_such_right & sales_order_edit))';
+ok(!$menu->parse_access_string(\%node), 'parenthesis 2');
+
+$node{access} = 'sales_quotation_edit & client/feature_experimental_order';
+ok($menu->parse_access_string(\%node), 'client');
+
+$node{access} = '!no_such_right';
+ok($menu->parse_access_string(\%node), 'simple negation 1');
+
+$node{access} = '!sales_order_edit';
+ok(!$menu->parse_access_string(\%node), 'simple negation 2');
+
+$node{access} = '!!sales_order_edit';
+ok($menu->parse_access_string(\%node), 'double negation');
+
+$node{access} = '(no_such_right & sales_order_edit | !(no_such_right & sales_order_edit))';
+ok($menu->parse_access_string(\%node), 'parenthesis with negation 1');
+
+$node{access} = '(no_such_right & sales_order_edit | (!no_such_right | !sales_order_edit))';
+ok($menu->parse_access_string(\%node), 'parenthesis with negation 2');
+
+$node{access} = 'sales_quotation_edit & !client/feature_experimental_order';
+ok(!$menu->parse_access_string(\%node), 'client negation');
+
+done_testing;
+
+1;