1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!/usr/bin/perl
#
# https://rt.cpan.org/Ticket/Display.html?id=53899
#
use strict;
use warnings;
use lib './lib';
use Test::More;
use Schedule::Cron::Events;
use Data::Dumper;
plan(tests => 1);
my $obj_crontab1 = Schedule::Cron::Events->new( " 2 * * * * whatever", Date => [ 10, 45, 12, 23, 4, 111 ] );
my $obj_crontab2 = Schedule::Cron::Events->new( "2 * * * * whatever", Date => [ 10, 45, 12, 23, 4, 111 ] );
ok($obj_crontab1->{'initline'} eq $obj_crontab2->{'initline'}, "leading space in crontab line");
|
