diff options
author | Not Zed <NotZed@HelixCode.com> | 2000-11-24 11:18:20 +0800 |
---|---|---|
committer | Michael Zucci <zucchi@src.gnome.org> | 2000-11-24 11:18:20 +0800 |
commit | 99e80d6ecf06cc60f2734f87bc974bd9479ba139 (patch) | |
tree | 84b8922548128a99dd89e2ecb96fba5f21d94f78 /camel/tests/data | |
parent | a7e18523ff09dd48a0aae229e1416c6d021dbb29 (diff) | |
download | gsoc2013-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-x | camel/tests/data/gendoc.pl | 65 | ||||
-rwxr-xr-x | camel/tests/data/genline.pl | 72 |
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; |