From 99e80d6ecf06cc60f2734f87bc974bd9479ba139 Mon Sep 17 00:00:00 2001
From: Not Zed <NotZed@HelixCode.com>
Date: Fri, 24 Nov 2000 03:18:20 +0000
Subject: Add tests.

2000-11-24  Not Zed  <NotZed@HelixCode.com>

	* Makefile.am (SUBDIRS): Add tests.

	* camel-mime-filter-basic.c (filter): Well, I'll add the extra
	bytes here too, lathough not strictly needed, might save a
	re-malloc when we get to complete().

	* camel-mime-filter-charset.c (filter): Make sure we have room if
	we only convert very short data.
	(complete): and here too.

	* tests/Makefile.am: Initial test harness & tests.  Requires gcc
	for this.

	* camel-internet-address.c (d): Turn off debug.

	* camel-charset-map.c (camel_charset_step): Oops, & masks for set
	intersection, not | them.  Dunno how this got even close to
	working.

2000-11-23  Not Zed  <NotZed@HelixCode.com>

	* camel-mime-filter-basic.c (filter): For base64 encoding, the
	output size for 0, 1, or 2 bytes of input can exceed input*2, so
	make sure we account for that as well.
	(complete): And here.
	(complete): Similarly for qp encoding, if we have a trailing
	space, we need some extra bytes (not needed for 'filter()', as any
	such bytes are stored in state/save).

	* camel-mime-utils.c (quoted_decode_step): Removed fixme not required.
	(quoted_encode_close): Dont append a trailing afterall.  Otherwise
	a pass through the encode/decode will grow the message each time.

svn path=/trunk/; revision=6656
---
 camel/tests/data/gendoc.pl  | 65 ++++++++++++++++++++++++++++++++++++++++
 camel/tests/data/genline.pl | 72 +++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 137 insertions(+)
 create mode 100755 camel/tests/data/gendoc.pl
 create mode 100755 camel/tests/data/genline.pl

(limited to 'camel/tests/data')

diff --git a/camel/tests/data/gendoc.pl b/camel/tests/data/gendoc.pl
new file mode 100755
index 0000000000..732f05a4ed
--- /dev/null
+++ b/camel/tests/data/gendoc.pl
@@ -0,0 +1,65 @@
+#!/usr/bin/perl
+
+# Generate 'documents' in different encodings, from po files
+
+if ($#ARGV < 0) {
+    print "Usage: gendoc.pl pofile pofile ...\n";
+    exit 1;
+}
+
+$fmt = "| fmt -u ";
+
+sub read_msgstr()
+{
+    my $str = "";
+    while (<IN>) {
+	if (m/^msgstr \"(.*)\"/) {
+	    $str = $1;
+	    if ($str eq "") {
+		while (<IN>) {
+		    if (m/\"(.*)\"/) {
+			$str .= $1;
+		    } else {
+			last;
+		    }
+		}
+	    }
+	    return $str;
+	}
+    }
+    return "";
+}
+
+$unknown = "x-unknown-1";
+
+foreach $name (@ARGV) {
+    if ($name =~ m@([^/]*).po$@) {
+	$poname = $1;
+	    
+	open IN,"<$name";
+
+	$header = read_msgstr;
+	if ($header =~ /Content-Type:.*charset=([-a-zA-Z0-9]*)/i) {
+	    $charset = $1;
+	} else {
+	    $charset = $unknown++;
+	}
+
+	print "Building $poname.$charset.txt from $name\n";
+
+	open OUT,"$fmt > $poname.$charset.txt";
+	while (!eof(IN)) {
+	    $msg = read_msgstr;
+	    # de-escape
+	    $msg =~ s/\\n/\n/gso;
+	    $msg =~ s/\\t/\t/gso;
+	    $msg =~ s/\\(.)/$1/gso;
+	    print OUT $msg." ";
+	}
+	close OUT;
+	close IN;
+    } else {
+	printf("ignoring $name, probably not intended\n");
+    }
+}
+
diff --git a/camel/tests/data/genline.pl b/camel/tests/data/genline.pl
new file mode 100755
index 0000000000..99ff43c882
--- /dev/null
+++ b/camel/tests/data/genline.pl
@@ -0,0 +1,72 @@
+#!/usr/bin/perl
+
+# Generate 'documents' in different encodings, from po files
+
+if ($#ARGV < 0) {
+    print "Usage: genline.pl pofile pofile ...\n";
+    exit 1;
+}
+
+sub read_msgstr()
+{
+    my $str = "";
+    while (<IN>) {
+	if (m/^msgstr \"(.*)\"/) {
+	    $str = $1;
+	    if ($str eq "") {
+		while (<IN>) {
+		    if (m/\"(.*)\"/) {
+			$str .= $1;
+		    } else {
+			last;
+		    }
+		}
+	    }
+	    return $str;
+	}
+    }
+    return "";
+}
+
+$unknown = "x-unknown-1";
+open OUT, ">test-lines.h";
+
+print OUT <<END;
+struct _l {
+    char *type;
+    char *line;
+} test_lines[] = {
+END
+
+foreach $name (@ARGV) {
+    if ($name =~ m@([^/]*).po$@) {
+	$poname = $1;
+	    
+	open IN,"<$name";
+
+	$header = read_msgstr;
+	if ($header =~ /Content-Type:.*charset=([-a-zA-Z0-9]*)/i) {
+	    $charset = $1;
+	} else {
+	    $charset = $unknown++;
+	}
+
+	while (!eof(IN)) {
+	    $msg = read_msgstr;
+	    if (length($msg) > 60 && length($msg) < 160) {
+		print OUT "\t{ \"$charset\", \"$msg\" },\n";
+		last;
+	    }
+#	    $msg =~ s/\\n/\n/gso;
+#	    $msg =~ s/\\t/\t/gso;
+#	    $msg =~ s/\\(.)/$1/gso;
+#	    print OUT $msg." ";
+	}
+	close IN;
+    } else {
+	printf("ignoring $name, probably not intended\n");
+    }
+}
+
+print OUT "};\n";
+close OUT;
-- 
cgit v1.2.3