Fix an issue where the pattern doesn't advance,
[quincer.git] / test / 12namednoterel.test
blobcda81c92d4195672197e50ff79e4ddb5def7b814
1 #!/bin/sh
2 set -x
3 input=$(mktemp)
4 output=$(mktemp)
6 die() {
7 echo output was
8 cat $output
9 rm -f $input $output
10 exit 1
13 cat >$input <<EOF
14 voice keys amsynth 1
15 pattern 120 0
16 q b 80
17 w a 80
18 e e 80
19 r E 80
21 t c 80
22 y A 80
23 u A# 80
24 i ab 80
26 o D 80
27 p 60 80
28 h g 80
29 j eb 80
31 0...'...'...
32 qwertyuiophj| keys
33 EOF
35 ./lexdump $input >$output
36 [ $? = 0 ] || die
38 (grep -A 130 "voice: keys" $output | grep -A 5 "start: 0" | grep "byte 1: 71") || die
39 (grep -A 130 "voice: keys" $output | grep -A 5 "start: 1" | grep "byte 1: 69") || die
40 (grep -A 130 "voice: keys" $output | grep -A 5 "start: 2" | grep "byte 1: 64") || die
41 (grep -A 130 "voice: keys" $output | grep -A 5 "start: 3" | grep "byte 1: 64") || die
43 (grep -A 130 "voice: keys" $output | grep -A 5 "start: 4" | grep "byte 1: 60") || die
44 (grep -A 130 "voice: keys" $output | grep -A 5 "start: 5" | grep "byte 1: 57") || die
45 (grep -A 130 "voice: keys" $output | grep -A 5 "start: 6" | grep "byte 1: 58") || die
46 (grep -A 130 "voice: keys" $output | grep -A 5 "start: 7" | grep "byte 1: 56") || die
48 (grep -A 130 "voice: keys" $output | grep -A 5 "start: 8" | grep "byte 1: 62") || die
49 (grep -A 130 "voice: keys" $output | grep -A 5 "start: 9" | grep "byte 1: 60") || die
50 (grep -A 130 "voice: keys" $output | grep -A 5 "start: 10" | grep "byte 1: 55") || die
51 (grep -A 130 "voice: keys" $output | grep -A 5 "start: 11" | grep "byte 1: 51") || die
53 echo output was
54 cat $output
55 rm -f $input $output