*** empty log message ***

4 files changed, 66 insertions, 11 deletions

diff --git a/tests/all.tcl b/tests/all.tcl
index 4a11aae..12089d9 100644
--- a/tests/all.tcl
+++ b/tests/all.tcl
@@ -1,9 +1,11 @@
 source linegraph.tcl
 source lineelement.tcl
+source linepen.tcl
 source barbar.tcl
 source barelement.tcl
-source xaxis.tcl
+source barpen.tcl
 source axis.tcl
+source xaxis.tcl
 source legend.tcl
 source crosshairs.tcl
 source marker.tcl
diff --git a/tests/barpen.tcl b/tests/barpen.tcl
new file mode 100644
index 0000000..6189b2a
--- /dev/null
+++ b/tests/barpen.tcl
@@ -0,0 +1,44 @@
+source base.tcl
+
+set w .bar
+set graph [bltBarGraph $w]
+
+$graph pen create foo -color red -showvalues y
+$graph element configure data2 -pen foo
+
+echo "Testing Bar Pen..."
+
+bltTest3 $graph pen foo -background yellow
+bltTest3 $graph pen foo -bd 4
+bltTest3 $graph pen foo -bg yellow
+bltTest3 $graph pen foo -borderwidth 4
+bltTest3 $graph pen foo -color yellow
+bltTest3 $graph pen foo -errorbarcolor green
+bltTest3 $graph pen foo -errorbarwidth 2
+bltTest3 $graph pen foo -errorbarcap 10
+bltTest3 $graph pen foo -fg yellow
+bltTest3 $graph pen foo -fill cyan
+bltTest3 $graph pen foo -foreground green
+bltTest3 $graph pen foo -outline red
+bltTest3 $graph pen foo -relief flat
+bltTest3 $graph pen foo -showerrorbars no
+bltTest3 $graph pen foo -showvalues none
+bltTest3 $graph pen foo -showvalues x
+bltTest3 $graph pen foo -showvalues both
+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
+
diff --git a/tests/lineelement.tcl b/tests/lineelement.tcl
index d0ffcf5..4c2aefb 100644
--- a/tests/lineelement.tcl
+++ b/tests/lineelement.tcl
@@ -27,8 +27,8 @@ bltTest3 $graph element data2 -linewidth 3
 bltTest3 $graph element data2 -mapx x2
 bltTest3 $graph element data2 -mapy y2
 bltTest3 $graph element data1 -maxsymbols 4
-bltTest3 $graph element data1 -offdash red
-bltTest3 $graph element data1 -outline red
+bltTest3 $graph element data1 -offdash black
+bltTest3 $graph element data1 -outline green
 bltTest3 $graph element data1 -outlinewidth 5
 bltTest3 $graph element data2 -pen foo
 bltTest3 $graph element data1 -pixels 20
diff --git a/tests/linepen.tcl b/tests/linepen.tcl
index 38b29fc..e3f5634 100644
--- a/tests/linepen.tcl
+++ b/tests/linepen.tcl
@@ -3,23 +3,32 @@ source base.tcl
 set w .line
 set graph [bltLineGraph $w]
 
-$graph pen create foo -showvalues y -symbol circle -dashes "8 4"
+$graph pen create foo -color red -showvalues y -symbol circle -dashes {4 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 -color yellow
+bltTest3 $graph pen foo -dashes {8 3}
+bltTest3 $graph pen foo -errorbarcolor green
 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 -errorbarcap 10
+bltTest3 $graph pen foo -fill cyan
+bltTest3 $graph pen foo -linewidth 3
+bltTest3 $graph pen foo -offdash black
 bltTest3 $graph pen foo -outline green
-bltTest3 $graph pen foo -outlinewidth 2
+bltTest3 $graph pen foo -outlinewidth 5
 bltTest3 $graph pen foo -pixels 20
 bltTest3 $graph pen foo -showvalues none
+bltTest3 $graph pen foo -symbol arrow
+bltTest3 $graph pen foo -symbol cross
+bltTest3 $graph pen foo -symbol diamond
+bltTest3 $graph pen foo -symbol none
+bltTest3 $graph pen foo -symbol plus
+bltTest3 $graph pen foo -symbol scross
+bltTest3 $graph pen foo -symbol splus
 bltTest3 $graph pen foo -symbol square
+bltTest3 $graph pen foo -symbol triangle
 bltTest3 $graph pen foo -valueanchor n
 bltTest3 $graph pen foo -valuecolor cyan
 bltTest3 $graph pen foo -valuefont "times 18 bold italic"