42 lines
1.1 KiB
Elixir
42 lines
1.1 KiB
Elixir
defmodule MIDIPlayerTest do
|
|
use ExUnit.Case
|
|
doctest MIDIPlayer
|
|
|
|
alias MIDIPlayer, as: Player
|
|
|
|
setup do
|
|
{:ok, _pid} = Player.start_link()
|
|
:ok
|
|
end
|
|
|
|
setup_all do
|
|
events = Enum.map(1..4, &MIDIPlayer.Event.Note.new(9, 51, &1 * 500, (&1 + 1) * 500, 127))
|
|
duration = 2000
|
|
[events: events, duration: duration]
|
|
end
|
|
|
|
test "play", %{events: events, duration: duration} do
|
|
assert :ok = Player.generate_schedule(events, duration)
|
|
assert :ok = Player.play()
|
|
Process.sleep(2500)
|
|
end
|
|
|
|
test "pause & resume", %{events: events, duration: duration} do
|
|
Player.generate_schedule(events, duration)
|
|
Player.play()
|
|
Process.sleep(1100)
|
|
assert :ok = Player.pause()
|
|
Process.sleep(500)
|
|
assert :ok = Player.resume()
|
|
Process.sleep(1400)
|
|
end
|
|
|
|
test "pause & resume edge cases", %{events: events, duration: duration} do
|
|
Player.generate_schedule(events, duration)
|
|
assert {:error, :not_started} = Player.pause()
|
|
assert {:error, :not_paused} = Player.resume()
|
|
Player.play()
|
|
Player.pause()
|
|
assert {:error, :already_paused} = Player.pause()
|
|
end
|
|
end
|