def test_hex_only():
in_str = """\
%adsr -1,-1,-1,1f
%exp 1f
%gain,exp,1f
%adsr -1,-1,-1,$1f
%exp $1f
%gain,exp,$1f
"""
p = mmkparser.MMKParser(in_str, tuning)
outstr = p.parse()
assert (outstr.lower() == """\
$ed $7f $ff
$ed $7f $ff
$fa $01 $bf
$ed $7f $ff
$ed $7f $ff
$fa $01 $bf
""")
for err_str in [
"%adsr -1,-1,-1,10",
"%exp 10",
"%gain,exp,10",
]:
p = mmkparser.MMKParser(err_str, tuning)
with pytest.raises(mmkparser.MMKError):
p.parse()
def test_note_release():
in_str = """;
%notelen on
c1 ~/2c1 c1
l1
c ~/2c c
c2 ~/2c2 c2
~~/2 c1 c1 ~~0 c1
; Staccato.
.=5 c1 c1
..=5 c1 c1
; Staccato .0 disables note release.
..0 c1
"""
p = mmkparser.MMKParser(in_str, tuning)
outstr = p.parse()
assert (outstr == """;
c4 c8r8 c4
l4
c c8r8 c
c2 c=72r8 c2
c8r8 c8r8 c4
; Staccato.
c=5r=43 c4
c=5r=43 c=5r=43
; Staccato .0 disables note release.
c4
""")
def test_instrument_names():
# Do not place %tune before %instr, it breaks named instruments.
in_str = """\
#instruments
{
%instr %tune "test.brr" %adsr -1,-1,full,0
%instr %tune test2="test.brr" %adsr -1,-1,full,0
%instr %tune test3 = "test.brr" %adsr -1,-1,full,0
}
%test
%test2
%test3
"""
p = mmkparser.MMKParser(in_str, tuning)
outstr = p.parse()
assert (outstr.lower() == """\
#instruments
{
"test.brr" $ff $e0 $a0 $f0 $0f
"test.brr" $ff $e0 $a0 $f0 $0f
"test.brr" $ff $e0 $a0 $f0 $0f
}
@30
@31
@32
""")
def test_error_at_eof():
in_str = "%asdfasdf"
with mock.patch("sys.stderr",
new=io.StringIO()) as fake: # type: io.StringIO
p = mmkparser.MMKParser(in_str, None)
with pytest.raises(mmkparser.MMKError):
p.parse()
val = fake.getvalue() # type: str
assert "asdfasdf" in val
def test_define():
in_str = """\
;
%define x 1
%x
"""
p = mmkparser.MMKParser(in_str, tuning)
outstr = p.parse()
assert (outstr == """\
;
1
""")
def test_define_failed():
in_str = """\
;
%define x 1
%define y v%x
%y
"""
p = mmkparser.MMKParser(in_str, tuning)
outstr = p.parse()
assert (outstr == """\
;
v1
""")
def test_sweep():
""" FIXME find a less brittle way to test unrolled output. """
meta_dict = {
"untrunc": metadata(),
"truncSilent": metadata(),
}
in_str = """\
#samples
{
%silent "silent.brr"
%wave_group "untrunc"; make sure comments work
%wave_group "truncSilent" 1 silent
}
#instruments
{
%instr "silent.brr" $00 $00 $00 $01 $00
%wave_group "untrunc" $00 $00 $00; make sure comments work
%wave_group "truncSilent" $00 $00 $00
}
"""
p = mmkparser.MMKParser(in_str, tuning, meta_dict)
outstr = p.parse()
# %wave_group produces "ugly" missing indentation, so ignore all whitespace.
words = outstr.lower().split()
tune_val = f"${metadata().nsamp//16:02} $00"
assert (words == "\n".join([
f"""\
#samples
{{
"silent.brr"
"untrunc-000.brr"; make sure comments work
"untrunc-001.brr"
"truncSilent-000.brr"
}}
#instruments
{{
"silent.brr" $00 $00 $00 $01 $00
"untrunc-000.brr" $00 $00 $00 {tune_val}; make sure comments work
"untrunc-001.brr" $00 $00 $00 {tune_val}
"truncSilent-000.brr" $00 $00 $00 {tune_val}
}}
#0"""
]).lower().split())
def test_instruments():
in_str = """#instruments
{
%tune "test.brr" $8F $E0 $00
"test.brr" %adsr -1,-1,full,0 $01 $23
%tune "test.brr" %adsr -1,-1,full,0
%tune "test.brr" %exp 0
}
"""
p = mmkparser.MMKParser(in_str, tuning)
outstr = p.parse()
assert (outstr.lower() == """#instruments
{
"test.brr" $8f $e0 $00 $f0 $0f
"test.brr" $ff $e0 $a0 $01 $23
"test.brr" $ff $e0 $a0 $f0 $0f
"test.brr" $ff $e0 $a0 $f0 $0f
}
""")
def test_amk_commands():
in_str = """;
%notelen on
f1
$f1
q7f
v100 %vmod,2 v100
y10
"""
p = mmkparser.MMKParser(in_str, tuning)
outstr = p.parse()
assert (outstr == """;
f4
$f1
q7f
v100 v200
y10
""")
def test_instruments_comments():
"""%tune needs to stop before reaching comments or something. maybe
trim off all trailing space and append after tuning bytes?"""
in_str = """\
#instruments
{
%tune "test.brr" $8F $E0 $00 ; foo
}
"""
p = mmkparser.MMKParser(in_str, tuning)
outstr = p.parse()
# Ideally I'd put the spaces *after* the tuning, but that's hard.
assert (outstr.lower() == """\
#instruments
{
"test.brr" $8f $e0 $00 $f0 $0f; foo
}
""")
def test_notelen():
in_str = """\
c4 c2 c1 c=48
%notelen on
; All notes/etc with durations.
c1 d1 e1 f1 g1 a1 b1 r1 ^1
; default length command
l1 c
c1c2c4c5
c/2c/3c/4c/6c/8 c/48
c2/3c3/4 c47/48
c=47
%notelen off
c4 c2 c1 c=48
"""
p = mmkparser.MMKParser(in_str, tuning)
outstr = p.parse()
assert (outstr == """\
c4 c2 c1 c=48
; All notes/etc with durations.
c4 d4 e4 f4 g4 a4 b4 r4 ^4
; default length command
l4 c
c4c2c1c=240
c8c12c16c24c32 c192
c6c=36 c=47
c=47
c4 c2 c1 c=48
""")
def test_amk_define():
in_str = """;
%define value 1
; Ensure AMK keys are not parsed by MMK.
"%not-a-command = 0"
; Ensure AMK values are parsed (with or without spaces).
"key=%value"
"abcdefg^l_v = 2"
; Ensure key occurrences are not parsed.
%vmod 2
key10 abcdefg^l_v20
; Ensure replacements don't skip over following text.
"cmd=c4"
cmd %vmod,2 v50
"""
p = mmkparser.MMKParser(in_str, tuning)
outstr = p.parse()
assert (outstr == """;
; Ensure AMK keys are not parsed by MMK.
"%not-a-command = 0"
; Ensure AMK values are parsed (with or without spaces).
"key=1"
"abcdefg^l_v = 2"
; Ensure key occurrences are not parsed.
key10 abcdefg^l_v20
; Ensure replacements don't skip over following text.
"cmd=c4"
cmd v100
""")
def test_commands():
# TODO adsr/exp
in_str = """;
%vbend,4,255\t
%ybend 4 20\t
%gain,direct,$73
%gain,set,$73
%gain,down,$03
%gain,exp,$03
%gain,up,$03
%gain,bent,$03
%adsr -1,-1,-1,$0
%exp $0
%vmod 0.5 ; ensure %vmod applies to %vb
%vb,0,128
"""
p = mmkparser.MMKParser(in_str, tuning)
outstr = p.parse()
assert (outstr.lower() == """;
$e8 $c0 $ff\t
$dc $c0 $14\t
$fa $01 $73
$fa $01 $73
$fa $01 $83
$fa $01 $a3
$fa $01 $c3
$fa $01 $e3
$ed $7f $e0
$ed $7f $e0
; ensure %vmod applies to %vb
$e8 $00 $40
""")
def test_spc_hash():
in_str = """;
%vmod,2
#path "no-equal-sign"
#spc
{
#game "v50"
#title "y"
}
v50
"""
p = mmkparser.MMKParser(in_str, tuning)
outstr = p.parse()
assert (outstr == """;
#path "no-equal-sign"
#spc
{
#game "v50"
#title "y"
}
v100
""")
def test_eof(in_str):
p = mmkparser.MMKParser(in_str, None)
p.parse()
def test_note_release_error(in_str):
p = mmkparser.MMKParser(in_str, tuning)
with pytest.raises(mmkparser.MMKError):
outstr = p.parse()
raise Exception(outstr)
def test_strip():
in_str = "\n\n\n; foo\n; bar\n\n\n\n\n"
p = mmkparser.MMKParser(in_str, None)
out = p.parse()
assert out == in_str.strip() + "\n"
def test_terminator():
""" Ensures commands (words) can be terminated by ] without whitespace. """
in_str = "[%gain direct $03]\n"
p = mmkparser.MMKParser(in_str, None)
out = p.parse()
assert out.lower() == "[$fa $01 $03]\n"