Cross Reference: unshift.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
t
/
op
/
unshift.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
1
N/A
#!./perl
1
N/A
1
N/A
# $RCSfile:
unshift.t
,v $$Revision: 4.1 $$Date: 92/08/07 18:28:35 $
1
N/A
1
N/A
print
"1..2\n"
;
1
N/A
1
N/A
@a =
(
1
,
2
,
3
)
;
1
N/A
$cnt1
=
unshift
(a,
0
)
;
1
N/A
1
N/A
if
(
join
(
' '
,@a)
eq
'0 1 2 3'
)
{
print
"ok 1\n"
;}
else
{
print
"not ok 1\n"
;}
1
N/A
$cnt2
=
unshift
(a,
3
,
2
,
1
)
;
1
N/A
if
(
join
(
' '
,@a)
eq
'3 2 1 0 1 2 3'
)
{
print
"ok 2\n"
;}
else
{
print
"not ok 2\n"
;}
1
N/A
1
N/A