#!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/;
our
$REF
=
$config
->{_}->{
ref
};
die
"No reference type defined in file '$config_file'"
unless
defined
$REF
;
die
"Invalid reference type '$REF' in file '$config_file'"
unless
$REF
=~ /^[A-Za-z]\w*(::\w+)*\z/;
eval
"require $LIB"
;
die
$@
if
$@;
can_ok(
$LIB
,
'_fac'
);
my
@data
;
(
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->_fac(\$x);|
;
diag(
"\n$test\n\n"
)
if
$ENV
{AUTHOR_DEBUGGING};
eval
$test
;
is($@,
""
,
"'$test' gives emtpy \$\@"
);
subtest
"_fac() in list context: $test"
,
sub
{
plan
tests
=> 6,
cmp_ok(
scalar
@got
,
"=="
, 1,
"'$test' gives one output arg"
);
is(
ref
(
$got
[0]),
$REF
,
"'$test' output arg is a $REF"
);
is(
$LIB
->_check(
$got
[0]), 0,
"'$test' output is valid"
);
is(
$LIB
->_str(
$got
[0]),
$out0
,
"'$test' output arg has the right value"
);
is(
ref
(
$x
),
$REF
,
"'$test' input arg is still a $REF"
);
ok(
$LIB
->_str(
$x
) eq
$out0
||
$LIB
->_str(
$x
) eq
$in0
,
"'$test' input arg has the correct 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->_fac(\$x);|
;
diag(
"\n$test\n\n"
)
if
$ENV
{AUTHOR_DEBUGGING};
eval
$test
;
is($@,
""
,
"'$test' gives emtpy \$\@"
);
subtest
"_fac() in scalar context: $test"
,
sub
{
plan
tests
=> 5,
is(
ref
(
$got
),
$REF
,
"'$test' output arg is a $REF"
);
is(
$LIB
->_check(
$got
), 0,
"'$test' output is valid"
);
is(
$LIB
->_str(
$got
),
$out0
,
"'$test' output arg has the right value"
);
is(
ref
(
$x
),
$REF
,
"'$test' input arg is still a $REF"
);
ok(
$LIB
->_str(
$x
) eq
$out0
||
$LIB
->_str(
$x
) eq
$in0
,
"'$test' input arg has the correct value"
);
};
}