=noris.netheads Name

tools


=head1 Ziel

Testen der korrekten Arbeit diverser Tools


=cut


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

use Test::More tests => 5; $| = 1;
use Dbase::Test;
use Dbase::Globals qw(get_kunde);

my $time=time;

use Data::Dumper;
use Dbase::Help qw(Do isodate DoFn);
use Dbase::Globals qw(gen_descr);
use Fehler qw();
use Loader qw(reader);

my $log="/tmp/ttest.$$";

my $prefix = $ENV{'REAL_TEST'} ? "/usr/pop/bin" : "tools";
if(defined $DB::single) {
	sys("perl -d $prefix/extract_networks_from_bgp-table > $log < test/data/bgp-table.de");
} else {
	sys("$prefix/extract_networks_from_bgp-table  > $log < test/data/bgp-table.de");
}

my $a = reader($log);
my $b = reader("test/data/bgp-table.de.networks");

is($a,$b,"korrekter Output");
unlink($log);

sys("make -C tools ../obj/sql_diff");

sys("python obj/sql_diff -S test/data/db2 -D test/data/db1 -q -i -ni > $log; [ \$? = 2 ] ; exit \$?");
$a = reader($log);
$b = reader("test/data/db2m");

$a =~ s/[\n\s]+/ /g;
$b =~ s/[\n\s]+/ /g;
is($a,$b,"korrekter Output");
unlink($log);

## noch nicht spruchreif
#sys("python obj/sql_diff -S test/data/db2m -D test/data/db1 -q -ni > $log");
#$a = reader($log);
#
#$a =~ s/[\n\s]+/ /g;
#is($a,$b,"korrekter Output");
#unlink($log);

