Testing - Update file handling outside catch block #263

diff --git a/tests/bugs/caf/bug27667 b/tests/bugs/caf/bug27667
index 49ff111e46e90894cc51bf22c40ae99d25d3d5f3..9aa2151b952e117ff51dc703da2e667d18b5652e 100644 (file)
--- a/tests/bugs/caf/bug27667
+++ b/tests/bugs/caf/bug27667
@@ -9,4 +9,6 @@ puts ""
 # OCAF binary persistence hangs on reading truncated CBF file
 #######################################################################################
 
-catch { Open [locate_data_file bug27667_broken_cbf.cbf] D }
+set filename [locate_data_file bug27667_broken_cbf.cbf]
+
+catch { Open $filename D }