% $Id: birdtuples_tests.erl,v 1.1 2019/11/13 00:33:38 leavens Exp leavens $ -module(birdtuples_tests). -import(birdtuples, [birds_list/0, bird_name/1]). -import(testing, [eqTest/3, dotests/2]). -export([main/0]). main() -> compile:file(birdtuples), dotests("birdtuples_tests $Revision: 1.1 $", tests()). tests() -> [eqTest(lists:map(fun birdtuples:bird_name/1, birds_list()), "==", ["Northern Cardinal","Osprey"]) ].