11" Tests for the sound feature
22
3+ source shared.vim
4+
35if ! has (' sound' )
46 throw ' Skipped: sound feature not available'
57endif
@@ -13,15 +15,15 @@ func Test_play_event()
1315 if has (' win32' )
1416 throw ' Skipped: Playing event with callback is not supported on Windows'
1517 endif
18+ let g: id = 0
1619 let id = ' bell' - >sound_playevent (' PlayCallback' )
1720 if id == 0
1821 throw ' Skipped: bell event not available'
1922 endif
2023 " Stop it quickly, avoid annoying the user.
2124 sleep 20 m
2225 eval id- >sound_stop ()
23- sleep 30 m
24- call assert_equal (id, g: id )
26+ call WaitForAssert ({- > assert_equal (id, g: id )})
2527 call assert_equal (1 , g: result ) " sound was aborted
2628endfunc
2729
@@ -37,17 +39,15 @@ func Test_play_silent()
3739 " play until the end
3840 let id2 = fname- >sound_playfile (' PlayCallback' )
3941 call assert_true (id2 > 0 )
40- sleep 500 m
41- call assert_equal (id2, g: id )
42+ call WaitForAssert ({- > assert_equal (id2, g: id )})
4243 call assert_equal (0 , g: result )
4344
4445 let id2 = sound_playfile (fname, ' PlayCallback' )
4546 call assert_true (id2 > 0 )
4647 sleep 20 m
4748 call sound_clear ()
48- sleep 30 m
49- call assert_equal (id2, g: id )
50- call assert_equal (1 , g: result )
49+ call WaitForAssert ({- > assert_equal (id2, g: id )})
50+ call assert_equal (1 , g: result ) " sound was aborted
5151
5252 " recursive use was causing a crash
5353 func PlayAgain (id, fname)
@@ -59,8 +59,7 @@ func Test_play_silent()
5959 call assert_true (id3 > 0 )
6060 sleep 50 m
6161 call sound_clear ()
62- sleep 30 m
63- call assert_true (g: id_again > 0 )
62+ call WaitForAssert ({- > assert_true (g: id > 0 )})
6463endfunc
6564
6665" vim: shiftwidth = 2 sts = 2 expandtab
0 commit comments