Test new filemap method

This commit is contained in:
John Mertz 2022-11-29 22:21:30 -05:00
parent cfbcee7c7d
commit c0b635c15c
Signed by: jpm
GPG Key ID: E9C5EA2D867501AB
1 changed files with 2 additions and 1 deletions

View File

@ -16,7 +16,8 @@ my $file = 't/02_files.cf';
ok (!$kw->readFile($file), "Run readFile on $file");
ok ($kw->getFile($file) == $file, "Get current working file");
ok (scalar(keys(%{$kw->{'rules'}})) == 2, "Fetched correct number of files in rules");
ok ($kw->{'rules'}->{'50_02_T_02_FILES.cf'}, "Loaded correct output name");
ok ($kw->{'rules'}->{$file}, "Loaded correct hash key");
ok ($kw->{'filemap'}->{$file} =~ m/50_02_T_02_FILES.cf$/, "Loaded correct output name");
ok (!$kw->clearFiles(), "Clear 'rules' hash");
ok (!$kw->{'rules'}, "Fetched none after clearing");