#!/usr/bin/perl -wT
# $Id: 03-Reconfig.t,v 1.1 2003/06/06 08:44:28 unimlo Exp $
use strict;
use Test::More tests => 2;
use_ok('Cisco::Reconfig');
my $x = Cisco::Reconfig::stringconfig(<<CONF);
a b c d
a b c e
CONF
my $y = Cisco::Reconfig::stringconfig(<<CONF);
a b c d
a b c e
h i j k
CONF
$x = $x->get('a b c');
$y = $y->get('a b c');
$x =~ s/\n/\|/g;
$y =~ s/\n/\|/g;
ok("$x" eq "$y","The get function of Cisco::Reconfig does strange! A newer version should fix this!");