// Copyright 2015 The Go Authors. All rights reserved.
// Use of this source code is governed by a BSD-style
// license that can be found in the LICENSE file.

package stats

import "testing"

func TestTTest(t *testing.T) {
	s1 := Sample{Xs: []float64{2, 1, 3, 4}}
	s2 := Sample{Xs: []float64{6, 5, 7, 9}}

	check := func(want, got *TTestResult) {
		if want.N1 != got.N1 || want.N2 != got.N2 ||
			!aeq(want.T, got.T) || !aeq(want.DoF, got.DoF) ||
			want.AltHypothesis != got.AltHypothesis ||
			!aeq(want.P, got.P) {
			t.Errorf("want %+v, got %+v", want, got)
		}
	}
	check3 := func(test func(alt LocationHypothesis) (*TTestResult, error), n1, n2 int, t, dof float64, pless, pdiff, pgreater float64) {
		want := &TTestResult{N1: n1, N2: n2, T: t, DoF: dof}

		want.AltHypothesis = LocationLess
		want.P = pless
		got, _ := test(want.AltHypothesis)
		check(want, got)

		want.AltHypothesis = LocationDiffers
		want.P = pdiff
		got, _ = test(want.AltHypothesis)
		check(want, got)

		want.AltHypothesis = LocationGreater
		want.P = pgreater
		got, _ = test(want.AltHypothesis)
		check(want, got)
	}

	check3(func(alt LocationHypothesis) (*TTestResult, error) {
		return TwoSampleTTest(s1, s1, alt)
	}, 4, 4, 0, 6,
		0.5, 1, 0.5)
	check3(func(alt LocationHypothesis) (*TTestResult, error) {
		return TwoSampleWelchTTest(s1, s1, alt)
	}, 4, 4, 0, 6,
		0.5, 1, 0.5)

	check3(func(alt LocationHypothesis) (*TTestResult, error) {
		return TwoSampleTTest(s1, s2, alt)
	}, 4, 4, -3.9703446152237674, 6,
		0.0036820296121056195, 0.0073640592242113214, 0.9963179703878944)
	check3(func(alt LocationHypothesis) (*TTestResult, error) {
		return TwoSampleWelchTTest(s1, s2, alt)
	}, 4, 4, -3.9703446152237674, 5.584615384615385,
		0.004256431565689112, 0.0085128631313781695, 0.9957435684343109)

	check3(func(alt LocationHypothesis) (*TTestResult, error) {
		return PairedTTest(s1.Xs, s2.Xs, 0, alt)
	}, 4, 4, -17, 3,
		0.0002216717691559955, 0.00044334353831207749, 0.999778328230844)

	check3(func(alt LocationHypothesis) (*TTestResult, error) {
		return OneSampleTTest(s1, 0, alt)
	}, 4, 0, 3.872983346207417, 3,
		0.9847668541689145, 0.030466291662170977, 0.015233145831085482)
	check3(func(alt LocationHypothesis) (*TTestResult, error) {
		return OneSampleTTest(s1, 2.5, alt)
	}, 4, 0, 0, 3,
		0.5, 1, 0.5)
}