# RBC.barchart.marker.create.A.test --
#
###Abstract
# This file contains the automatic tests that test the marker create 
# function of the barchart BLT component.
#
###Copyright
# See the file "license.terms" for information on usage and
# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
###Revision String
# SVN: $Id$

###Package Definition
package provide barchart.marker

package require rbc
namespace import rbc::*

package require tcltest
namespace import tcltest::*
namespace eval barchart.marker {
	# ------------------------------------------------------------------------------------
	# Purpose: Ensure creating a marker actually creates the marker on the barchart
	# ------------------------------------------------------------------------------------
	test RBC.barchart.marker.create.A.1.1 {
	    Create Marker
	} -setup {
		barchart .barchart1
	} -body {
	    .barchart1 marker create text -name marker1
		.barchart1 marker exists marker1
	} -cleanup {
	    .barchart1 marker delete marker1
		destroy .barchart1
	} -result {1}
	
	cleanupTests
}
