diff options
| -rw-r--r-- | Perl/t/test-no-crash.pl | 4 |
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 |