aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Perl/t/test-no-crash.pl4
1 files changed, 3 insertions, 1 deletions
diff --git a/Perl/t/test-no-crash.pl b/Perl/t/test-no-crash.pl
index 602c9c2..beae1bf 100644
--- a/Perl/t/test-no-crash.pl
+++ b/Perl/t/test-no-crash.pl
@@ -41,6 +41,8 @@ if ( open LOG, "no-crash.log" ) {
open LOG,">no-crash.log";
+&log (0, "testing Zinc-perl Version=" . $Tk::Zinc::VERSION . "\n");
+
autoflush LOG 1;
my $mw = MainWindow->new();
@@ -290,7 +292,7 @@ $mw->Button(-text => "Test fields attributes",
### if $level is <= than opt_log (def = 0) then print log on the stdout
### - a loglevel of -100 means an error to be loggued with %%% prefix
### - a loglevel of -10 means an error in the test (data missing?)
-### - a loglevel of 0 means an message to be usually printed (aznd logged in any case)
+### - a loglevel of 0 means an message to be usually printed (and logged in any case)
### - a loglevel greater than 1 is for trace only