#
#  $Header: /fuji/lewis/RCS/ProjectStartup,v 1.1 1992/09/04 02:09:10 lewis Exp $
# 
#  Description:
# 
# 
#  TODO:
# 
# 
#  Notes:
# 
# 
# Changes:
#		$Log: ProjectStartup,v $
# Revision 1.1  1992/09/04  02:09:10  lewis
# Initial revision
#
#		Revision 1.3  1992/09/01  17:49:44  sterling
#		Added new testsuites.
#
#		Revision 1.2  1992/07/08  03:57:38  lewis
#		Added Test_Time to list of testsuites to run on a cmd-E.
#
#		Revision 1.1  1992/06/20  18:24:57  lewis
#		Initial revision
#
#		Revision 1.2  1992/05/14  14:13:10  lewis
#		Renamed SequenceDoublyLinkedList to DLL so would compile on mac - name len
#		llimit 32 on mac!!!
#
#		Revision 1.1  92/05/01  23:17:02  23:17:02  lewis (Lewis Pringle)
#		Initial revision
#		
#		Revision 1.4  92/04/07  10:40:49  10:40:49  lewis (Lewis Pringle)
#		*** empty log message ***
#		
#
# 

Execute "{Stroika_bin}ProjectStartup"

# Project_bin already properly set
Set Project_src "{Stroika_src}Applications:TestSuite:"

Set ProgramName ""; Export ProgramName;
Set ProjectName	"TestSuite"; Export ProjectName;

AddMenu Lookup '(-' ''
AddMenu	Lookup	'{Project_src}/7' 					'Lookup "{Project_src}" > Dev:Null  Dev:Null'
AddMenu	Lookup	'{Project_src}Headers:/8' 			'Lookup "{Project_src}Headers" > Dev:Null  Dev:Null'
AddMenu	Lookup	'{Project_src}Sources:/9' 			'Lookup "{Project_src}Sources" > Dev:Null  Dev:Null'


AddSourceLookupMenu Find "Project" 			"{Project_src}"
AddSourceLookupMenu Find "Project-Headers"	"{Project_src}"Headers:
AddSourceLookupMenu Find "Project-Sources"	"{Project_src}"Sources:




Set	TestSuites 
	" 
	tArray 
	tBag 
	tBag_Array 
	tBag_LinkList 
	tException 
	tHashTable 
	tMapping_HashTable 
	tQueue 
	tQueue_Array 
	tQueue_ArrayBounded 
	tQueue_DoubleLinkList 
	tSequence 
	tSequence_Array 
	tSequence_DoubleLinkList 
	tSet_Array 
	tSet_BitString 
	tStack_Array 
	tStack_ArrayBounded 
	tStack_LinkList 
	"


AddMenu	Project	'Execute Program/E'													
'																					
	Begin; 																			
		for p in {TestSuites};														
			echo Running: {p};														
			"{Project_bin}"{p} || (Echo "TEST FAILED!!!!" && Set Status 0);			
		end;																		
	End  "{Worksheet}"'
