test/recipes/61-test_bio_readbuffer.t

   1 #! /usr/bin/env perl
   2 # Copyright 2021 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
   9 use strict;
  10 use warnings;
  11
  12 use OpenSSL::Test qw(:DEFAULT srctop_file);
  13
  14 setup('test_bio_readbuffer');
  15
  16 my $pemfile = srctop_file("test", "certs", "leaf.pem");
  17 my $derfile = 'readbuffer_leaf.der';
  18
  19 plan tests => 3;
  20
  21 ok(run(app([ 'openssl', 'x509', '-inform', 'PEM', '-in', $pemfile,
  22              '-outform', 'DER', '-out', $derfile])),
  23    "Generate a DER certificate");
  24
  25 ok(run(test(["bio_readbuffer_test", $derfile])),
  26    "Running bio_readbuffer_test $derfile");
  27
  28 ok(run(test(["bio_readbuffer_test", $pemfile])),
  29    "Running bio_readbuffer_test $pemfile");