libxmp/test-dev/compare_mixer_data.c

#include "test.h"
#undef TEST
#include "../src/player.h"
#include "../src/mixer.h"
#include "../src/virtual.h"

static void _compare_mixer_data(const char *mod, const char *data, int loops, int ignore_rv)
{
	xmp_context opaque;
	struct context_data *ctx;
	struct player_data *p;
	struct mixer_voice *vi;
	struct xmp_frame_info fi;
	int time, row, frame, chan, period, note, ins, vol, pan, pos0, cutoff, resonance;
	char line[200];
	FILE *f;
	int i, voc, ret;
	int max_channels;

	f = fopen(data, "r");
	fail_unless(f != NULL, "can't open data file");

	opaque = xmp_create_context();
	fail_unless(opaque != NULL, "can't create context");

	ret = xmp_load_module(opaque, mod);
	fail_unless(ret == 0, "can't load module");

	ctx = (struct context_data *)opaque;
	p = &ctx->p;

	xmp_start_player(opaque, 44100, 0);
	xmp_set_player(opaque, XMP_PLAYER_MIX, 100);

	max_channels = p->virt.virt_channels;

	while (1) {
		xmp_play_frame(opaque);
		xmp_get_frame_info(opaque, &fi);
		if (fi.loop_count >= loops)
			break;

		for (i = 0; i < max_channels; i++) {
			/* Channel info doesn't get updated for NNA channels,
			 * need to get the info period from the channel data */
			/*struct xmp_channel_info *ci = &fi.channel_info[i];*/
			struct channel_data *xc = &p->xc_data[i];
			int ci_period = xc->info_period;
			int num;

			voc = map_channel(p, i);
			if (voc < 0 || TEST_NOTE(NOTE_SAMPLE_END))
				continue;

			vi = &p->virt.voice_array[voc];

#if 1
			fail_unless(fgets(line, 200, f) != NULL, "early EOF");
			num = sscanf(line, "%d %d %d %d %d %d %d %d %d %d %d %d",
				&time, &row, &frame, &chan, &period,
				&note, &ins, &vol, &pan, &pos0, &cutoff, &resonance);

			/* Allow some error in values derived from floating point math. */
			fail_unless(abs(fi.time - time) <= 1, "time mismatch");
			fail_unless(fi.row     == row,    "row mismatch");
			fail_unless(fi.frame   == frame,  "frame mismatch");
			fail_unless(i          == chan,   "channel mismatch");
			fail_unless(ci_period  == period, "period mismatch");
			fail_unless(vi->note   == note,   "note mismatch");
			fail_unless(vi->ins    == ins,    "instrument");
			if (!ignore_rv) {
				fail_unless(vi->vol == vol, "volume mismatch");
				fail_unless(vi->pan == pan, "pan mismatch");
			}
			/* x87 precision edge cases can slightly change loop
			 * wrapping behavior, which the abs() can't catch. */
			if ((vi->pos0 == vi->start && pos0 == vi->end) ||
			    (vi->pos0 == vi->end && pos0 == vi->start)) {
				pos0 = vi->pos0;
			}
			fail_unless(abs(vi->pos0 - pos0) <= 1, "position mismatch");
			if (num >= 11) {
				if (cutoff >= 254 && vi->filter.cutoff >= 254) {
					cutoff = vi->filter.cutoff;
				}
				fail_unless(vi->filter.cutoff == cutoff,
							  "cutoff mismatch");
			}
			if (num >= 12) {
				fail_unless(vi->filter.resonance == resonance,
					    "resonance mismatch");
			}
#else
			fprintf(f, "%d %d %d %d %d %d %d %d %d %d %d %d\n",
				fi.time, fi.row, fi.frame, i, xc->info_period,
				vi->note, vi->ins, vi->vol, vi->pan, vi->pos0,
				vi->filter.cutoff, vi->filter.resonance);
#endif
		}
	}

	if (fgets(line, 200, f) != NULL)
		fail_unless(line[0] == '\0', "not end of data file");
	//fail_unless(feof(f), "not end of data file");

	xmp_end_player(opaque);
	xmp_release_module(opaque);
	xmp_free_context(opaque);
}

void compare_mixer_data(const char *mod, const char *data)
{
	_compare_mixer_data(mod, data, 1, 0);
}

void compare_mixer_data_loops(const char *mod, const char *data, int loops)
{
	_compare_mixer_data(mod, data, loops, 0);
}

void compare_mixer_data_no_rv(const char *mod, const char *data)
{
	_compare_mixer_data(mod, data, 1, 1);
}