_calendar__cal_item_start_end_date_validation (private)
_calendar__cal_item_start_end_date_validation
Defined in packages/calendar/tcl/test/cal-item-procs.tcl
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: set _aa_export {} set body_count 1 foreach testcase_body {{ set test_date { "" "" false "bogus" "" false "" "bogus" false "bogus" "bogus" false "201-01-0" "" false "" "201-01-0" false "201-01-0" "201-01-0" false "2010-15-09" "" false "" "2010-15-09" false "2010-15-09" "2010-15-09" false "2010-15-12" "" false "" "2010-15-12" false "2010-15-12" "2010-15-12" false "2010-15-12 1" "" false "" "2010-15-12 1" false "2010-15-12 1" "2010-15-12 1" false "2024-01-30" "" false "" "2024-01-30" false "2024-01-30" "2024-01-30" true "2024-01-30 08:00" "" false "" "2024-01-30 08:00" false "2024-01-30 08:00" "2024-01-30 08:00" true "2024-01-30 08:00" "2024-01-30 20:00" true "2024-01-30 08:00" "" false "2024-01-30 20:00" "2024-01-30 08:00" false "" "2024-01-30 08:00" false "0001-01-01 00:00" "9999-12-31 23:59" true "0001-01-01 00:00" "" false "9999-12-31 23:59" "0001-01-01 00:00" false "" "0001-01-01 00:00" false "15:00" "14:00" false "14:00" "15:00" false "" "14:00" false "14:00" "" false "2024-01-30 00:01:05" "2024-01-30 00:01:06" true "2024-01-30 02:01:05" "2024-01-30 00:01:06" false } foreach {start_date end_date expected} $test_date { aa_equals "'$start_date' -> '$end_date' validity is '$expected'" [string is true [calendar::item::dates_valid_p -start_date $start_date -end_date $end_date]] [string is true $expected] } }} { aa_log "Running testcase body $body_count" set ::__aa_test_indent [info level] set catch_val [catch $testcase_body msg] if {$catch_val != 0 && $catch_val != 2} { aa_log_result "fail" "cal_item_start_end_date_validation (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle