Subversion Repositories DevTools

Rev

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

Rev 5035 Rev 5387
Line 61... Line 61...
61
#       OUTFILE         - Abs Path to suggested output file
61
#       OUTFILE         - Abs Path to suggested output file
62
#       PKGDIR          - Abs Path to Packaging directory
62
#       PKGDIR          - Abs Path to Packaging directory
63
#       ROOT            - Abs Path to Root of the build
63
#       ROOT            - Abs Path to Root of the build
64
#       TARGET          - Current make target
64
#       TARGET          - Current make target
65
#       TYPE            - Built type P or D
65
#       TYPE            - Built type P or D
66
#       UFTUID          - Unique Test Identifier
66
#       UTFUID          - Unique Test Identifier
67
#       UTFNAME         - Test Name
67
#       UTFNAME         - Test Name
68
#       UTFRC           - Result Code from Unit Test run
68
#       UTFRC           - Result Code from Unit Test run
69
#
69
#
70
our %filterData;
70
our %filterData;
71
 
71
 
Line 209... Line 209...
209
    #   Add in known values from the environment
209
    #   Add in known values from the environment
210
    #
210
    #
211
    $filterData{TYPE} = $ENV{'GBE_MAKE_TYPE'};
211
    $filterData{TYPE} = $ENV{'GBE_MAKE_TYPE'};
212
    Error("Internal: EnvVar 'GBE_MAKE_TYPE' not specified") unless $filterData{TYPE};
212
    Error("Internal: EnvVar 'GBE_MAKE_TYPE' not specified") unless $filterData{TYPE};
213
 
213
 
214
    $filterData{UFTUID} = $ENV{'GBE_UTFUID'};
214
    $filterData{UTFUID} = $ENV{'GBE_UTFUID'};
215
    Error("Internal: EnvVar 'GBE_UTFUID' not specified") unless $filterData{UFTUID};
215
    Error("Internal: EnvVar 'GBE_UTFUID' not specified") unless $filterData{UTFUID};
216
 
216
 
217
    $filterData{UTFNAME} = $ENV{'GBE_UTFNAME'};
217
    $filterData{UTFNAME} = $ENV{'GBE_UTFNAME'};
218
    Error("Internal: EnvVar 'GBE_UTFNAME' not specified") unless $filterData{UTFNAME};
218
    Error("Internal: EnvVar 'GBE_UTFNAME' not specified") unless $filterData{UTFNAME};
219
 
219
 
220
    $filterData{OUTFILE} = $ENV{'GBE_UTFFILE'};
220
    $filterData{OUTFILE} = $ENV{'GBE_UTFFILE'};
Line 256... Line 256...
256
    }
256
    }
257
 
257
 
258
    #
258
    #
259
    #   Recover the result code of the unit test run
259
    #   Recover the result code of the unit test run
260
    #
260
    #
261
    my $rcFile = join ('.', 'utf', $filterData{UFTUID}, 'rc');
261
    my $rcFile = join ('.', 'utf', $filterData{UTFUID}, 'rc');
262
    Verbose("Result Code File:", $rcFile);
262
    Verbose("Result Code File:", $rcFile);
263
    if (-f $rcFile)
263
    if (-f $rcFile)
264
    {
264
    {
265
        open( my $rcFile, '<', $rcFile) || Error ("Cannot open file : $!");
265
        open( my $rcFile, '<', $rcFile) || Error ("Cannot open file : $!");
266
        $filterData{UTFRC} = <$rcFile>;
266
        $filterData{UTFRC} = <$rcFile>;