Changeset 931 for trunk/libIGCM/libIGCM_card

Timestamp:

08/21/13 13:02:20 (11 years ago)

Author:

sdipsl

Message:

Bugfix with IGCM_sys_Get|GetBuffer? instrumentation
Avoid collision with testing functions

Location:

trunk/libIGCM/libIGCM_card

Files:

• IGCM_card_Test.ksh (modified) (2 diffs)
• libIGCM_card.ksh (modified) (2 diffs)

trunk/libIGCM/libIGCM_card/IGCM_card_Test.ksh

@@ -18 +18 @@
 
 #=================================================
+cd /tmp
+
 libIGCM=`dirname $0`/..
 typeset DEBUG_sys=false
@@ -68 +70 @@
 # function IGCM_card_WriteOption
 
-cp ${libIGCM}/libIGCM_card/TestFile.card /tmp/NewTestFile.card
-IGCM_card_WriteOption /tmp/NewTestFile.card Messages Option2 '"Hello Mercure"'
+cp ${libIGCM}/libIGCM_card/TestFile.card /tmp/NewTestFile.$$.card
+IGCM_card_WriteOption /tmp/NewTestFile.$$.card Messages Option2 '"Hello Mercure"'
 
-IGCM_card_WriteOption /tmp/NewTestFile.card Messages ListVal1 '( 1, 2, 3 )'
+IGCM_card_WriteOption /tmp/NewTestFile.$$.card Messages ListVal1 '( 1, 2, 3 )'
 listname="(Sebastien, Martial, Patrick)"
-IGCM_card_WriteOption /tmp/NewTestFile.card Messages ListVal2 "${listname}"
+IGCM_card_WriteOption /tmp/NewTestFile.$$.card Messages ListVal2 "${listname}"
 
 set -A tableau one, two, three, four
 echo ${tableau[*]}
-IGCM_card_WriteOption /tmp/NewTestFile.card Messages ListVal3 "( ${tableau[*]} )"
+IGCM_card_WriteOption /tmp/NewTestFile.$$.card Messages ListVal3 "( ${tableau[*]} )"
 
-IGCM_card_WriteOption /tmp/NewTestFile.card ColorValues Red 888
+IGCM_card_WriteOption /tmp/NewTestFile.$$.card ColorValues Red 888
 
-diff ${libIGCM}/libIGCM_card/TestFile.card /tmp/NewTestFile.card
-rm -f /tmp/NewTestFile.card /tmp/NewTestFile.card.bak
+diff ${libIGCM}/libIGCM_card/TestFile.card /tmp/NewTestFile.$$.card
+rm -f /tmp/NewTestFile.$$.card /tmp/NewTestFile.$$.card.bak

trunk/libIGCM/libIGCM_card/libIGCM_card.ksh

@@ -311 +311 @@
 
 #---------------------
-    ${libIGCM}/libIGCM_card/IGCM_card_Test.ksh > /tmp/IGCM_card_Test.ref.failed 2>&1
+    ${libIGCM}/libIGCM_card/IGCM_card_Test.ksh > /tmp/IGCM_card_Test.$$.ref.failed 2>&1
     sleep 2
 
-    if diff /tmp/IGCM_card_Test.ref.failed ${libIGCM}/libIGCM_card/IGCM_card_Test.ref > /dev/null 2>&1 ; then 
+    if diff /tmp/IGCM_card_Test.$$.ref.failed ${libIGCM}/libIGCM_card/IGCM_card_Test.ref > /dev/null 2>&1 ; then 
       echo "Check libIGCM_card ...............................................[ OK ]"
-      rm -f /tmp/IGCM_card_Test.ref.failed
+      rm -f /tmp/IGCM_card_Test.$$.ref.failed
     else 
       echo "Check libIGCM_card ...........................................[ FAILED ]"
@@ -324 +324 @@
       echo "           diff IGCM_card_Test.ref.failed ${libIGCM}/libIGCM_card/IGCM_card_Test.ref"
       echo "           Report errors to the author: Patrick.Brockmann@cea.fr"
-      cat /tmp/IGCM_card_Test.ref.failed
+      cat /tmp/IGCM_card_Test.$$.ref.failed
       IGCM_debug_Exit "IGCM_card_Check"
     fi