blob: 8d91e585141dc3e6682cd8a5ebc8627f3bfd9ad0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
#include <libedata-cal/libedata-cal.h>
static void
test_query (const gchar *query)
{
ECalBackendSExp *sexp = e_cal_backend_sexp_new (query);
time_t start, end;
gboolean generator = e_cal_backend_sexp_evaluate_occur_times (sexp, &start, &end);
if (generator) {
printf ("%s: %" G_GINT64_FORMAT "- %" G_GINT64_FORMAT "\n", query, (gint64) start, (gint64) end);
} else {
printf ("%s: no time prunning possible\n", query);
}
}
gint
main (gint argc,
gchar **argv)
{
/* e_sexp_add_variable(f, 0, "test", NULL); */
if (argc < 2 || !argv[1])
{
test_query ("(occur-in-time-range? (make-time \"20080727T220000Z\") (make-time \"20080907T220000Z\"))");
test_query ("(due-in-time-range? (make-time \"20080727T220000Z\") (make-time \"20080907T220000Z\"))");
test_query ("(has-alarms-in-range? (make-time \"20080727T220000Z\") (make-time \"20080907T220000Z\"))");
test_query ("(completed-before? (make-time \"20080727T220000Z\") )");
test_query ("(and (occur-in-time-range? (make-time \"20080727T220000Z\") (make-time \"20080907T220000Z\")) #t)");
test_query ("(or (occur-in-time-range? (make-time \"20080727T220000Z\")(make-time \"20080907T220000Z\")) #t)");
test_query ("(and (contains? \"substring\") (has-categories? \"blah\"))");
test_query ("(or (occur-in-time-range? (make-time \"20080727T220000Z\") (make-time \"20080907T220000Z\")) (contains? \"substring\"))");
test_query ("(and (and (occur-in-time-range? (make-time \"20080727T220000Z\") (make-time \"20080907T220000Z\"))"
" (or (contains? \"substring\") (has-categories? \"blah\"))) (has-alarms?))");
test_query ("(or (and (occur-in-time-range? (make-time \"20080727T220000Z\") (make-time \"20080907T220000Z\"))"
" (or (contains? \"substring\") (has-categories? \"blah\"))) (has-alarms?))");
}
else
test_query (argv[1]);
return 0;
}
|