02-test_localetest.t 893 B

1234567891011121314151617181920212223242526
  1. #! /usr/bin/env perl
  2. # Copyright 2017-2022 The OpenSSL Project Authors. All Rights Reserved.
  3. # Copyright (c) 2017, Oracle and/or its affiliates. All rights reserved.
  4. #
  5. # Licensed under the Apache License 2.0 (the "License"). You may not use
  6. # this file except in compliance with the License. You can obtain a copy
  7. # in the file LICENSE in the source distribution or at
  8. # https://www.openssl.org/source/license.html
  9. use OpenSSL::Test;
  10. use OpenSSL::Test::Utils;
  11. setup("test_locale");
  12. plan skip_all => "Locale tests not available on Windows or VMS"
  13. if $^O =~ /^(VMS|MSWin32)$/;
  14. plan tests => 3;
  15. ok(run(test(["evp_pkey_ctx_new_from_name"])), "running evp_pkey_ctx_new_from_name without explicit context init");
  16. $ENV{LANG} = "C";
  17. ok(run(test(["localetest"])), "running localetest");
  18. $ENV{LANG} = "tr_TR.UTF-8";
  19. ok(run(test(["localetest"])), "running localetest with Turkish locale");