summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/axis.tcl4
-rw-r--r--tests/barelement.tcl4
-rw-r--r--tests/bargraph.tcl4
-rw-r--r--tests/barpen.tcl4
-rw-r--r--tests/base.tcl8
-rw-r--r--tests/crosshairs.tcl4
-rw-r--r--tests/legend.tcl4
-rw-r--r--tests/lineelement.tcl4
-rw-r--r--tests/linegraph.tcl4
-rw-r--r--tests/linemarker.tcl4
-rw-r--r--tests/linepen.tcl4
-rw-r--r--tests/marker.tcl4
-rw-r--r--tests/polygonmarker.tcl4
-rw-r--r--tests/ps.tcl2
-rw-r--r--tests/test.tcl2
-rw-r--r--tests/textmarker.tcl4
16 files changed, 32 insertions, 32 deletions
diff --git a/tests/axis.tcl b/tests/axis.tcl
index 9fb6af9..80f97ea 100644
--- a/tests/axis.tcl
+++ b/tests/axis.tcl
@@ -7,7 +7,7 @@ $graph axis configure x -bd 2 -background cyan -title "X\nAxis" -limitsformat "%
$graph axis configure y -bd 2 -background cyan -title "Y\nAxis"
bltCmd $graph axis activate y
-echo "Testing Axis..."
+puts stderr "Testing Axis..."
bltTest3 $graph axis y -activeforeground red $dops
bltTest3 $graph axis y -activerelief sunken $dops
@@ -100,6 +100,6 @@ bltCmd $graph xaxis configure -color
#bltCmd $graph xaxis use
#bltCmd $graph xaxis view
-echo "done"
+puts stderr "done"
bltPlotDestroy $w
diff --git a/tests/barelement.tcl b/tests/barelement.tcl
index 8188f7b..5b8cb07 100644
--- a/tests/barelement.tcl
+++ b/tests/barelement.tcl
@@ -9,7 +9,7 @@ $graph element configure data2 -color blue
$graph pen create foo -showvalues y -color purple
$graph element activate data3
-echo "Testing Bar Element..."
+puts stderr "Testing Bar Element..."
bltTest3 $graph element data3 -activepen foo $dops
bltTest3 $graph element data2 -background yellow $dops
@@ -92,6 +92,6 @@ bltCmd $graph element show data2
bltCmd $graph element show {data1 data2 data3}
bltCmd $graph element type data1
-echo "done"
+puts stderr "done"
bltPlotDestroy $w
diff --git a/tests/bargraph.tcl b/tests/bargraph.tcl
index 03f538f..20f067d 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 Bar Graph..."
+puts stderr "Testing Bar Graph..."
# Graph
bltTest $graph -aspect 2 $dops
@@ -75,6 +75,6 @@ bltCmd $graph configure -background cyan
##bltCmd $graph y2axis
##bltCmd $graph yaxis
-echo "done"
+puts stderr "done"
bltPlotDestroy $w
diff --git a/tests/barpen.tcl b/tests/barpen.tcl
index e313a81..d06928b 100644
--- a/tests/barpen.tcl
+++ b/tests/barpen.tcl
@@ -6,7 +6,7 @@ set graph [bltBarGraph $w]
$graph pen create foo -color red -showvalues y
$graph element configure data2 -pen foo
-echo "Testing Bar Pen..."
+puts stderr "Testing Bar Pen..."
bltTest3 $graph pen foo -background yellow $dops
bltTest3 $graph pen foo -bd 4 $dops
@@ -46,6 +46,6 @@ bltCmd $graph pen delete bar
bltCmd $graph pen names
bltCmd $graph pen type foo
-echo "done"
+puts stderr "done"
bltPlotDestroy $w
diff --git a/tests/base.tcl b/tests/base.tcl
index b02b79d..c02abfa 100644
--- a/tests/base.tcl
+++ b/tests/base.tcl
@@ -24,7 +24,7 @@ proc bltPlotDestroy {w} {
proc bltTest {graph option value {dops 0}} {
global sleep
- echo " $option $value"
+ puts stderr " $option $value"
set org [$graph cget $option]
$graph configure $option $value
update
@@ -42,7 +42,7 @@ proc bltTest {graph option value {dops 0}} {
proc bltTest2 {graph which option value {dops 0}} {
global sleep
- echo " $option $value"
+ puts stderr " $option $value"
set org [$graph $which cget $option]
$graph $which configure $option $value
update
@@ -60,7 +60,7 @@ proc bltTest2 {graph which option value {dops 0}} {
proc bltTest3 {graph which item option value {dops 0}} {
global sleep
- echo " $item $option $value"
+ puts stderr " $item $option $value"
set org [$graph $which cget $item $option]
$graph $which configure $item $option $value
update
@@ -78,7 +78,7 @@ proc bltTest3 {graph which item option value {dops 0}} {
proc bltCmd {graph args} {
global sleep
- echo " $graph $args"
+ puts stderr " $graph $args"
eval $graph $args
update
# after $sleep
diff --git a/tests/crosshairs.tcl b/tests/crosshairs.tcl
index 95dc270..c63cea5 100644
--- a/tests/crosshairs.tcl
+++ b/tests/crosshairs.tcl
@@ -6,7 +6,7 @@ set graph [bltLineGraph $w]
$graph crosshairs on
$graph crosshairs configure -x 200 -y 200
-echo "Testing Crosshairs..."
+puts stderr "Testing Crosshairs..."
bltTest2 $graph crosshairs -color green
bltTest2 $graph crosshairs -dashes "8 3"
@@ -21,6 +21,6 @@ bltCmd $graph crosshairs on
bltCmd $graph crosshairs off
bltCmd $graph crosshairs toggle
-echo "done"
+puts stderr "done"
bltPlotDestroy $w
diff --git a/tests/legend.tcl b/tests/legend.tcl
index 3724e6f..dba8da0 100644
--- a/tests/legend.tcl
+++ b/tests/legend.tcl
@@ -7,7 +7,7 @@ $graph legend selection set data2
$graph legend focus data1
$graph legend configure -selectrelief groove
-echo "Testing Legend..."
+puts stderr "Testing Legend..."
#bltTest2 $graph legend -activebackground $dops
#bltTest2 $graph legend -activeborderwidth $dops
@@ -96,6 +96,6 @@ bltCmd $graph legend selection toggle data1 data2
bltCmd $graph legend selection set data1 data2
bltCmd $graph legend selection clearall
-echo "done"
+puts stderr "done"
bltPlotDestroy $w
diff --git a/tests/lineelement.tcl b/tests/lineelement.tcl
index 95b732b..5edb38e 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 -linewidth 2
$graph element activate data3
-echo "Testing Line Element.."
+puts stderr "Testing Line Element.."
bltTest3 $graph element data3 -activepen foo $dops
bltTest3 $graph element data2 -areabackground yellow $dops
@@ -100,6 +100,6 @@ bltCmd $graph element show data2
bltCmd $graph element show {data1 data2 data3}
bltCmd $graph element type data1
-echo "done"
+puts stderr "done"
bltPlotDestroy $w
diff --git a/tests/linegraph.tcl b/tests/linegraph.tcl
index 4e70dd5..6204e72 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 Line Graph..."
+puts stderr "Testing Line Graph..."
bltTest $graph -aspect 2 $dops
bltTest $graph -background red $dops
@@ -70,6 +70,6 @@ bltCmd $graph configure -background cyan
##bltCmd $graph y2axis
##bltCmd $graph yaxis
-echo "done"
+puts stderr "done"
bltPlotDestroy $w
diff --git a/tests/linemarker.tcl b/tests/linemarker.tcl
index d462a9e..3b66ba6 100644
--- a/tests/linemarker.tcl
+++ b/tests/linemarker.tcl
@@ -10,7 +10,7 @@ set nn [$graph marker create line ss -element data2 \
-outline green -dashes 4]
$graph element configure data1 -hide yes
-echo "Testing Line Marker..."
+puts stderr "Testing Line Marker..."
bltTest3 $graph marker $mm -bindtags {aa} 0
bltTest3 $graph marker $mm -cap round $dops
@@ -29,6 +29,6 @@ bltTest3 $graph marker $mm -under yes $dops
bltTest3 $graph marker $mm -xoffset 20 $dops
bltTest3 $graph marker $mm -yoffset 20 $dops
-echo "done"
+puts stderr "done"
bltPlotDestroy $w
diff --git a/tests/linepen.tcl b/tests/linepen.tcl
index 8a1dd83..e47b243 100644
--- a/tests/linepen.tcl
+++ b/tests/linepen.tcl
@@ -6,7 +6,7 @@ set graph [bltLineGraph $w]
$graph pen create foo -color red -showvalues y -symbol circle -dashes {4 4}
$graph element configure data2 -pen foo
-echo "Testing Line Pen..."
+puts stderr "Testing Line Pen..."
bltTest3 $graph pen foo -color yellow $dops
bltTest3 $graph pen foo -dashes {8 3} $dops
@@ -50,6 +50,6 @@ bltCmd $graph pen delete bar
bltCmd $graph pen names
bltCmd $graph pen type foo
-echo "done"
+puts stderr "done"
bltPlotDestroy $w
diff --git a/tests/marker.tcl b/tests/marker.tcl
index 12776b0..8a09a43 100644
--- a/tests/marker.tcl
+++ b/tests/marker.tcl
@@ -9,7 +9,7 @@ set nn [$graph marker create line ss -element data1 \
-coords {1 150 .5 100 1 50} -linewidth 1 \
-outline green -dashes 4]
-echo "Testing Marker..."
+puts stderr "Testing Marker..."
#bltCmd $graph marker bind aa <Button-1> [list puts "%x %y"]
bltCmd $graph marker cget $mm -cap
@@ -28,6 +28,6 @@ bltCmd $graph marker raise $mm
bltCmd $graph marker raise $mm $nn
bltCmd $graph marker type $mm
-echo "done"
+puts stderr "done"
bltPlotDestroy $w
diff --git a/tests/polygonmarker.tcl b/tests/polygonmarker.tcl
index e562821..b1712b0 100644
--- a/tests/polygonmarker.tcl
+++ b/tests/polygonmarker.tcl
@@ -7,7 +7,7 @@ set mm [$graph marker create polygon tt -element data2 \
-coords {1 50 1.5 100 1 150} -linewidth 5]
$graph element configure data1 -hide yes
-echo "Testing Polygon Marker..."
+puts stderr "Testing Polygon Marker..."
bltTest3 $graph marker $mm -bindtags {aa} 0
bltTest3 $graph marker $mm -cap round $dops
@@ -25,6 +25,6 @@ bltTest3 $graph marker $mm -under yes $dops
bltTest3 $graph marker $mm -xoffset 20 $dops
bltTest3 $graph marker $mm -yoffset 20 $dops
-echo "done"
+puts stderr "done"
bltPlotDestroy $w
diff --git a/tests/ps.tcl b/tests/ps.tcl
index eab89e0..7a9ce23 100644
--- a/tests/ps.tcl
+++ b/tests/ps.tcl
@@ -24,6 +24,6 @@ $graph postscript output bar.ps
#set graph [bltBarGraph $w]
-#echo "done"
+#puts stderr "done"
#bltPlotDestroy $w
diff --git a/tests/test.tcl b/tests/test.tcl
index 6c17a4d..df6ffd8 100644
--- a/tests/test.tcl
+++ b/tests/test.tcl
@@ -5,6 +5,6 @@ set graph [bltLineGraph $w]
#set graph [bltBarGraph $w]
-#echo "done"
+#puts stderr "done"
#bltPlotDestroy $w
diff --git a/tests/textmarker.tcl b/tests/textmarker.tcl
index 8644d43..ba3defc 100644
--- a/tests/textmarker.tcl
+++ b/tests/textmarker.tcl
@@ -7,7 +7,7 @@ set mm [$graph marker create text tt -element data2 \
-coords {1. 112} -text "Text\nMarker" -font {helvetica 24}]
$graph element configure data1 -hide yes
-echo "Testing Text Marker..."
+puts stderr "Testing Text Marker..."
bltTest3 $graph marker $mm -anchor nw $dops
bltTest3 $graph marker $mm -anchor n $dops
@@ -39,6 +39,6 @@ bltTest3 $graph marker $mm -under yes $dops
bltTest3 $graph marker $mm -xoffset 20 $dops
bltTest3 $graph marker $mm -yoffset 20 $dops
-echo "done"
+puts stderr "done"
bltPlotDestroy $w