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 # Test NFSv4: 
  27 # {a}:Test get attr FATTR4_FSID of a filesystem object, expect OK
  28 #
  29 
  30 # Get the TESTROOT directory; set to '.' if not defined
  31 set TESTROOT $env(TESTROOT)
  32 set delm $env(DELM)
  33 
  34 # include common code and init section
  35 source ${TESTROOT}${delm}tcl.init
  36 source ${TESTROOT}${delm}testproc
  37 
  38 # connect to the test server
  39 Connect
  40 
  41 # setting local variables
  42 set TNAME $argv0
  43 set bfh [get_fh "$BASEDIRS"]
  44 set expcode "OK"
  45 
  46 
  47 # Start testing 
  48 # -----------------------------------------------------------------
  49 # a: Test get attr FATTR4_FSID of a filesystem, expect OK
  50 
  51 # Generate a compound request that
  52 # obtains the attributes for the path.
  53 
  54 set ASSERTION "Test get attr FATTR4_FSID of a filesystem, expect $expcode"
  55 putmsg stdout 0 "$TNAME{a}: $ASSERTION"
  56 
  57 set attr {fsid}
  58 set res [compound { Putfh $bfh; Lookup $env(TEXTFILE); Getfh; Getattr $attr }]
  59 set cont [ckres "Getattr" $status $expcode $res $FAIL]
  60 
  61 if { ![string equal $cont "false"] } {
  62         set fh [lindex [lindex $res 2] 2]
  63         set attrval [ extract_attr [lindex [lindex $res 3] 2] "fsid" ]
  64 
  65         set majornum [ lindex $attrval 0 ]
  66         set minornum [ lindex $attrval 1 ]
  67 
  68         if { [ regexp {^[+]*[0-9]+$} $majornum ] } {
  69                 if { [ regexp {^[-+]*[0-9]+$} $minornum ]} {
  70                         prn_attrs [lindex [lindex $res 3] 2]
  71                         putmsg stdout 0 "\t Test PASS"
  72                 } else {
  73                         prn_attrs [lindex [lindex $res 3] 2]
  74                         putmsg stderr 0 "\t Test FAIL: FATTR4_FSID attr is invalid"
  75         }
  76         } else {
  77                 putmsg stderr 0 "\t Test FAIL: FATTR4_FSID attr is invalid"
  78         }
  79 }
  80 
  81 puts ""
  82 
  83 Disconnect 
  84 exit $PASS