perl测试模拟make_path

use Test::More;

# 测试正常情况下的目录创建
ok(make_path('/path/to/directory'), 'make_path should create directory');

# 测试已存在目录的处理
ok(make_path('/path/to/existing/directory'), 'make_path should handle existing directory');

# 测试权限问题
ok(!make_path('/root/directory'), 'make_path should fail for restricted directory');

done_testing();

use Test::More;
use Test::MockModule;

my $mock_make_path = Test::MockModule->new('make_path');
$mock_make_path->mock(
    'make_path',
    sub {
        my ($path) = @_;
        if ($path eq '/path/to/existing/directory') {
            return 1;  # 模拟已存在目录的情况
        } elsif ($path eq '/root/directory') {
            die "Permission denied";  # 模拟权限问题
        } else {
            return 1;  # 模拟正常情况
        }
    }
);

# 测试正常情况下的目录创建
ok(make_path('/path/to/directory'), 'make_path should create directory');

# 测试已存在目录的处理
ok(make_path('/path/to/existing/directory'), 'make_path should handle existing directory');

# 测试权限问题
ok(!make_path('/root/directory'), 'make_path should fail for restricted directory');

done_testing();