From d7e1b857a7e19ce618dbeea8ddf242fcc05190c3 Mon Sep 17 00:00:00 2001 From: dsengupta0628 Date: Tue, 3 Mar 2026 19:37:48 +0000 Subject: [PATCH] remove my copy of helpers and add the commit from jjcherry Signed-off-by: dsengupta0628 --- test/helpers.tcl | 41 ----------------------------------------- 1 file changed, 41 deletions(-) delete mode 100644 test/helpers.tcl diff --git a/test/helpers.tcl b/test/helpers.tcl deleted file mode 100644 index d96fd224..00000000 --- a/test/helpers.tcl +++ /dev/null @@ -1,41 +0,0 @@ -# Helper functions common to multiple regressions. - -set test_dir [file dirname [file normalize [info script]]] -set result_dir [file join $test_dir "results"] - -# puts [exec cat $file] without forking. -proc report_file { file } { - set stream [open $file r] - if { [file extension $file] == ".gz" } { - zlib push gunzip $stream - } - gets $stream line - while { ![eof $stream] } { - puts $line - gets $stream line - } - close $stream -} - -proc report_file_filter { file filter } { - set stream [open $file r] - gets $stream line - while { ![eof $stream] } { - set index [string first $filter $line] - if { $index != -1 } { - set line [string replace $line $index [expr $index + [string length $filter] - 1]] - } - puts $line - gets $stream line - } - close $stream -} - -proc make_result_file { filename } { - variable result_dir - return [file join $result_dir $filename] -} - -proc sort_objects { objects } { - return [sta::sort_by_full_name $objects] -} \ No newline at end of file