aboutsummaryrefslogtreecommitdiffstats
path: root/camel/tests/data
diff options
context:
space:
mode:
authorNot Zed <NotZed@HelixCode.com>2000-11-24 11:18:20 +0800
committerMichael Zucci <zucchi@src.gnome.org>2000-11-24 11:18:20 +0800
commit99e80d6ecf06cc60f2734f87bc974bd9479ba139 (patch)
tree84b8922548128a99dd89e2ecb96fba5f21d94f78 /camel/tests/data
parenta7e18523ff09dd48a0aae229e1416c6d021dbb29 (diff)
downloadgsoc2013-evolution-99e80d6ecf06cc60f2734f87bc974bd9479ba139.tar
gsoc2013-evolution-99e80d6ecf06cc60f2734f87bc974bd9479ba139.tar.gz
gsoc2013-evolution-99e80d6ecf06cc60f2734f87bc974bd9479ba139.tar.bz2
gsoc2013-evolution-99e80d6ecf06cc60f2734f87bc974bd9479ba139.tar.lz
gsoc2013-evolution-99e80d6ecf06cc60f2734f87bc974bd9479ba139.tar.xz
gsoc2013-evolution-99e80d6ecf06cc60f2734f87bc974bd9479ba139.tar.zst
gsoc2013-evolution-99e80d6ecf06cc60f2734f87bc974bd9479ba139.zip
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
Diffstat (limited to 'camel/tests/data')
-rwxr-xr-xcamel/tests/data/gendoc.pl65
-rwxr-xr-xcamel/tests/data/genline.pl72
2 files changed, 137 insertions, 0 deletions
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;