1 #! /usr/perl5/bin/perl
   2 #
   3 # Copyright 2009 Sun Microsystems, Inc.  All rights reserved.
   4 # Use is subject to license terms.
   5 #
   6 
   7 #
   8 # BSD 3 Clause License
   9 #
  10 # Redistribution and use in source and binary forms, with or without
  11 # modification, are permitted provided that the following conditions
  12 # are met:
  13 #       - Redistributions of source code must retain the above copyright
  14 #         notice, this list of conditions and the following disclaimer.
  15 #
  16 #       - Redistributions in binary form must reproduce the above copyright
  17 #         notice, this list of conditions and the following disclaimer in
  18 #         the documentation and/or other materials provided with the
  19 #         distribution.
  20 #
  21 #       - Neither the name of Sun Microsystems, Inc. nor the
  22 #         names of its contributors may be used to endorse or promote products
  23 #         derived from this software without specific prior written permission.
  24 #
  25 # THIS SOFTWARE IS PROVIDED BY SUN MICROSYSTEMS, INC. "AS IS" AND ANY
  26 # EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
  27 # WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  28 # DISCLAIMED. IN NO EVENT SHALL SUN MICROSYSTEMS, INC. BE LIABLE FOR ANY
  29 # DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
  30 # (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES
  31 # LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
  32 # ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  33 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
  34 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  35 #
  36 
  37 #
  38 # This is SCSI interface test case file. This file invokes the different 
  39 # NDMP SCSI interface tests.
  40 #
  41 #
  42 # Copyright 2015 Nexenta Systems, Inc.  All rights reserved.
  43 #
  44 
  45 use strict;
  46 use warnings;
  47 
  48 our @iclist=("ic1","ic2","ic3","ic4","ic5","ic6","ic7","ic8","ic9","ic10","ic11","ic12","ic13","ic14","ic15","ic16","ic17");
  49 
  50 our @ic1=("scsi_close_dnoe");
  51 our @ic2=("scsi_close_nae");
  52 our @ic3=("scsi_close_nne");
  53 our @ic4=("scsi_exec_dnoe");
  54 our @ic5=("scsi_exec_nae");
  55 our @ic6=("scsi_exec_nne");
  56 our @ic7=("scsi_exec_iae");
  57 our @ic8=("scsi_get_state_dnoe");
  58 our @ic9=("scsi_get_state_nae");
  59 our @ic10=("scsi_get_state_nne");
  60 our @ic11=("scsi_open_doe");
  61 our @ic12=("scsi_open_nae");
  62 our @ic13=("scsi_open_nne");
  63 our @ic14=("scsi_open_nde");
  64 our @ic15=("scsi_reset_device_dnoe");
  65 our @ic16=("scsi_reset_device_nae");
  66 our @ic17=("scsi_reset_device_nne");
  67 
  68 sub startup() {
  69         &tet'infoline("This is the startup");
  70 }
  71 
  72 sub cleanup() {
  73         &tet'infoline("This is the cleanup");
  74 }
  75 
  76 require "tp_SCSI";
  77 
  78 require "$ENV{\"CTI_SUITE\"}/lib/ndmp_execute";
  79 require "$ENV{\"CTI_ROOT\"}/lib/ctiutils.pl";
  80 require "$ENV{\"CTI_ROOT\"}/lib/ctilib.pl";
  81 1;