caldav::test::ical_valid (private)

 caldav::test::ical_valid [ -require_crlf ] ical_text

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

Check the ical "object" and return detected issues as as a dict. If not issues are detected, return ""

Switches:

-require_crlf (optional, boolean, defaults to "true")

Parameters:

ical_text (required)

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    set result {}
    set d [ical_stats -require_crlf=$require_crlf_p $ical_text]
    foreach key {overlong_lines lines_without_crlf} {
        if {![dict exists $d $key]} {
        continue
        }
        set value [dict get $d $key]
        if {
        ($key eq "lines_without_crlf" && $value <= 1)
        || ($value == 0)
        } {
        continue
        }
        lappend result $key $value
    }
    return $result

XQL Not present:

Generic, PostgreSQL, Oracle