# Is the 'text' option handled correctly?
use Test::More tests => 2;
use Text::TypingEffort qw( effort );
my $text = '';
# text parameter as a scalar
$effort = effort( text => $text );
is_deeply(
$effort,
{
characters => 0,
presses => 0,
distance => 0,
energy => 0,
},
'empty string'
);
# text parameter as a scalarref
my $effort = effort( text => \$text );
is_deeply(
$effort,
{
characters => 0,
presses => 0,
distance => 0,
energy => 0,
},
'reference to empty string'
);