Added t/30-basics.t

Changes

@@ -1,5 +1,8 @@
 Revision history for Genealogy::ObituaryDailyTimes
 
+0.14
+	Added t/30-basics.t
+
 0.13	Sun Sep 15 14:52:02 EDT 2024
 	search() can now just take one parameter which is the last name
 	Added CircleCI, Coveralls and Codecov

lib/Genealogy/ObituaryDailyTimes.pm

@@ -83,7 +83,8 @@ sub new {
 
 =cut
 
-sub search {
+sub search
+{
 	my $self = shift;
 	my $params = $self->_get_params('last', @_);
 

t/30-basics.t

@@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use Test::More tests => 4;
+
+# Module loads
+BEGIN { use_ok('Genealogy::ObituaryDailyTimes') }
+
+# Object creation
+my $directory = 'lib/Genealogy/ObituaryDailyTimes/data';
+my $called = 0;
+my $logger = sub { $called++ };
+my $obj = Genealogy::ObituaryDailyTimes->new(
+	directory => $directory,
+	logger => $logger
+);
+ok($obj, 'Object created successfully');
+
+# Method 'search' for mandatory 'last' argument
+my $result = $obj->search(last => 'Smith');
+ok($result, 'Search method works with mandatory "last" argument');
+cmp_ok($called, '>', 0, 'Logger has been called');