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;