X-Git-Url: https://git.llucax.com/mecon/meconlib.git/blobdiff_plain/bf4ceaa6453bf08f5223d2ccfcef1eaa5e8cc07e..70373a4230d37d6ffd43d40110e4e86edc8f8515:/samurai_lib/test/prueba.php

diff --git a/samurai_lib/test/prueba.php b/samurai_lib/test/prueba.php
index c72bed8..2461ab8 100644
--- 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>";
+}
+
 
 ?>