#
#  $Header: /fuji/lewis/RCS/ProjectStartup,v 1.5 1992/10/08 01:26:03 sterling Exp $
# 
#  Description:
# 
# 
#  TODO:
# 
# 
#  Notes:
# 
# 
# Changes:
#		$Log: ProjectStartup,v $
#		Revision 1.5  1992/10/08  01:26:03  sterling
#		*** empty log message ***
#
#		Revision 1.4  1992/09/21  06:37:33  sterling
#		*** empty log message ***
#
#		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!!!
#
# 

Execute "{Stroika_bin}ProjectStartup"

# Project_bin already properly set
Set Project_src "{Stroika_src}TestSuites:Foundation:"

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

AddMenu Lookup '(-' ''
AddMenu	Lookup	'{Project_bin}' 					'Lookup "{Project_bin}" > Dev:Null  Dev:Null'
AddMenu	Lookup	'{Project_src}' 					'Lookup "{Project_src}" > Dev:Null  Dev:Null'
AddMenu	Lookup	'{Project_src}Headers:' 			'Lookup "{Project_src}Headers" > Dev:Null  Dev:Null'
AddMenu	Lookup	'{Project_src}Sources:' 			'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 
	tDate 
	tDeque 
	tDeque_CircularArray 
	tDeque_FixedCircularArray 
	tDeque_DoubleLinkList 
	tException 
	tFile 
	tFormat 
	tHashTable 
	tInt64 
	tMapping 
	tMapping_SortedLinkList 
	tMapping_Array 
	tMapping_FixedArray 
	tMapping_FixedSortedArray 
	tMapping_SortedArray 
	tMapping_HashTable 
	tMapping_LinkList 
	tMath 
	tMemory 
	tQueue 
	tQueue_CircularArray 
	tQueue_FixedCircularArray 
	tQueue_DoubleLinkList 
	tSequence 
	tSequence_Array 
	tSequence_DoubleLinkList 
	tSet_Array 
	tSet_BitString 
	tStack_Array 
	tStack_FixedArray 
	tStack_LinkList 
	tString 
	tTally 
	tTally_Array 
	tTally_LinkList 
	tTally_FixedArray 
	tTime 
	"

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}"'
