|
|
# Checks entire madrec library for memory problems using valgrind
|
|
|
#
|
|
|
# $Id: runMadrecDiagnostics.valgrind 3304 2011-01-17 15:25:59Z brideout $
|
|
|
|
|
|
# Executes a series of madrec test programs.
|
|
|
|
|
|
# Get the name of the madrigal file
|
|
|
if {$argc != 1} {
|
|
|
# Get the name of the madrigal file from the environment
|
|
|
set madfile $env(MADROOT)/experiments/1998/mlh/20jan98/mil980120g.002
|
|
|
} else {
|
|
|
# The madrigal file is the first argument of testMadrec
|
|
|
set madfile [lindex $argv 0]
|
|
|
}
|
|
|
|
|
|
set madin1 "madin1"
|
|
|
exec translateCedarFile $madfile $madin1 0
|
|
|
set madin "madin"
|
|
|
set madout "madout"
|
|
|
|
|
|
set fmaddataF77 "../testF77/tmaddataF77"
|
|
|
set fmaddataF77out "../testF77/tmaddataF77.out"
|
|
|
set fmaddataF77rock "../testF77/tmaddataF77.out.rock"
|
|
|
|
|
|
set fmadrecF77 "../testF77/tmadrecF77"
|
|
|
set fmadrecF77out "../testF77/tmadrecF77.out"
|
|
|
set fmadrecF77rock "../testF77/tmadrecF77.out.rock"
|
|
|
|
|
|
puts "Many of these tests make a series of transformations on an input"
|
|
|
puts "file, producing two files, separated by a series of"
|
|
|
puts "transformations, which should be identical. compareFiles is"
|
|
|
puts "called to verify this. If any problems occur, the tests should"
|
|
|
puts "be run individually to get additional information on the"
|
|
|
puts "problem."
|
|
|
|
|
|
###
|
|
|
|
|
|
puts "Running testMadrec"
|
|
|
exec echo "Running testMadrec" > results.txt
|
|
|
exec valgrind --tool=memcheck testMadrec > testMadrec.out 2>> results.txt
|
|
|
|
|
|
puts " testing Madrigal format"
|
|
|
exec echo " testing Madrigal format" >> results.txt
|
|
|
exec echo " testing Madrigal format" >> results.txt
|
|
|
exec valgrind --tool=memcheck testMadrec $madin1 > testMadrec.out.sav 2>> results.txt
|
|
|
exec valgrind --tool=memcheck translateCedarFile $madin1 $madin 0 2>> results.txt
|
|
|
exec valgrind --tool=memcheck testMadrec $madin > testMadrec.out 2>> results.txt
|
|
|
|
|
|
puts " testing blocked binary format"
|
|
|
exec echo " testing blocked binary format" >> results.txt
|
|
|
exec valgrind --tool=memcheck translateCedarFile $madin1 $madin 1 2>> results.txt
|
|
|
exec valgrind --tool=memcheck translateCedarFile $madin1 $madin 1 2>> results.txt
|
|
|
exec valgrind --tool=memcheck testMadrec $madin > testMadrec.out 2>> results.txt
|
|
|
|
|
|
puts " testing Cbf format"
|
|
|
exec echo " testing Cbf format" >> results.txt
|
|
|
exec valgrind --tool=memcheck translateCedarFile $madin1 $madin 2 2>> results.txt
|
|
|
exec valgrind --tool=memcheck translateCedarFile $madin1 $madin 1 2>> results.txt
|
|
|
exec valgrind --tool=memcheck testMadrec $madin > testMadrec.out 2>> results.txt
|
|
|
|
|
|
puts " testing unblocked binary format"
|
|
|
exec echo " testing unblocked binary format" >> results.txt
|
|
|
exec valgrind --tool=memcheck translateCedarFile $madin1 $madin 3 2>> results.txt
|
|
|
exec valgrind --tool=memcheck translateCedarFile $madin1 $madin 1 2>> results.txt
|
|
|
exec valgrind --tool=memcheck testMadrec $madin > testMadrec.out 2>> results.txt
|
|
|
|
|
|
puts " testing ascii format"
|
|
|
exec echo " testing ascii format" >> results.txt
|
|
|
exec valgrind --tool=memcheck translateCedarFile $madin1 $madin 4 2>> results.txt
|
|
|
exec valgrind --tool=memcheck translateCedarFile $madin1 $madin 1 2>> results.txt
|
|
|
exec valgrind --tool=memcheck testMadrec $madin > testMadrec.out 2>> results.txt
|
|
|
|
|
|
puts "Running testCedarIO"
|
|
|
exec echo "Running testCedarIO" >> results.txt
|
|
|
exec rm -f file1
|
|
|
exec rm -f file11
|
|
|
exec valgrind --tool=memcheck testCedarIO $madin1 2>> results.txt
|
|
|
|
|
|
###
|
|
|
|
|
|
puts "Running testCedarIOBoundaries"
|
|
|
exec echo "Running testCedarIOBoundaries" >> results.txt
|
|
|
puts [exec valgrind --tool=memcheck testCedarIOBoundaries $madin1 5 5 2>> results.txt]
|
|
|
|
|
|
###
|
|
|
|
|
|
puts "Running testCedarMemIO"
|
|
|
exec echo "Running testCedarMemIO" >> results.txt
|
|
|
exec rm -f file1
|
|
|
exec rm -f file2
|
|
|
exec valgrind --tool=memcheck testCedarMemIO 2>> results.txt
|
|
|
|
|
|
###
|
|
|
|
|
|
puts "Running testGeometry"
|
|
|
exec echo "Running testGeometry" >> results.txt
|
|
|
|
|
|
exec rm -f testGeometry.out
|
|
|
exec valgrind --tool=memcheck testGeometry > testGeometry.out 2>> results.txt
|
|
|
|
|
|
###
|
|
|
|
|
|
puts "Running testMetadata - "
|
|
|
exec echo "Running testMetadata - " >> results.txt
|
|
|
puts " will possibly fail since prints out madroot at one point; may "
|
|
|
puts " also possibly fail if new derivable parameters are added. Do "
|
|
|
puts " a manual diff to see if failure is due to any other reason "
|
|
|
|
|
|
exec rm -f testMetadata.out
|
|
|
exec valgrind --tool=memcheck testMetadata > testMetadata.out 2>> results.txt
|
|
|
|
|
|
###
|
|
|
|
|
|
puts "Running testMaddata"
|
|
|
exec echo "Running testMaddata" >> results.txt
|
|
|
|
|
|
exec rm -f testMaddata.out
|
|
|
exec valgrind --tool=memcheck testMaddata > testMaddata.out 2>> results.txt
|
|
|
|
|
|
###
|
|
|
|
|
|
puts "Running testParmArray"
|
|
|
exec echo "Running testParmArray" >> results.txt
|
|
|
|
|
|
exec rm -f testParmArray.out
|
|
|
exec valgrind --tool=memcheck testParmArray > testParmArray.out 2>> results.txt
|
|
|
|
|
|
###
|
|
|
|
|
|
puts "Running testMadrecSequentialFileIO"
|
|
|
exec echo "Running testMadrecSequentialFileIO" >> results.txt
|
|
|
|
|
|
puts " testing Madrigal format"
|
|
|
exec echo " testing Madrigal format" >> results.txt
|
|
|
exec rm -f $madin
|
|
|
exec valgrind --tool=memcheck testMadrecSequentialFileIO $madin1 $madin 0 2>> results.txt
|
|
|
|
|
|
puts " testing blocked binary format"
|
|
|
exec echo " testing blocked binary format" >> results.txt
|
|
|
exec rm -f $madout
|
|
|
exec valgrind --tool=memcheck testMadrecSequentialFileIO $madin $madout 1 2>> results.txt
|
|
|
exec valgrind --tool=memcheck testMadrecSequentialFileIO $madout $madin 0 2>> results.txt
|
|
|
|
|
|
puts " testing Cbf format"
|
|
|
exec echo " testing Cbf format" >> results.txt
|
|
|
exec rm -f $madout
|
|
|
exec valgrind --tool=memcheck testMadrecSequentialFileIO $madin $madout 2 2>> results.txt
|
|
|
exec valgrind --tool=memcheck testMadrecSequentialFileIO $madout $madin 0 2>> results.txt
|
|
|
|
|
|
puts " testing unblocked binary format"
|
|
|
exec echo " testing unblocked binary format" >> results.txt
|
|
|
exec rm -f $madout
|
|
|
exec valgrind --tool=memcheck testMadrecSequentialFileIO $madin $madout 3 2>> results.txt
|
|
|
exec valgrind --tool=memcheck testMadrecSequentialFileIO $madout $madin 0 2>> results.txt
|
|
|
|
|
|
puts " testing ascii format"
|
|
|
exec echo " testing ascii format" >> results.txt
|
|
|
exec rm -f $madout
|
|
|
exec valgrind --tool=memcheck testMadrecSequentialFileIO $madin $madout 4 2>> results.txt
|
|
|
exec valgrind --tool=memcheck testMadrecSequentialFileIO $madout $madin 0 2>> results.txt
|
|
|
|
|
|
###
|
|
|
|
|
|
puts "Running testMadrecRandomFileIO"
|
|
|
exec echo "Running testMadrecRandomFileIO" >> results.txt
|
|
|
|
|
|
puts " testing Madrigal format"
|
|
|
exec echo " testing Madrigal format" >> results.txt
|
|
|
exec rm -f $madout
|
|
|
exec valgrind --tool=memcheck translateCedarFile $madin1 $madin 0 2>> results.txt
|
|
|
puts [exec valgrind --tool=memcheck testMadrecRandomFileIO $madin $madout 0 0 2>> results.txt]
|
|
|
|
|
|
puts " testing blocked binary format"
|
|
|
exec echo " testing blocked binary format" >> results.txt
|
|
|
exec rm -f $madout
|
|
|
exec valgrind --tool=memcheck translateCedarFile $madin1 $madin 1 2>> results.txt
|
|
|
puts [exec valgrind --tool=memcheck testMadrecRandomFileIO $madin $madout 0 0 2>> results.txt]
|
|
|
|
|
|
puts " testing Cbf format (slow - this is emulated)"
|
|
|
exec echo " testing Cbf format (slow - this is emulated)" >> results.txt
|
|
|
exec rm -f $madout
|
|
|
exec valgrind --tool=memcheck translateCedarFile $madin1 $madin 2 2>> results.txt
|
|
|
puts [exec valgrind --tool=memcheck testMadrecRandomFileIO $madin $madout 0 0 2>> results.txt]
|
|
|
|
|
|
puts " testing unblocked binary format"
|
|
|
exec echo " testing unblocked binary format" >> results.txt
|
|
|
exec rm -f $madout
|
|
|
exec valgrind --tool=memcheck translateCedarFile $madin1 $madin 3 2>> results.txt
|
|
|
puts [exec valgrind --tool=memcheck testMadrecRandomFileIO $madin $madout 0 0 2>> results.txt]
|
|
|
|
|
|
puts " testing ascii format"
|
|
|
exec echo " testing ascii format" >> results.txt
|
|
|
exec rm -f $madout
|
|
|
exec valgrind --tool=memcheck translateCedarFile $madin1 $madin 4 2>> results.txt
|
|
|
puts [exec valgrind --tool=memcheck testMadrecRandomFileIO $madin $madout 0 0 2>> results.txt]
|
|
|
|
|
|
puts "Running test of all derivable parameters"
|
|
|
exec echo "Running test of all derivable parameters" >> results.txt
|
|
|
exec valgrind --tool=memcheck testDerived > testDerived.out 2>> results.txt
|
|
|
|
|
|
###
|
|
|
|
|
|
|
|
|
puts "Running test of Fortran interface to C API"
|
|
|
exec echo "Running test of Fortran interface to C API" >> results.txt
|
|
|
|
|
|
puts " testing Fortran interface to Maddata module"
|
|
|
exec echo " testing Fortran interface to Maddata module" >> results.txt
|
|
|
exec valgrind --tool=memcheck $fmaddataF77 > $fmaddataF77out 2>> results.txt
|
|
|
|
|
|
puts " testing Fortran interface to Madrec module"
|
|
|
exec echo " testing Fortran interface to Madrec module" >> results.txt
|
|
|
exec valgrind --tool=memcheck $fmadrecF77 > $fmadrecF77out 2>> results.txt
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
exit
|
|
|
|
|
|
|
|
|
|
