# test harness

	
require 'test/unit/testcase'
require 'test/unit/assertions'
include Test::Unit::Assertions
include Test::Unit  
def rwdaddresses_all_tests 
	print "in rwdaddresses all tests\n"
  $testrwdaddressestestcase = TestSuite.new
	test_runrwdaddresses
end

def test_runrwdaddresses


	begin
  testasserts = 0
  print "Starting rwdaddresses tests!\n"
     runselectiontab
     assert_equal("selectiontab",@rwd_tab) ; testasserts += 1
    runrwdaddressesmenu10   
    assert_equal("viewaddressesconfiguration",@rwd_tab) ; testasserts += 1    
        loadrwdaddressesconfiguration
    assert_equal("rwdaddresses.cnf",@a_adconfigurationfilename) ; testasserts += 1    
     
 $stderr.print "tests completed succesfully!\n"
 $stderr.print testasserts, " asserts performed\n"

	rescue  NotImplementedError, Exception
		$stderr.print $!

	end
  
end



def teststobedown
 runtinkerhelpabout
          assert_equal("rwdtinkerhelpwindow",@rwd_tab)  ; testasserts += 1
end