=head1 Name

Log


=head1 Ziel

Feststellung, dass beim Test kein UTF8-Fehler geloggt wurde

=cut


package Test::Log9;
use utf8;
use warnings;
use strict; use warnings;
BEGIN { unshift(@INC,($ENV{'POPHOME'}||'@POPHOME@').'/lib')
			unless $ENV{'KUNDE_NO_PERLPATH'};
      }


use Test::More tests => 1; $|=1;
BEGIN { $ENV{'DbLocalCf'}=1; }
use Dbase::Test;

if(-f "/tmp/log_$<") {
	ok(! -f "/tmp/log_$<", "No log file");
	open(LOG,"<","/tmp/log_$<");
	binmode(LOG,":raw");
	binmode(STDERR,":raw");
	print STDERR "# $_" while <LOG>;
	close LOG;
	unlink "/tmp/log_$<";
} else {
	pass "no UTF error log file";
}

