use super::super::*;
use crate::types::Value;
fn approx(a: Value, b: f64, tol: f64) -> bool {
if let Value::Number(n) = a { (n - b).abs() < tol } else { false }
}
#[test]
fn ipmt_first_period_interest() {
let args = [
Value::Number(0.1 / 12.0),
Value::Number(1.0),
Value::Number(12.0),
Value::Number(10000.0),
];
let result = ipmt_fn(&args);
assert!(approx(result.clone(), -83.3333, 1e-4), "got {:?}", result);
}
#[test]
fn ipmt_result_is_negative() {
let args = [
Value::Number(0.1 / 12.0),
Value::Number(1.0),
Value::Number(12.0),
Value::Number(10000.0),
];
if let Value::Number(n) = ipmt_fn(&args) {
assert!(n < 0.0, "interest payment should be negative, got {}", n);
} else {
panic!("expected Number");
}
}
#[test]
fn sln_basic() {
let args = [
Value::Number(10000.0),
Value::Number(1000.0),
Value::Number(5.0),
];
assert!(approx(sln_fn(&args), 1800.0, 1e-9));
}
#[test]
fn sln_zero_salvage() {
let args = [
Value::Number(6000.0),
Value::Number(0.0),
Value::Number(3.0),
];
assert!(approx(sln_fn(&args), 2000.0, 1e-9));
}
#[test]
fn fvschedule_two_rates() {
let args = [
Value::Number(1000.0),
Value::Array(vec![Value::Number(0.05), Value::Number(0.05)]),
];
assert!(approx(fvschedule_fn(&args), 1102.5, 1e-4));
}
#[test]
fn fvschedule_single_rate() {
let args = [
Value::Number(500.0),
Value::Array(vec![Value::Number(0.1)]),
];
assert!(approx(fvschedule_fn(&args), 550.0, 1e-9));
}
#[test]
fn mirr_positive_return() {
let args = [
Value::Array(vec![
Value::Number(-1000.0),
Value::Number(300.0),
Value::Number(400.0),
Value::Number(500.0),
]),
Value::Number(0.1),
Value::Number(0.12),
];
let result = mirr_fn(&args);
assert!(approx(result.clone(), 0.09816, 1e-4), "got {:?}", result);
}
#[test]
fn xnpv_break_even() {
let args = [
Value::Number(0.1),
Value::Array(vec![Value::Number(-1000.0), Value::Number(1100.0)]),
Value::Array(vec![Value::Number(44927.0), Value::Number(45292.0)]),
];
assert!(approx(xnpv_fn(&args), 0.0, 1e-4));
}
#[test]
fn xnpv_positive_npv() {
let args = [
Value::Number(0.1),
Value::Array(vec![Value::Number(-1000.0), Value::Number(1200.0)]),
Value::Array(vec![Value::Number(44927.0), Value::Number(45292.0)]),
];
assert!(approx(xnpv_fn(&args), 90.909, 1e-3));
}