Gentoo Websites Logo
Go to: Gentoo Home Documentation Forums Lists Bugs Planet Store Wiki Get Gentoo!
View | Details | Raw Unified | Return to bug 453606
Collapse All | Expand All

(-)a/runtest (-1 / +1 lines)
Lines 1-5 Link Here
1 
#!/bin/sh
 1 
#!/bin/sh
2 
TCL=tclsh8.5
 2 
TCL=tclsh
3 
which $TCL
 3 
which $TCL
4 
if [ "$?" != "0" ]
 4 
if [ "$?" != "0" ]
5 
then
 5 
then
(-)a/tests/integration/replication-4.tcl (-1 / +1 lines)
Lines 1-5 Link Here
1 
proc start_bg_complex_data {host port db ops} {
 1 
proc start_bg_complex_data {host port db ops} {
2 
    exec tclsh8.5 tests/helpers/bg_complex_data.tcl $host $port $db $ops &
 2 
    exec tclsh tests/helpers/bg_complex_data.tcl $host $port $db $ops &
3 
}
 3 
}
4 
proc stop_bg_complex_data {handle} {
 4 
proc stop_bg_complex_data {handle} {
(-)a/tests/integration/replication.tcl (-1 / +1 lines)
Lines 78-84 start_server {tags {"repl"}} { Link Here
78 
}
 78 
}
79 
proc start_write_load {host port seconds} {
 79 
proc start_write_load {host port seconds} {
80 
    exec tclsh8.5 tests/helpers/gen_write_load.tcl $host $port $seconds &
 80 
    exec tclsh tests/helpers/gen_write_load.tcl $host $port $seconds &
81 
}
 81 
}
82 
proc stop_write_load {handle} {
 82 
proc stop_write_load {handle} {
(-)a/tests/test_helper.tcl (-1 / +3 lines)
Lines 2-7 Link Here
2 
# This softare is released under the BSD License. See the COPYING file for
 2 
# This softare is released under the BSD License. See the COPYING file for
3 
# more information.
 3 
# more information.
4 
package require Tcl 8.5
5 

            

        

          4
          
set tcl_precision 17

          6
          
set tcl_precision 17

        

        

          5
          
source tests/support/redis.tcl

          7
          
source tests/support/redis.tcl

        

        

          6
          
source tests/support/server.tcl

          8
          
source tests/support/server.tcl

        

  

    
      
            Lines 189-195
          proc test_server_main {} {
      
      
        Link Here
      
    
  

        

          189
          
    set start_port [expr {$::port+100}]

          191
          
    set start_port [expr {$::port+100}]

        

        

          190
          
    for {set j 0} {$j < $::numclients} {incr j} {

          192
          
    for {set j 0} {$j < $::numclients} {incr j} {

        

        

          191
          
        set start_port [find_available_port $start_port]

          193
          
        set start_port [find_available_port $start_port]

        

          
            

              192
              
        set p [exec tclsh8.5 [info script] {*}$::argv \


              194
              
        set p [exec tclsh [info script] {*}$::argv \

            

        

          193
          
            --client $port --port $start_port &]

          195
          
            --client $port --port $start_port &]

        

        

          194
          
        lappend ::clients_pids $p

          196
          
        lappend ::clients_pids $p

        

        

          195
          
        incr start_port 10

          197
          
        incr start_port 10

        






  

  Return to bug 453606