caldav::test::item_stats (private)

 caldav::test::item_stats event_list

Defined in packages/caldav/tcl/test/caldav-test-procs.tcl

Check the provided items and return a dict with descriptive statistics.

Parameters:
event_list (required)

Partial Call Graph (max 5 caller/called nodes):
%3 aa_equals aa_equals (public) aa_log aa_log (public) aa_test::visualize_control_chars aa_test::visualize_control_chars caldav::test::item_stats caldav::test::item_stats caldav::test::item_stats->aa_equals caldav::test::item_stats->aa_log caldav::test::item_stats->aa_test::visualize_control_chars

Testcases:
No testcase defined.
Source code:
    foreach c {integer_uid recurrence uid} {
        set entries($c) 0
    }
    foreach o $event_list {
        set recurrences [$o formatted_recurrences get]
        if {$recurrences ne ""} {
        incr entries(recurrence)
        aa_log "Recurrence rule: [::aa_test::visualize_control_chars $recurrences]"
        aa_equals "expected recurrence" $recurrences "RRULE:FREQ=DAILY;INTERVAL=1;UNTIL=20190130T230000Z\r\n"
        }
        #if {[$o etag] ne ""} {
            #incr entries(etag)
        #}
        set uid [$o uid get]
        if {$uid ne ""} {
        incr entries(uid)
        if {[string is integer -strict $uid]} {
            incr entries(integer_uid)
        }
        }
        #aa_log "[$o serialize]"
    }
    return [array get entries]
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: