Tests: désactiver println dans Affichage.

Author: Grahack

microalg.l

@@ -130,11 +130,12 @@ les appelle.")
                         text (if (num? first) first (get first 'text))
                         a_afficher (if text text (eval first)))
                        (setq *LastStdOut (if a_afficher a_afficher "?"))
-                       (println (ifn a_afficher
-                                     (if (<> *EMUENV "browser")
-                                         " "
-                                         "&nbsp;")
-                                     a_afficher))
+                       (ifn !testing
+                            (println (ifn a_afficher
+                                          (if (<> *EMUENV "browser")
+                                              " "
+                                              "&nbsp;")
+                                          a_afficher)))
                        Rien  # Pas de valeur de retour
                   )
 )

microalg_tests.malg

@@ -1,3 +1,4 @@
+(setq !testing T)
 (let (Goods 0 Bads 0)
     (mapc
         '((BoolExpr)