Group :: Development/Tcl
RPM: expect
Main Changelog Spec Patches Sources Download Gear Bugs and FR Repocop
Patch: 06-pkgindex.patch
Download
Download
Author: Michael A. Cleverly <michael@cleverly.com>, Sergei Golovan <sgolovan@debian.org>
Description:
Adjusted for new soname (Closes: #381052).
Replaced [package require Expect] by direct loading libexpect library in all tests
because package management can't load the library from its build location.
Last-Modified: 2009-11-18
--- a/Makefile.in
+++ b/Makefile.in
@@ -331,7 +331,7 @@
pkgIndex.tcl-hand:
(echo 'if {![package vsatisfies [package provide Tcl] @TCL_VERSION@]} {return}' ; \
echo 'package ifneeded Expect $(PACKAGE_VERSION) \
- [list load [file join $$dir $(PKG_LIB_FILE)]]'\
+ [list load [file join @prefix@ lib libexpect.so.@PACKAGE_VERSION@]]'\
) > pkgIndex.tcl
#========================================================================
--- a/tests/all.tcl
+++ b/tests/all.tcl
@@ -7,7 +7,7 @@
package require tcltest
# do this in a way that is backward compatible for Tcl 8.3
namespace import ::tcltest::test ::tcltest::cleanupTests
-package require Expect
+load [lindex [glob libexpect*.so] 0]
set ::tcltest::testSingleFile false
set ::tcltest::testsDirectory [file dirname [info script]]
--- a/tests/cat.test
+++ b/tests/cat.test
@@ -9,7 +9,7 @@
# do this in a way that is backward compatible for Tcl 8.3
namespace import ::tcltest::test ::tcltest::cleanupTests
}
-package require Expect
+load [lindex [glob libexpect*.so] 0]
#exp_internal -f /dev/ttyp5 0
--- a/tests/expect.test
+++ b/tests/expect.test
@@ -9,7 +9,7 @@
# do this in a way that is backward compatible for Tcl 8.3
namespace import ::tcltest::test ::tcltest::cleanupTests
}
-package require Expect
+load [lindex [glob libexpect*.so] 0]
catch {unset x}
--- a/tests/logfile.test
+++ b/tests/logfile.test
@@ -9,7 +9,7 @@
# do this in a way that is backward compatible for Tcl 8.3
namespace import ::tcltest::test ::tcltest::cleanupTests
}
-package require Expect
+load [lindex [glob libexpect*.so] 0]
test logfile-1.1 {basic logfile} {
set filename /tmp/logfile.[pid]
--- a/tests/pid.test
+++ b/tests/pid.test
@@ -9,7 +9,7 @@
# do this in a way that is backward compatible for Tcl 8.3
namespace import ::tcltest::test ::tcltest::cleanupTests
}
-package require Expect
+load [lindex [glob libexpect*.so] 0]
catch {unset x}
--- a/tests/send.test
+++ b/tests/send.test
@@ -9,7 +9,7 @@
# do this in a way that is backward compatible for Tcl 8.3
namespace import ::tcltest::test ::tcltest::cleanupTests
}
-package require Expect
+load [lindex [glob libexpect*.so] 0]
log_user 0
--- a/tests/spawn.test
+++ b/tests/spawn.test
@@ -9,7 +9,7 @@
# do this in a way that is backward compatible for Tcl 8.3
namespace import ::tcltest::test ::tcltest::cleanupTests
}
-package require Expect
+load [lindex [glob libexpect*.so] 0]
log_user 0
--- a/tests/stty.test
+++ b/tests/stty.test
@@ -9,7 +9,7 @@
# do this in a way that is backward compatible for Tcl 8.3
namespace import ::tcltest::test ::tcltest::cleanupTests
}
-package require Expect
+load [lindex [glob libexpect*.so] 0]
#exp_internal -f /dev/ttyp5 0