Cross Reference: reverse.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
t
/
op
/
reverse.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
1
N/A
#!./perl
1
N/A
1
N/A
BEGIN
{
1
N/A
chdir
't'
if
-d
't'
;
1
N/A
@
INC
=
'../lib'
;
1
N/A
}
1
N/A
1
N/A
print
"1..4\n"
;
1
N/A
1
N/A
print
"not "
unless
reverse
(
"abc"
)
eq
"cba"
;
1
N/A
print
"ok 1\n"
;
1
N/A
1
N/A
$_ =
"foobar"
;
1
N/A
print
"not "
unless
reverse
()
eq
"raboof"
;
1
N/A
print
"ok 2\n"
;
1
N/A
1
N/A
{
1
N/A
my
@a =
(
"foo"
,
"bar"
)
;
1
N/A
my
@b =
reverse
@a;
1
N/A
1
N/A
print
"not "
unless
$b[
0
]
eq
$a[
1
] && $b[
1
]
eq
$a[
0
];
1
N/A
print
"ok 3\n"
;
1
N/A
}
1
N/A
1
N/A
{
1
N/A
# Unicode.
1
N/A
1
N/A
my
$a =
"\x{263A}\x{263A}x\x{263A}y\x{263A}"
;
1
N/A
my
$b =
scalar
reverse
($a)
;
1
N/A
my
$c =
scalar
reverse
($b)
;
1
N/A
print
"not "
unless
$a
eq
$c;
1
N/A
print
"ok 4\n"
;
1
N/A
}