libstdc++-v3/testsuite/ext/random/hypergeometric_distribution/operators/values.cc

   1 // { dg-options "-std=gnu++11" }
   2 // { dg-require-cstdint "" }
   3 //
   4 // 2013-11-18  Edward M. Smith-Rowland  <3dw4rd@verizon.net>
   5 //
   6 // Copyright (C) 2013 Free Software Foundation, Inc.
   7 //
   8 // This file is part of the GNU ISO C++ Library.  This library is free
   9 // software; you can redistribute it and/or modify it under the
  10 // terms of the GNU General Public License as published by the
  11 // Free Software Foundation; either version 3, or (at your option)
  12 // any later version.
  13 //
  14 // This library is distributed in the hope that it will be useful,
  15 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 // GNU General Public License for more details.
  18 //
  19 // You should have received a copy of the GNU General Public License along
  20 // with this library; see the file COPYING3.  If not see
  21 // <http://www.gnu.org/licenses/>.
  22
  23 // 26.4.8.3.* Class template hypergeometric_distribution
  24 // [rand.dist.ext.hypergeometric]
  25 // 26.4.2.4 Concept RandomNumberDistribution [rand.concept.dist]
  26
  27 #include <ext/random>
  28 #include <functional>
  29 #include <testsuite_random.h>
  30
  31 void
  32 test01()
  33 {
  34   using namespace __gnu_test;
  35
  36   std::mt19937 eng;
  37
  38   __gnu_cxx::hypergeometric_distribution<> hd1{15, 3, 2};
  39   auto bhd1 = std::bind(hd1, eng);
  40   testDiscreteDist(bhd1, [](int k)
  41                    { return hypergeometric_pdf(k, 15, 3, 2); });
  42
  43   __gnu_cxx::hypergeometric_distribution<> hd2{500, 50, 30};
  44   auto bhd2 = std::bind(hd2, eng);
  45   testDiscreteDist(bhd2, [](int k)
  46                    { return hypergeometric_pdf(k, 500, 50, 30); });
  47
  48   __gnu_cxx::hypergeometric_distribution<> hd3{100, 20, 5};
  49   auto bhd3 = std::bind(hd3, eng);
  50   testDiscreteDist(bhd3, [](int k)
  51                    { return hypergeometric_pdf(k, 100, 20, 5); });
  52 }
  53
  54 int
  55 main()
  56 {
  57   test01();
  58   return 0;
  59 }