mirror of
https://github.com/openssl/openssl.git
synced 2024-11-27 05:21:51 +08:00
ea7a952c8a
Detects if leak sanitizing is on, and directs the exit code accordingly. Note that this program is designed to fail when leaking, as that's expected, so to make it easy for wrapper scripts, we also make it look like it fails when sanitizing isn't on. Reviewed-by: Paul Dale <paul.dale@oracle.com> (Merged from https://github.com/openssl/openssl/pull/9294)
20 lines
618 B
Raku
20 lines
618 B
Raku
#! /usr/bin/env perl
|
|
# Copyright 2015-2016 The OpenSSL Project Authors. All Rights Reserved.
|
|
#
|
|
# Licensed under the Apache License 2.0 (the "License"). You may not use
|
|
# this file except in compliance with the License. You can obtain a copy
|
|
# in the file LICENSE in the source distribution or at
|
|
# https://www.openssl.org/source/license.html
|
|
|
|
|
|
use OpenSSL::Test;
|
|
|
|
setup("test_memleak");
|
|
|
|
plan skip_all => "MacOS currently doesn't support leak sanitizer"
|
|
if $^O eq 'darwin';
|
|
|
|
plan tests => 2;
|
|
ok(!run(test(["memleaktest"])), "running leak test");
|
|
ok(run(test(["memleaktest", "freeit"])), "running no leak test");
|