Changeset 36877


Ignore:
Timestamp:
2022-11-02T14:49:33+13:00 (5 weeks ago)
Author:
anupama
Message:

Previous commit renamed gdbdiff.pm to flatdbdiff.pm *and* also committed the updates to diffcol.pl to use the renamed flatdbdiff file/package and its subrouties. This commit contains the updated contents of flatdbdiff.pm (formerly called gdbdiff.pm). The updates consist of slightly renamed subroutines and updtes to where they get internally called.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • other-projects/nightly-tasks/diffcol/trunk/diffcol/flatdbdiff.pm

    r36876 r36877  
    1 package gdbdiff;
     1package flatdbdiff;
    22
    33BEGIN {
     
    1717}
    1818
    19 sub readin_gdb
     19sub readin_flat_db
    2020{
    2121    my ($cmd) = @_;
     
    3434}
    3535
    36 sub read_db
     36sub read_flat_db
    3737{
    3838    # need to sort text output of both test and model col database files, to normalise them for the comparison
     
    4545    }
    4646
    47     my $db_text = readin_gdb($db_cmd);
     47    my $db_text = readin_flat_db($db_cmd);
    4848    return $db_text;
    4949}
     
    6565    close(PIPE);
    6666    }
    67     return &read_db("$db_filename");
     67    return &read_flat_db("$db_filename");
    6868}
    6969
     
    7878}
    7979
    80 sub test_gdb
     80sub test_flat_db
    8181{
    8282    my ($full_modeldb, $full_testdb, $strColName, $test_os, $model_os, $strTestCol, $strModelCol, $debugging) = @_;
     
    8585    my ($dbname, $dirname, $suffix)= &File::Basename::fileparse($full_testdb, "\\.[^\\.]+\$");
    8686   
    87     my $model_text = read_db($full_modeldb);
    88     my $test_text = read_db($full_testdb);
     87    my $model_text = read_flat_db($full_modeldb);
     88    my $test_text = read_flat_db($full_testdb);
    8989
    9090    my $savepath = &getcwd."/../"; # TASK_HOME env var does not exist at this stage, but it's one level up from current directory
Note: See TracChangeset for help on using the changeset viewer.