#!perl | |
use strict; | |
use warnings; | |
use Test; | |
BEGIN { | |
plan tests => 2; | |
} | |
if ($> == 0) { | |
ok(system("killall iscsi-scstd; " . | |
"modprobe -r scst_local; " . | |
"modprobe -r isert-scst; " . | |
"modprobe -r iscsi-scst; " . | |
"modprobe -r ib_srpt; " . | |
"modprobe -r qla2x00tgt; " . | |
"modprobe -r qla2xxx_scst; " . | |
"modprobe -r scst_vdisk; " . | |
"modprobe -r scst"), 0); | |
ok(!(-d "/sys/module/scst")); | |
} else { | |
ok(1); | |
} |