% $Id: zip_tests.erl,v 1.1 2013/12/04 00:38:05 leavens Exp leavens $ -module(zip_tests). -export([main/0,tests/0]). -import(zip,[zip/2]). -import(testing,[dotests/2,eqTest/3]). -spec main() -> integer(). main() -> dotests("zip_tests $Revision: 1.1 $", tests()). -spec tests() -> [testing:testCase([{any(),any()}])]. tests() -> [eqTest(zip([],[]),"==",[]), eqTest(zip([a,b,c],[]),"==",[]), eqTest(zip([],[1,2,3]),"==",[]), eqTest(zip([a,b],[1,2,3]),"==",[{a,1},{b,2}]), eqTest(zip([a,b,a,b],[1,2,3,4]),"==",[{a,1},{b,2},{a,3},{b,4}]) ].