view release on metacpan or  search on metacpan

t/parser/parse_test.t  view on Meta::CPAN

            },
    'nc' => 'EMPLOYEE_SPEC PRIV_SPEC EFFECTIVE _DATE'
} );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::History::add_priv_history' );

note( "EMPLOYEE_SPEC SET PRIV_SPEC _DATE" );
$cmd = "EMPLOYEE=63 SET active 2000-01-01 00:00";
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::History::add_priv_history' );

note( "EMPLOYEE_SPEC SET PRIV_SPEC EFFECTIVE _DATE" );
$cmd = "EMPLOYEE=63 SET active EFFECTIVE 2000-01-01 00:00:01";
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::History::add_priv_history' );

note( "EMPLOYEE_SPEC SCHEDULE_SPEC _DATE" );
$cmd = "EMPLOYEE=orc63 SCODE=FOO_SCHED 1955-04-27";
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::History::add_schedule_history' );

note( "EMPLOYEE_SPEC SCHEDULE_SPEC EFFECTIVE _DATE" );
$cmd = "EMPLOYEE=orc63 SCODE=FOO_SCHED EFFECTIVE 1955-04-27";
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::History::add_schedule_history' );

note( "EMPLOYEE_SPEC SET SCHEDULE_SPEC _DATE" );
$cmd = "EMPLOYEE=orc63 SET SCODE=FOO_SCHED 1955-04-27";
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::History::add_schedule_history' );

note( "EMPLOYEE_SPEC SET SCHEDULE_SPEC EFFECTIVE _DATE" );
$cmd = "EMPLOYEE=orc63 SET SCODE=FOO_SCHED EFFECTIVE 1955-04-27";
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::History::add_schedule_history' );

$cmd = "PHID=534 REMARK Not the longest remark in the world";
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::History::set_history_remark' );

$cmd = "PHID=534 SET REMARK Not the longest remark in the world";
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::History::set_history_remark' );

$cmd = "SHID=534 REMARK Not the longest remark in the world";
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::History::set_history_remark' );

$cmd = "SHID=534 SET REMARK Not the longest remark in the world";
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::History::set_history_remark' );


#================================
# Interval commands
#================================

note( "Interval fetch and fillup" );

note( $cmd = "INTERVAL your text here or there" );
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::Interval::interval_promptdate' ); 

note( $cmd = "EMPLOYEE=orc6e INTERVAL your text here or there" );
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::Interval::interval_promptdate' ); 

note( $cmd = "INTERVAL FETCH" );
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::Interval::interval_promptdate' ); 

note( $cmd = "EMPLOYEE=orc6e INTERVAL FETCH" );
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::Interval::interval_promptdate' ); 

note( $cmd = "INTERVAL FILLUP" );
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::Interval::interval_promptdate' ); 

note( $cmd = "EMPLOYEE=orc6e INTERVAL FILLUP" );
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::Interval::interval_promptdate' ); 

note( $cmd = "INTERVAL TOMORROW" );
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::Interval::interval_date' ); 

note( $cmd = "EMPLOYEE=orc6e INTERVAL TOMORROW" );
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::Interval::interval_date' ); 

note( $cmd = "INTERVAL FETCH 77-1-3" );
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::Interval::interval_date' ); 

note( $cmd = "EMPLOYEE=orc6e INTERVAL FETCH 77-1-3" );
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::Interval::interval_date' ); 

note( $cmd = "INTERVAL FILLUP 77-1-3" );
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::Interval::interval_date' ); 

note( $cmd = "EMPLOYEE=orc6e INTERVAL FILLUP 77-1-3" );
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::Interval::interval_date' ); 

note( $cmd = "INTERVAL 77-1-3 78-12-15" );
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::Interval::interval_date_date1' ); 

note( $cmd = "EMPLOYEE=33 INTERVAL +1 2078-12-15" );
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::Interval::interval_date_date1' ); 

note( $cmd = "INTERVAL FETCH 77-1-3 78-12-15" );
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::Interval::interval_date_date1' ); 

note( $cmd = "EMPLOYEE=33 INTERVAL FETCH +1 2078-12-15" );
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::Interval::interval_date_date1' ); 

note( $cmd = "INTERVAL FILLUP 77-1-3 78-12-15" );
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::Interval::interval_date_date1' ); 

note( $cmd = "EMPLOYEE=33 INTERVAL FILLUP +1 2078-12-15" );
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::Interval::interval_date_date1' ); 

note( $cmd = "INTERVAL 77-1-3 - 78-12-15" );
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::Interval::interval_date_date1' ); 

note( $cmd = "EMPLOYEE=33 INTERVAL +1 - -1" );
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::Interval::interval_date_date1' ); 

note( $cmd = "INTERVAL FETCH 77-1-3 - 78-12-15" );
$r = parse( $cmd );
do_parse_test( $r->{'nc'}, 'App::Dochazka::CLI::Commands::Interval::interval_date_date1' );