commit 55f448fb773205e5b4eeba5a130e812c7a0c1371
parent 51b55f3d99888bc92c9247b652ab78305f3475e3
Author: Andrew Alderwick <andrew@alderwick.co.uk>
Date: Wed, 29 Dec 2021 01:57:46 +0000
Add automated test harness (corresponding Uxntal to follow).
Diffstat:
4 files changed, 366 insertions(+), 0 deletions(-)
diff --git a/etc/autotest/.gitignore b/etc/autotest/.gitignore
@@ -0,0 +1,3 @@
+/autotest
+/fix_fft.c
+/test.ppm
diff --git a/etc/autotest/asoundrc b/etc/autotest/asoundrc
@@ -0,0 +1,11 @@
+pcm.!default {
+ type file
+ slave.pcm null
+ file /proc/self/fd/3
+ format "raw"
+}
+
+pcm.null {
+ type null
+}
+
diff --git a/etc/autotest/main.c b/etc/autotest/main.c
@@ -0,0 +1,332 @@
+#define _GNU_SOURCE
+
+#include <errno.h>
+#include <fcntl.h>
+#include <math.h>
+#include <signal.h>
+#include <stdarg.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <sys/select.h>
+#include <sys/stat.h>
+#include <sys/time.h>
+#include <sys/types.h>
+#include <sys/wait.h>
+#include <unistd.h>
+
+#define WIDTH 512
+#define HEIGHT 320
+
+#define str(x) stra(x)
+#define stra(x) #x
+
+#define die(fnname) \
+ do { \
+ perror(fnname); \
+ exit(EXIT_FAILURE); \
+ } while(0)
+
+#define x(fn, ...) \
+ do { \
+ if(fn(__VA_ARGS__) < 0) { \
+ perror(#fn); \
+ exit(EXIT_FAILURE); \
+ } \
+ } while(0)
+
+int fix_fft(short *fr, short *fi, short m, short inverse);
+
+static pid_t
+launch_xvfb(void)
+{
+ char displayfd[16];
+ int r;
+ pid_t pid;
+ int fds[2];
+ x(pipe2, &fds[0], 0);
+ pid = fork();
+ if(pid < 0) {
+ die("fork");
+ } else if(!pid) {
+ x(snprintf, displayfd, sizeof(displayfd), "%d", fds[1]);
+ x(close, fds[0]);
+ execlp("Xvfb", "Xvfb", "-screen", "0", str(WIDTH) "x" str(HEIGHT) "x24", "-fbdir", ".", "-displayfd", displayfd, "-nolisten", "tcp", NULL);
+ die("execl");
+ exit(EXIT_FAILURE);
+ }
+ x(close, fds[1]);
+ r = read(fds[0], &displayfd[1], sizeof(displayfd) - 1);
+ if(r < 0) die("read");
+ x(close, fds[0]);
+ displayfd[r] = '\0';
+ displayfd[0] = ':';
+ x(setenv, "DISPLAY", displayfd, 1);
+ x(setenv, "ALSA_CONFIG_PATH", "asoundrc", 1);
+ return pid;
+}
+
+static pid_t
+launch_uxnemu(int *write_fd, int *read_fd, int *sound_fd)
+{
+ pid_t pid;
+ int fds[6];
+ x(pipe2, &fds[0], O_CLOEXEC);
+ x(pipe2, &fds[2], O_CLOEXEC);
+ x(pipe2, &fds[4], O_CLOEXEC);
+ pid = fork();
+ if(pid < 0) {
+ die("fork");
+ } else if(!pid) {
+ x(dup2, fds[0], 0);
+ x(dup2, fds[3], 1);
+ x(dup2, fds[5], 3);
+ execl("../../bin/uxnemu", "uxnemu", "autotest.rom", NULL);
+ die("execl");
+ }
+ x(close, fds[0]);
+ x(close, fds[3]);
+ x(close, fds[5]);
+ *write_fd = fds[1];
+ *read_fd = fds[2];
+ *sound_fd = fds[4];
+ return pid;
+}
+
+static void
+terminate(pid_t pid)
+{
+ int signals[] = {SIGINT, SIGTERM, SIGKILL};
+ int status;
+ size_t i;
+ for(i = 0; i < sizeof(signals) / sizeof(int) * 10; ++i) {
+ if(kill(pid, signals[i / 10])) {
+ break;
+ }
+ usleep(100000);
+ if(pid == waitpid(pid, &status, WNOHANG)) {
+ return;
+ }
+ }
+ waitpid(pid, &status, 0);
+}
+
+static int
+open_framebuffer(void)
+{
+ for(;;) {
+ int fd = open("Xvfb_screen0", O_RDONLY | O_CLOEXEC);
+ if(fd >= 0) {
+ return fd;
+ }
+ if(errno != ENOENT) {
+ perror("open");
+ return fd;
+ }
+ usleep(100000);
+ }
+}
+
+#define PPM_HEADER "P6\n" str(WIDTH) " " str(HEIGHT) "\n255\n"
+
+static void
+save_screenshot(int fb_fd, const char *filename)
+{
+ unsigned char screen[WIDTH * HEIGHT * 4 + 4];
+ int fd = open(filename, O_WRONLY | O_CREAT, 0666);
+ int i;
+ if(fd < 0) {
+ die("screenshot open");
+ }
+ x(write, fd, PPM_HEADER, strlen(PPM_HEADER));
+ x(lseek, fb_fd, 0xca0, SEEK_SET);
+ x(read, fb_fd, &screen[4], WIDTH * HEIGHT * 4);
+ for(i = 0; i < WIDTH * HEIGHT; ++i) {
+ screen[i * 3 + 2] = screen[i * 4 + 4];
+ screen[i * 3 + 1] = screen[i * 4 + 5];
+ screen[i * 3 + 0] = screen[i * 4 + 6];
+ }
+ x(write, fd, screen, WIDTH * HEIGHT * 3);
+ x(close, fd);
+}
+
+static void
+systemf(char *format, ...)
+{
+ char *command;
+ va_list ap;
+ va_start(ap, format);
+ x(vasprintf, &command, format, ap);
+ system(command);
+ free(command);
+}
+
+int uxn_read_fd, sound_fd;
+
+static int
+byte(void)
+{
+ char c;
+ if(read(uxn_read_fd, &c, 1) != 1) {
+ return 0;
+ }
+ return (unsigned char)c;
+}
+
+#define NEW_FFT_SIZE_POW2 10
+#define NEW_FFT_SIZE (1 << NEW_FFT_SIZE_POW2)
+#define NEW_FFT_USEC (5000 * NEW_FFT_SIZE / 441)
+
+unsigned char left_peak, right_peak;
+
+static int
+detect_peak(short *real, short *imag)
+{
+ int i, peak = 0, peak_i;
+ for(i = 0; i < NEW_FFT_SIZE; ++i) {
+ int v = real[i] * real[i] + imag[i] * imag[i];
+ if(peak < v) {
+ peak = v;
+ peak_i = i;
+ } else if(peak > v * 10) {
+ return peak_i;
+ }
+ }
+ return 0;
+}
+
+static int
+analyse_sound(short *samples)
+{
+ short real[NEW_FFT_SIZE], imag[NEW_FFT_SIZE];
+ int i;
+ for(i = 0; i < NEW_FFT_SIZE * 2; ++i) {
+ if(samples[i * 2]) break;
+ }
+ if(i == NEW_FFT_SIZE * 2) return 0;
+ for(i = 0; i < NEW_FFT_SIZE; ++i) {
+ real[i] = samples[i * 4];
+ imag[i] = samples[i * 4 + 2];
+ }
+ fix_fft(real, imag, NEW_FFT_SIZE_POW2, 0);
+ return detect_peak(real, imag);
+}
+
+static int
+read_sound(void)
+{
+ static short samples[NEW_FFT_SIZE * 4];
+ static size_t len = 0;
+ int r = read(sound_fd, ((char *)samples) + len, sizeof(samples) - len);
+ if(r > 0) {
+ len += r;
+ if(len == sizeof(samples)) {
+ left_peak = analyse_sound(&samples[0]);
+ right_peak = analyse_sound(&samples[1]);
+ len = 0;
+ return 1;
+ }
+ }
+ return 0;
+}
+
+static void
+main_loop(int uxn_write_fd, int fb_fd)
+{
+ struct timeval next_sound = {0, 0};
+ for(;;) {
+ struct timeval now;
+ struct timeval *timeout;
+ fd_set fds;
+ FD_ZERO(&fds);
+ FD_SET(uxn_read_fd, &fds);
+ x(gettimeofday, &now, NULL);
+ if(now.tv_sec > next_sound.tv_sec || (now.tv_sec == next_sound.tv_sec && now.tv_usec > next_sound.tv_usec)) {
+ FD_SET(sound_fd, &fds);
+ timeout = NULL;
+ } else {
+ now.tv_sec = 0;
+ now.tv_usec = NEW_FFT_USEC;
+ timeout = &now;
+ }
+ x(select, uxn_read_fd > sound_fd ? uxn_read_fd + 1 : sound_fd + 1, &fds, NULL, NULL, timeout);
+ if(FD_ISSET(uxn_read_fd, &fds)) {
+ int c, x, y;
+ unsigned char blue;
+ switch(c = byte()) {
+ case 0x00: /* also used for EOF */
+ printf("exiting\n");
+ return;
+ /* 01-06 mouse */
+ case 0x01 ... 0x05:
+ systemf("xdotool click %d", c);
+ break;
+ case 0x06:
+ x = (byte() << 8) | byte();
+ y = (byte() << 8) | byte();
+ systemf("xdotool mousemove %d %d", x, y);
+ break;
+ /* 07-08 Screen */
+ case 0x07:
+ x = (byte() << 8) | byte();
+ y = (byte() << 8) | byte();
+ lseek(fb_fd, 0xca0 + (x + y * WIDTH) * 4, SEEK_SET);
+ read(fb_fd, &blue, 1);
+ blue = blue / 0x11;
+ write(uxn_write_fd, &blue, 1);
+ break;
+ case 0x08:
+ save_screenshot(fb_fd, "test.ppm");
+ break;
+ /* 09-0a Audio */
+ case 0x09:
+ write(uxn_write_fd, &left_peak, 1);
+ break;
+ case 0x0a:
+ write(uxn_write_fd, &right_peak, 1);
+ break;
+ /* 11-7e Controller/key */
+ case 0x11 ... 0x1c:
+ systemf("xdotool key F%d", c - 0x10);
+ break;
+ case '0' ... '9':
+ case 'A' ... 'Z':
+ case 'a' ... 'z':
+ systemf("xdotool key %c", c);
+ break;
+ default:
+ printf("unhandled command 0x%02x\n", c);
+ break;
+ }
+ }
+ if(FD_ISSET(sound_fd, &fds)) {
+ if(!next_sound.tv_sec) {
+ x(gettimeofday, &next_sound, NULL);
+ }
+ next_sound.tv_usec += NEW_FFT_USEC * read_sound();
+ if(next_sound.tv_usec > 1000000) {
+ next_sound.tv_usec -= 1000000;
+ ++next_sound.tv_sec;
+ }
+ }
+ }
+}
+
+int
+main(void)
+{
+ pid_t xvfb_pid = launch_xvfb();
+ int fb_fd = open_framebuffer();
+ if(fb_fd >= 0) {
+ int uxn_write_fd;
+ pid_t uxnemu_pid = launch_uxnemu(&uxn_write_fd, &uxn_read_fd, &sound_fd);
+ main_loop(uxn_write_fd, fb_fd);
+ terminate(uxnemu_pid);
+ x(close, uxn_write_fd);
+ x(close, uxn_read_fd);
+ x(close, sound_fd);
+ x(close, fb_fd);
+ }
+ terminate(xvfb_pid);
+ return 0;
+}
diff --git a/etc/autotest/run.sh b/etc/autotest/run.sh
@@ -0,0 +1,20 @@
+#!/bin/sh -e
+cd "$(dirname "${0}")"
+if ! which Xvfb 2>/dev/null; then
+ echo "error: ${0} depends on Xvfb"
+ exit 1
+fi
+if ! which xdotool 2>/dev/null; then
+ echo "error: ${0} depends on xdotool"
+ exit 1
+fi
+if [ ! -e fix_fft.c ]; then
+ wget https://gist.githubusercontent.com/Tomwi/3842231/raw/67149b6ec81cfb6ac1056fd23a3bb6ce1f0a5188/fix_fft.c
+fi
+if which clang-format 2>/dev/null; then
+ ( cd ../.. && clang-format -i etc/autotest/main.c )
+fi
+../../bin/uxnasm autotest.tal autotest.rom
+gcc -std=gnu89 -Wall -Wextra -o autotest main.c fix_fft.c -lm
+./autotest
+
