]> git.llucax.com Git - mecon/samurai.git/blob - test/prueba.php
(no commit message)
[mecon/samurai.git] / test / prueba.php
1 <?php
2
3 require_once '../php/Samurai/Perm.php';
4
5 print "Prueba Objeto SA_Perm de samurai_lib<BR>";
6
7 $permiso = new SA_Perm(1,'mmarre@mecon');
8
9 print "<BR>Probando la funcion tiene -> ";
10 if ($permiso->tiene(1,2)) {
11     print "Tiene todos los permisos<BR>";
12 }
13 else {
14     print "No tiene todos los permisos<BR>";
15 }
16
17 print "<BR>Probando la funcion tieneO -> ";
18 if ($permiso->tieneO(1,2,3,4,5,7,3)) {
19     print "Tiene alguno de los permisos<BR>";
20 }
21 else {
22     print "No tiene permiso alguno<BR>";
23 }
24
25 print "<BR>Probando la funcion tieneUn -> ";
26 if ($permiso->tieneO(2)) {
27     print "Tiene EL permiso<BR>";
28 }
29 else {
30     print "No tiene EL permiso<BR>";
31 }
32
33
34 print "<BR>Probando la funcion tieneODevol -> ";
35 $rr = $permiso->tieneODevol(1,4,3,5,3,6,7,3);
36
37 print "Tiene los siguientes permisos<BR>";
38 foreach ($rr as $r) {
39     print "$r<BR>";
40 }
41
42
43 print "<BR>Probando la funcion listaPermisos -> ";
44 $rr = $permiso->listaPermisos();
45 print "Tiene los siguientes permisos<BR>";
46 foreach ($rr as $r) {
47     print "$r<BR>";
48 }
49
50
51 ?>