diff options
author | Daniel Stenberg <daniel@haxx.se> | 2010-11-02 22:27:33 +0100 |
---|---|---|
committer | Daniel Stenberg <daniel@haxx.se> | 2010-11-02 22:27:33 +0100 |
commit | cc8791329435e3e992dff7488e5649e655f2fd54 (patch) | |
tree | 1b923c324e765623d4cecf232c57d1432d3fbf10 /tests/libtest/mk580.pl | |
parent | ca9f9cb8754b5b5010b76ec77b950eadbe42dc9b (diff) |
test: added test 580 - verifies symbols-in-versions
The new perl script mk580.pl generates a C table in a fresh source file
named lib580.c and if that compiles fine we know that the file
docs/libcurl/symbols-in-versions at least doesn't include any symbols
that are misspelled.
An additional feature would be to somehow scan curl/curl.h and compare
with symbols-in-versions to see if there are symbols missing.
Diffstat (limited to 'tests/libtest/mk580.pl')
-rw-r--r-- | tests/libtest/mk580.pl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/tests/libtest/mk580.pl b/tests/libtest/mk580.pl new file mode 100644 index 000000000..8dc6d57b8 --- /dev/null +++ b/tests/libtest/mk580.pl @@ -0,0 +1,18 @@ +open(S, '<', $ARGV[0]); + +print <<EOF +#include "curl/curl.h" + +int test[] = { +EOF + ; +while(<S>) { + my @a=split(/ +/); + chomp $a[0]; + chomp $a[3]; + if($a[0] && !$a[3]) { + printf("%s,\n", $a[0]); + } +} +print "};\n"; +close(S); |