- Algunos arreglos que saltaron en la prueba

[mecon/meconlib.git] / samurai_lib / test / prueba.php

diff --git a/samurai_lib/test/prueba.php b/samurai_lib/test/prueba.php
index e9993b60f369dd67122a3a2750b5bd85db412a63..2461ab8e7ce904f07ab19630d341222adaba15cd 100644 (file)
--- 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>";
+}
+
+
 ?>