_acs-datetime__dt_midnight_p (private)
_acs-datetime__dt_midnight_p
Defined in packages/acs-datetime/tcl/test/acs-datetime-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 {{ # # Midnight dates # set midnight_dates { 00:00 "00:00 AM" "00:00 am" "12:00 AM" "12:00 am" "2021-06-22 00:00" "06-22 00:00" } foreach date $midnight_dates { aa_true "$date is midnight" [dt_midnight_p $date] } # # Not midnight dates # set no_midnight_dates { 00:01 "00:10 AM" "00:00 PM" "01:00 am" "11:00 AM" "11:59 am" "2021-06-22 20:00" "06-22 00:41" } foreach date $no_midnight_dates { aa_false "$date is midnight" [dt_midnight_p $date] } foreach start_time $midnight_dates { foreach end_time $midnight_dates { aa_true "dt_no_time_p -start_time $start_time -end_time $end_time is true" [dt_no_time_p -start_time $start_time -end_time $end_time] } foreach end_time $no_midnight_dates { aa_false "dt_no_time_p -start_time $start_time -end_time $end_time is false" [dt_no_time_p -start_time $start_time -end_time $end_time] } } foreach start_time $no_midnight_dates { foreach end_time $midnight_dates { aa_false "dt_no_time_p -start_time $start_time -end_time $end_time is false" [dt_no_time_p -start_time $start_time -end_time $end_time] } foreach end_time $no_midnight_dates { aa_false "dt_no_time_p -start_time $start_time -end_time $end_time is false" [dt_no_time_p -start_time $start_time -end_time $end_time] } } }} { 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" "dt_midnight_p (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle