Posted to tcl by GPS at Fri Dec 14 19:26:22 GMT 2007view raw

  1. if {[catch {package require http 2} version]} {
  2. if {[info exists http2]} {
  3. catch {puts "Cannot load http 2.* package"}
  4. return
  5. } else {
  6. catch {puts "Running http 2.* tests in slave interp"}
  7. set interp [interp create http2]
  8. $interp eval [list set http2 "running"]
  9. $interp eval [list set argv $argv]
  10. $interp eval [list source [info script]]
  11. interp delete $interp
  12. return
  13. }
  14. }
  15. set httpthread [testthread create "
  16. socket -server {apply {{chan addr port} { after 1000; testthread wait}} 6666};
  17. testthread wait"]
  18.  
  19. testthread send -async $httpthread {
  20. testthread exit
  21. }
  22.  
  23.  
  24. george@george-desktop:~/tcltk/cvs/HEAD/new/tclbld$ ./tcltest coremeplease.tcl
  25. george@george-desktop:~/tcltk/cvs/HEAD/new/tclbld$ ./tcltest coremeplease.tcl
  26. george@george-desktop:~/tcltk/cvs/HEAD/new/tclbld$ ./tcltest coremeplease.tcl
  27. george@george-desktop:~/tcltk/cvs/HEAD/new/tclbld$ ./tcltest coremeplease.tcl
  28. george@george-desktop:~/tcltk/cvs/HEAD/new/tclbld$ ./tcltest coremeplease.tcl
  29. george@george-desktop:~/tcltk/cvs/HEAD/new/tclbld$ ./tcltest coremeplease.tcl
  30. george@george-desktop:~/tcltk/cvs/HEAD/new/tclbld$ ./tcltest coremeplease.tcl
  31. Error from thread -1220134000
  32. george@george-desktop:~/tcltk/cvs/HEAD/new/tclbld$ ./tcltest coremeplease.tcl
  33. george@george-desktop:~/tcltk/cvs/HEAD/new/tclbld$ ./tcltest coremeplease.tcl
  34. george@george-desktop:~/tcltk/cvs/HEAD/new/tclbld$ ./tcltest coremeplease.tcl
  35. george@george-desktop:~/tcltk/cvs/HEAD/new/tclbld$ ./tcltest coremeplease.tcl
  36. george@george-desktop:~/tcltk/cvs/HEAD/new/tclbld$ ./tcltest coremeplease.tcl
  37. george@george-desktop:~/tcltk/cvs/HEAD/new/tclbld$ ./tcltest coremeplease.tcl
  38. george@george-desktop:~/tcltk/cvs/HEAD/new/tclbld$ ./tcltest coremeplease.tcl
  39. george@george-desktop:~/tcltk/cvs/HEAD/new/tclbld$ ./tcltest coremeplease.tcl
  40. george@george-desktop:~/tcltk/cvs/HEAD/new/tclbld$ ./tcltest coremeplease.tcl
  41. george@george-desktop:~/tcltk/cvs/HEAD/new/tclbld$ ./tcltest coremeplease.tcl
  42. george@george-desktop:~/tcltk/cvs/HEAD/new/tclbld$ ./tcltest coremeplease.tcl
  43. george@george-desktop:~/tcltk/cvs/HEAD/new/tclbld$ ./tcltest coremeplease.tcl
  44. Error from thread -1220318320^[[ASegmentation fault (core dumped)
  45. george@george-desktop:~/tcltk/cvs/HEAD/new/tclbld$ ./tcltest coremeplease.tcl
  46. george@george-desktop:~/tcltk/cvs/HEAD/new/tclbld$
  47.