- 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 c72bed824f0ae25c9530a4c0bf06ce4bb36891dc..2461ab8e7ce904f07ab19630d341222adaba15cd 100644 (file)
--- a/samurai_lib/test/prueba.php
+++ b/samurai_lib/test/prueba.php
@@ -4,7 +4,7 @@ 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)) {
@@ -40,5 +40,12 @@ foreach ($rr as $r) {
 }
 
 
+print "<BR>Probando la funcion listaPermisos -> ";
+$rr = $permiso->listaPermisos();
+print "Tiene los siguientes permisos<BR>";
+foreach ($rr as $r) {
+    print "$r<BR>";
+}
+
 
 ?>