int ndmca_check_tape_mtio (struct ndm_session *sess, ndmp9_error expect_err, ndmp9_tape_mtio_op op, u_long count, u_long resid) { struct ndmconn * conn = sess->plumb.tape; u_long got_resid; int rc; /* close previous test if there is one */ ndmca_test_close (sess); got_resid = ~resid; rc = ndmca_tape_mtio (sess, op, count, &got_resid); rc = ndmca_test_check_expect (conn, rc, expect_err); if (rc) return rc; if (resid != got_resid) { char tmp[128]; sprintf (tmp, "Residual incorrect, got %lu expected %lu", got_resid, resid); ndmca_test_fail (sess, tmp); return -1; } return rc; }
int ndmca_test_call (struct ndmconn *conn, struct ndmp_xa_buf *xa, ndmp9_error expect_err) { struct ndm_session *sess = conn->context; int protocol_version = conn->protocol_version; unsigned msg = xa->request.header.message; char * msgname = ndmp_message_to_str (protocol_version, msg); unsigned reply_error; int rc; /* close previous test if there is one */ ndmca_test_close (sess); /* open new 'test' */ ndmca_test_open (sess, msgname, ndmp9_error_to_str (expect_err)); rc = ndma_call_no_tattle (conn, xa); reply_error = ndmnmb_get_reply_error (&xa->reply); if (rc >= 0) { /* Call succeeded. Body valid */ if (reply_error == expect_err) { /* Worked exactly as expected */ rc = 0; } else if (reply_error != NDMP9_NO_ERR && expect_err != NDMP9_NO_ERR) { /* both are errors, don't be picky about the codes */ rc = 2; } else { /* intolerable mismatch */ rc = 1; } } if (rc != 0) { char tmpbuf[128]; sprintf(tmpbuf, "got %s (call)", ndmp9_error_to_str (reply_error)); if (rc == 2) ndmca_test_warn (sess, tmpbuf); else ndmca_test_fail (sess, tmpbuf); ndma_tattle (conn, xa, rc); if (rc == 2) rc = 0; } return rc; }
int ndmca_tt_check_fileno_recno (struct ndm_session *sess, char *what, u_long file_num, u_long blockno, char *note) { struct ndm_control_agent *ca = &sess->control_acb; struct ndmp9_tape_get_state_reply *ts = 0; char buf[100]; int rc; char * oper; oper ="get_state"; rc = ndmca_tape_get_state (sess); if (rc) goto fail; ts = &ca->tape_state; oper = "check file_num"; if (ts->file_num.value != file_num) goto fail; oper = "check blockno"; if ((ts->blockno.value != blockno) && (ts->blockno.value != NDMP9_INVALID_U_LONG)) goto fail; return 0; fail: sprintf (buf, "Failed %s while testing %s", oper, what); ndmca_test_log_note (sess, 1, buf); if (ts) { sprintf (buf, " expect file_num=%ld got file_num=%ld", (long)file_num, (long)ts->file_num.value); ndmca_test_log_note (sess, 1, buf); sprintf (buf, " expect blockno=%ld got blockno=%ld", (long)blockno, (long)ts->blockno.value); ndmca_test_log_note (sess, 1, buf); } sprintf (buf, " note: %s", note); ndmca_test_fail (sess, buf); return -1; }
/* * Assumes tt_write() passed */ int ndmca_tt_mtio (struct ndm_session *sess) { int rc; unsigned n_rec; unsigned recsize; unsigned fileno, recno; u_long count, resid; char * what; char note[128]; char pbuf[64*1024]; char buf[64*1024]; ndmca_test_phase (sess, "T-MTIO", "Tape MTIO"); rc = ndmca_test_tape_open(sess,NDMP9_NO_ERR,0,NDMP9_TAPE_READ_MODE); if (rc) return rc; rc = ndmca_test_tape_mtio (sess, NDMP9_NO_ERR, NDMP9_MTIO_REW, 1, 0); if (rc) return rc; for (fileno = 0; tt_series[fileno].n_rec > 0; fileno++) { n_rec = tt_series[fileno].n_rec; recsize = tt_series[fileno].recsize; sprintf (note, "Seek around tape file %d", fileno+1); ndmca_test_open (sess, note, 0); sprintf (note, "file #%d, %d records, %d bytes/rec", fileno+1, n_rec, recsize); ndmca_test_log_note (sess, 2, note); what = "rew"; count = 1; rc = ndmca_tape_mtio (sess, NDMP9_MTIO_REW, count, &resid); if (rc) goto fail; what = "rew resid"; if (resid != 0) goto fail; CHECK_FILENO_RECNO ("rew", 0, 0); what = "fsf(n)"; count = fileno; rc = ndmca_tape_mtio (sess, NDMP9_MTIO_FSF, count, &resid); if (rc) goto fail; what = "fsf(n) resid"; if (resid != 0) goto fail; CHECK_FILENO_RECNO ("fsf", fileno, 0); what = "fsr(1m)"; count = 1000000; rc = ndmca_tape_mtio (sess, NDMP9_MTIO_FSR, count, &resid); if (rc) goto fail; what = "fsr(1m) resid"; if (n_rec + resid != count) goto fail; if (sess->plumb.tape->protocol_version < 4) { CHECK_FILENO_RECNO ("fsr(1m)", fileno + 1, 0); what = "bsf 1 after fsr(1m)"; count = 1; rc = ndmca_tape_mtio (sess, NDMP9_MTIO_BSF, count, 0); if (rc) goto fail; CHECK_FILENO_RECNO (what, fileno, -1); recno = n_rec; } else { /* EOT side of EOF marker */ recno = n_rec; CHECK_FILENO_RECNO ("fsr(1m)", fileno, recno); } what = "bsr(1m)"; count = 1000000; rc = ndmca_tape_mtio (sess, NDMP9_MTIO_BSR, count, &resid); if (rc) goto fail; what = "bsr(1m) resid"; if (n_rec + resid != count) goto fail; if ((fileno > 0) && (sess->plumb.tape->protocol_version < 4)) { /* at BOT side of EOF marker (not BOT) */ CHECK_FILENO_RECNO ("bsr(1m)", fileno - 1, -1); what = "fsf 1 after bsr(1m)"; count = 1; rc = ndmca_tape_mtio (sess, NDMP9_MTIO_FSF, count, 0); if (rc) goto fail; } recno = 0; CHECK_FILENO_RECNO ("bsr(1m)", fileno, recno); what = "fsr(0)"; count = 0; rc = ndmca_tape_mtio (sess, NDMP9_MTIO_FSR, count, &resid); if (rc) goto fail; what = "fsr(0) resid"; if (resid != 0) goto fail; recno = 0; CHECK_FILENO_RECNO ("fsr(0)", fileno, recno); what = "fsr(x)"; count = n_rec / 2; rc = ndmca_tape_mtio (sess, NDMP9_MTIO_FSR, count, &resid); if (rc) goto fail; what = "fsr(x) resid"; if (resid != 0) goto fail; recno = n_rec / 2; CHECK_FILENO_RECNO ("fsr(x)", fileno, recno); what = "fsr(x) read"; rc = ndmca_tape_read (sess, buf, recsize); if (rc) goto fail; what = "fsr(x) compare"; ndmca_test_fill_data (pbuf, recsize, recno, fileno); if (bcmp (buf, pbuf, recsize) != 0) goto fail; recno++; /* caused by tape_read */ if (recno > 1) { what = "bsr(2)"; count = 2; rc = ndmca_tape_mtio (sess, NDMP9_MTIO_BSR, count, &resid); if (rc) goto fail; what = "bsr(2) resid"; if (resid != 0) goto fail; recno -= count; CHECK_FILENO_RECNO ("bsr(2)", fileno, recno); what = "bsr(2) read"; rc = ndmca_tape_read (sess, buf, recsize); if (rc) goto fail; what = "bsr(2) compare"; ndmca_test_fill_data (pbuf, recsize, recno, fileno); if (bcmp (buf, pbuf, recsize) != 0) goto fail; } sprintf (buf, "Passed %s", note); ndmca_test_log_step (sess, 2, buf); } rc = ndmca_test_tape_close (sess, NDMP9_NO_ERR); if (rc) return rc; return 0; fail: sprintf (buf, "Failed %s: %s", what, note); ndmca_test_fail (sess, buf); return -1; }
/* * Assumes tt_write() passed */ int ndmca_tt_read (struct ndm_session *sess) { int rc; unsigned n_rec; unsigned recsize; unsigned fileno, recno; char * what; char note[128]; char pbuf[64*1024]; char buf[64*1024]; ndmca_test_phase (sess, "T-READ", "Tape Read Series"); rc = ndmca_test_tape_open(sess,NDMP9_NO_ERR,0,NDMP9_TAPE_READ_MODE); if (rc) return rc; for (fileno = 0; tt_series[fileno].n_rec > 0; fileno++) { n_rec = tt_series[fileno].n_rec; recsize = tt_series[fileno].recsize; sprintf (note, "Read tape file %d", fileno+1); ndmca_test_open (sess, note, 0); sprintf (note, "file #%d, %d records, %d bytes/rec", fileno+1, n_rec, recsize); ndmca_test_log_note (sess, 2, note); for (recno = 0; recno < n_rec; recno++) { ndmca_test_fill_data (pbuf, recsize, recno, fileno); what = "read"; rc = ndmca_tape_read (sess, buf, recsize); if (rc) goto fail; CHECK_FILENO_RECNO ("read", fileno, recno+1); what = "compare"; #if 0 if (bcmp (buf, pbuf, recsize) != 0) goto fail; #else if (bcmp (buf, pbuf, recsize) != 0) { unsigned char *expect_p = (unsigned char *)pbuf; unsigned char *got_p = (unsigned char *)buf; unsigned int i, f; for(f = i = 0; f < 64 && i < recsize; i++, expect_p++, got_p++) { if (*expect_p != *got_p) { char tmp[80]; sprintf (tmp, "%d: 0x%x => 0x%x", i, *expect_p, *got_p); ndmalogf (sess, "DATA", 6, tmp); f++; } } goto fail; } #endif } what = "eof read"; rc = ndmca_test_tape_read (sess, NDMP9_EOF_ERR, buf, recsize); if (rc) goto fail; if (sess->plumb.tape->protocol_version > 3) { CHECK_FILENO_RECNO ("eof", fileno, -1); what = "skip filemark"; rc = ndmca_tape_mtio (sess, NDMP9_MTIO_FSF, 1, 0); if (rc) goto fail; CHECK_FILENO_RECNO ("skip", fileno+1, 0); } else { CHECK_FILENO_RECNO ("eof", fileno+1, 0); } sprintf (buf, "Passed tape read %s", note); ndmca_test_log_step (sess, 2, buf); } rc = ndmca_test_tape_mtio (sess, NDMP9_NO_ERR, NDMP9_MTIO_REW, 1, 0); if (rc) return rc; rc = ndmca_test_tape_close (sess, NDMP9_NO_ERR); if (rc) return rc; return 0; fail: sprintf (buf, "Failed %s recno=%d; %s", what, recno, note); ndmca_test_fail (sess, buf); return -1; }
/* * Precedes tt_read() so that we can make a "known" tape. */ int ndmca_tt_write (struct ndm_session *sess) { int rc; unsigned n_rec; unsigned recsize; unsigned fileno, recno; char * what; char note[128]; char buf[64*1024]; ndmca_test_phase (sess, "T-WRITE", "Tape Write Series"); rc = ndmca_test_tape_open(sess,NDMP9_NO_ERR,0,NDMP9_TAPE_RDWR_MODE); if (rc) return rc; for (fileno = 0; tt_series[fileno].n_rec > 0; fileno++) { n_rec = tt_series[fileno].n_rec; recsize = tt_series[fileno].recsize; sprintf (note, "Write tape file %d", fileno+1); ndmca_test_open (sess, note, 0); sprintf (note, "file #%d, %d records, %d bytes/rec", fileno+1, n_rec, recsize); ndmca_test_log_note (sess, 2, note); for (recno = 0; recno < n_rec; recno++) { ndmca_test_fill_data (buf, recsize, recno, fileno); what = "write"; rc = ndmca_tape_write (sess, buf, recsize); if (rc) goto fail; CHECK_FILENO_RECNO ("write", fileno, recno+1); } what = "write filemark"; rc = ndmca_tape_mtio (sess, NDMP9_MTIO_EOF, 1, 0); if (rc) goto fail; CHECK_FILENO_RECNO ("wfm", fileno+1, 0); /* no test calls so the file operation is the test */ sprintf (buf, "Passed tape write %s", note); ndmca_test_log_step (sess, 2, buf); } rc = ndmca_test_tape_mtio (sess, NDMP9_NO_ERR, NDMP9_MTIO_REW, 1, 0); if (rc) return rc; rc = ndmca_test_tape_close (sess, NDMP9_NO_ERR); if (rc) return rc; return 0; fail: sprintf (buf, "Failed %s recno=%d; %s", what, recno, note); ndmca_test_fail (sess, buf); return -1; }
/* * Assumes tt_basic_read() and tt_basic_write() have been done verifying * READ and WRITE operations work... */ int ndmca_tt_basic_write_and_read (struct ndm_session *sess) { int rc, i, f, pass; char buf[64*1024]; char *p; ndmca_test_phase (sess, "T-BWR", "Tape Write and Read Basics"); /* * check EOF and EOM by rewinding and putting on 1 EOF mark */ rc = ndmca_test_tape_open(sess,NDMP9_NO_ERR,0,NDMP9_TAPE_RDWR_MODE); if (rc) return rc; rc = ndmca_test_tape_mtio (sess, NDMP9_NO_ERR, NDMP9_MTIO_REW, 1, 0); if (rc) return rc; rc = ndmca_check_tape_mtio (sess, NDMP9_NO_ERR, NDMP9_MTIO_BSR, 100, 100); if (rc) return rc; rc = ndmca_check_tape_mtio (sess, NDMP9_NO_ERR, NDMP9_MTIO_BSF, 100, 100); if (rc) return rc; rc = ndmca_test_tape_mtio (sess, NDMP9_NO_ERR, NDMP9_MTIO_EOF, 1, 0); if (rc) return rc; rc = ndmca_check_tape_mtio (sess, NDMP9_NO_ERR, NDMP9_MTIO_BSF, 100, 99); if (rc) return rc; rc = ndmca_check_tape_mtio (sess, NDMP9_NO_ERR, NDMP9_MTIO_FSF, 100, 99); if (rc) return rc; /* we are at EOM */ if (sess->plumb.tape->protocol_version < 4) { rc = ndmca_test_tape_read (sess, NDMP9_EOF_ERR, buf, sizeof(buf)); if (rc) return rc; /* check it again */ rc = ndmca_test_tape_read (sess, NDMP9_EOF_ERR, buf, 1024); if (rc) return rc; } else { rc = ndmca_test_tape_read (sess, NDMP9_EOM_ERR, buf, sizeof(buf)); if (rc) return rc; /* check it again */ rc = ndmca_test_tape_read (sess, NDMP9_EOM_ERR, buf, 1024); if (rc) return rc; } /* rewind and place 1 record in tape -- no EOF marker by seeking */ rc = ndmca_test_tape_mtio (sess, NDMP9_NO_ERR, NDMP9_MTIO_REW, 1, 0); if (rc) return rc; rc = ndmca_test_tape_write (sess, NDMP9_NO_ERR, buf, 512); if (rc) return rc; rc = ndmca_check_tape_mtio (sess, NDMP9_NO_ERR, NDMP9_MTIO_BSR, 100, 99); if (rc) return rc; rc = ndmca_check_tape_mtio (sess, NDMP9_NO_ERR, NDMP9_MTIO_FSR, 100, 99); if (rc) return rc; rc = ndmca_check_tape_mtio (sess, NDMP9_NO_ERR, NDMP9_MTIO_FSR, 100, 100); if (rc) return rc; rc = ndmca_check_tape_mtio (sess, NDMP9_NO_ERR, NDMP9_MTIO_FSF, 100, 100); if (rc) return rc; rc = ndmca_test_tape_close (sess, NDMP9_NO_ERR); if (rc) return rc; /* * perform tape label type processing with positioning ops */ for(pass = 0; pass < 2; pass++) { /* * open the tape and write 1 record and close it */ rc = ndmca_test_tape_open(sess,NDMP9_NO_ERR,0,NDMP9_TAPE_RDWR_MODE); if (rc) return rc; rc = ndmca_test_tape_mtio (sess, NDMP9_NO_ERR, NDMP9_MTIO_REW, 1, 0); if (rc) return rc; for(p = buf, i = 0; i < 1024; i++, p++) *p = ((i - 4) & 0xff); rc = ndmca_test_tape_write (sess, NDMP9_NO_ERR, buf, 1024); if (rc) return rc; rc = ndmca_tape_mtio (sess, NDMP9_MTIO_EOF, 1, 0); if (rc) return rc; rc = ndmca_test_tape_close (sess, NDMP9_NO_ERR); if (rc) return rc; /* * open the tape and read it */ rc = ndmca_test_tape_open(sess,NDMP9_NO_ERR,0,NDMP9_TAPE_RDWR_MODE); if (rc) return rc; rc = ndmca_test_tape_mtio (sess, NDMP9_NO_ERR, NDMP9_MTIO_REW, 1, 0); if (rc) return rc; if (pass == 1) rc = ndmca_test_tape_read_2cnt (sess, NDMP9_NO_ERR, buf, sizeof(buf), 1024); else rc = ndmca_test_tape_read (sess, NDMP9_NO_ERR, buf, 1024); if (rc) return rc; for(p = buf, f = i = 0; f < 64 && i < 1024; i++, p++) if (*p != ((i - 4) & 0xff)) { char tmp[80]; sprintf (tmp, "%d: 0x%x => 0x%x", i, ((i - 4) & 0xff), *p); ndmalogf (sess, "DATA", 6, tmp); f++; } if (f > 0) { ndmca_test_fail (sess, "Failed compare"); return -1; } rc = ndmca_test_tape_read (sess, NDMP9_EOF_ERR, buf, 1024); if (rc) return rc; /* check EOM */ if (sess->plumb.tape->protocol_version < 4) { rc = ndmca_test_tape_read (sess, NDMP9_EOF_ERR, buf, 1024); if (rc) return rc; } else { /* skip over filemark */ rc = ndmca_tape_mtio (sess, NDMP9_MTIO_FSF, 1, 0); /* read EOM */ rc = ndmca_test_tape_read (sess, NDMP9_EOM_ERR, buf, 1024); if (rc) return rc; } rc = ndmca_test_tape_close (sess, NDMP9_NO_ERR); if (rc) return rc; } return 0; /* pass */ }
int ndmca_test_check_expect_errs(struct ndmconn* conn, int rc, ndmp9_error expect_errs[]) { struct ndm_session* sess = conn->context; int protocol_version = conn->protocol_version; struct ndmp_xa_buf* xa = &conn->call_xa_buf; unsigned msg = xa->request.header.message; char* msgname = ndmp_message_to_str(protocol_version, msg); ndmp9_error reply_error = conn->last_reply_error; int i; /* make sure we have a 'test' active */ ndmca_test_open(sess, msgname, ndmp9_error_to_str(expect_errs[0])); if (rc >= 0) { /* Call succeeded. Body valid */ rc = 1; for (i = 0; (int)expect_errs[i] >= 0; i++) { if (reply_error == expect_errs[i]) { rc = 0; break; } } if (rc) { if (reply_error != NDMP9_NO_ERR && expect_errs[0] != NDMP9_NO_ERR) { /* both are errors, don't be picky */ rc = 2; } else { /* intolerable mismatch */ } } else { /* Worked as expected */ } } if (rc != 0) { char tmpbuf[128]; for (i = 0; (int)expect_errs[i] >= 0; i++) { ndmalogf(sess, "Test", 1, "%s #%d -- .... %s %s", sess->control_acb->test_phase, sess->control_acb->test_step, (i == 0) ? "expected" : "or", ndmp9_error_to_str(expect_errs[i])); } snprintf(tmpbuf, sizeof(tmpbuf), "got %s (error expected)", ndmp9_error_to_str(reply_error)); if (rc == 2) ndmca_test_warn(sess, tmpbuf); else ndmca_test_fail(sess, tmpbuf); ndma_tattle(conn, xa, rc); if (rc == 2) rc = 0; } return rc; }
int ndmca_test_check_data_state (struct ndm_session *sess, ndmp9_data_state expected, int reason) { struct ndm_control_agent * ca = sess->control_acb; ndmp9_data_get_state_reply * ds = &ca->data_state; int rc; char * what; char errbuf[100]; char tmpbuf[256]; /* close previous test if there is one */ ndmca_test_close (sess); /* open new test */ ndmca_test_open (sess, "data check", ndmp9_data_state_to_str (expected)); strcpy (errbuf, "???"); what = "get_state"; rc = ndmca_data_get_state (sess); if (rc) goto fail; what = "state self-consistent"; /* make sure the sensed state is self consistent */ switch (ds->state) { case NDMP9_DATA_STATE_IDLE: case NDMP9_DATA_STATE_ACTIVE: case NDMP9_DATA_STATE_LISTEN: case NDMP9_DATA_STATE_CONNECTED: if (ds->halt_reason != NDMP9_DATA_HALT_NA) { strcpy (errbuf, "reason != NA"); goto fail; } break; case NDMP9_DATA_STATE_HALTED: break; default: strcpy (errbuf, "bogus state"); goto fail; } what = "state"; if (ds->state != expected) { sprintf (errbuf, "expected %s got %s", ndmp9_data_state_to_str (expected), ndmp9_data_state_to_str (ds->state)); goto fail; } what = "reason"; switch (ds->state) { case NDMP9_DATA_STATE_HALTED: if (ds->halt_reason != (ndmp9_data_halt_reason)reason) { sprintf (errbuf, "expected %s got %s", ndmp9_data_halt_reason_to_str (reason), ndmp9_data_halt_reason_to_str (ds->halt_reason)); goto fail; } break; default: break; } /* test passed */ ndmca_test_close (sess); return 0; fail: /* test failed */ sprintf(tmpbuf, "%s: %s", what, errbuf); ndmca_test_fail(sess, tmpbuf); ndmca_test_close (sess); return -1; }