| 365 | } |
| 366 | } |
| 367 | TEST_END |
| 368 | |
| 369 | TEST_BEGIN(test_pt_gamma_scale) { |
| 370 | double shape = 1.0; |
| 371 | double ln_gamma_shape = ln_gamma(shape); |
| 372 | |
| 373 | assert_true(double_eq_rel( |
| 374 | pt_gamma(0.5, shape, 1.0, ln_gamma_shape) * 10.0, |
| 375 | pt_gamma(0.5, shape, 10.0, ln_gamma_shape), MAX_REL_ERR, |
| 376 | MAX_ABS_ERR), |
| 377 | "Scale should be trivially equivalent to external multiplication"); |
| 378 | } |
| 379 | TEST_END |
| 380 | |
| 381 | int |
nothing calls this directly
no test coverage detected