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