% $Id: quicksort_tests.erl,v 1.1 2013/11/06 02:50:30 leavens Exp leavens $ -module(quicksort_tests). -export([main/0,tests/0]). -import(quicksort,[quicksort/1]). -import(testing,[dotests/2,eqTest/3]). -spec main() -> integer(). main() -> dotests("quicksort_tests $Revision: 1.1 $", tests()). -spec tests() -> [testing:testCase(any())]. tests() -> Ad = ['Erlang', is, a, programming, language, used, to, build, massively, scalable, soft, real, time, systems, with, requirements, on, high, availability], [eqTest(quicksort([]),"==",[]), eqTest(quicksort([foo,bar,foo,bar,foo]),"==",[bar,bar,foo,foo,foo]), eqTest(quicksort(Ad),"==",['Erlang',a,availability,build,high,is, language,massively,on,programming,real, requirements,scalable,soft,systems, time,to,used,with]), eqTest(quicksort("The quick brown fox"),"=="," Tbcefhiknooqruwx") ].