690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
|
}
namespace eval ::t {
vwait ::t::v
}
} {}
test event-12.1 {Tcl_UpdateCmd procedure} {
list [catch {update a b} msg] $msg
} {1 {wrong # args: should be "update ?option?"}}
} {1 {bad option "bogus": must be idletasks or noidletasks}}
test event-12.3 {Tcl_UpdateCmd procedure} {
foreach i [after info] {
after cancel $i
}
after 500 {set x after}
after idle {set y after}
after idle {set z "after, y = $y"}
|
<
<
<
|
|
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
|
}
namespace eval ::t {
vwait ::t::v
}
} {}
test event-12.2 {Tcl_UpdateCmd procedure} {
list [catch {update bogus} msg] $msg
} {1 {bad option "bogus": must be idletasks, -nowait, -wait, -idle, -noidle, -timer, -notimer, -file, -nofile, -window, -nowindow, -async, or -noasync}}
test event-12.3 {Tcl_UpdateCmd procedure} {
foreach i [after info] {
after cancel $i
}
after 500 {set x after}
after idle {set y after}
after idle {set z "after, y = $y"}
|
725
726
727
728
729
730
731
732
733
734
735
736
737
738
|
set y before
set z before
after 300
update
list $x $y $z
} {x-done before z-done}
test event-13.1 {Tcl_WaitForFile procedure, readable} {testfilehandler} {
foreach i [after info] {
after cancel $i
}
after 100 set x timeout
testfilehandler close
testfilehandler create 1 off off
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
|
set y before
set z before
after 300
update
list $x $y $z
} {x-done before z-done}
test event-12.5 {update -idle, update -noidle} {
foreach i [after info] {
after cancel $i
}
set x {}
after idle {lappend x idle}
update -noidle
after 0 {lappend x 0}
update -noidle
after 50 {lappend x 1}
update -noidle
lappend x 2
update -idle
lappend x 3
after idle {lappend x idle}
after 0 {lappend x 4}
after 0 {lappend x 5}
update -idle
lappend x 6
update
lappend x res:[vwait x 500]
set x
} {0 2 idle 3 idle 6 4 5 1 res:1}
test event-12.6 {update -timer, update -notimer} {
foreach i [after info] {
after cancel $i
}
set x {}
after idle {lappend x idle.0}
update -timer
after 0 {lappend x 0a}
update -notimer
after idle {
lappend x idle.1a;
after 0 {lappend x 0b};
after idle {lappend x idle.1b}
}
after 50 {lappend x 1; after idle {lappend x idle.2}}
update -timer
lappend x 2
update -timer -idle
lappend x 3
after idle {lappend x idle.3}
after 0 {lappend x 4}
after 0 {lappend x 5}
update -timer -idle
lappend x 6
update
lappend x res:[vwait x 500]
update -noidle
lappend x 7
update
set x
} {idle.0 0a 2 idle.1a 0b idle.1b 3 4 5 idle.3 6 1 res:1 7 idle.2}
test event-13.1 {Tcl_WaitForFile procedure, readable} {testfilehandler} {
foreach i [after info] {
after cancel $i
}
after 100 set x timeout
testfilehandler close
testfilehandler create 1 off off
|