diff options
Diffstat (limited to 'src/lib/kadm5/unit-test/config/unix.exp')
| -rw-r--r-- | src/lib/kadm5/unit-test/config/unix.exp | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/lib/kadm5/unit-test/config/unix.exp b/src/lib/kadm5/unit-test/config/unix.exp index 2aab9e4..0472789 100644 --- a/src/lib/kadm5/unit-test/config/unix.exp +++ b/src/lib/kadm5/unit-test/config/unix.exp @@ -58,6 +58,14 @@ proc api_start {} { if {! [info exists env(TCLUTIL)]} { error "TCLUTIL environment variable isn't set" } + # tcl 8.4 for some reason screws up autodetection of output + # EOL translation. Work around it for now. + send "if { \[info commands fconfigure\] ne \"\" } { fconfigure stdout -translation lf }\n" + expect { + -re "$prompt$" {} + eof { error "EOF starting API" } + timeout { error "Timeout starting API" } + } send "source $env(TCLUTIL)\n" expect { -re "$prompt$" {} |