# correct test cases

diff --git a/tests/bugs/modalg_7/bug30020 b/tests/bugs/modalg_7/bug30020
index f096ce28e7849a07885ab5eff3179412732ab1a9..01610200a758d964cd603a382b3aee8798cd1a6c 100644 (file)
--- a/tests/bugs/modalg_7/bug30020
+++ b/tests/bugs/modalg_7/bug30020
@@ -2,14 +2,14 @@ puts "========"
 puts "0030020: Incorrect bspline visualization"
 puts "========\n"
 
-set F [open pnts w]
+set F [open $imagedir/pnts w]
 puts $F "3 3d"
 puts $F "0 0 0"
 puts $F "2 0 0"
 puts $F "1 0 0"
 close $F
-interpol c pnts
-file delete pnts
+interpol c $imagedir/pnts
+file delete $imagedir/pnts
 
 set out [crvtpoints r c 0.1 1]
 if {[lindex $out 3] != 3} {

diff --git a/tests/bugs/moddata_3/bug25737_2 b/tests/bugs/moddata_3/bug25737_2
index e0d6db6f853e479245aee75e3158c92110e8e9b5..64af409eb3f106e69bc50b930984b22db248f9a6 100755 (executable)
--- a/tests/bugs/moddata_3/bug25737_2
+++ b/tests/bugs/moddata_3/bug25737_2
@@ -16,7 +16,7 @@ donly a_1
 fit
 
 set deflection 1.
-set angular_deflection [dval 0.349/pi*180]
+set angular_deflection 20
 set info [crvtpoints r c ${deflection} ${angular_deflection}]
 
 set str1 "Nb points +: +(\[-0-9.+eE\]+)\n"