diff options
| author | mertz | 2002-05-24 13:12:36 +0000 |
|---|---|---|
| committer | mertz | 2002-05-24 13:12:36 +0000 |
| commit | 40b0cb55c9768ca340c3062e1c4322b987e0e05b (patch) | |
| tree | 5a58fe7f7baac2cf0e6016ce42899a316b22c67d /Perl/t | |
| parent | 53799a7189cca927565dd19037f30b9a41b28af2 (diff) | |
| download | tkzinc-40b0cb55c9768ca340c3062e1c4322b987e0e05b.zip tkzinc-40b0cb55c9768ca340c3062e1c4322b987e0e05b.tar.gz tkzinc-40b0cb55c9768ca340c3062e1c4322b987e0e05b.tar.bz2 tkzinc-40b0cb55c9768ca340c3062e1c4322b987e0e05b.tar.xz | |
log aussi le num�ro de version de zinc
Diffstat (limited to 'Perl/t')
| -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 |