%Sonia Xu
%Brittany Gilbert
%Programming Languages Assignment
%Lab 4
-module('lab04_tests').
-include_lib("eunit/include/eunit.hrl").

distance_1_test() ->
    %using assertEqual macro
    ?assertEqual(5.0, lab04:distance({-1, 1}, {3, 4})).

isYounger_1_test() ->
    %using true matching pattern
    true = false == lab04:isYounger({10, 12, 2016}, {10, 12, 2016}).

isYounger_2_test() ->
    true = false == lab04:isYounger({10, 12, 2016}, {11, 12, 2016}).

isYounger_3_test() ->
    true = false == lab04:isYounger({10, 1, 2016}, {10, 2, 2016}).

isYounger_4_test() ->
    true = false == lab04:isYounger({10, 12, 2015}, {10, 12, 2016}).

isYounger_5_test() ->
    true = true == lab04:isYounger({11, 12, 2016}, {10, 12, 2016}).

isYounger_6_test() ->
    true = true == lab04:isYounger({10, 12, 2016}, {10, 12, 2015}).

isYounger_7_test() ->
    true = true == lab04:isYounger({10, 2, 2016}, {10, 1, 2016}).

doubleAll_1_test() ->
    %using assertEqual macro
    ?assertEqual([2,4,6], lab04:doubleAll([1,2,3])).

doubleAll_2_test() ->
    %using assertEqual macro
    ?assertEqual([60,40,20], lab04:doubleAll([30,20,10])).

doubleAll_3_test() ->
    %using assertEqual macro
    ?assertEqual([-10,-20,-40], lab04:doubleAll([-5,-10,-20])).

doubleAll_4_test() ->
    %using assertEqual macro
    ?assertEqual([], lab04:doubleAll([])).

mylength_1_test() ->
    true = 0 == lab04:mylength([]).

mylength_2_test() ->
    true = 5 == lab04:mylength([1,2,3,4,12]).

mylength_3_test() ->
    ?assertEqual(0, lab04:mylength([])).

mylength_4_test() ->
    ?assertEqual(2, lab04:mylength([10,13])).

odds_1_test() ->
    true = [2,4] == lab04:odds([1,2,3,4,5]).

odds_2_test() ->
    true = [] == lab04:odds([]).

odds_3_test() ->
    true = [] == lab04:odds([1,3,5]).

generate_1_test() ->
    ?assertEqual([1,2,3,4,5,6,7,8,9], lab04:generate(1,9)).

generate_2_test() ->
    ?assertEqual([3,4,5,6], lab04:generate(3,6)).

generate_3_test() ->
    ?assertEqual([], lab04:generate(6,3)).

calculatePaycheck_1_test() ->
    ?assertEqual([{"kat",10}, {"sam",30}, {"tiff",40} ], lab04:calculatePaycheck([{"kat",5,2}, {"sam",10,3}, {"tiff",4,10} ])).

calculatePaycheck_2_test() ->
    ?assertEqual([], lab04:calculatePaycheck([ ])).

getnth_1_test() ->
    true = {error, no_such_element} == lab04:getnth( [ ], 2).

getnth_2_test() ->
    true = {error, no_such_element} == lab04:getnth( ["hello", "there"], 3).

getnth_3_test() ->
    true = {error, no_such_element} == lab04:getnth( ["hello", "there"], 0).

getnth_4_test() ->
    true = "there" == lab04:getnth( ["hello", "there"], 2).

getnth_5_test() ->
    true = "there" == lab04:getnth( ["hello", "there", "where"], 2).

getnth_6_test() -> true = "where" == lab04:getnth( ["hello", "there", "where"], 3).

getnth_7_test() -> true = "where" == lab04:getnth( ["hello", "there", "where", "here"], 3).

repeat_1_test() ->
    true = [1, 2, 2, 2, 2, 2, 3, 3] == lab04:repeat([1, 2, 3], [0, 4, 1]).

repeat_2_test() ->
    true = [] == lab04:repeat( [ ], [0, 4, 1]).

repeat_3_test() ->
    true =  [1,2,3] == lab04:repeat( [1, 2, 3], [ ]).

repeat_4_test() ->
    true =  [4,4,4,5,6] == lab04:repeat( [4,5,6], [2]).

repeat_5_test() ->
    true =  [10,10,10,20,20,30] == lab04:repeat( [10,20,30], [2,1,0]).

runAllTests_1_test()->
    distance_1_test(),
    isYounger_1_test(),
    isYounger_2_test(),
    isYounger_3_test(),
    isYounger_4_test(),
    isYounger_5_test(),
    isYounger_6_test(),
    isYounger_7_test(),
    doubleAll_1_test(),
    doubleAll_2_test(),
    doubleAll_3_test(),
    mylength_1_test(),
    mylength_2_test(),
    generate_1_test(),
    generate_2_test(),
    generate_3_test(),
    calculatePaycheck_1_test(),
    calculatePaycheck_2_test(),
    getnth_1_test(),
    getnth_2_test(),
    getnth_3_test(),
    getnth_4_test(),
    getnth_5_test(),
    getnth_6_test(),
    getnth_7_test(),
    repeat_1_test(),
    repeat_2_test(),
    repeat_3_test(),
    repeat_4_test(),
    repeat_5_test().