Changeset 29495 for other-projects/nightly-tasks/diffcol/trunk/diffcol/gdbdiff.pm

Timestamp:

2014-11-28T21:01:27+13:00 (9 years ago)

Author:

ak19

Message:

Related to previous commit 29494 accidentally committed under sjs49 and which was prematurely committed. That commit and this one adds a debug flag to the run_test action of the diffcol task, that will store the intermediate debug files in the top level diffcol folder for inspection.

File:

• other-projects/nightly-tasks/diffcol/trunk/diffcol/gdbdiff.pm (modified) (3 diffs)

other-projects/nightly-tasks/diffcol/trunk/diffcol/gdbdiff.pm

@@ -73 +73 @@
 sub test_gdb
 {
-    my ($full_modeldb, $full_testdb, $strColName, $test_os, $model_os, $strTestCol, $strModelCol) = @_;
+    my ($full_modeldb, $full_testdb, $strColName, $test_os, $model_os, $strTestCol, $strModelCol, $debugging) = @_;
 
    # print "Now is testing database\n";
@@ -81 +81 @@
     my $test_text = read_db($full_testdb);
 
-#   my $savepath = &getcwd."/../"; # TASK_HOME env var does not exist at this stage, but it's one level up from current directory
-#   print_string_to_file($test_text, $savepath.$dbname."_test.out1");   
-#   print_string_to_file($model_text, $savepath.$dbname."_model.out1");
+    my $savepath = &getcwd."/../"; # TASK_HOME env var does not exist at this stage, but it's one level up from current directory
+    if($debugging) {
+    print_string_to_file($test_text, $savepath.$dbname."_test.out1");   
+    print_string_to_file($model_text, $savepath.$dbname."_model.out1");
+    }
 
     # filter out the fields that can be ignored in the two database files
@@ -270 +272 @@
     }   
 
-    # now can go back to using $model_text and $test_text
-#   print_string_to_file($test_text, $savepath.$dbname."_test.out");    
-#   print_string_to_file($model_text, $savepath.$dbname."_model.out");
+    # now can go back to using $model_text and $test_text
+
+    if($debugging) {
+    print_string_to_file($test_text, $savepath.$dbname."_test.out");    
+    print_string_to_file($model_text, $savepath.$dbname."_model.out");
+    }
     
     my $report_type = "OldStyle"; # Can not change this type.