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>;