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;
}
