X-Git-Url: https://git.llucax.com/mecon/meconlib.git/blobdiff_plain/d244a130edade844993478bace7a45fd556e85c8..8ae80b160316912d9ad8b1e286a452144be5f814:/samurai_lib/test/prueba.php

diff --git a/samurai_lib/test/prueba.php b/samurai_lib/test/prueba.php
index e9993b6..2461ab8 100644
--- a/samurai_lib/test/prueba.php
+++ b/samurai_lib/test/prueba.php
@@ -4,10 +4,10 @@ require_once '../php/Samurai/Perm.php';
 
 print "Prueba Objeto SA_Perm de samurai_lib<BR>";
 
-$permiso = new SA_Perm(1,'mdegan@mecon');
+$permiso = new SA_Perm(1,'mmarre@mecon');
 
 print "<BR>Probando la funcion tiene -> ";
-if ($permiso->tiene(1,2,3,4,5,6,7,3)) {
+if ($permiso->tiene(1,2)) {
     print "Tiene todos los permisos<BR>";
 }
 else {
@@ -29,4 +29,23 @@ if ($permiso->tieneO(2)) {
 else {
     print "No tiene EL permiso<BR>";
 }
+
+
+print "<BR>Probando la funcion tieneODevol -> ";
+$rr = $permiso->tieneODevol(1,4,3,5,3,6,7,3);
+
+print "Tiene los siguientes permisos<BR>";
+foreach ($rr as $r) {
+    print "$r<BR>";
+}
+
+
+print "<BR>Probando la funcion listaPermisos -> ";
+$rr = $permiso->listaPermisos();
+print "Tiene los siguientes permisos<BR>";
+foreach ($rr as $r) {
+    print "$r<BR>";
+}
+
+
 ?>