]> git.llucax.com Git - mecon/meconlib.git/blob - samurai_lib/test/prueba.php
Reacomodamiento de directorios
[mecon/meconlib.git] / samurai_lib / 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,'mdegan@mecon');
8
9 print "<BR>Probando la funcion tiene -> ";
10 if ($permiso->tiene(1,2,3,4,5,6,7,3)) {
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 ?>