QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-03 12:21:20 +00:00
Code Issues Releases Wiki Activity

Remove new audio tests to check if CI tests passes

Browse source
This commit is contained in:
Samuel Gomes 2022-09-10 11:31:01 +05:30
parent 1c991cbf11
commit 9eb8767839
4 changed files with 0 additions and 76 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
tests/compile_tests/audio_handle_test/handle_test.bas
View file

@ -1,23 +0,0 @@
Option _Explicit
$Console
$ScreenHide
_Dest _Console
' Try to open a non-existent file
Dim handle As Long
handle = _SndOpen("dummy.flac")
Print handle
If Not handle Then
Print "This failure was expected!"
End If
handle = _SndCopy(handle)
Print handle
If Not handle Then
Print "So was this!"
End If
System

4
tests/compile_tests/audio_handle_test/handle_test.output
View file

@ -1,4 +0,0 @@
0
This failure was expected!
0
So was this!

46
tests/compile_tests/audio_sound_test/sound_test.bas
View file

@ -1,46 +0,0 @@
Option _Explicit
$Console
$ScreenHide
_Dest _Console
Dim As Long i, note, duration
Dim word As String
Dim As Double t, ct, d1, d2
Play "mb"
t = Timer
For i = 1 To 34
Read note, duration, word
Sound note, duration: Print word$;
Next
Print
ct = Timer
If t > ct Then t = t - 86400
d1 = ct - t
Restore
Play "mf"
t = Timer
For i = 1 To 34
Read note, duration, word
Sound note, duration: Print word$;
Next
Print
ct = Timer
If t > ct Then t = t - 86400
d2 = ct - t
If d2 - d1 > 5 Then
Print "Foreground playback always takes longer to complete than background playback."
End If
System
Data 392,8,"My ",659,8,"Bon-",587,8,"nie ",523,8,"lies ",587,8,"O-",523,8,"Ver ",440,8,"the "
Data 392,8,"O-",330,32,"cean ",392,8,"My ",659,8,"Bon-",587,8,"nie ",523,8,"lies "
Data 523,8,"O-",494,8,"ver ",523,8,"the ",587,40,"sea ",392,8,"My ",659,8,"Bon-",587,8,"nie"
Data 523,8," lies ",587,8,"O-",523,8,"ver ",440,8,"the ",392,8,"O-",330,32,"cean ",392,8,"Oh "
Data 440,8,"bring ",587,8,"back ",523,8,"my ",494,8,"Bon-",440,8,"nie ",494,8,"to ",523,32,"me..!"

3
tests/compile_tests/audio_sound_test/sound_test.output
View file

@ -1,3 +0,0 @@
My Bon-nie lies O-Ver the O-cean My Bon-nie lies O-ver the sea My Bon-nie lies O-ver the O-cean Oh bring back my Bon-nie to me..!
My Bon-nie lies O-Ver the O-cean My Bon-nie lies O-ver the sea My Bon-nie lies O-ver the O-cean Oh bring back my Bon-nie to me..!
Foreground playback always takes longer to complete than background playback.