diff options
Diffstat (limited to 'test-subject/assets.scm')
-rw-r--r-- | test-subject/assets.scm | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/test-subject/assets.scm b/test-subject/assets.scm index 68d3101..e3604a5 100644 --- a/test-subject/assets.scm +++ b/test-subject/assets.scm @@ -25,7 +25,10 @@ key-press-sound device-sound gameplay-music - credits-music)) + credits-music + play-click-sound + play-key-press-sound + play-device-sound)) (define (scope-datadir file-name) (let ((prefix (or (getenv "TEST_SUBJECT_DATADIR") (getcwd)))) @@ -54,3 +57,12 @@ (define-asset device-sound (load-audio (scope-datadir "assets/sounds/switch38.wav"))) (define-asset gameplay-music (load-audio (scope-datadir "assets/sounds/ambientmain_0.ogg") #:mode 'stream)) (define-asset credits-music (load-audio (scope-datadir "assets/sounds/end-theme.mp3") #:mode 'stream)) + +(define (play-click-sound) + (audio-play (asset-ref click-sound))) + +(define (play-key-press-sound) + (audio-play (asset-ref key-press-sound))) + +(define (play-device-sound) + (audio-play (asset-ref device-sound))) |