% $Id: NewBankAccountTest.oz,v 1.2 2012/04/17 21:28:48 leavens Exp leavens $ \insert 'NewBankAccount.oz' \insert 'TestingNoStop.oz' {StartTesting 'NewBankAccount $Revision: 1.2 $'} declare Acct = {NewBankAccount} {Test {Send Acct inquire($)} '==' 0} {Send Acct deposit(10)} {Test {Send Acct inquire($)} '==' 10} {Send Acct deposit(10)} {Test {Send Acct inquire($)} '==' 20} {Send Acct withdraw(5)} {Test {Send Acct inquire($)} '==' 15} {Send Acct withdraw(15)} {Test {Send Acct inquire($)} '==' 0} {Send Acct close} {DoneTesting}