*** empty log message ***

1 files changed, 17 insertions, 8 deletions

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"