Tests unitaires en perl

Le 31/07/2012

Je ne parlerais pas du modèle classique d’organisation du code en Perl :

• toute la logique dans un module
• un ou des scripts qui ne font qu’utiliser le module
• les tests qui font eux aussi appel au module

Ce qui implique d’avoir au moins 3 fichiers différents …

Dans mon cas, j’ai un simple script perl que je souhaite écrire en TDD.

mon_script.pl

#!/usr/bin/perl -w
use strict;
use warning;

sub run {
  return "OK";
}

run() unless caller();
1;

mon_script.t

#Tdd #Perl