package Test_Package;

use strict;

sub testing {
   print "okay.";
};

1;

use strict;

use Test::More tests => 1;

my $log;

open my $logFile, '>', \$log;
my $oldStdOut = select $logFile;

Test_Package->testing();
select $oldStdOut;
close $logFile;

is($log, 'okay', 'Testing okay');