#!perl
BEGIN {
unless
(
$ENV
{AUTHOR_TESTING}) {
print
"1..0 # SKIP these tests are for testing by the author"
;
exit
;
}
}
my
$config_file
=
't/author-lib.ini'
;
my
$config
= Config::Tiny ->
read
(
't/author-lib.ini'
)
or
die
Config::Tiny -> errstr();
our
$LIB
=
$config
->{_}->{lib};
die
"No library defined in file '$config_file'"
unless
defined
$LIB
;
die
"Invalid library name '$LIB' in file '$config_file'"
unless
$LIB
=~ /^[A-Za-z]\w*(::\w+)*\z/;
eval
"require $LIB"
;
die
$@
if
$@;
can_ok(
$LIB
,
'_to_oct'
);
my
@data
;
for
(
my
$x
= 0;
$x
<= 255 ; ++
$x
) {
push
@data
, [
$x
,
sprintf
(
"%o"
,
$x
) ];
}
(
my
$datafile
= $0) =~ s/\.t/.dat/;
open
DATAFILE,
$datafile
or
die
"$datafile: can't open file for reading: $!"
;
while
(<DATAFILE>) {
s/\s+\z//;
next
if
/^
push
@data
, [
split
/:/ ];
}
close
DATAFILE or
die
"$datafile: can't close file after reading: $!"
;
for
(
my
$i
= 0 ;
$i
<=
$#data
; ++
$i
) {
my
(
$in0
,
$out0
) = @{
$data
[
$i
] };
my
(
$x
,
@got
);
my
$test
=
qq|\$x = $LIB->_new("$in0"); |
.
qq|\@got = $LIB->_to_oct(\$x)|
;
diag(
"\n$test\n\n"
)
if
$ENV
{AUTHOR_DEBUGGING};
eval
$test
;
is($@,
""
,
"'$test' gives emtpy \$\@"
);
subtest
"_to_oct() in list context: $test"
,
sub
{
plan
tests
=> 3,
cmp_ok(
scalar
@got
,
'=='
, 1,
"'$test' gives one output arg"
);
is(
ref
(
$got
[0]),
""
,
"'$test' output arg is a scalar"
);
is(
$got
[0],
$out0
,
"'$test' output arg has the right value"
);
};
}
for
(
my
$i
= 0 ;
$i
<=
$#data
; ++
$i
) {
my
(
$in0
,
$out0
) = @{
$data
[
$i
] };
my
(
$x
,
$got
);
my
$test
=
qq|\$x = $LIB->_new("$in0"); |
.
qq|\$got = $LIB->_to_oct(\$x)|
;
diag(
"\n$test\n\n"
)
if
$ENV
{AUTHOR_DEBUGGING};
eval
$test
;
is($@,
""
,
"'$test' gives emtpy \$\@"
);
subtest
"_to_oct() in scalar context: $test"
,
sub
{
plan
tests
=> 2,
is(
ref
(
$got
),
""
,
"'$test' output arg is a scalar"
);
is(
$got
,
$out0
,
"'$test' output arg has the right value"
);
};
}