[dpdk-dev] [PATCH v4 1/5] test/compress: add initial unit tests

[Verma, Shally]

>-----Original Message-----
>From: Pablo de Lara [mailto:pablo.de.lara.guarch at intel.com]
>Sent: 04 May 2018 15:52
>To: dev at dpdk.org
>Cc: fiona.trahe at intel.com; lee.daly at intel.com; Verma, Shally <Shally.Verma at cavium.com>; ahmed.mansour at nxp.com; Gupta,
>Ashish <Ashish.Gupta at cavium.com>; Pablo de Lara <pablo.de.lara.guarch at intel.com>; Gupta, Ashish <Ashish.Gupta at cavium.com>;
>Verma, Shally <Shally.Verma at cavium.com>
>Subject: [PATCH v4 1/5] test/compress: add initial unit tests
>
>This commit introduces the initial tests for compressdev,
>performing basic compression and decompression operations
>of sample test buffers, using the Zlib library in one direction
>and compressdev in another direction, to make sure that
>the library is compatible with Zlib.
>
>Due to the use of Zlib API, the test is disabled by default,
>to avoid adding a new dependency on DPDK.
>
>Signed-off-by: Pablo de Lara <pablo.de.lara.guarch at intel.com>
>Signed-off-by: Ashish Gupta <ashish.gupta at caviumnetworks.com>
>Signed-off-by: Shally Verma <shally.verma at caviumnetworks.com>
>Acked-by: Lee Daly <lee.daly at intel.com>
>---
> config/common_base                       |   5 +
> test/test/Makefile                       |   9 +
> test/test/meson.build                    |   8 +
> test/test/test_compressdev.c             | 725 +++++++++++++++++++++++
> test/test/test_compressdev_test_buffer.h | 295 +++++++++
> 5 files changed, 1042 insertions(+)
> create mode 100644 test/test/test_compressdev.c
> create mode 100644 test/test/test_compressdev_test_buffer.h
>
//snip

>+ * Compresses and decompresses buffer with compressdev API and Zlib API
>+ */
>+static int
>+test_deflate_comp_decomp(const char *test_buffer,
>+		struct rte_comp_xform *compress_xform,
>+		struct rte_comp_xform *decompress_xform,
>+		enum rte_comp_op_type state,
>+		enum zlib_direction zlib_dir)
>+{
>+	struct comp_testsuite_params *ts_params = &testsuite_params;
>+	int ret_status = -1;
>+	int ret;
>+	struct rte_mbuf *comp_buf = NULL;
>+	struct rte_mbuf *uncomp_buf = NULL;
>+	struct rte_comp_op *op = NULL;
>+	struct rte_comp_op *op_processed = NULL;
>+	void *priv_xform = NULL;
>+	uint16_t num_deqd;
>+	unsigned int deqd_retries = 0;
>+	char *data_ptr;
>+
>+	/* Prepare the source mbuf with the data */
>+	uncomp_buf = rte_pktmbuf_alloc(ts_params->mbuf_pool);
>+	if (uncomp_buf == NULL) {
>+		RTE_LOG(ERR, USER1,
>+			"Source mbuf could not be allocated "
>+			"from the mempool\n");
>+		goto exit;
>+	}
>+
>+	data_ptr = rte_pktmbuf_append(uncomp_buf, strlen(test_buffer) + 1);
>+	snprintf(data_ptr, strlen(test_buffer) + 1, "%s", test_buffer);
>+
>+	/* Prepare the destination mbuf */
>+	comp_buf = rte_pktmbuf_alloc(ts_params->mbuf_pool);
>+	if (comp_buf == NULL) {
>+		RTE_LOG(ERR, USER1,
>+			"Destination mbuf could not be allocated "
>+			"from the mempool\n");
>+		goto exit;
>+	}
>+
>+	rte_pktmbuf_append(comp_buf,
>+			strlen(test_buffer) * COMPRESS_BUF_SIZE_RATIO);
>+
>+	/* Build the compression operations */
>+	op = rte_comp_op_alloc(ts_params->op_pool);
>+	if (op == NULL) {
>+		RTE_LOG(ERR, USER1,
>+			"Compress operation could not be allocated "
>+			"from the mempool\n");
>+		goto exit;
>+	}
>+
>+	op->m_src = uncomp_buf;
>+	op->m_dst = comp_buf;
>+	op->src.offset = 0;
>+	op->src.length = rte_pktmbuf_pkt_len(uncomp_buf);
>+	op->dst.offset = 0;
>+	if (state == RTE_COMP_OP_STATELESS) {
>+		//TODO: FULL or FINAL?
>+		op->flush_flag = RTE_COMP_FLUSH_FINAL;
>+	} else {
>+		RTE_LOG(ERR, USER1,
>+			"Stateful operations are not supported "
>+			"in these tests yet\n");
>+		goto exit;
>+	}
>+	op->input_chksum = 0;
>+
>+	/* Compress data (either with Zlib API or compressdev API */
>+	if (zlib_dir == ZLIB_COMPRESS || zlib_dir == ZLIB_ALL) {
>+		ret = compress_zlib(op,
>+			(const struct rte_comp_xform *)&compress_xform,
[Shally] why are we passing ** here, compress_zlib() input rte_comp_xform*, this will cause a bug here. So, in call to decompress_zlib() below.

Thanks
Shally

>+			DEFAULT_MEM_LEVEL);
>+		if (ret < 0)
>+			goto exit;
>+
>+		op_processed = op;
>+	} else {
>+		/* Create compress xform private data */
>+		ret = rte_compressdev_private_xform_create(0,
>+			(const struct rte_comp_xform *)compress_xform,
>+			&priv_xform);
>+		if (ret < 0) {
>+			RTE_LOG(ERR, USER1,
>+				"Compression private xform "
>+				"could not be created\n");
>+			goto exit;
>+		}
>+
>+		/* Attach xform private data to operation */
>+		op->private_xform = priv_xform;
>+
>+		/* Enqueue and dequeue all operations */
>+		ret = rte_compressdev_enqueue_burst(0, 0, &op, 1);
>+		if (ret == 0) {
>+			RTE_LOG(ERR, USER1,
>+				"The operation could not be enqueued\n");
>+			goto exit;
>+		}
>+		do {
>+			/*
>+			 * If retrying a dequeue call, wait for 10 ms to allow
>+			 * enough time to the driver to process the operations
>+			 */
>+			if (deqd_retries != 0) {
>+				/*
>+				 * Avoid infinite loop if not all the
>+				 * operations get out of the device
>+				 */
>+				if (deqd_retries == MAX_DEQD_RETRIES) {
>+					RTE_LOG(ERR, USER1,
>+						"Not all operations could be "
>+						"dequeued\n");
>+					goto exit;
>+				}
>+				usleep(DEQUEUE_WAIT_TIME);
>+			}
>+			num_deqd = rte_compressdev_dequeue_burst(0, 0,
>+					&op_processed, 1);
>+
>+			deqd_retries++;
>+		} while (num_deqd < 1);
>+
>+		deqd_retries = 0;
>+
>+		/* Free compress private xform */
>+		rte_compressdev_private_xform_free(0, priv_xform);
>+		priv_xform = NULL;
>+	}
>+
>+	enum rte_comp_huffman huffman_type =
>+		compress_xform->compress.deflate.huffman;
>+	RTE_LOG(DEBUG, USER1, "Buffer compressed from %u to %u bytes "
>+			"(level = %u, huffman = %s)\n",
>+			op_processed->consumed, op_processed->produced,
>+			compress_xform->compress.level,
>+			huffman_type_strings[huffman_type]);
>+	RTE_LOG(DEBUG, USER1, "Compression ratio = %.2f",
>+			(float)op_processed->produced /
>+			op_processed->consumed * 100);
>+	op = NULL;
>+
>+	/*
>+	 * Check operation status and free source mbuf (destination mbuf and
>+	 * compress operation information is needed for the decompression stage)
>+	 */
>+	if (op_processed->status != RTE_COMP_OP_STATUS_SUCCESS) {
>+		RTE_LOG(ERR, USER1,
>+			"Some operations were not successful\n");
>+		goto exit;
>+	}
>+	rte_pktmbuf_free(uncomp_buf);
>+	uncomp_buf = NULL;
>+
>+	/* Allocate buffer for decompressed data */
>+	uncomp_buf = rte_pktmbuf_alloc(ts_params->mbuf_pool);
>+	if (uncomp_buf == NULL) {
>+		RTE_LOG(ERR, USER1,
>+			"Destination mbuf could not be allocated "
>+			"from the mempool\n");
>+		goto exit;
>+	}
>+
>+	rte_pktmbuf_append(uncomp_buf, strlen(test_buffer) + 1);
>+
>+	/* Build the decompression operations */
>+	op = rte_comp_op_alloc(ts_params->op_pool);
>+	if (op == NULL) {
>+		RTE_LOG(ERR, USER1,
>+			"Decompress operation could not be allocated "
>+			"from the mempool\n");
>+		goto exit;
>+	}
>+
>+	/* Source buffer is the compressed data from the previous operation */
>+	op->m_src = op_processed->m_dst;
>+	op->m_dst = uncomp_buf;
>+	op->src.offset = 0;
>+	/*
>+	 * Set the length of the compressed data to the
>+	 * number of bytes that were produced in the previous stage
>+	 */
>+	op->src.length = op_processed->produced;
>+	op->dst.offset = 0;
>+	if (state == RTE_COMP_OP_STATELESS) {
>+		//TODO: FULL or FINAL?
>+		op->flush_flag = RTE_COMP_FLUSH_FINAL;
>+	} else {
>+		RTE_LOG(ERR, USER1,
>+			"Stateful operations are not supported "
>+			"in these tests yet\n");
>+		goto exit;
>+	}
>+	op->input_chksum = 0;
>+
>+	/*
>+	 * Free the previous compress operation,
>+	 * as it is not needed anymore
>+	 */
>+	rte_comp_op_free(op_processed);
>+	op_processed = NULL;
>+
>+	/* Decompress data (either with Zlib API or compressdev API */
>+	if (zlib_dir == ZLIB_DECOMPRESS || zlib_dir == ZLIB_ALL) {
>+		ret = decompress_zlib(op,
>+			(const struct rte_comp_xform *)&decompress_xform);
>+		if (ret < 0)
>+			goto exit;
>+
>+		op_processed = op;
>+	} else {
>+		num_deqd = 0;
>+		/* Create decompress xform private data */
>+		ret = rte_compressdev_private_xform_create(0,
>+			(const struct rte_comp_xform *)decompress_xform,
>+			&priv_xform);
>+		if (ret < 0) {
>+			RTE_LOG(ERR, USER1,
>+				"Decompression private xform "
>+				"could not be created\n");
>+			goto exit;
>+		}
>+
>+		/* Attach xform private data to operation */
>+		op->private_xform = priv_xform;
>+
>+		/* Enqueue and dequeue all operations */
>+		ret = rte_compressdev_enqueue_burst(0, 0, &op, 1);
>+		if (ret == 0) {
>+			RTE_LOG(ERR, USER1,
>+				"The operation could not be enqueued\n");
>+			goto exit;
>+		}
>+		do {
>+			/*
>+			 * If retrying a dequeue call, wait for 10 ms to allow
>+			 * enough time to the driver to process the operations
>+			 */
>+			if (deqd_retries != 0) {
>+				/*
>+				 * Avoid infinite loop if not all the
>+				 * operations get out of the device
>+				 */
>+				if (deqd_retries == MAX_DEQD_RETRIES) {
>+					RTE_LOG(ERR, USER1,
>+						"Not all operations could be "
>+						"dequeued\n");
>+					goto exit;
>+				}
>+				usleep(DEQUEUE_WAIT_TIME);
>+			}
>+			num_deqd = rte_compressdev_dequeue_burst(0, 0,
>+					&op_processed, 1);
>+
>+			deqd_retries++;
>+		} while (num_deqd < 1);
>+	}
>+
>+	RTE_LOG(DEBUG, USER1, "Buffer decompressed from %u to %u bytes\n",
>+			op_processed->consumed, op_processed->produced);
>+	op = NULL;
>+	/*
>+	 * Check operation status and free source mbuf (destination mbuf and
>+	 * compress operation information is still needed)
>+	 */
>+	if (op_processed->status != RTE_COMP_OP_STATUS_SUCCESS) {
>+		RTE_LOG(ERR, USER1,
>+			"Some operations were not successful\n");
>+		goto exit;
>+	}
>+	rte_pktmbuf_free(comp_buf);
>+	comp_buf = NULL;
>+
>+	/*
>+	 * Compare the original stream with the decompressed stream
>+	 * (in size and the data)
>+	 */
>+	if (compare_buffers(test_buffer, strlen(test_buffer) + 1,
>+			rte_pktmbuf_mtod(op_processed->m_dst, const char *),
>+			op_processed->produced) < 0)
>+		goto exit;
>+
>+	ret_status = 0;
>+
>+exit:
>+	/* Free resources */
>+	rte_pktmbuf_free(uncomp_buf);
>+	rte_pktmbuf_free(comp_buf);
>+	rte_comp_op_free(op);
>+	rte_comp_op_free(op_processed);
>+
>+	if (priv_xform != NULL)
>+		rte_compressdev_private_xform_free(0, priv_xform);
>+
>+	return ret_status;
>+}
>+
>+static int
>+test_compressdev_deflate_stateless_fixed(void)
>+{
>+	struct comp_testsuite_params *ts_params = &testsuite_params;
>+	const char *test_buffer;
>+	uint16_t i;
>+	struct rte_comp_xform compress_xform;
>+
>+	memcpy(&compress_xform, &ts_params->def_comp_xform,
>+			sizeof(struct rte_comp_xform));
>+	compress_xform.compress.deflate.huffman = RTE_COMP_HUFFMAN_FIXED;
>+
>+	for (i = 0; i < RTE_DIM(compress_test_bufs); i++) {
>+		test_buffer = compress_test_bufs[i];
>+
>+		/* Compress with compressdev, decompress with Zlib */
>+		if (test_deflate_comp_decomp(test_buffer,
>+				&compress_xform,
>+				&ts_params->def_decomp_xform,
>+				RTE_COMP_OP_STATELESS,
>+				ZLIB_DECOMPRESS) < 0)
>+			return TEST_FAILED;
>+
>+		/* Compress with Zlib, decompress with compressdev */
>+		if (test_deflate_comp_decomp(test_buffer,
>+				&compress_xform,
>+				&ts_params->def_decomp_xform,
>+				RTE_COMP_OP_STATELESS,
>+				ZLIB_COMPRESS) < 0)
>+			return TEST_FAILED;
>+	}
>+
>+	return TEST_SUCCESS;
>+}
>+
>+static int
>+test_compressdev_deflate_stateless_dynamic(void)
>+{
>+	struct comp_testsuite_params *ts_params = &testsuite_params;
>+	const char *test_buffer;
>+	uint16_t i;
>+	struct rte_comp_xform compress_xform;
>+
>+	memcpy(&compress_xform, &ts_params->def_comp_xform,
>+			sizeof(struct rte_comp_xform));
>+	compress_xform.compress.deflate.huffman = RTE_COMP_HUFFMAN_DYNAMIC;
>+
>+	for (i = 0; i < RTE_DIM(compress_test_bufs); i++) {
>+		test_buffer = compress_test_bufs[i];
>+
>+		/* Compress with compressdev, decompress with Zlib */
>+		if (test_deflate_comp_decomp(test_buffer,
>+				&compress_xform,
>+				&ts_params->def_decomp_xform,
>+				RTE_COMP_OP_STATELESS,
>+				ZLIB_DECOMPRESS) < 0)
>+			return TEST_FAILED;
>+
>+		/* Compress with Zlib, decompress with compressdev */
>+		if (test_deflate_comp_decomp(test_buffer,
>+				&compress_xform,
>+				&ts_params->def_decomp_xform,
>+				RTE_COMP_OP_STATELESS,
>+				ZLIB_COMPRESS) < 0)
>+			return TEST_FAILED;
>+	}
>+
>+	return TEST_SUCCESS;
>+}
>+
>+static struct unit_test_suite compressdev_testsuite  = {
>+	.suite_name = "compressdev unit test suite",
>+	.setup = testsuite_setup,
>+	.teardown = testsuite_teardown,
>+	.unit_test_cases = {
>+		TEST_CASE_ST(generic_ut_setup, generic_ut_teardown,
>+			test_compressdev_deflate_stateless_fixed),
>+		TEST_CASE_ST(generic_ut_setup, generic_ut_teardown,
>+			test_compressdev_deflate_stateless_dynamic),
>+		TEST_CASES_END() /**< NULL terminate unit test array */
>+	}
>+};
>+
>+static int
>+test_compressdev(void)
>+{
>+	return unit_test_suite_runner(&compressdev_testsuite);
>+}
>+
>+REGISTER_TEST_COMMAND(compressdev_autotest, test_compressdev);
>diff --git a/test/test/test_compressdev_test_buffer.h b/test/test/test_compressdev_test_buffer.h
>new file mode 100644
>index 000000000..c0492f89a
>--- /dev/null
>+++ b/test/test/test_compressdev_test_buffer.h
>@@ -0,0 +1,295 @@
>+#ifndef TEST_COMPRESSDEV_TEST_BUFFERS_H_
>+#define TEST_COMPRESSDEV_TEST_BUFFERS_H_
>+
>+/*
>+ * These test buffers are snippets obtained
>+ * from the Canterbury and Calgary Corpus
>+ * collection.
>+ */
>+
>+/* Snippet of Alice's Adventures in Wonderland */
>+static const char test_buf_alice[] =
>+	"  Alice was beginning to get very tired of sitting by her sister\n"
>+	"on the bank, and of having nothing to do:  once or twice she had\n"
>+	"peeped into the book her sister was reading, but it had no\n"
>+	"pictures or conversations in it, `and what is the use of a book,'\n"
>+	"thought Alice `without pictures or conversation?'\n\n"
>+	"  So she was considering in her own mind (as well as she could,\n"
>+	"for the hot day made her feel very sleepy and stupid), whether\n"
>+	"the pleasure of making a daisy-chain would be worth the trouble\n"
>+	"of getting up and picking the daisies, when suddenly a White\n"
>+	"Rabbit with pink eyes ran close by her.\n\n"
>+	"  There was nothing so VERY remarkable in that; nor did Alice\n"
>+	"think it so VERY much out of the way to hear the Rabbit say to\n"
>+	"itself, `Oh dear!  Oh dear!  I shall be late!'  (when she thought\n"
>+	"it over afterwards, it occurred to her that she ought to have\n"
>+	"wondered at this, but at the time it all seemed quite natural);\n"
>+	"but when the Rabbit actually TOOK A WATCH OUT OF ITS WAISTCOAT-\n"
>+	"POCKET, and looked at it, and then hurried on, Alice started to\n"
>+	"her feet, for it flashed across her mind that she had never\n"
>+	"before seen a rabbit with either a waistcoat-pocket, or a watch to\n"
>+	"take out of it, and burning with curiosity, she ran across the\n"
>+	"field after it, and fortunately was just in time to see it pop\n"
>+	"down a large rabbit-hole under the hedge.\n\n"
>+	"  In another moment down went Alice after it, never once\n"
>+	"considering how in the world she was to get out again.\n\n"
>+	"  The rabbit-hole went straight on like a tunnel for some way,\n"
>+	"and then dipped suddenly down, so suddenly that Alice had not a\n"
>+	"moment to think about stopping herself before she found herself\n"
>+	"falling down a very deep well.\n\n"
>+	"  Either the well was very deep, or she fell very slowly, for she\n"
>+	"had plenty of time as she went down to look about her and to\n"
>+	"wonder what was going to happen next.  First, she tried to look\n"
>+	"down and make out what she was coming to, but it was too dark to\n"
>+	"see anything; then she looked at the sides of the well, and\n"
>+	"noticed that they were filled with cupboards and book-shelves;\n"
>+	"here and there she saw maps and pictures hung upon pegs.  She\n"
>+	"took down a jar from one of the shelves as she passed; it was\n"
>+	"labelled `ORANGE MARMALADE', but to her great disappointment it\n"
>+	"was empty:  she did not like to drop the jar for fear of killing\n"
>+	"somebody, so managed to put it into one of the cupboards as she\n"
>+	"fell past it.\n\n"
>+	"  `Well!' thought Alice to herself, `after such a fall as this, I\n"
>+	"shall think nothing of tumbling down stairs!  How brave they'll\n"
>+	"all think me at home!  Why, I wouldn't say anything about it,\n"
>+	"even if I fell off the top of the house!' (Which was very likely\n"
>+	"true.)\n\n"
>+	"  Down, down, down.  Would the fall NEVER come to an end!  `I\n"
>+	"wonder how many miles I've fallen by this time?' she said aloud.\n"
>+	"`I must be getting somewhere near the centre of the earth.  Let\n"
>+	"me see:  that would be four thousand miles down, I think--' (for,\n"
>+	"you see, Alice had learnt several things of this sort in her\n"
>+	"lessons in the schoolroom, and though this was not a VERY good\n"
>+	"opportunity for showing off her knowledge, as there was no one to\n"
>+	"listen to her, still it was good practice to say it over) `--yes,\n"
>+	"that's about the right distance--but then I wonder what Latitude\n"
>+	"or Longitude I've got to?'  (Alice had no idea what Latitude was,\n"
>+	"or Longitude either, but thought they were nice grand words to\n"
>+	"say.)\n\n"
>+	"  Presently she began again.  `I wonder if I shall fall right\n"
>+	"THROUGH the earth!  How funny it'll seem to come out among the\n"
>+	"people that walk with their heads downward!  The Antipathies, I\n"
>+	"think--' (she was rather glad there WAS no one listening, this\n"
>+	"time, as it didn't sound at all the right word) `--but I shall\n"
>+	"have to ask them what the name of the country is, you know.\n"
>+	"Please, Ma'am, is this New Zealand or Australia?' (and she tried\n"
>+	"to curtsey as she spoke--fancy CURTSEYING as you're falling\n"
>+	"through the air!  Do you think you could manage it?)  `And what\n"
>+	"an ignorant little girl she'll think me for asking!  No, it'll\n"
>+	"never do to ask:  perhaps I shall see it written up somewhere.'\n"
>+	"  Down, down, down.  There was nothing else to do, so Alice soon\n"
>+	"began talking again.  `Dinah'll miss me very much to-night, I\n"
>+	"should think!'  (Dinah was the cat.)  `I hope they'll remember\n"
>+	"her saucer of milk at tea-time.  Dinah my dear!  I wish you were\n"
>+	"down here with me!  There are no mice in the air, I'm afraid, but\n"
>+	"you might catch a bat, and that's very like a mouse, you know.\n"
>+	"But do cats eat bats, I wonder?'  And here Alice began to get\n"
>+	"rather sleepy, and went on saying to herself, in a dreamy sort of\n"
>+	"way, `Do cats eat bats?  Do cats eat bats?' and sometimes, `Do\n"
>+	"bats eat cats?' for, you see, as she couldn't answer either\n"
>+	"question, it didn't much matter which way she put it.  She felt\n"
>+	"that she was dozing off, and had just begun to dream that she\n"
>+	"was walking hand in hand with Dinah, and saying to her very\n"
>+	"earnestly, `Now, Dinah, tell me the truth:  did you ever eat a\n"
>+	"bat?' when suddenly, thump! thump! down she came upon a heap of\n"
>+	"sticks and dry leaves, and the fall was over.\n\n";
>+
>+/* Snippet of Shakespeare play */
>+static const char test_buf_shakespeare[] =
>+	"CHARLES	wrestler to Frederick.\n"
>+	"\n"
>+	"\n"
>+	"OLIVER		|\n"
>+	"		|\n"
>+	"JAQUES (JAQUES DE BOYS:)  	|  sons of Sir Rowland de Boys.\n"
>+	"		|\n"
>+	"ORLANDO		|\n"
>+	"\n"
>+	"\n"
>+	"ADAM	|\n"
>+	"	|  servants to Oliver.\n"
>+	"DENNIS	|\n"
>+	"\n"
>+	"\n"
>+	"TOUCHSTONE	a clown.\n"
>+	"\n"
>+	"SIR OLIVER MARTEXT	a vicar.\n"
>+	"\n"
>+	"\n"
>+	"CORIN	|\n"
>+	"	|  shepherds.\n"
>+	"SILVIUS	|\n"
>+	"\n"
>+	"\n"
>+	"WILLIAM	a country fellow in love with Audrey.\n"
>+	"\n"
>+	"	A person representing HYMEN. (HYMEN:)\n"
>+	"\n"
>+	"ROSALIND	daughter to the banished duke.\n"
>+	"\n"
>+	"CELIA	daughter to Frederick.\n"
>+	"\n"
>+	"PHEBE	a shepherdess.\n"
>+	"\n"
>+	"AUDREY	a country wench.\n"
>+	"\n"
>+	"	Lords, pages, and attendants, &c.\n"
>+	"	(Forester:)\n"
>+	"	(A Lord:)\n"
>+	"	(First Lord:)\n"
>+	"	(Second Lord:)\n"
>+	"	(First Page:)\n"
>+	"	(Second Page:)\n"
>+	"\n"
>+	"\n"
>+	"SCENE	Oliver's house; Duke Frederick's court; and the\n"
>+	"	Forest of Arden.\n"
>+	"\n"
>+	"\n"
>+	"\n"
>+	"\n"
>+	"	AS YOU LIKE IT\n"
>+	"\n"
>+	"\n"
>+	"ACT I\n"
>+	"\n"
>+	"\n"
>+	"\n"
>+	"SCENE I	Orchard of Oliver's house.\n"
>+	"\n"
>+	"\n"
>+	"	[Enter ORLANDO and ADAM]\n"
>+	"\n"
>+	"ORLANDO	As I remember, Adam, it was upon this fashion\n"
>+	"	bequeathed me by will but poor a thousand crowns,\n"
>+	"	and, as thou sayest, charged my brother, on his\n"
>+	"	blessing, to breed me well: and there begins my\n"
>+	"	sadness. My brother Jaques he keeps at school, and\n"
>+	"	report speaks goldenly of his profit: for my part,\n"
>+	"	he keeps me rustically at home, or, to speak more\n"
>+	"	properly, stays me here at home unkept; for call you\n"
>+	"	that keeping for a gentleman of my birth, that\n"
>+	"	differs not from the stalling of an ox? His horses\n"
>+	"	are bred better; for, besides that they are fair\n"
>+	"	with their feeding, they are taught their manage,\n"
>+	"	and to that end riders dearly hired: but I, his\n"
>+	"	brother, gain nothing under him but growth; for the\n"
>+	"	which his animals on his dunghills are as much\n"
>+	"	bound to him as I. Besides this nothing that he so\n"
>+	"	plentifully gives me, the something that nature gave\n"
>+	"	me his countenance seems to take from me: he lets\n"
>+	"	me feed with his hinds, bars me the place of a\n"
>+	"	brother, and, as much as in him lies, mines my\n"
>+	"	gentility with my education. This is it, Adam, that\n"
>+	"	grieves me; and the spirit of my father, which I\n"
>+	"	think is within me, begins to mutiny against this\n"
>+	"	servitude: I will no longer endure it, though yet I\n"
>+	"	know no wise remedy how to avoid it.\n"
>+	"\n"
>+	"ADAM	Yonder comes my master, your brother.\n"
>+	"\n"
>+	"ORLANDO	Go apart, Adam, and thou shalt hear how he will\n";
>+
>+/* Snippet of source code in Pascal */
>+static const char test_buf_pascal[] =
>+	"	Ptr    = 1..DMem;\n"
>+	"	Loc    = 1..IMem;\n"
>+	"	Loc0   = 0..IMem;\n"
>+	"	EdgeT  = (hout,lin,hin,lout); {Warning this order is important in}\n"
>+	"				      {predicates such as gtS,geS}\n"
>+	"	CardT  = (finite,infinite);\n"
>+	"	ExpT   = Minexp..Maxexp;\n"
>+	"	ManT   = Mininf..Maxinf; \n"
>+	"	Pflag  = (PNull,PSoln,PTrace,PPrint);\n"
>+	"	Sreal  = record\n"
>+	"		    edge:EdgeT;\n"
>+	"		    cardinality:CardT;\n"
>+	"		    exp:ExpT; {exponent}\n"
>+	"		    mantissa:ManT;\n"
>+	"		 end;\n"
>+	"	Int    = record\n"
>+	"		    hi:Sreal;\n"
>+	"		    lo:Sreal;\n"
>+	"	 end;\n"
>+	"	Instr  = record\n"
>+	"		    Code:OpType;\n"
>+	"		    Pars: array[0..Par] of 0..DMem;\n"
>+	"		 end;\n"
>+	"	DataMem= record\n"
>+	"		    D        :array [Ptr] of Int;\n"
>+	"		    S        :array [Loc] of State;\n"
>+	"		    LastHalve:Loc;\n"
>+	"		    RHalve   :array [Loc] of real;\n"
>+	"		 end;\n"
>+	"	DataFlags=record\n"
>+	"		    PF	     :array [Ptr] of Pflag;\n"
>+	"		 end;\n"
>+	"var\n"
>+	"	Debug  : (none,activity,post,trace,dump);\n"
>+	"	Cut    : (once,all);\n"
>+	"	GlobalEnd,Verifiable:boolean;\n"
>+	"	HalveThreshold:real;\n"
>+	"	I      : array [Loc] of Instr; {Memory holding instructions}\n"
>+	"	End    : Loc; {last instruction in I}\n"
>+	"	ParN   : array [OpType] of -1..Par; {number of parameters for each \n"
>+	"			opcode. -1 means no result}\n"
>+	"        ParIntersect : array [OpType] of boolean ;\n"
>+	"	DInit  : DataMem; {initial memory which is cleared and \n"
>+	"				used in first call}\n"
>+	"	DF     : DataFlags; {hold flags for variables, e.g. print/trace}\n"
>+	"	MaxDMem:0..DMem;\n"
>+	"	Shift  : array[0..Digits] of 1..maxint;{array of constant multipliers}\n"
>+	"						{used for alignment etc.}\n"
>+	"	Dummy  :Positive;\n"
>+	"	{constant intervals and Sreals}\n"
>+	"	PlusInfS,MinusInfS,PlusSmallS,MinusSmallS,ZeroS,\n"
>+	"	PlusFiniteS,MinusFiniteS:Sreal;\n"
>+	"	Zero,All,AllFinite:Int;\n"
>+	"\n"
>+	"procedure deblank;\n"
>+	"var Ch:char;\n"
>+	"begin\n"
>+	"   while (not eof) and (input^ in [' ','	']) do read(Ch);\n"
>+	"end;\n"
>+	"\n"
>+	"procedure InitialOptions;\n"
>+	"\n"
>+	"#include '/user/profs/cleary/bin/options.i';\n"
>+	"\n"
>+	"   procedure Option;\n"
>+	"   begin\n"
>+	"      case Opt of\n"
>+	"      'a','A':Debug:=activity;\n"
>+	"      'd','D':Debug:=dump;\n"
>+	"      'h','H':HalveThreshold:=StringNum/100;\n"
>+	"      'n','N':Debug:=none;\n"
>+	"      'p','P':Debug:=post;\n"
>+	"      't','T':Debug:=trace;\n"
>+	"      'v','V':Verifiable:=true;\n"
>+	"      end;\n"
>+	"   end;\n"
>+	"\n"
>+	"begin\n"
>+	"   Debug:=trace;\n"
>+	"   Verifiable:=false;\n"
>+	"   HalveThreshold:=67/100;\n"
>+	"   Options;\n"
>+	"   writeln(Debug);\n"
>+	"   writeln('Verifiable:',Verifiable);\n"
>+	"   writeln('Halve threshold',HalveThreshold);\n"
>+	"end;{InitialOptions}\n"
>+	"\n"
>+	"procedure NormalizeUp(E,M:integer;var S:Sreal;var Closed:boolean);\n"
>+	"begin\n"
>+	"with S do\n"
>+	"begin\n"
>+	"   if M=0 then S:=ZeroS else\n"
>+	"   if M>0 then\n";
>+
>+static const char * const compress_test_bufs[] = {
>+	test_buf_alice,
>+	test_buf_shakespeare,
>+	test_buf_pascal
>+};
>+
>+#endif /* TEST_COMPRESSDEV_TEST_BUFFERS_H_ */
>--
>2.17.0