1 //===----------------------------------------------------------------------===//
2 //
3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
4 // See https://llvm.org/LICENSE.txt for license information.
5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
6 //
7 //===----------------------------------------------------------------------===//
8 
9 // <complex>
10 
11 // template<class T>
12 //   complex<T>
13 //   tan(const complex<T>& x);
14 
15 #include <complex>
16 #include <cassert>
17 
18 #include "../cases.h"
19 
20 template <class T>
21 void
22 test(const std::complex<T>& c, std::complex<T> x)
23 {
24     assert(tan(c) == x);
25 }
26 
27 template <class T>
28 void
29 test()
30 {
31     test(std::complex<T>(0, 0), std::complex<T>(0, 0));
32     test(std::complex<T>(10000, -10000), std::complex<T>(0, -1));
33 }
34 
35 void test_edges()
36 {
37     const unsigned N = sizeof(testcases) / sizeof(testcases[0]);
38     for (unsigned i = 0; i < N; ++i)
39     {
40         std::complex<double> r = tan(testcases[i]);
41         std::complex<double> t1(-imag(testcases[i]), real(testcases[i]));
42         std::complex<double> t2 = tanh(t1);
43         std::complex<double> z(imag(t2), -real(t2));
44         if (std::isnan(real(r)))
45             assert(std::isnan(real(z)));
46         else
47         {
48             assert(real(r) == real(z));
49             assert(std::signbit(real(r)) == std::signbit(real(z)));
50         }
51         if (std::isnan(imag(r)))
52             assert(std::isnan(imag(z)));
53         else
54         {
55             assert(imag(r) == imag(z));
56             assert(std::signbit(imag(r)) == std::signbit(imag(z)));
57         }
58     }
59 }
60 
61 int main(int, char**)
62 {
63     test<float>();
64     test<double>();
65     test<long double>();
66     test_edges();
67 
68   return 0;
69 }
70