X-Git-Url: http://wagner.pp.ru/gitweb/?a=blobdiff_plain;f=tcl_tests%2Fcalcstat;h=c2a19da7a5a410111031a480838fa6ce7d03aa6b;hb=a42d467935d3ce859e288f3934df2e25073f9ba9;hp=3e59eb60b8ed43db91f5ed87bda9af94e9616e9f;hpb=3b8ddfe2f303b8931842e52bdb5c07c97042f651;p=openssl-gost%2Fengine.git

diff --git a/tcl_tests/calcstat b/tcl_tests/calcstat
index 3e59eb6..c2a19da 100644
--- a/tcl_tests/calcstat
+++ b/tcl_tests/calcstat
@@ -4,7 +4,7 @@ if {$tcl_platform(platform) == "unix"} {
 }
 lappend auto_path [file dirname [info script]] 
 proc rus {string} {
-	return [encoding convertfrom cp1251 [encoding convertto $string]]
+	return $string
 }
 proc compare_order {el1 el2} {
 	global order
@@ -13,7 +13,7 @@ proc compare_order {el1 el2} {
 set statsfile stats
 if {$argc} {set statsfile [lindex $argv 0]}
 set f [open $statsfile]
-fconfigure $f -encoding cp1251
+fconfigure $f -encoding utf-8
 set ordno 0
 while {[gets $f line] >=0} {
 	set script [lindex $line 0]
@@ -34,7 +34,7 @@ proc output {line} {
 
 if {$argc > 1} {
 	set out [open [lindex $argv 1] w]
-	fconfigure $out -encoding cp1251
+	fconfigure $out -encoding utf-8
 }	
 
 output [format "%-12s %-41s%5s %4s %4s %4s %4s"  File "Test name" Total ok fail skip ign]