From 460c52653ab0dcca6f19a4f492ed2c5e4e963ab0 Mon Sep 17 00:00:00 2001
From: toma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>
Date: Wed, 25 Nov 2009 17:56:58 +0000
Subject: Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.
 BUG:215923

git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdepim@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
---
 libkcal/tests/createtestcases.pl | 82 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 82 insertions(+)
 create mode 100755 libkcal/tests/createtestcases.pl

(limited to 'libkcal/tests/createtestcases.pl')

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";
+	} 
+	
+}
+
-- 
cgit v1.2.1