view release on metacpan or  search on metacpan

t/cisco.t  view on Meta::CPAN

#!/usr/bin/perl -I. -w

use Cisco::Reconfig;
use Test;
use Carp qw(verbose);
use Scalar::Util qw(weaken);

use strict;

my $debugdump = 0;

#if ($debugdump) {
#	$Cisco::Reconfig::nonext = 1;
#}

BEGIN { plan test => 45 };

sub wok
{
	my ($a, $b) = @_;
	require File::Slurp;
	import File::Slurp;
	write_file('x', $a);
	write_file('y', $b);
	return ok($a,$b);
}

my $config = readconfig(\*DATA);

if ($debugdump) {
	no warnings;
	require FindBin;
	require Data::Dumper;
	require File::Slurp;
	require "$FindBin::Bin/lib/Local/NoWeak.pm";
	File::Slurp::write_file("dumped", join("\n",Data::Dumper::Dump(Local::NoWeak::strong_clone($config))));
	exit(0);
}

ok(defined $config);


# -----------------------------------------------------------------
{

my $x = $config->get('line')->alltext;
my $expected = <<'END';
line con 0
 exec-timeout 0 0
line aux 0
line vty 0 4
 exec-timeout 9000 0
 password upGrade3
 logout-warning 120
 login
 escape-character 3
END
ok($x,$expected, "get line -> alltext");


}
# -----------------------------------------------------------------
{

my $x = $config->get('interface ATM3/0.171')->alltext;
my $expected = <<'END';