X-Git-Url: https://git.llucax.com/mecon/meconlib.git/blobdiff_plain/8dbf6c47125801433e16382352b58363090e7b8f..75cc55340ec74a71f0c95b13019c3f61b60de307:/samurai_lib/src/prueba.php

diff --git a/samurai_lib/src/prueba.php b/samurai_lib/src/prueba.php
index 55aa828..249f6cc 100644
--- a/samurai_lib/src/prueba.php
+++ b/samurai_lib/src/prueba.php
@@ -2,22 +2,31 @@
 
 include 'samurai_lib.php';
 
-$p = new SA_Perm();
-
-var_dump ($p);
-
-print "<br>";
-print "<BR>";
-
-$pp = new SA_Perm(28924563);
-
-var_dump($pp);
-
-print "<BR>";
-print "<BR>";
-
-printf("%s",$pp->nrodoc);
-
-var_dump($pp->SQL);
-
+print "Prueba Objeto SA_Perm de samurai_lib<BR>";
+
+$permiso = new SA_Perm(1,'mdegan@mecon');
+
+print "<BR>Probando la funcion tiene -> ";
+if ($permiso->tiene(1,2,3,4,5,6,7,3)) {
+    print "Tiene todos los permisos<BR>";
+}
+else {
+    print "No tiene todos los permisos<BR>";
+}
+
+print "<BR>Probando la funcion tieneO -> ";
+if ($permiso->tieneO(1,2,3,4,5,7,3)) {
+    print "Tiene alguno de los permisos<BR>";
+}
+else {
+    print "No tiene permiso alguno<BR>";
+}
+
+print "<BR>Probando la funcion tieneUn -> ";
+if ($permiso->tieneO(2)) {
+    print "Tiene EL permiso<BR>";
+}
+else {
+    print "No tiene EL permiso<BR>";
+}
 ?>