File: test02.pl

package info (click to toggle)
open-isns 0.101-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, trixie
  • size: 2,420 kB
  • sloc: ansic: 19,981; sh: 3,211; python: 1,083; perl: 839; makefile: 214
file content (59 lines) | stat: -rwxr-xr-x 1,805 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
#!/usr/bin/perl
#
# Copyright (C) 2007 Olaf Kirch <olaf.kirch@oracle.com>
#
# This test case validates registration and simple query of
# two clients, and simple DD functionality.

push(@INC, ".");
require "harness.pl";

&test_prep("test02", @ARGV);

$server = &create_server;
$client1 = &create_client($server, "127.1.0.1");
$client2 = &create_client($server, "127.1.0.2");

&isns_start_server($server);

# Enroll the clients
if ($__isns_security) {
    &isns_enroll_client($client1);
    &isns_enroll_client($client2, "node-type=target");
}

&isns_stage("registration", "Registering both clients");
&__isns_register_client($client1, "initiator portal");
&__isns_register_client($client2, "target portal");
&isns_verify_db($server);

# Now each of the two clients should just see
# itself
&isns_query_objects($client1, "eid");
&isns_query_objects($client2, "eid");

# Register a DD linking the two nodes
&isns_register_domain($client1, "member-name=isns.client1",
		      "member-name=isns.client2");

# Now the clients should see each other
&isns_query_objects($client1, "eid");
&isns_query_objects($client2, "eid");

# Initiator querying for target:
&isns_query_objects($client1, "iscsi-node-type=Target");

# Add another member to this DD, and re-add client2 (making
# sure the server doesn't generate dupes)
&isns_register_domain($client1, "dd-id=1", "member-name=isns.client2", "member-name=iqn.com.foobar:disk1");

# Query the list of DDs we're a member of
&isns_query_objects($client1, "dd-id");

# Remove some entries from the DD
&isns_deregister_domain($client1, "1", "member-iscsi-idx=10");
&isns_deregister_domain($client1, "1", "member-name=iqn.com.foobar:disk1");
&isns_register_domain($client1, "dd-id=1", "member-name=isns.client2");
&isns_deregister_domain($client1, "1");

&isns_finish;