mirror of
https://github.com/pevans/erc-c.git
synced 2024-12-22 14:30:45 +00:00
9562dd19ce
Phases will yet be the death of me. THE DEATH OF ME.
348 lines
9.3 KiB
C
348 lines
9.3 KiB
C
#include <criterion/criterion.h>
|
|
|
|
#include "apple2.dd.h"
|
|
#include "apple2.enc.h"
|
|
|
|
static apple2dd *drive;
|
|
|
|
static void
|
|
setup()
|
|
{
|
|
drive = apple2_dd_create();
|
|
}
|
|
|
|
static void
|
|
teardown()
|
|
{
|
|
apple2_dd_free(drive);
|
|
}
|
|
|
|
TestSuite(apple2_dd, .init = setup, .fini = teardown);
|
|
|
|
Test(apple2_dd, create)
|
|
{
|
|
cr_assert_eq(drive->data, NULL);
|
|
cr_assert_eq(drive->image, NULL);
|
|
cr_assert_eq(drive->image_type, DD_NOTYPE);
|
|
cr_assert_eq(drive->track_pos, 0);
|
|
cr_assert_eq(drive->sector_pos, 0);
|
|
cr_assert_eq(drive->online, false);
|
|
cr_assert_eq(drive->write_protect, true);
|
|
cr_assert_eq(drive->mode, DD_READ);
|
|
}
|
|
|
|
/* Test(apple2_dd, free) */
|
|
|
|
Test(apple2_dd, insert)
|
|
{
|
|
FILE *stream;
|
|
|
|
// In a successful drive open, we would also reset the track and
|
|
// sector pos.
|
|
drive->track_pos = 123;
|
|
drive->sector_pos = 33;
|
|
|
|
stream = fopen("../data/zero.img", "r");
|
|
cr_assert_eq(apple2_dd_insert(drive, stream, DD_DOS33), OK);
|
|
cr_assert_eq(drive->track_pos, 0);
|
|
cr_assert_eq(drive->sector_pos, 0);
|
|
cr_assert_eq(drive->image_type, DD_DOS33);
|
|
fclose(stream);
|
|
|
|
stream = fopen("../data/bad.img", "r");
|
|
cr_assert_eq(apple2_dd_insert(drive, stream, DD_DOS33), ERR_BADFILE);
|
|
fclose(stream);
|
|
}
|
|
|
|
Test(apple2_dd, position)
|
|
{
|
|
// Without any data, the drive should return a null position
|
|
// regardless of track position
|
|
drive->track_pos = 3;
|
|
drive->sector_pos = 44;
|
|
cr_assert_eq(apple2_dd_position(drive), 0);
|
|
|
|
// FIXME: we need some dummy data for the drive...
|
|
}
|
|
|
|
Test(apple2_dd, read)
|
|
{
|
|
drive->data = vm_segment_create(_140K_);
|
|
drive->image = drive->data; // image doesn't matter here
|
|
vm_segment_set(drive->data, 0, 123);
|
|
vm_segment_set(drive->data, 1, 234);
|
|
|
|
cr_assert_eq(apple2_dd_read(drive), 123);
|
|
cr_assert_eq(drive->track_pos, 0);
|
|
cr_assert_eq(drive->sector_pos, 1);
|
|
|
|
cr_assert_eq(apple2_dd_read(drive), 234);
|
|
cr_assert_eq(drive->track_pos, 0);
|
|
cr_assert_eq(drive->sector_pos, 2);
|
|
}
|
|
|
|
Test(apple2_dd, eject)
|
|
{
|
|
drive->image = vm_segment_create(1000);
|
|
drive->data = vm_segment_create(1000);
|
|
drive->image_type = DD_NIBBLE;
|
|
drive->stream = NULL;
|
|
apple2_dd_eject(drive);
|
|
cr_assert_eq(drive->data, NULL);
|
|
}
|
|
|
|
Test(apple2_dd, set_mode)
|
|
{
|
|
apple2_dd_set_mode(drive, DD_WRITE);
|
|
cr_assert_eq(drive->mode, DD_WRITE);
|
|
apple2_dd_set_mode(drive, DD_READ);
|
|
cr_assert_eq(drive->mode, DD_READ);
|
|
|
|
// let's try shenanigans
|
|
apple2_dd_set_mode(drive, 111111111);
|
|
cr_assert_eq(drive->mode, DD_READ);
|
|
}
|
|
|
|
Test(apple2_dd, shift)
|
|
{
|
|
apple2_dd_shift(drive, 5);
|
|
cr_assert_eq(drive->sector_pos, 5);
|
|
|
|
// Push it beyond the sector boundary; see if the track position
|
|
// updates as it should.
|
|
apple2_dd_shift(drive, ENC_ETRACK + 3);
|
|
cr_assert_eq(drive->track_pos, 0);
|
|
|
|
// this should be the mod of sector_pos and MAX_SECTOR_POS
|
|
cr_assert_eq(drive->sector_pos, 0);
|
|
}
|
|
|
|
Test(apple2_dd, step)
|
|
{
|
|
// Does step work at all?
|
|
apple2_dd_step(drive, 5);
|
|
cr_assert_eq(drive->track_pos, 5);
|
|
apple2_dd_step(drive, 3);
|
|
cr_assert_eq(drive->track_pos, 8);
|
|
apple2_dd_step(drive, -2);
|
|
cr_assert_eq(drive->track_pos, 6);
|
|
|
|
// Do we handle going over the maximum track position properly?
|
|
apple2_dd_step(drive, 100);
|
|
cr_assert_eq(drive->track_pos, MAX_DRIVE_STEPS);
|
|
|
|
// Do we handle going to the 0 track properly if we get a radically
|
|
// high number of negative track shifts?
|
|
apple2_dd_step(drive, -1000);
|
|
cr_assert_eq(drive->track_pos, 0);
|
|
}
|
|
|
|
Test(apple2_dd, turn_on)
|
|
{
|
|
apple2_dd_turn_on(drive, true);
|
|
cr_assert(drive->online);
|
|
apple2_dd_turn_on(drive, false);
|
|
cr_assert(!drive->online);
|
|
|
|
// I mean, ok
|
|
apple2_dd_turn_on(drive, 1111333);
|
|
cr_assert(drive->online);
|
|
}
|
|
|
|
Test(apple2_dd, write)
|
|
{
|
|
drive->data = vm_segment_create(_140K_);
|
|
drive->image = drive->data; // image doesn't matter
|
|
|
|
drive->latch = 129;
|
|
apple2_dd_write(drive);
|
|
cr_assert_eq(vm_segment_get(drive->data, 0), 129);
|
|
cr_assert_eq(drive->track_pos, 0);
|
|
cr_assert_eq(drive->sector_pos, 1);
|
|
|
|
drive->latch = 234;
|
|
apple2_dd_write(drive);
|
|
cr_assert_eq(vm_segment_get(drive->data, 1), 234);
|
|
cr_assert_eq(drive->track_pos, 0);
|
|
cr_assert_eq(drive->sector_pos, 2);
|
|
}
|
|
|
|
Test(apple2_dd, write_protect)
|
|
{
|
|
apple2_dd_write_protect(drive, true);
|
|
cr_assert(drive->write_protect);
|
|
apple2_dd_write_protect(drive, false);
|
|
cr_assert(!drive->write_protect);
|
|
apple2_dd_write_protect(drive, 2222);
|
|
cr_assert(drive->write_protect);
|
|
}
|
|
|
|
Test(apple2_dd, encode)
|
|
{
|
|
// Mostly we want to test if this handles the image types correct.
|
|
// The encode function won't actually try to encode anything if the
|
|
// image segment is NULL.
|
|
drive->image_type = DD_NIBBLE; cr_assert_eq(apple2_dd_encode(drive), OK);
|
|
drive->image_type = DD_DOS33; cr_assert_eq(apple2_dd_encode(drive), OK);
|
|
drive->image_type = DD_PRODOS; cr_assert_eq(apple2_dd_encode(drive), OK);
|
|
drive->image_type = -1; cr_assert_neq(apple2_dd_encode(drive), OK);
|
|
}
|
|
|
|
Test(apple2_dd, decode)
|
|
{
|
|
// Same drill as for the encode test
|
|
drive->image_type = DD_NIBBLE; cr_assert_eq(apple2_dd_encode(drive), OK);
|
|
drive->image_type = DD_DOS33; cr_assert_eq(apple2_dd_encode(drive), OK);
|
|
drive->image_type = DD_PRODOS; cr_assert_eq(apple2_dd_encode(drive), OK);
|
|
drive->image_type = -1; cr_assert_neq(apple2_dd_encode(drive), OK);
|
|
}
|
|
|
|
// Skipping this test because most everything it does is already tested
|
|
// in some other capacity
|
|
/* Test(apple2_dd, save) */
|
|
|
|
Test(apple2_dd, phaser)
|
|
{
|
|
// The drive must be online for any change to matter
|
|
drive->online = true;
|
|
|
|
// Test going backwards
|
|
drive->track_pos = 3;
|
|
drive->phase_state = 1;
|
|
drive->last_phase = 2;
|
|
|
|
apple2_dd_phaser(drive);
|
|
|
|
cr_assert_eq(drive->track_pos, 2);
|
|
cr_assert_eq(drive->last_phase, 1);
|
|
|
|
// Forwards
|
|
drive->phase_state = 2;
|
|
drive->track_pos = 5;
|
|
drive->last_phase = 1;
|
|
apple2_dd_phaser(drive);
|
|
cr_assert_eq(drive->track_pos, 6);
|
|
cr_assert_eq(drive->last_phase, 2);
|
|
drive->phase_state = 4;
|
|
apple2_dd_phaser(drive);
|
|
cr_assert_eq(drive->track_pos, 7);
|
|
cr_assert_eq(drive->last_phase, 4);
|
|
}
|
|
|
|
Test(apple2_dd, switch_phase)
|
|
{
|
|
apple2_dd_switch_phase(drive, 0x1);
|
|
cr_assert_eq(drive->phase_state, 0x1);
|
|
apple2_dd_switch_phase(drive, 0x0);
|
|
cr_assert_eq(drive->phase_state, 0x0);
|
|
|
|
apple2_dd_switch_phase(drive, 0x3);
|
|
cr_assert_eq(drive->phase_state, 0x2);
|
|
apple2_dd_switch_phase(drive, 0x2);
|
|
cr_assert_eq(drive->phase_state, 0x0);
|
|
|
|
apple2_dd_switch_phase(drive, 0x5);
|
|
cr_assert_eq(drive->phase_state, 0x4);
|
|
apple2_dd_switch_phase(drive, 0x4);
|
|
cr_assert_eq(drive->phase_state, 0x0);
|
|
|
|
apple2_dd_switch_phase(drive, 0x7);
|
|
cr_assert_eq(drive->phase_state, 0x8);
|
|
apple2_dd_switch_phase(drive, 0x6);
|
|
cr_assert_eq(drive->phase_state, 0x0);
|
|
}
|
|
|
|
Test(apple2_dd, switch_drive)
|
|
{
|
|
apple2 *mach = apple2_create(100, 100);
|
|
|
|
apple2_dd_switch_drive(mach, 0xB);
|
|
cr_assert_eq(mach->selected_drive, mach->drive2);
|
|
apple2_dd_switch_drive(mach, 0xA);
|
|
cr_assert_eq(mach->selected_drive, mach->drive1);
|
|
|
|
apple2_dd_switch_drive(mach, 0x8);
|
|
cr_assert_eq(mach->drive1->online, false);
|
|
cr_assert_eq(mach->drive2->online, false);
|
|
|
|
apple2_dd_switch_drive(mach, 0x9);
|
|
cr_assert_eq(mach->drive1->online, true);
|
|
cr_assert_eq(mach->drive2->online, false);
|
|
|
|
apple2_dd_switch_drive(mach, 0xE);
|
|
cr_assert_eq(mach->selected_drive->mode, DD_READ);
|
|
apple2_dd_switch_drive(mach, 0xF);
|
|
cr_assert_eq(mach->selected_drive->mode, DD_WRITE);
|
|
|
|
apple2_free(mach);
|
|
}
|
|
|
|
Test(apple2_dd, switch_latch)
|
|
{
|
|
drive->latch = 0;
|
|
drive->mode = DD_READ;
|
|
|
|
apple2_dd_switch_latch(drive, 3);
|
|
cr_assert_eq(drive->latch, 0);
|
|
|
|
drive->mode = DD_WRITE;
|
|
apple2_dd_switch_latch(drive, 5);
|
|
cr_assert_eq(drive->latch, 5);
|
|
}
|
|
|
|
Test(apple2_dd, switch_rw)
|
|
{
|
|
drive->data = vm_segment_create(_140K_);
|
|
drive->image = drive->data; // image doesn't matter
|
|
vm_segment_set(drive->data, 0, 123);
|
|
vm_segment_set(drive->data, 1, 234);
|
|
|
|
drive->mode = DD_READ;
|
|
cr_assert_eq(apple2_dd_switch_rw(drive), 123);
|
|
drive->mode = DD_WRITE;
|
|
drive->write_protect = true;
|
|
cr_assert_eq(apple2_dd_switch_rw(drive), 234);
|
|
|
|
drive->write_protect = false;
|
|
drive->latch = 191;
|
|
cr_assert_eq(apple2_dd_switch_rw(drive), 0);
|
|
cr_assert_eq(vm_segment_get(drive->data, drive->sector_pos - 1), 191);
|
|
}
|
|
|
|
// Ignoring these right now, as they are calling the other switch_*
|
|
// functions that we do have tests for
|
|
/* Test(apple2_dd, switch_read) */
|
|
/* Test(apple2_dd, switch_write) */
|
|
|
|
Test(apple2_dd, map)
|
|
{
|
|
vm_segment *seg = vm_segment_create(MOS6502_MEMSIZE);
|
|
size_t addr;
|
|
|
|
apple2_dd_map(seg);
|
|
|
|
for (addr = 0xC0E0; addr < 0xC100; addr++) {
|
|
cr_assert_eq(seg->read_table[addr], apple2_dd_switch_read);
|
|
cr_assert_eq(seg->write_table[addr], apple2_dd_switch_write);
|
|
}
|
|
|
|
vm_segment_free(seg);
|
|
}
|
|
|
|
Test(apple2_dd, sector_num)
|
|
{
|
|
static const int dos33[] = {
|
|
0x0, 0x7, 0xe, 0x6, 0xd, 0x5, 0xc, 0x4,
|
|
0xb, 0x3, 0xa, 0x2, 0x9, 0x1, 0x8, 0xf,
|
|
};
|
|
|
|
static const int prodos[] = {
|
|
0x0, 0x8, 0x1, 0x9, 0x2, 0xa, 0x3, 0xb,
|
|
0x4, 0xc, 0x5, 0xd, 0x6, 0xe, 0x7, 0xf,
|
|
};
|
|
|
|
for (int i = 0; i < 16; i++) {
|
|
cr_assert_eq(apple2_dd_sector_num(DD_DOS33, i), dos33[i]);
|
|
}
|
|
}
|