view release on metacpan or  search on metacpan

t/cron.t  view on Meta::CPAN

#!/usr/bin/env perl

use v5.14.4;
use warnings;

our $VERSION = '9999.99.99_99'; # VERSION

use Test::More;
use Test::Warnings;

$^O =~ m/^MSWin/ ? plan tests => 84 : plan tests => 287;

use Rex::Cron::Base;

my @lines = eval { local (@ARGV) = ("t/cron.ex"); <>; };
chomp @lines;

my $c = Rex::Cron::Base->new;
$c->parse_cron(@lines);
my @cron = $c->list;

is( $cron[0]->{type}, "comment", "first line is a comment" );

is( $cron[1]->{type}, "comment",                   "second line is comment" );
is( $cron[1]->{line}, "# Shell variable for cron", "got the line content #2" );

is( $cron[2]->{type},  "env",       "3rd line is a env variable" );
is( $cron[2]->{name},  "SHELL",     "name is SHELL" );
is( $cron[2]->{value}, "/bin/bash", "value is /bin/bash" );

is( $cron[3]->{type}, "comment", "another comment" );
is( $cron[4]->{type}, "env",     "another env - path" );
is( $cron[4]->{name}, "PATH",    "path env" );
is(
  $cron[4]->{value},
  "/usr/local/bin:/usr/local/sbin:/sbin:/usr/sbin:/bin:/usr/bin:/usr/bin/X11",
  "path env value"
);

is( $cron[5]->{type},  "env",       "myvar env" );
is( $cron[5]->{name},  "MYVAR",     "myvar env got name" );
is( $cron[5]->{value}, '"foo=bar"', "myvar env got value" );

is( $cron[6]->{type}, "comment", "yet another comment" );

is( $cron[7]->{type}, "comment", "yet another line comment" );

is( $cron[8]->{type},                 "job",  "the first job" );
is( $cron[8]->{cron}->{minute},       5,      "the first job / min" );
is( $cron[8]->{cron}->{hour},         "9-20", "the first job / hour" );
is( $cron[8]->{cron}->{day_of_month}, "*",    "the first job / day" );
is( $cron[8]->{cron}->{month},        "*",    "the first job / month" );
is( $cron[8]->{cron}->{day_of_week},
  "*", "the first job / day_of_month of week" );
is(
  $cron[8]->{cron}->{command},
  "/home/username/script/script1.sh > /dev/null",
  "the first job / cmd"
);

is( $cron[9]->{type},                 "job",  "the 2nd job" );
is( $cron[9]->{cron}->{minute},       "*/10", "the 2nd job / min" );
is( $cron[9]->{cron}->{hour},         "*",    "the 2nd job / hour" );
is( $cron[9]->{cron}->{day_of_month}, "*",    "the 2nd job / day" );
is( $cron[9]->{cron}->{month},        "*",    "the 2nd job / month" );
is( $cron[9]->{cron}->{day_of_week}, "*",
  "the 2nd job / day_of_month of week" );
is(
  $cron[9]->{cron}->{command},
  "/usr/bin/script2.sh > /dev/null 2>&1",
  "the 2nd job / cmd"
);

is( $cron[10]->{type},                 "job", "the 3rd job" );
is( $cron[10]->{cron}->{minute},       "59",  "the 3rd job / min" );

t/cron.t  view on Meta::CPAN

  hour    => "5,6,7",
  month   => "*/2",
  command => "bar",
);

$c->add(
  minute      => "0",
  hour        => "0",
  day_of_week => "0",
);

@cron = $c->list;

is( $cron[14]->{type},                 "job", "the 6th job" );
is( $cron[14]->{cron}->{minute},       "1",   "the 6th job / min" );
is( $cron[14]->{cron}->{hour},         "2",   "the 6th job / hour" );
is( $cron[14]->{cron}->{day_of_month}, "3",   "the 6th job / day" );
is( $cron[14]->{cron}->{month},        "4",   "the 6th job / month" );
is( $cron[14]->{cron}->{day_of_week},
  "5", "the 6th job / day_of_month of week" );
is( $cron[14]->{cron}->{command}, "ls",           "the 6th job / cmd" );
is( $cron[14]->{line},            "1 2 3 4 5 ls", "the 6th job / cron line" );

is( $cron[15]->{type},                 "job", "the 7th job" );
is( $cron[15]->{cron}->{minute},       "*",   "the 7th job / min" );
is( $cron[15]->{cron}->{hour},         "*",   "the 7th job / hour" );
is( $cron[15]->{cron}->{day_of_month}, "*",   "the 7th job / day" );
is( $cron[15]->{cron}->{month},        "*",   "the 7th job / month" );
is( $cron[15]->{cron}->{day_of_week},
  "*", "the 7th job / day_of_month of week" );
is( $cron[15]->{cron}->{command}, "foo",           "the 7th job / cmd" );
is( $cron[15]->{line},            "* * * * * foo", "the 7th job / cron line" );

is( $cron[16]->{type},                 "job",   "the 8th job" );
is( $cron[16]->{cron}->{minute},       "*",     "the 8th job / min" );
is( $cron[16]->{cron}->{hour},         "5,6,7", "the 8th job / hour" );
is( $cron[16]->{cron}->{day_of_month}, "*",     "the 8th job / day" );
is( $cron[16]->{cron}->{month},        "*/2",   "the 8th job / month" );
is( $cron[16]->{cron}->{day_of_week},
  "*", "the 8th job / day_of_month of week" );
is( $cron[16]->{cron}->{command}, "bar",      "the 8th job / cmd" );
is( $cron[16]->{line}, "* 5,6,7 * */2 * bar", "the 8th job / cron line" );

is( $cron[17]->{type},                 "job", "the 9th job" );
is( $cron[17]->{cron}->{minute},       "0",   "the 9th job / min" );
is( $cron[17]->{cron}->{hour},         "0",   "the 9th job / hour" );
is( $cron[17]->{cron}->{day_of_month}, "*",   "the 9th job / day" );
is( $cron[17]->{cron}->{month},        "*",   "the 9th job / month" );
is( $cron[17]->{cron}->{day_of_week},
  "0", "the 9th job / day_of_month of week" );
is( $cron[17]->{cron}->{command}, "false", "the 9th job / cmd" );
is( $cron[17]->{line}, "0 0 * * 0 false",  "the 9th job / cron line" );

unless ( $^O =~ m/^MSWin/ ) {
  #
  # Write new entries and test again
  #

  my $file = $c->write_cron();
  @lines = undef;
  @lines = eval { local (@ARGV) = ($file); <>; };
  chomp @lines;
  unlink $file;

  $c = Rex::Cron::Base->new;
  $c->parse_cron(@lines);
  @cron = $c->list;

  is( $cron[0]->{type}, "comment", "first line is a comment" );

  is( $cron[1]->{type}, "comment", "second line is comment" );
  is( $cron[1]->{line}, "# Shell variable for cron",
    "got the line content #2" );

  is( $cron[2]->{type},  "env",       "3rd line is a env variable" );
  is( $cron[2]->{name},  "SHELL",     "name is SHELL" );
  is( $cron[2]->{value}, "/bin/bash", "value is /bin/bash" );

  is( $cron[3]->{type}, "comment", "another comment" );
  is( $cron[4]->{type}, "env",     "another env - path" );
  is( $cron[4]->{name}, "PATH",    "path env" );
  is(
    $cron[4]->{value},
    "/usr/local/bin:/usr/local/sbin:/sbin:/usr/sbin:/bin:/usr/bin:/usr/bin/X11",
    "path env value"
  );

  is( $cron[5]->{type},  "env",       "myvar env" );
  is( $cron[5]->{name},  "MYVAR",     "myvar env got name" );
  is( $cron[5]->{value}, '"foo=bar"', "myvar env got value" );

  is( $cron[6]->{type}, "comment", "yet another comment" );

  is( $cron[7]->{type}, "comment", "yet another line comment" );

  is( $cron[8]->{type},                 "job",  "the first job" );
  is( $cron[8]->{cron}->{minute},       5,      "the first job / min" );
  is( $cron[8]->{cron}->{hour},         "9-20", "the first job / hour" );
  is( $cron[8]->{cron}->{day_of_month}, "*",    "the first job / day" );
  is( $cron[8]->{cron}->{month},        "*",    "the first job / month" );
  is( $cron[8]->{cron}->{day_of_week},
    "*", "the first job / day_of_month of week" );
  is(
    $cron[8]->{cron}->{command},
    "/home/username/script/script1.sh > /dev/null",
    "the first job / cmd"
  );

  is( $cron[9]->{type},                 "job",  "the 2nd job" );
  is( $cron[9]->{cron}->{minute},       "*/10", "the 2nd job / min" );
  is( $cron[9]->{cron}->{hour},         "*",    "the 2nd job / hour" );
  is( $cron[9]->{cron}->{day_of_month}, "*",    "the 2nd job / day" );
  is( $cron[9]->{cron}->{month},        "*",    "the 2nd job / month" );
  is( $cron[9]->{cron}->{day_of_week},
    "*", "the 2nd job / day_of_month of week" );
  is(
    $cron[9]->{cron}->{command},
    "/usr/bin/script2.sh > /dev/null 2>&1",
    "the 2nd job / cmd"
  );