[-
    $ret = shift;

    use Data::Dumper;

    Execute('./../perl/Samurai/Perm.epl');

    $udat{user}='mmarre@mecon';

    $ok = $ret->{SA_Perm}->{SA_Perm} (1);
    
    print "Set de Prueba:\n";
    print "  Permisos     : 1,2,3,9,3\n";
    print "  Permiso unico: 4\n";
    print "  Usuario      : $udat{user}\n";

    print "tiene\n";
    if ($ret->{SA_Perm}->{tiene} (1,2,3,9,3)) {
        print "TIENE TODOS LOS PERMISOS\n";
    }
    else {
        print "NO TIENE TODOS LOS PERMISOS\n";
    }

    print "tieneO\n";
    if ($ret->{SA_Perm}->{tieneO} (1,2,3,9,3)) {
        print "TIENE ALGUNOS DE LOS PERMISOS\n";
    }
    else {
        print "NO TIENE NINGUNO DE  LOS PERMISOS\n";
    }

    print "tieneODevol\n";
    @tieneODevol = $ret->{SA_Perm}->{tieneODevol} (1,2,3,9,3);
    print "Tiene los siguientes Permisos: \n";
    foreach $m (@tieneODevol) {
        print "$m\n";
    }    

    print "tieneUn\n";
    if ($ret->{SA_Perm}->{tieneUn} (4)){
        print "Tiene el permiso\n";
    }
    else {
        print "No tiene el permiso\n";
    }
-]