Tests: adjusted audio_01, added array_01

- currently "style B" of the array test is failing

tests/framework/language/array_01.bmx

@@ -0,0 +1,18 @@
+Rem
+	This test checks:
+	- if adding to arrays is possible
+End Rem
+SuperStrict
+Framework BRL.StandardIO
+
+Type obj
+End Type
+
+local objArray:obj[]
+
+'style A
+objArray = objArray[..1]
+objArray[objArray.length-1] = new obj
+
+'style B
+objArray :+ [new obj]

tests/framework/mod/brl/audio/audio_01.bmx

@@ -8,33 +8,35 @@ Import BRL.Freeaudioaudio
 Import BRL.Audio
 Import BRL.WavLoader
 Import BRL.OggLoader
-Import BRL.Timer
-'SetAudioDriver("FreeAudio PulseAudio System")
 
-local timer:TTimer = CreateTimer(50)
+local soundFiles:string[] = ["audio_01.wav", "audio_01.ogg"]
+local channel:TChannel
+local sound:TSound
+
 
+'loop through drivers
 For local driver:string = eachin AudioDrivers()
-	print "available driver: "+driver
-Next
+	'default blitzmax modules have "null" driver which segfaults
+	'-> skip it
+	if driver.ToLower() = "null" then continue
 
-local sound:TSound
+	print "Trying Audio Driver: "+driver
+	SetAudioDriver(driver)
 
-'try WAV
-sound = LoadSound("audio_01.wav")
-if sound
-	For local i:int = 0 to 2
-		WaitTimer(timer)
-		PlaySound(sound)
-	Next
-	print "wav sound played"
-endif
-
-'try OGG
-sound = LoadSound("audio_01.ogg")
-if sound
-	For local i:int = 0 to 2
-		WaitTimer(timer)
-		PlaySound(sound)
+	For local f:string = EachIn soundFiles
+		sound = LoadSound(f)
+		if not sound
+			print " loading of ~q"+f+"~q failed."
+			continue
+		endif
+		print "playing: "+f
+
+		channel = PlaySound(sound)
+		While channel.Playing()
+			delay(10)
+		Wend
+		print "stopped: "+f
 	Next
-	print "ogg sound played"
-endif
+Next
+
+