90-test_quicfaults.t 991 B

1234567891011121314151617181920212223242526272829303132
  1. #! /usr/bin/env perl
  2. # Copyright 2022-2023 The OpenSSL Project Authors. All Rights Reserved.
  3. #
  4. # Licensed under the Apache License 2.0 (the "License"). You may not use
  5. # this file except in compliance with the License. You can obtain a copy
  6. # in the file LICENSE in the source distribution or at
  7. # https://www.openssl.org/source/license.html
  8. use OpenSSL::Test::Utils;
  9. use OpenSSL::Test qw/:DEFAULT srctop_dir bldtop_dir/;
  10. BEGIN {
  11. setup("test_quicfaults");
  12. }
  13. use lib srctop_dir('Configurations');
  14. use lib bldtop_dir('.');
  15. plan skip_all => "QUIC protocol is not supported by this OpenSSL build"
  16. if disabled('quic');
  17. plan skip_all => "These tests are not supported in a fuzz build"
  18. if config('options') =~ /-DFUZZING_BUILD_MODE_UNSAFE_FOR_PRODUCTION|enable-fuzz-afl/;
  19. plan tests => 2;
  20. ok(run(test(["quicfaultstest", srctop_dir("test", "certs")])),
  21. "running quicfaultstest");
  22. ok(run(test(["quic_newcid_test", srctop_dir("test", "certs")])),
  23. "running quic_newcid_test");