#============================================ # Fichier : equationTest.pl # Role : Tests unitaires du module equation.pm #============================================ use Test; # Nombre de tests planifiés BEGIN { plan tests => 6 } use equation ; print "# racine(1,2,3) == undef\n"; ok(equation::racine(1,2,3),undef); print "# racine(1,4,4) == (x1,x1)\n"; my($x1,$x2) = equation::racine(1,4,4) ; ok($x1,$x2); print "# x1^2+4x1+4 == 0\n"; ok($x1*$x1+4*$x1+4,0); ...