test/prueba.epl

   1 [-
   2     $ret = shift;
   3
   4     use Data::Dumper;
   5
   6     Execute('./../perl/Samurai/Perm.epl');
   7
   8     $udat{user}='mmarre@mecon';
   9
  10     $ok = $ret->{SA_Perm}->{SA_Perm} (1);
  11
  12     print "Set de Prueba:\n";
  13     print "  Permisos     : 1,2,3,9,3\n";
  14     print "  Permiso unico: 4\n";
  15     print "  Usuario      : $udat{user}\n";
  16
  17     print "tiene\n";
  18     if ($ret->{SA_Perm}->{tiene} (1,2,3,9,3)) {
  19         print "TIENE TODOS LOS PERMISOS\n";
  20     }
  21     else {
  22         print "NO TIENE TODOS LOS PERMISOS\n";
  23     }
  24
  25     print "tieneO\n";
  26     if ($ret->{SA_Perm}->{tieneO} (1,2,3,9,3)) {
  27         print "TIENE ALGUNOS DE LOS PERMISOS\n";
  28     }
  29     else {
  30         print "NO TIENE NINGUNO DE  LOS PERMISOS\n";
  31     }
  32
  33     print "tieneODevol\n";
  34     @tieneODevol = $ret->{SA_Perm}->{tieneODevol} (1,2,3,9,3);
  35     print "Tiene los siguientes Permisos: \n";
  36     foreach $m (@tieneODevol) {
  37         print "$m\n";
  38     }
  39
  40     print "tieneUn\n";
  41     if ($ret->{SA_Perm}->{tieneUn} (4)){
  42         print "Tiene el permiso\n";
  43     }
  44     else {
  45         print "No tiene el permiso\n";
  46     }
  47 -]