no
warnings
'redefine'
;
*App::FromUnixtime::RC
=
sub
{ +{} };
{
open
my
$IN
,
'<'
, \
<<'_INPUT_';
id 1
name John
date 1419702037
_INPUT_
local
*STDIN
=
*$IN
;
my
(
$stdout
,
$strerr
) = capture {
App::FromUnixtime->run;
};
close
$IN
;
note
$stdout
if
$ENV
{AUTHOR_TEST};
like
$stdout
,
qr/date\s+1419702037\([^\)]+\)/
;
}
{
open
my
$IN
,
'<'
, \
<<'_INPUT_';
id 1
name John
created_on 1419692400
_INPUT_
local
*STDIN
=
*$IN
;
my
(
$stdout
,
$strerr
) = capture {
App::FromUnixtime->run(
'--format'
=>
'%Y-%m-%d %H:%M:%S'
);
};
close
$IN
;
note
$stdout
if
$ENV
{AUTHOR_TEST};
like
$stdout
,
qr/created_on\s+1419692400\(\d+-\d+-\d+ \d+:\d+:\d+\)/
;
}
{
open
my
$IN
,
'<'
, \
<<'_INPUT_';
id 1
name John
date 2147483648
_INPUT_
local
*STDIN
=
*$IN
;
my
(
$stdout
,
$strerr
) = capture {
App::FromUnixtime->run;
};
close
$IN
;
note
$stdout
if
$ENV
{AUTHOR_TEST};
like
$stdout
,
qr/date\s+2147483648[^\(]/
;
}
{
open
my
$IN
,
'<'
, \
<<'_INPUT_';
id 1
name John
created_on 1419692400
_INPUT_
local
*STDIN
=
*$IN
;
my
(
$stdout
,
$strerr
) = capture {
App::FromUnixtime->run(
'--start-bracket'
=>
'['
,
'--end-bracket'
=>
']'
);
};
close
$IN
;
note
$stdout
if
$ENV
{AUTHOR_TEST};
like
$stdout
,
qr/created_on\s+1419692400\[.+\]/
;
}
{
open
my
$IN
,
'<'
, \
<<'_INPUT_';
id 1
name John
value 1419692400
_INPUT_
local
*STDIN
=
*$IN
;
my
(
$stdout
,
$strerr
) = capture {
App::FromUnixtime->run(
'--re'
=>
'value'
);
};
close
$IN
;
note
$stdout
if
$ENV
{AUTHOR_TEST};
like
$stdout
,
qr/value\s+1419692400\(.+\)/
;
}
{
open
my
$IN
,
'<'
, \
<<'_INPUT_';
1419692400
_INPUT_
local
*STDIN
=
*$IN
;
my
(
$stdout
,
$strerr
) = capture {
App::FromUnixtime->run;
};
close
$IN
;
note
$stdout
if
$ENV
{AUTHOR_TEST};
like
$stdout
,
qr/1419692400\(.+\)/
;
}
done_testing;