#!perl

use strict;
use warnings;
use Test;

BEGIN {
    plan tests => ($> == 0) ? 3 : 0;
}

if ($> == 0) {
    ok(system("killall iscsi-scstd >/dev/null 2>&1; " .
	      "modprobe -r scst_cdrom; " .
	      "modprobe -r scst_disk; " .
	      "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"));

    ok(system("modprobe scst_local add_default_tgt=0 && " .
	      "modprobe iscsi-scst && " .
	      "modprobe ib_srpt && " .
	      "modprobe scst_vdisk && " .
	      "../../../iscsi-scst/usr/iscsi-scstd"), 0);
}