1 files changed, 16 insertions, 0 deletions
diff --git a/test.scm b/test.scm
new file mode 100644
index 00000000..a3ea80ef
--- /dev/null
+++ b/test.scm
@@ -0,0 +1,16 @@
+(load "module/main.scm")
+(use-modules (vcomponent primitive))
+
+(define root (%vcomponent-make "/home/hugo/Möte grupp.ics"))
+(define cal (car (children root)))
+
+(use-modules (ice-9 pretty-print))
+
+(pretty-print (hash-map->list cons (%vcomponent-get-hash-table cal)))
+(newline)
+
+(for e in (children cal)
+     (pretty-print (hash-map->list cons (%vcomponent-get-hash-table
+                                          e)))
+     (display (make-string 40 #\-))
+     (newline))