# t/01-get_config.t use strict; use warnings; use lib 'blib/lib'; use Test::More; use translate; my $num_tests = 0; my $ini_path = qw( /home/bob/Documents/html_template_data/3.values.ini ); my $sub_hash = "google"; my $key = get_config($ini_path, $sub_hash); ok(defined $key, "get_config() : key defined"); $num_tests++; ok($key eq 'blahblah', "get_config() : key has correct value"); $num_tests++; # END done_testing($num_tests);