view release on metacpan or  search on metacpan

t/new_from_crontab.t  view on Meta::CPAN

my $crontab = <<'END_CRONTAB';
# Comment line
MAILTO=admin@example.com
PATH=/usr/local/bin:/usr/bin:/bin

# Simple Unix entry
* * * * * /bin/echo "every minute"

# With user
0 2 * * * backupuser /usr/local/bin/full-backup

# Quartz entry
0 0 12 ? * MON-FRI * /usr/bin/daily-report

# Alias
@hourly root /scripts/hourly-job.sh

# Env vars + entry
FOO=bar
0 5 * * * /script --foo=$FOO

t/new_from_crontab.t  view on Meta::CPAN

is(scalar @entries, 6, "6 valid entries parsed");

# 1. Simple Unix
is($entries[0]->as_string, "0 * * * * ? *", "simple Unix normalized");
is($entries[0]->command, "/bin/echo \"every minute\"", "command preserved");
is($entries[0]->user, undef, "no user");
is_deeply($entries[0]->env, { 'PATH' => '/usr/local/bin:/usr/bin:/bin', 'MAILTO' => 'admin@example.com' } , "no env");

# 2. With user
is($entries[1]->as_string, "0 0 2 * * ? *", "backup entry");
is($entries[1]->user, "backupuser", "user parsed");
is($entries[1]->command, "/usr/local/bin/full-backup", "command");

# 3. Quartz entry
is($entries[2]->as_string, "0 0 12 ? * 1-5 *", "Quartz MON-FRI translated");
is($entries[2]->command, "/usr/bin/daily-report", "Quartz command");

# 4. Alias
is($entries[3]->as_string, "0 0 * * * ? *", '@hourly expanded correctly');
is($entries[3]->user, "root", "alias with user");
is($entries[3]->command, "/scripts/hourly-job.sh", "alias command");