1 #
   2 # CDDL HEADER START
   3 #
   4 # The contents of this file are subject to the terms of the
   5 # Common Development and Distribution License (the "License").
   6 # You may not use this file except in compliance with the License.
   7 #
   8 # You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
   9 # or http://www.opensolaris.org/os/licensing.
  10 # See the License for the specific language governing permissions
  11 # and limitations under the License.
  12 #
  13 # When distributing Covered Code, include this CDDL HEADER in each
  14 # file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  15 # If applicable, add the following below this CDDL HEADER, with the
  16 # fields enclosed by brackets "[]" replaced with your own identifying
  17 # information: Portions Copyright [yyyy] [name of copyright owner]
  18 #
  19 # CDDL HEADER END
  20 #
  21 
  22 #
  23 # Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
  24 # Use is subject to license terms.
  25 #
  26 # NFSv4 named attributes:
  27 #
  28 # a: Test READ of named attrs after call to Openattr, expect OK
  29 #
  30 
  31 set TESTROOT $env(TESTROOT)
  32 
  33 # include common code and init section
  34 source [file join ${TESTROOT} tcl.init]
  35 source [file join ${TESTROOT} testproc]
  36 
  37 source READ_proc
  38 
  39 # connect to the test server
  40 Connect
  41 
  42 # setting local variables
  43 set TNAME $argv0
  44 set bfh [get_fh "$BASEDIRS"]
  45 set expcode "OK"
  46 
  47 # Get the size of the $ATTRDIR_AT1 file
  48 set res [compound {Putfh $bfh; Lookup $env(ATTRDIR); Openattr f; Getfh; Lookup $env(ATTRDIR_AT1); Getfh; Getattr size}]
  49 set fsize [lindex [lindex [lindex [lindex $res 6] 2] 0] 1]
  50 set tfh [lindex [lindex $res 3] 2]
  51 
  52 # Start testing
  53 # ------------------------------------------------------------------------
  54 # a: Test READ of named attrs after call to Openattr, expect OK
  55 
  56 set ASSERTION "Test READ of named attrs after call to Openattr, expect OK"
  57 putmsg stdout 0 "$TNAME{a}: $ASSERTION"
  58 
  59 # Do the read on the attrdir file
  60 
  61 set count 8192
  62 ckread $tfh $env(ATTRDIR_AT1) 0 $count $expcode $fsize $PASS
  63 
  64 Disconnect 
  65 exit 0