Making a gost provider - Add the ciphers

[openssl-gost/engine.git] / tcl_tests / dgst.try

diff --git a/tcl_tests/dgst.try b/tcl_tests/dgst.try
index 148e1d6154a4a813d61dfbcf44f9509096da7c1f..77d6365a28b7f98f563c170f1bf9939202a7f23b 100644 (file)
--- a/tcl_tests/dgst.try
+++ b/tcl_tests/dgst.try
@@ -1,5 +1,4 @@
 #!/usr/bin/tclsh
-# -*- coding: cp1251 -*-
 lappend auto_path [file dirname [info script]]
 package require ossltest
 cd $::test::dir
@@ -26,7 +25,7 @@ test -createsfiles {dgst.dat dgst0.dat dgst2.dat dgst8.dat dgst63.dat dgst_CF.da
        makeFile dgst.dat [string repeat "Test data to digest.\n" 100] binary
        makeFile dgst0.dat "" binary
        makeFile dgst63.dat "012345678901234567890123456789012345678901234567890123456789012" binary
-       file copy -force ../dgst_CF.dat ../dgst_ex1.dat ../dgst_ex2.dat .
+       file copy -force $::test::src/dgst_CF.dat $::test::src/dgst_ex1.dat $::test::src/dgst_ex2.dat .
 } 0 ""
 
 test "Вычисление дайджеста алгоритмом md_gost12_256" {