Changeset 867952 in git

Timestamp:

Sep 24, 2011, 12:48:33 AM (13 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '98550b669234b32be762076c32b3be2c35188ac4')

Children:

4fc80288a76122a5eefe73be2b02b699ff7caf63

Parents:

6584ccdcf5a6074b97c8e6a8a52e4ee231e2ef5b

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2011-09-24 00:48:33+02:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 16:13:26+01:00

Message:

ADD: cat for teamcity files

File:

• Tst/regress.cmd (modified) (4 diffs)

Tst/regress.cmd

@@ -729 +729 @@
   $total_checks_pass++ unless $exit_status;
 
-  mysystem("mv gmon.out \"gmon.$root.out\"") if (-e "gmon.out");
+  &mysystem("mv gmon.out \"gmon.$root.out\"") if (-e "gmon.out");
 
   testFinished($test_file, $cuser_t + $csystem_t);
@@ -906 +906 @@
 }
 
+sub ViewFile
+{
+  local($f) = $_[0];
+  
+  local($ff) = myGetTCprop($f);
+  local($b) = "$f: " . $ff;
+    
+  blockOpened ($b);
+  &mysystem("cat " . $ff);
+  blockClosed ($b);
+}
+
 
 if( length($teamcity) > 0 )
@@ -912 +924 @@
 
   blockOpened ("init");
+      
   
 #  print ("TEAMCITY_BUILD_PROPERTIES_FILE: $ENV{TEAMCITY_BUILD_PROPERTIES_FILE}" );
   
   tcLog("TEAMCITY_BUILD_PROPERTIES_FILE: $ENV{TEAMCITY_BUILD_PROPERTIES_FILE}");
-  
+
+  if ( length("$ENV{TEAMCITY_BUILD_PROPERTIES_FILE}") > 0 )
+  {
+    print( "teamcity.tests.runRiskGroupTestsFirst: " . myGetTCprop("teamcity.tests.runRiskGroupTestsFirst") . "\n" );
+
+    ViewFile("teamcity.tests.recentlyFailedTests.file");
+    ViewFile("teamcity.build.changedFiles.file");
+    ViewFile("teamcity.build.properties.file");
+    ViewFile("teamcity.configuration.properties.file");
+    ViewFile("teamcity.runner.properties.file");
+  }
+    
+    
   blockClosed ("init");
 }
@@ -1059 +1084 @@
   testSuiteFinished($teamcity);
 
-  blockOpened ("init");
+#  blockOpened ("init");
   
 #  print ("TEAMCITY_BUILD_PROPERTIES_FILE: $ENV{TEAMCITY_BUILD_PROPERTIES_FILE}" );
-  
-  tcLog("TEAMCITY_BUILD_PROPERTIES_FILE: $ENV{TEAMCITY_BUILD_PROPERTIES_FILE}");
-  
-  if ( length("$ENV{TEAMCITY_BUILD_PROPERTIES_FILE}") > 0 )
-  {
-    print( "teamcity.tests.runRiskGroupTestsFirst: " . myGetTCprop("teamcity.tests.runRiskGroupTestsFirst") . "\n" );
-    print( "teamcity.tests.recentlyFailedTests.file: " . myGetTCprop("teamcity.tests.recentlyFailedTests.file") . "\n" );
-    print( "teamcity.build.changedFiles.file: " . myGetTCprop("teamcity.build.changedFiles.file") . "\n" );
-    print( "teamcity.build.properties.file: " . myGetTCprop("teamcity.build.properties.file") . "\n" );
-    print( "teamcity.configuration.properties.file: " . myGetTCprop("teamcity.configuration.properties.file") . "\n" );
-    print( "teamcity.runner.properties.file  : " . myGetTCprop("teamcity.runner.properties.file  ") . "\n" );
-  }
-
-  blockClosed ("init");
+
+#  blockClosed ("init");