Subversion Repositories DevTools

Rev

Rev 6898 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6898 Rev 7219
Line 247... Line 247...
247
    unlink $filename if -e $filename;
247
    unlink $filename if -e $filename;
248
    Error("Output file: Cannot delete $filename: $!") if -e $filename;
248
    Error("Output file: Cannot delete $filename: $!") if -e $filename;
249
    Verbose("Writing output to: $filename");
249
    Verbose("Writing output to: $filename");
250
 
250
 
251
    #
251
    #
252
    #   Change to the test directory
-
 
253
    #       Only if required
-
 
254
    #       Ensure that the specified directory exists
-
 
255
    #
-
 
256
    if (defined $filterData{DIR})
-
 
257
    {
-
 
258
        Verbose("Change directory:", $filterData{DIR});
-
 
259
        Error("Internal: Test directory does not exist: $filterData{DIR}")
-
 
260
            unless (-d $filterData{DIR});
-
 
261
        chdir $filterData{DIR} || Error("Internal: Could not chdir to: $filterData{DIR}");
-
 
262
    }
-
 
263
 
-
 
264
    #
-
 
265
    #   Recover the result code of the unit test run
252
    #   Recover the result code of the unit test run
-
 
253
    #   Do this before changing directory as the paths are relative
266
    #
254
    #
267
    if (defined $filterData{RCFILE}) {
255
    if (defined $filterData{RCFILE}) {
268
        my $rcFile = $filterData{RCFILE};
256
        my $rcFile = $filterData{RCFILE};
269
        Verbose("Result Code File:", $rcFile);
257
        Verbose("Result Code File:", $rcFile);
270
        if (-f $rcFile)
258
        if (-f $rcFile)
Line 276... Line 264...
276
            Verbose("Recover Result Code: ", $filterData{UTFRC});
264
            Verbose("Recover Result Code: ", $filterData{UTFRC});
277
            close $rcFile;
265
            close $rcFile;
278
        } else {
266
        } else {
279
            Error("ResultCode file specified, but not found: $rcFile");
267
            Error("ResultCode file specified, but not found: $rcFile");
280
        }
268
        }
281
    } 
269
    }
-
 
270
    
-
 
271
    #
-
 
272
    #   Change to the test directory
-
 
273
    #       Only if required
-
 
274
    #       Ensure that the specified directory exists
-
 
275
    #
-
 
276
    if (defined $filterData{DIR})
-
 
277
    {
-
 
278
        Verbose("Change directory:", $filterData{DIR});
-
 
279
        Error("Internal: Test directory does not exist: $filterData{DIR}")
-
 
280
            unless (-d $filterData{DIR});
-
 
281
        chdir $filterData{DIR} || Error("Internal: Could not chdir to: $filterData{DIR}");
-
 
282
    }
-
 
283
     
282
    #
284
    #
283
    #   Diagnostics
285
    #   Diagnostics
284
    #
286
    #
285
    if (IsVerbose(1))
287
    if (IsVerbose(1))
286
    {
288
    {
Line 679... Line 681...
679
=head3 The Output Format
681
=head3 The Output Format
680
 
682
 
681
Yet to be defined.
683
Yet to be defined.
682
 
684
 
683
The output format is known to the build system. It should not be 
685
The output format is known to the build system. It should not be 
684
changed without also chnaging it for the consuming tools.
686
changed without also change it for the consuming tools.
685
 
687
 
686
=cut
688
=cut
687
 
689
 
688
 
690
 
689
1;
691
1;