r290@brr: dpavlin | 2007-11-26 01:34:51 +0100

 better output

git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@238 836a5e1a-633d-0410-964b-294494ad4392

diff --git a/bin/dump2test.pl b/bin/dump2test.pl
index e1c7498..c8024ea 100755 (executable)
--- a/bin/dump2test.pl
+++ b/bin/dump2test.pl
@@ -71,8 +71,11 @@ warn "dumping new tests into $test_path\n";
 foreach my $name ( keys %$requests ) {
        my $from = $requests->{$name};
        my $to   = "$test_path/$name";
 foreach my $name ( keys %$requests ) {
        my $from = $requests->{$name};
        my $to   = "$test_path/$name";

+       if ( -e $to ) {
+               warn "SKIP $to\n";
+               next;
+       }

        warn "## $from -> $to\n";
        warn "## $from -> $to\n";

-       next if -e $to;

        my $xml = read_file( $from );
        write_file( $to, $xml );
        DumpFile( "$to.yml", xml2state( $xml ) );
        my $xml = read_file( $from );
        write_file( $to, $xml );
        DumpFile( "$to.yml", xml2state( $xml ) );