/
test.pl
127 lines (95 loc) · 2.24 KB
/
test.pl
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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
#!/usr/bin/perl
use feature 'say';
use lib "./lib";
use Tie::Queue;
use Data::Dumper;
use Time::HiRes qw(time);
tie my @a, 'Tie::Queue', '127.0.0.1', 1978, 1, 0, 'sdsd' ;
tie my @b, 'Tie::Queue', '127.0.0.1', 1978, 1, 0, 'tata';
tie my @c, 'Tie::Queue', '127.0.0.1', 1978, 0, 1, 'titi';
tie my @d, 'Tie::Queue', '127.0.0.1', 1978, 0, 1;
tie my @e, 'Tie::Queue', '127.0.0.1', 1978, 0, 0, 'toto', 0, 0, 0, 0, 1 ;
print "****** Test push\n";
push @a, 'test';
print Dumper( \@a );
for ( 101 .. 110 )
{
push @a, $_.'_'.time;
}
for ( 1001 .. 1005 )
{
push @b, $_.'_'.time;
}
print Dumper( \@a );
print "****** Test pop\n";
my $t = pop @a;
say "t=$t";
print "****** Test shift\n";
my $t = shift @a;
say "t=$t";
print "****** Test serialisation of complex data \n";
my %test = ( a => 'key_a', b => 'key_B' , c => 3 );
print Dumper(\%test);
push @d , \%test;
my $r = pop @d;
print Dumper($r);
#
# print "size of array=". scalar @a. "\n";
#
# print "size of array a = " . scalar @a . "\n";
# print Dumper( \@b );
# print "size of array b = " . scalar @b . "\n";
#
#
# $res1 = pop @a;
# print "latest element in a $res1\n";
#
# print "size of array a = " . scalar @a . "\n";
# print "size of array b = " . scalar @b . "\n";
# print "size of array c = " . scalar @c . "\n";
# #
# $resC = pop @c;
# print "latest element in c $resC\n";
# print "size of array c =" . scalar @c . "\n";
# print Dumper( \@a );
print "****** Test index\n";
$res2 = $a[3];
print "element 3 = $res2\n";
$res3 = shift @a;
print "first element of a = <$res3>\n";
print "size of array=" . scalar @a . "\n";
print Dumper( \@a );
print "****** Test exists\n";
if ( exists $a[4] )
{
print "elem 4 exists\n";
}
else
{
print "elem 4 NOT exists\n";
}
if ( exists $a[40] )
{
print "elem 40 exists\n";
}
else
{
print "elem 40 is NOT existing\n";
}
print "****** Test CLEAR\n";
(tied @a)->CLEAR;
print Dumper( \@a );
undef @b;
print Dumper( \@b );
print "****** Test SIZE ( scalar )\n";
print "size of array a = " . scalar @a . "\n";
print "size of array b = " . scalar @b . "\n";
print "size of array c = " . scalar @c . "\n";
print "****** Test no duplicate feature\n";
for my $a ( 1 .. 10 )
{
push @e , $a;
}
print Dumper( \@e );
push @e , 7;
print Dumper( \@e );