bug22

savonet · Oct 16, 2024 · 40d7ccb · 40d7ccb
1 parent 0572bd6
commit 40d7ccb
Show file tree

Hide file tree

Showing 4 changed files with 30 additions and 0 deletions.
diff --git a/tests/.gitignore b/tests/.gitignore
@@ -0,0 +1 @@
+output.mid
diff --git a/tests/Makefile b/tests/Makefile
@@ -0,0 +1,4 @@
+all:
+
+test:
+	dune exec ./bug22.exe
diff --git a/tests/bug22.ml b/tests/bug22.ml
@@ -0,0 +1,13 @@
+(* Bug #22 *)
+
+open Mm_midi
+
+let () =
+  let fname = "output.mid" in
+  let writer = new MIDI.IO.Writer.to_file 44100 fname in
+  writer#note_on 1 64 1.0;
+  writer#advance 44100;
+  writer#note_off 1 64 0.0;
+  writer#close;
+  (* let reader = new MIDI.IO.Reader.of_file fname in *)
+  (* reader#read 0 *)
diff --git a/tests/dune b/tests/dune
@@ -0,0 +1,12 @@
+(executable
+ (name bug22)
+ (libraries mm)
+)
+
+(rule
+ (alias runtest)
+ (action
+  (run ./bug22.exe)
+ )
+)
+