-$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>";
+}