summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjoye <joye>2014-05-20 18:24:00 (GMT)
committerjoye <joye>2014-05-20 18:24:00 (GMT)
commitb8968fb771ec905f3dd6d9de54fe96478b9c46b3 (patch)
tree41c3fd6323d23af1470ddb26a366cc06615ac0bd /tests
parent9cd94eac6c4d0bf60a32daa15b769d45881a56dd (diff)
downloadblt-b8968fb771ec905f3dd6d9de54fe96478b9c46b3.zip
blt-b8968fb771ec905f3dd6d9de54fe96478b9c46b3.tar.gz
blt-b8968fb771ec905f3dd6d9de54fe96478b9c46b3.tar.bz2
*** empty log message ***
Diffstat (limited to 'tests')
-rw-r--r--tests/barelement.tcl11
-rw-r--r--tests/bargraph.tcl2
-rw-r--r--tests/lineelement.tcl2
-rw-r--r--tests/linegraph.tcl2
-rw-r--r--tests/linepen.tcl39
5 files changed, 48 insertions, 8 deletions
diff --git a/tests/barelement.tcl b/tests/barelement.tcl
index 19a0a00..a0b971c 100644
--- a/tests/barelement.tcl
+++ b/tests/barelement.tcl
@@ -3,16 +3,17 @@ source base.tcl
set w .bar
set graph [bltBarGraph $w]
-$graph element configure data1 -showvalues y
+$graph element configure data1 -color red -showvalues y
+$graph element configure data2 -color blue
$graph pen create foo -showvalues y -color purple
$graph element activate data3
-echo "Bar Element"
+echo "Testing Bar Element..."
bltTest3 $graph element data3 -activepen foo
bltTest3 $graph element data2 -background yellow
-bltTest3 $graph element data2 -barwidth 10
+bltTest3 $graph element data2 -barwidth 1
bltTest3 $graph element data2 -bd 4
bltTest3 $graph element data2 -bg yellow
#bltTest3 $graph element data2 -bindtags
@@ -59,9 +60,9 @@ bltTest3 $graph element data2 -yerror {5 5 5 5 5 5 5 5 5 5 5}
bltCmd $graph element activate data2
bltCmd $graph element deactivate data2
#bltCmd $graph element bind data1 <Button-1> [list puts "%x %y"]
-bltCmd $graph element cget data1 -smooth
+bltCmd $graph element cget data1 -showvalues
bltCmd $graph element configure data1
-bltCmd $graph element configure data1 -smooth
+bltCmd $graph element configure data1 -showvalues
#bltCmd $graph element closest 50 50
#bltCmd $graph element closest 50 50 data1 data2
bltCmd $graph element create data4
diff --git a/tests/bargraph.tcl b/tests/bargraph.tcl
index 34f320e..66e62c7 100644
--- a/tests/bargraph.tcl
+++ b/tests/bargraph.tcl
@@ -3,7 +3,7 @@ source base.tcl
set w .bar
set graph [bltBarGraph $w]
-echo "Testing BarGraph..."
+echo "Testing Bar Graph..."
# Graph
bltTest $graph -aspect 2
diff --git a/tests/lineelement.tcl b/tests/lineelement.tcl
index addab07..d0ffcf5 100644
--- a/tests/lineelement.tcl
+++ b/tests/lineelement.tcl
@@ -8,7 +8,7 @@ $graph element configure data1 -dash {8 3} -showvalues y -smooth step -symbol ci
$graph pen create foo -showvalues y -symbol circle -dashes {8 3} -color purple
$graph element activate data3
-echo "Line Element"
+echo "Testing Line Element.."
bltTest3 $graph element data3 -activepen foo
bltTest3 $graph element data2 -areabackground yellow
diff --git a/tests/linegraph.tcl b/tests/linegraph.tcl
index b934cf7..020816e 100644
--- a/tests/linegraph.tcl
+++ b/tests/linegraph.tcl
@@ -3,7 +3,7 @@ source base.tcl
set w .line
set graph [bltLineGraph $w]
-echo "Testing LineGraph..."
+echo "Testing Line Graph..."
bltTest $graph -aspect 2
bltTest $graph -background red
diff --git a/tests/linepen.tcl b/tests/linepen.tcl
new file mode 100644
index 0000000..38b29fc
--- /dev/null
+++ b/tests/linepen.tcl
@@ -0,0 +1,39 @@
+source base.tcl
+
+set w .line
+set graph [bltLineGraph $w]
+
+$graph pen create foo -showvalues y -symbol circle -dashes "8 4"
+$graph element configure data2 -pen foo
+
+echo "Testing Line Pen..."
+
+bltTest3 $graph pen foo -color red
+bltTest3 $graph pen foo -dashes "5 8 3"
+bltTest3 $graph pen foo -errorbarcolor yellow
+bltTest3 $graph pen foo -errorbarwidth 2
+bltTest3 $graph pen foo -fill green
+bltTest3 $graph pen foo -linewidth 2
+bltTest3 $graph pen foo -offdash yellow
+bltTest3 $graph pen foo -outline green
+bltTest3 $graph pen foo -outlinewidth 2
+bltTest3 $graph pen foo -pixels 20
+bltTest3 $graph pen foo -showvalues none
+bltTest3 $graph pen foo -symbol square
+bltTest3 $graph pen foo -valueanchor n
+bltTest3 $graph pen foo -valuecolor cyan
+bltTest3 $graph pen foo -valuefont "times 18 bold italic"
+bltTest3 $graph pen foo -valueformat "%e"
+bltTest3 $graph pen foo -valuerotate 45
+
+bltCmd $graph pen cget foo -color
+bltCmd $graph pen configure foo
+bltCmd $graph pen configure foo -color
+bltCmd $graph pen create bar
+bltCmd $graph pen delete bar
+bltCmd $graph pen names
+bltCmd $graph pen type foo
+
+echo "done"
+bltPlotDestroy $w
+