tape.tcl

网络数据管理协议的开发

#                               -*- Mode: Tcl -*- 
# tape.tcl
# 
# Description     : 
# 
# Copyright (c) 1996,1997 PDC, Network Appliance. All Rights Reserved.
#
# $Id: tape.tcl,v 1.4 1997/02/01 09:50:22 tim Exp $
# 

if ![info exists env(SYSTEM_SCRIPT)] {
    source system.tcl
} else {
    source $env(SYSTEM_SCRIPT)
}

connect_open 1
eval $auth_cmd

# Test handling of a bogus tape device
tape_open /dev/bogus

tape_open $tape_device
tape_get_state
tape_mtio rew 1
tape_set_record_size 32768
tape_get_state

tape_write "file 1; record 1"
tape_write "file 1; record 2"
tape_write "file 1; record 3"
tape_mtio weof 1
tape_write "file 2; record 1"
tape_write "file 2; record 2"
tape_mtio weof 1
tape_write "file 3; record 1"
tape_mtio weof 2

tape_mtio rew

puts "Expect to read: file 1; record 1"
tape_read 32
puts "Expect to read: file 1; record 2"
tape_read 32

tape_mtio fsf 1
tape_mtio fsr 1

puts "Expect to read: file 2; record 2"
tape_read 32

tape_mtio bsr 10
puts "Expect to read: file 2; record 1"
tape_read 32

tape_mtio bsf 10
puts "Expect to read: file 1; record 1"
tape_read 32

tape_mtio fsf 10
tape_mtio bsf 2
tape_mtio bsr 1
puts "Expect to read: file 3; record 1"
tape_read 32

# Issue a test unit ready
tape_execute_cdb 1 0 0 0
# Issue a request sense
tape_execute_cdb 1 0 64 1

tape_close

puts "The following should generate an error."
tape_close

connect_close