% $Id: NewBankAccountTest.oz,v 1.1 2008/04/09 22:30:11 leavens Exp leavens $ \insert 'NewBankAccount.oz' \insert 'TestingNoStop.oz' {StartTesting 'NewBankAccount'} 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}