summaryrefslogtreecommitdiffstats
path: root/libkcal/tests/createtestcases.pl
diff options
context:
space:
mode:
Diffstat (limited to 'libkcal/tests/createtestcases.pl')
-rwxr-xr-xlibkcal/tests/createtestcases.pl82
1 files changed, 82 insertions, 0 deletions
diff --git a/libkcal/tests/createtestcases.pl b/libkcal/tests/createtestcases.pl
new file mode 100755
index 000000000..35e624e62
--- /dev/null
+++ b/libkcal/tests/createtestcases.pl
@@ -0,0 +1,82 @@
+#!/usr/bin/perl
+
+# Written 2005 Reinhold Kainhofer <reinhold@kainhofer.com>
+# This file is put into the public domain, I claim no copyright on that code
+#
+# This little (really dumb) script can be used to split a large calendar file
+# up into several small files each containing one event/journal/todo/freebusy.
+# All lines before the first VEVENT/VTODO/VJOURNAL/VFREEBUSY will be copied to
+# every file, so timezones should be fine.
+#
+# Usage:
+# createtestcases.pl InputFile.ics OutputBaseFileName [ext]
+#
+# InputFile.ics .. The large calendar file containing multiple incidences
+# OutputBaseFileName .. The base name of the output files. They will be
+# numbered sequentially, i.e. OutputBaseFileName1.ext,
+# OutputBaseFileName2.ext, etc.
+# [ext].. optional file name extension for the output files. If none is given,
+# ics is used.
+#
+# Disclaimer: This script exists merely for development purposes to help us
+# KDE developer generate atomic test cases for libkcal's test suite.
+
+
+use Cwd;
+
+my $infile=shift @ARGV;
+my $filebase=shift @ARGV;
+my $ext=shift @ARGV;
+if ( !$ext ) {
+ $ext = "ics";
+}
+my $filenr=0;
+my $filename="$filebase$filenr.$ext";
+
+print "Infile: $infile\n";
+print "filebase: $filebase\n";
+print "filenr: $filenr\n";
+print "filename: $filename\n";
+
+my $pre = 1;
+my $inevent = 0;
+my $pretext = "";
+my $opened = 0;
+
+
+open(INFILE, $infile);
+while (<INFILE>) {
+ my $line = $_;
+
+ if ( !$inevent && ($line =~ m/BEGIN:V(EVENT|TODO|FREEBUSY|JOURNAL)/) ) {
+ if ( !$opened ) {
+ $opened = 1;
+ $filenr=$filenr+1;
+ $filename="$filebase$filenr.$ext";
+ open fh, "> $filename";
+ if ( $pretext ) {
+ print fh $pretext;
+ } else {
+ # TODO: close file, open new file
+ print fh "BEGIN:VCALENDAR\nVERSION:2.0\nPRODID:-//K Desktop Environment (KDE)//LibKCal test cases 1.0//EN\n\n";
+ }
+
+ }
+ $pre = 0;
+ $inevent = 1;
+ print fh $line;
+ } elsif ( $inevent && ($line =~ m/END:V(EVENT|TODO|FREEBUSY|JOURNAL)/) ) {
+ $inevent = 0;
+ print fh $line;
+ print fh "END:VCALENDAR\n";
+ close fh;
+ $opened = 0;
+ } elsif ( $inevent ) {
+ print fh $line;
+ } elsif ( $pre ) {
+ $pretext="$pretext$line";
+print "PRE: $pretext";
+ }
+
+}
+