TAPE: Fix test logic to properly detach tested unit

As reported by Larry Baker
This commit is contained in:
Mark Pizzolato 2021-09-27 21:39:58 -07:00
parent feec1da242
commit 7bb96070f1

View file

@ -4240,7 +4240,7 @@ for (t = classify_tests; t->testname != NULL; t++) {
r = attach_cmd (0, args); r = attach_cmd (0, args);
if (r != SCPE_OK) if (r != SCPE_OK)
return sim_messagef (r, "ATTACH %s failed\n", args); return sim_messagef (r, "ATTACH %s failed\n", args);
detach_unit (uptr); detach_cmd (0, sim_uname (uptr));
} }
if (t->fail_attach_args) { if (t->fail_attach_args) {
char args[CBUFSIZE*2]; char args[CBUFSIZE*2];
@ -4249,7 +4249,7 @@ for (t = classify_tests; t->testname != NULL; t++) {
snprintf (args, sizeof (args), "%s %s %s", sim_uname (uptr), t->fail_attach_args, t->testname); snprintf (args, sizeof (args), "%s %s %s", sim_uname (uptr), t->fail_attach_args, t->testname);
r = attach_cmd (0, args); r = attach_cmd (0, args);
if (r == SCPE_OK) { if (r == SCPE_OK) {
detach_unit (uptr); detach_cmd (0, sim_uname (uptr));
return sim_messagef (r, "** UNEXPECTED ATTACH SUCCESS ** %s\n", args); return sim_messagef (r, "** UNEXPECTED ATTACH SUCCESS ** %s\n", args);
} }
} }