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