#!/usr/bin/expect --

set MINOR [lindex $argv 0]
set PATTERN [lindex $argv 1]
set INITIAL [lindex $argv 2]
set GBYTES [lindex $argv 3]

set timeout 10

puts $timeout

set GBYTE 1

spawn /date/rorc/Linux/rorc_receive -G2 -m$MINOR -P $PATTERN -I $INITIAL

while {$GBYTE <= $GBYTES} {
    expect {
	"at least $GBYTE Gbyte" {
	    set GBYTE [expr $GBYTE + 1];
	} else {
	    exit 0
	}
	"DATA COMPARE ERROR" {exit 1}
	"link is not on" {exit 2}
    }
}
    
if {$GBYTE > $GBYTES} {
    exit 0
} else {
    exit 3
}