#ifdef HAVE_LZ4

#include <lz4.h>

#endif

#include "alloc-util.h"

#include "compress.h"

#include "fd-util.h"

#include "fileio.h"

#include "macro.h"

#include "random-util.h"

#include "util.h"

#ifdef HAVE_XZ

# define XZ_OK 0

#else

# define XZ_OK -EPROTONOSUPPORT

#endif

#ifdef HAVE_LZ4

# define LZ4_OK 0

#else

# define LZ4_OK -EPROTONOSUPPORT

#endif

typedef int (compress_blob_t)(const void *src, uint64_t src_size,

void *dst, size_t dst_alloc_size, size_t *dst_size);

typedef int (decompress_blob_t)(const void *src, uint64_t src_size,

void **dst, size_t *dst_alloc_size,

size_t* dst_size, size_t dst_max);

typedef int (decompress_sw_t)(const void *src, uint64_t src_size,

void **buffer, size_t *buffer_size,

const void *prefix, size_t prefix_len,

uint8_t extra);

typedef int (compress_stream_t)(int fdf, int fdt, uint64_t max_bytes);

typedef int (decompress_stream_t)(int fdf, int fdt, uint64_t max_size);

static void test_compress_decompress(int compression,

compress_blob_t compress,

decompress_blob_t decompress,

const char *data,

size_t data_len,

bool may_fail) {

char compressed[512];

size_t csize, usize = 0;

_cleanup_free_ char *decompressed = NULL;

int r;

log_info("/* testing %s %s blob compression/decompression */",

object_compressed_to_string(compression), data);

r = compress(data, data_len, compressed, sizeof(compressed), &csize);

if (r == -ENOBUFS) {

log_info_errno(r, "compression failed: %m");

assert_se(may_fail);

} else {

assert_se(r == 0);

r = decompress(compressed, csize,

(void **) &decompressed, &usize, &csize, 0);

assert_se(r == 0);

assert_se(decompressed);

assert_se(memcmp(decompressed, data, data_len) == 0);

}

r = decompress("garbage", 7,

(void **) &decompressed, &usize, &csize, 0);

assert_se(r < 0);

/* make sure to have the minimal lz4 compressed size */

r = decompress("00000000\1g", 9,

(void **) &decompressed, &usize, &csize, 0);

assert_se(r < 0);

r = decompress("\100000000g", 9,

(void **) &decompressed, &usize, &csize, 0);

assert_se(r < 0);

memzero(decompressed, usize);

}

static void test_decompress_startswith(int compression,

compress_blob_t compress,

decompress_sw_t decompress_sw,

const char *data,

size_t data_len,

bool may_fail) {

char compressed[512];

size_t csize, usize = 0;

_cleanup_free_ char *decompressed = NULL;

int r;

log_info("/* testing decompress_startswith with %s on %s text*/",

object_compressed_to_string(compression), data);

r = compress(data, data_len, compressed, sizeof(compressed), &csize);

if (r == -ENOBUFS) {

log_info_errno(r, "compression failed: %m");

assert_se(may_fail);

return;

}

assert_se(r == 0);

assert_se(decompress_sw(compressed,

csize,

(void **) &decompressed,

&usize,

data, strlen(data), '\0') > 0);

assert_se(decompress_sw(compressed,

csize,

(void **) &decompressed,

&usize,

data, strlen(data), 'w') == 0);

assert_se(decompress_sw(compressed,

csize,

(void **) &decompressed,

&usize,

"barbarbar", 9, ' ') == 0);

assert_se(decompress_sw(compressed,

csize,

(void **) &decompressed,

&usize,

data, strlen(data), '\0') > 0);

}

static void test_compress_stream(int compression,

const char* cat,

compress_stream_t compress,

decompress_stream_t decompress,

const char *srcfile) {

_cleanup_close_ int src = -1, dst = -1, dst2 = -1;

char pattern[] = "/tmp/systemd-test.compressed.XXXXXX",

pattern2[] = "/tmp/systemd-test.compressed.XXXXXX";

int r;

_cleanup_free_ char *cmd = NULL, *cmd2;

struct stat st = {};

log_debug("/* testing %s compression */",

object_compressed_to_string(compression));

log_debug("/* create source from %s */", srcfile);

assert_se((src = open(srcfile, O_RDONLY|O_CLOEXEC)) >= 0);

log_debug("/* test compression */");

assert_se((dst = mkostemp_safe(pattern, O_RDWR|O_CLOEXEC)) >= 0);

assert_se(compress(src, dst, -1) == 0);

if (cat) {

assert_se(asprintf(&cmd, "%s %s | diff %s -", cat, pattern, srcfile) > 0);

assert_se(system(cmd) == 0);

}

log_debug("/* test decompression */");

assert_se((dst2 = mkostemp_safe(pattern2, O_RDWR|O_CLOEXEC)) >= 0);

assert_se(stat(srcfile, &st) == 0);

assert_se(lseek(dst, 0, SEEK_SET) == 0);

r = decompress(dst, dst2, st.st_size);

assert_se(r == 0);

assert_se(asprintf(&cmd2, "diff %s %s", srcfile, pattern2) > 0);

assert_se(system(cmd2) == 0);

log_debug("/* test faulty decompression */");

assert_se(lseek(dst, 1, SEEK_SET) == 1);

r = decompress(dst, dst2, st.st_size);

assert_se(r == -EBADMSG || r == 0);

assert_se(lseek(dst, 0, SEEK_SET) == 0);

assert_se(lseek(dst2, 0, SEEK_SET) == 0);

r = decompress(dst, dst2, st.st_size - 1);

assert_se(r == -EFBIG);

assert_se(unlink(pattern) == 0);

assert_se(unlink(pattern2) == 0);

}

#ifdef HAVE_LZ4

static void test_lz4_decompress_partial(void) {

char buf[20000];

size_t buf_size = sizeof(buf), compressed;

int r;

char huge[4096*1024];

memset(huge, 'x', sizeof(huge));

memcpy(huge, "HUGE=", 5);

r = LZ4_compress_limitedOutput(huge, buf, sizeof(huge), buf_size);

assert_se(r >= 0);

compressed = r;

log_info("Compressed %zu → %zu", sizeof(huge), compressed);

r = LZ4_decompress_safe(buf, huge, r, sizeof(huge));

assert_se(r >= 0);

log_info("Decompressed → %i", r);

r = LZ4_decompress_safe_partial(buf, huge,

compressed,

12, (int) sizeof(huge));

assert_se(r >= 0);

log_info("Decompressed partial %i/%zu → %i", 12, sizeof(huge), r);

/* We expect this to fail, because that's how current lz4 works. If this

r = LZ4_decompress_safe_partial(buf, huge,

compressed,

12, (int) sizeof(huge) - 1);

assert_se(r < 0);

log_info("Decompressed partial %i/%zu → %i", 12, sizeof(huge), r);

}

#endif

int main(int argc, char *argv[]) {

const char text[] =

"text\0foofoofoofoo AAAA aaaaaaaaa ghost busters barbarbar FFF"

"foofoofoofoo AAAA aaaaaaaaa ghost busters barbarbar FFF";

char data[512] = "random\0";

log_set_max_level(LOG_DEBUG);

random_bytes(data + 7, sizeof(data) - 7);

#ifdef HAVE_XZ

test_compress_decompress(OBJECT_COMPRESSED_XZ, compress_blob_xz, decompress_blob_xz,

text, sizeof(text), false);

test_compress_decompress(OBJECT_COMPRESSED_XZ, compress_blob_xz, decompress_blob_xz,

data, sizeof(data), true);

test_decompress_startswith(OBJECT_COMPRESSED_XZ,

compress_blob_xz, decompress_startswith_xz,

text, sizeof(text), false);

test_decompress_startswith(OBJECT_COMPRESSED_XZ,

compress_blob_xz, decompress_startswith_xz,

data, sizeof(data), true);

test_compress_stream(OBJECT_COMPRESSED_XZ, "xzcat",

compress_stream_xz, decompress_stream_xz, argv[0]);

#else

log_info("/* XZ test skipped */");

#endif

#ifdef HAVE_LZ4

test_compress_decompress(OBJECT_COMPRESSED_LZ4, compress_blob_lz4, decompress_blob_lz4,

text, sizeof(text), false);

test_compress_decompress(OBJECT_COMPRESSED_LZ4, compress_blob_lz4, decompress_blob_lz4,

data, sizeof(data), true);

test_decompress_startswith(OBJECT_COMPRESSED_LZ4,

compress_blob_lz4, decompress_startswith_lz4,

text, sizeof(text), false);

test_decompress_startswith(OBJECT_COMPRESSED_LZ4,

compress_blob_lz4, decompress_startswith_lz4,

data, sizeof(data), true);

test_compress_stream(OBJECT_COMPRESSED_LZ4, "lz4cat",

compress_stream_lz4, decompress_stream_lz4, argv[0]);

test_lz4_decompress_partial();

#else

log_info("/* LZ4 test skipped */");

#endif

return 0;

}