% $Id: dropbox_tests.erl,v 1.1 2013/12/04 01:54:28 leavens Exp leavens $ -module(dropbox_tests). -export([main/0]). -import(dropbox, [start/0, read/2, write/3]). -import(testing,[startTesting/1, run_tests/1, eqTest/3, dotests/2]). main() -> startTesting("dropbox_tests $Revision: 1.1 $"), run_tests(tests()). -spec tests() -> [testing:testCase(any())]. tests() -> DB = start(), [eqTest(read(DB, "Treasure Island"),"==",error), eqTest(write(DB, "Treasure Island", "The Old Sea-dog at the Admiral Benbow..."),"==",ok), eqTest(read(DB, "Treasure Island"),"==","The Old Sea-dog at the Admiral Benbow..."), eqTest(write(DB, "Gettysburg Address","Four score and seven years ago..."),"==",ok), eqTest(write(DB, "The New Collosus", "Give me your tired, your poor,..."),"==",ok), eqTest(read(DB, "Gettysburg Address"),"==","Four score and seven years ago..."), eqTest(read(DB, "The New Collosus"),"==", "Give me your tired, your poor,..."), eqTest(write(DB, "The New Collosus", "Not like the brazen giant of Greek fame..."),"==",ok), eqTest(read(DB, "The New Collosus"),"==","Not like the brazen giant of Greek fame...") ].