# test harness

	
require 'test/unit/testcase'
require 'test/unit/assertions'
include Test::Unit::Assertions
include Test::Unit  
def rwdmovies_all_tests 
	print "in rwdmovies all tests\n"
  $testrwdmoviestestcase = TestSuite.new
	test_runrwdmovies
end

def test_runrwdmovies


	begin
  testasserts = 0
  print "Starting rwdmovies tests!\n"
     runselectiontab
     assert_equal("selectiontab",@rwd_tab) ; testasserts += 1
    runrwdmoviestab   
     assert_equal("viewrwdmovielist",@rwd_tab) ; testasserts += 1
    runrwdmoviesconfiguration
    assert_equal("viewrwdmoviesconfiguration",@rwd_tab) ; testasserts += 1    
        loadrwdmoviesconfiguration
    assert_equal("rwdmovies.cnf",@a_movconfigurationfilename) ; 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