[Tclresource-commits] Extras/Tests common.tcl,NONE,1.1

[Bernard D. <bde...@us...>]

Update of /cvsroot/tclresource/Extras/Tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29215/Extras/Tests

Added Files:
	common.tcl 
Log Message:
First checkin

--- NEW FILE: common.tcl ---
# -------------------------------------------------------
# File: "common.tcl"
#                        Created: 2004-09-05 07:54:17
#              Last modification: 2004-09-06 06:50:41
# Author: Bernard Desgraupes
# e-mail: <bde...@ea...>
# www: <http:#webperso.easyconnect.fr/bdesgraupes/>
# (c) Copyright : Bernard Desgraupes, 2003-2004
# All rights reserved.
# This software is free software with BSD licence.
# Versions history: see the Changes.Log file.
# 
# Test suite for the Tcl [resource] command defined 
# in the Tclresource extension.
# 
# $Date: 2004/09/06 07:01:15 $
# $Revision: 1.1 $
# -------------------------------------------------------

# Check that we are on OSX
if {$tcl_platform(platform) != "unix" || $tcl_platform(os) != "Darwin"} {
	puts stdout "The Tclresource extension is for the MacOSX platform only. Exiting now."
	exit
} 

package require Tcl 8.4

if {[lsearch [namespace children] ::tcltest] == -1} {
	package require tcltest 2.2
}

namespace eval ::resource::test {
	# Data fork
	variable resfileDF [file join [file dir [info script]] Forks TestResourcesDF.rsrc]
	# Resource fork
	variable resfileRF [file join [file dir [info script]] Forks TestResourcesRF.rsrc]
	# No fork
	variable resfileNF [file join [file dir [info script]] Forks TestResourcesNF.rsrc]
}

package require resource 1.1

# set resfileDF "/Volumes/hd3/Tcl/Tcl_Sources/Extensions/Tclresource/Tclresource/Extras/Tests/TestResourcesDF.rsrc"