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 TAPE interface test case file. This file invokes the different 
  39 # NDMP TAPE 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              "ic18","ic19","ic20","ic21","ic22","ic23","ic24");
  50 
  51 our @ic1        =("tape_close_dnoe");
  52 our @ic2        =("tape_close_nae");
  53 our @ic3        =("tape_close_nne");
  54 our @ic4        =("tape_exec_dnoe");
  55 our @ic5        =("tape_exec_nae");
  56 our @ic6        =("tape_exec_nne");
  57 our @ic7        =("tape_getstate_dnoe");
  58 our @ic8        =("tape_getstate_nne");
  59 our @ic9        =("tape_mtio_dnoe");
  60 our @ic10       =("tape_mtio_iae");
  61 our @ic11       =("tape_mtio_nae");
  62 our @ic12       =("tape_mtio_nne");
  63 our @ic13       =("tape_open_doe");
  64 our @ic14       =("tape_open_nae");
  65 our @ic15       =("tape_open_nde");
  66 our @ic16       =("tape_open_nne");
  67 our @ic17       =("tape_open_nte");
  68 our @ic18       =("tape_open_wpe");
  69 our @ic19       =("tape_read_dnoe");
  70 our @ic20       =("tape_read_nae");
  71 our @ic21       =("tape_read_nne");
  72 our @ic22       =("tape_write_dnoe");
  73 our @ic23       =("tape_write_nae");
  74 our @ic24       =("tape_write_nne");
  75 
  76 sub startup() {
  77         &tet'infoline("This is the startup");
  78 }
  79 
  80 sub cleanup() {
  81         &tet'infoline("This is the cleanup");
  82 }
  83 
  84 require "tp_TAPE";
  85 
  86 require "$ENV{\"CTI_SUITE\"}/lib/ndmp_execute";
  87 require "$ENV{\"CTI_ROOT\"}/lib/ctiutils.pl";
  88 require "$ENV{\"CTI_ROOT\"}/lib/ctilib.pl";
  89 1;