view release on metacpan or  search on metacpan

t/01-tools.t  view on Meta::CPAN

    safe_mode   => 1,
);

# Get tools
my $tools = shell_tools($session);
ok($tools, 'shell_tools returns tools');
is(ref($tools), 'ARRAY', 'shell_tools returns arrayref');
ok(scalar(@$tools) >= 5, 'At least 5 tools defined');

# Check tool names
my %tool_names = map { $_->name => $_ } @$tools;
ok(exists $tool_names{execute_command}, 'execute_command tool exists');
ok(exists $tool_names{read_file}, 'read_file tool exists');
ok(exists $tool_names{list_directory}, 'list_directory tool exists');
ok(exists $tool_names{search_files}, 'search_files tool exists');
ok(exists $tool_names{get_system_info}, 'get_system_info tool exists');
ok(exists $tool_names{get_working_directory}, 'get_working_directory tool exists');

# Test tool has proper structure
for my $tool (@$tools) {
    ok($tool->name, "Tool has name: " . $tool->name);