moved tests in own directory, added test to demonstrate XML::Simple feature

[webpac] / tests / test_isis.pl

#!/usr/bin/perl -w

use strict;
use OpenIsis;
use Data::Dumper;

my @mfns = @ARGV || ( 1 );

my $db = OpenIsis::open( 'LIBRI', '-dbpath', shift @ARGV || '/data/isis_data/bug/LIBRI/' );

#my $row = OpenIsis::read( $db, $mfn, "MHL V205" );
foreach my $mfn (@mfns) {
        print "mfn: $mfn\n";

        my $row = OpenIsis::read( $db, $mfn );

        print Dumper($row);
}