(* 
 * The contents of this file are subject to the Netscape Public License
 * Version 1.1 (the "License"); you may not use this file except in
 * compliance with the License. You may obtain a copy of the License at
 * http://www.mozilla.org/NPL/ 
 *
 * Software distributed under the License is distributed on an "AS IS" basis,
 * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 
 * for the specific language governing rights and limitations under the 
 * License. 
 * 
 * The Original Code is Mozilla Communicator client code, released March
 * 31, 1998. 
 *
 * The Initial Developer of the Original Code is Netscape Communications
 * Corporation. Portions created by Netscape are Copyright (C) 1999
 * Netscape Communications Corporation. All Rights Reserved.  
 * 
 * Contributors:
 *     Samir Gehani <sgehani@netscape.com>
 *)

--------------------------------------------------------------------
-- GenJSLib TEST HARNESS
--------------------------------------------------------------------

set zFolder to "HD:genJS"
set src to zFolder & ":install.jst"
set dst to zFolder
set ver to "5.0.0.99288"

-- load lib
tell application "Finder"
	load script file "GenJSLib" of folder "genJS" of startup disk
	set zGenJSLib to result
end tell

-- call API
tell zGenJSLib
	set err to genJSFile(src, dst, ver)
	display dialog "[TEST] genJSFile returned:   " & err
end tell