Test : : Dossier : : Trouvaille : : La règle est un module de Perl pour vérifier des dossiers et des répertoires avec le dossier : : Trouvaille : : Règle.

SYNTHÈSE

test d'utilisation : : Dossier : : Trouvaille : : Règle ;

# vérification que tous les dossiers dans $dir ont des noms sensibles
mon $rule = dossier : : Trouvaille : : Règle
- >file
- >relative
- >not_name (qr/^ [W] {1.8}. [a-z] {3.4} $) ;
match_rule_no_result ($rule, $dir, dossier nomme normalement) ;

# la vérification que tout notre Perl scripts ont l'utilisation stricte !
mon $rule = dossier : : Trouvaille : : Règle
- >file
- >relative
- >name (@perl_ext)
- >not_grep (qr/^s*uses+strict ; /m, sous-marin {1}) ;
match_rule_no_result ($rule, $dir, emploient l'usage strict) ;

# avec de l'aide du dossier : : Trouvaille : : Règle : : MMagic
# vérification qu'il y a moins de 10 images dans $dir
# avec une taille > un 1Mo
mon $rule = dossier : : Trouvaille : : Règle
- >file
- >relative
- >magic (image/*)
- >size (>1Mo) ;
match_rule_nb_result ($rule, $dir, <10, peu de grandes images) ;
# nous pouvons réutiliser notre F : F : R d'objectif
match_rule_nb_result ($rule, $another_dir, >100, beaucoup de grandes images) ;

# vérification le résultat exact d'une règle
mon $dirs = [qw (tmp de caractéristiques de bibliothèque d'âme)];
mon $rule = dossier : : Trouvaille : : Règle
- >directory
- >mindepth (1)
- >maxdepth (1)
- >relative ;
match_rule_array ($rule, $dir, $dirs, ok de structure de répertoire));