[Tclresource-commits] Extras/Tests TypesCmd.test,NONE,1.1

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

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

Added Files:
	TypesCmd.test 
Log Message:
First checkin

--- NEW FILE: TypesCmd.test ---
# -------------------------------------------------------
# File: "TypesCmd.test"
#                        Created: 2004-09-05 20:16:33
#              Last modification: 2004-09-06 08:15:41
# Author: Bernard Desgraupes
# e-mail: <bde...@ea...>
# www: <http://webperso.easyconnect.fr/bdesgraupes/>
# (c) Copyright: Bernard Desgraupes, 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 types] command defined 
# in the Tclresource extension.
# 
# $Date: 2004/09/06 07:04:08 $
# $Revision: 1.1 $
# -------------------------------------------------------

source [file join [file dir [info script]] common.tcl]

namespace eval ::resource::test {
	namespace import ::tcltest::*

	test ResourceTypes-1-1 {Getting types from a data fork} -setup {
		set rid [resource open $resfileDF]
	} -body {
		set res [lsort -dictionary [resource types $rid]]
	} -cleanup {
		resource close $rid
	} -result "Abou ALRT ckid MPSR STR# TEXT"
		
	test ResourceTypes-1-2 {Getting types from a resource fork} -setup {
		set rid [resource open $resfileRF]
	} -body {
		set res [lsort -dictionary [resource types $rid]]
	} -cleanup {
		resource close $rid
	} -result "Abou ALRT ckid MPSR STR# TEXT"
		
	test ResourceTypes-1-3 {Getting all types for all resources} -setup {
	} -body {
		catch {resource types}
	} -cleanup {
	} -result 0
		
	# Cleanup
	::tcltest::cleanupTests
}

namespace delete ::resource::test