% $Id: deleteall_tests.erl,v 1.1 2013/11/06 01:38:19 leavens Exp leavens $ -module(deleteall_tests). -export([main/0,tests/1]). -import(deleteall,[deleteall/2,delete/2]). -import(testing,[dotests/2,eqTest/3]). -spec main() -> integer(). main() -> dotests("deleteall_tests $Revision: 1.1 $", tests(fun deleteall:deleteall/2) ++ tests(fun deleteall:delete/2)). -spec tests(fun((list(T),T) -> list(T))) -> [testing:testCase(T)]. tests(DF) -> Ad = ['Erlang', is, a, programming, language, used, to, build, massively, scalable, soft, real, time, systems, with, requirements, on, high, availability], [eqTest(DF([],foo),"==",[]), eqTest(DF([foo,bar,foo,bar,foo],foo),"==",[bar,bar]), eqTest(DF(Ad,'Erlang'),"==",tl(Ad)), eqTest(DF(Ad,soft),"==",Ad -- [soft]) ].