# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
######################### We start with some black magic to print on failure.
# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)
BEGIN { $| = 1; print "1..6\n"; }
END {print "not ok 1\n" unless $main::loaded;}
use HPUX::Ioscan;
$loaded = 1;
my $idx = 1;
print "ok ",$idx++,"\n";
$attr1="";
$attr2="";
$attr3="";
$attr4="";
$attr5="";
$attr6="";
# Create data structures
my $ioscan_data = new HPUX::Ioscan(
persistance =>"old",
datafile =>"./t/ioscan_info.dat",
);
print "ok ",$idx++,"\n";
#print "\n\nTesting Ioscan.pm\n\n" if $debug;
# testing Ioscan.pm
$arref = $ioscan_data->get_disk_controllers();
foreach $controller ( @$arref ) {
# print"Controller: $controller\n";
$controller_save = $controller;
}
print "ok ",$idx++,"\n";
$attr1 = $ioscan_data->get_description(
controller => "$controller_save"
);
$attr2 = $ioscan_data->get_block_major_number(
controller => "$controller_save"
);
$attr3 = $ioscan_data->get_cdio(
controller => "$controller_save"
);
$attr4 = $ioscan_data->get_driver(
controller => "$controller_save"
);
$attr5 = $ioscan_data->get_instance_number(
controller => "$controller_save"
);
$attr6 = $ioscan_data->get_module_name(
controller => "$controller_save"
);
print "ok ",$idx++,"\n";
$alldisks = $ioscan_data->get_all_disks_on_controller(
controller => $controller_save
);
print "ok ",$idx++,"\n";
$disk="";
foreach $disk (@$alldisks) {
# print "Disk: $disk\n";
}
print "ok ",$idx++,"\n";