Cross Reference: extra.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
lib
/
Test
/
Simple
/
t
/
extra.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
extra.t revision 1
1
N/A
#!perl -w
1
N/A
1
N/A
BEGIN
{
1
N/A
if
(
$ENV
{
PERL_CORE
} )
{
1
N/A
chdir
't'
;
1
N/A
@
INC
=
'../lib'
;
1
N/A
}
1
N/A
}
1
N/A
1
N/A
# Can't use
Test.pm
, that's a 5.005 thing.
1
N/A
package
My
::
Test
;
1
N/A
1
N/A
print
"1..2\n"
;
1
N/A
1
N/A
my
$test_num
=
1
;
1
N/A
# Utility testing functions.
1
N/A
sub
ok
($;$)
{
1
N/A
my
(
$test
,
$name
)
= @_;
1
N/A
my
$ok
=
''
;
1
N/A
$ok
.=
"not "
unless
$test
;
1
N/A
$ok
.=
"ok
$test_num
"
;
1
N/A
$ok
.=
" -
$name
"
if
defined
$name
;
1
N/A
$ok
.=
"\n"
;
1
N/A
print
$ok
;
1
N/A
$test_num
++;
1
N/A
}
1
N/A
1
N/A
1
N/A
package
main
;
1
N/A
1
N/A
require
Test
::
Simple
;
1
N/A
1
N/A
chdir
't'
;
1
N/A
push
@
INC
,
'../
t
/
lib
/'
;
1
N/A
require
Test
::
Simple
::
Catch
;
1
N/A
my
(
$out
,
$err
)
=
Test
::
Simple
::
Catch
::
caught
()
;
1
N/A
1
N/A
Test
::
Simple
->
import
(
tests
=>
3
)
;
1
N/A
1
N/A
#line 30
1
N/A
ok
(
1
,
'Foo'
)
;
1
N/A
ok
(
0
,
'Bar'
)
;
1
N/A
ok
(
1
,
'Yar'
)
;
1
N/A
ok
(
1
,
'Car'
)
;
1
N/A
ok
(
0
,
'Sar'
)
;
1
N/A
1
N/A
END
{
1
N/A
My
::
Test
::
ok
($
$out
eq
<<OUT
);
1
N/A
1..3
1
N/A
ok 1 - Foo
1
N/A
not ok 2 - Bar
1
N/A
ok 3 - Yar
1
N/A
ok 4 - Car
1
N/A
not ok 5 - Sar
1
N/A
OUT
1
N/A
1
N/A
My
::
Test
::
ok
($
$err
eq
<<ERR
);
1
N/A
# Failed test ($0 at line 31)
1
N/A
# Failed test ($0 at line 34)
1
N/A
# Looks like you planned 3 tests but ran 2 extra.
1
N/A
ERR
1
N/A
1
N/A
exit
0
;
1
N/A
}