X-Git-Url: https://git.llucax.com/mecon/meconlib.git/blobdiff_plain/a39b9c1fd1fbd976ce9db682b06f73e92612400c..0b7405db420735a9692bde274a7bb30a023d876a:/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>";
+}
+
 
 ?>