3 require_once '../php/Samurai/Perm.php';
5 print "Prueba Objeto SA_Perm de samurai_lib<BR>";
7 $permiso = new SA_Perm(1,'mmarre@mecon');
9 print "<BR>Probando la funcion tiene -> ";
10 if ($permiso->tiene(1,2)) {
11 print "Tiene todos los permisos<BR>";
14 print "No tiene todos los permisos<BR>";
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>";
22 print "No tiene permiso alguno<BR>";
25 print "<BR>Probando la funcion tieneUn -> ";
26 if ($permiso->tieneO(2)) {
27 print "Tiene EL permiso<BR>";
30 print "No tiene EL permiso<BR>";
34 print "<BR>Probando la funcion tieneODevol -> ";
35 $rr = $permiso->tieneODevol(1,4,3,5,3,6,7,3);
37 print "Tiene los siguientes permisos<BR>";
43 print "<BR>Probando la funcion listaPermisos -> ";
44 $rr = $permiso->listaPermisos();
45 print "Tiene los siguientes permisos<BR>";