=head1 Name

save_db


=head1 Ziel

Datenbankzustand zwecks Wiederholbarkeit von Test 35 sichern

=cut


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


use Test::More tests => 2; $|=1;
use Dbase::Test qw(okQ);
use Dbase::Help qw();

okQ "select 1",1;
my $db = Dbase::db_handle;
ok(!system("mysqldump --add-drop-table --complete-insert --quick -h'$db->{DATAHOST}' -u'$db->{DATAUSER}' -p'$db->{DATAPASS}' '$db->{DBDATABASE}' > test.dump.sql"));

open(X,">test.dump.sql.current");
close(X);

