diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/all.tcl | 15 | ||||
| -rw-r--r-- | tests/axis.tcl | 2 | ||||
| -rw-r--r-- | tests/bargraph.tcl | 2 | ||||
| -rw-r--r-- | tests/bitmapmarker.tcl | 2 | ||||
| -rw-r--r-- | tests/crosshairs.tcl | 2 | ||||
| -rw-r--r-- | tests/legend.tcl | 4 | ||||
| -rw-r--r-- | tests/linegraph.tcl | 2 | ||||
| -rw-r--r-- | tests/linemarker.tcl | 2 | ||||
| -rw-r--r-- | tests/marker.tcl | 2 | ||||
| -rw-r--r-- | tests/polygonmarker.tcl | 2 | ||||
| -rw-r--r-- | tests/textmarker.tcl | 2 |
11 files changed, 27 insertions, 10 deletions
diff --git a/tests/all.tcl b/tests/all.tcl index 4318d49..55df317 100644 --- a/tests/all.tcl +++ b/tests/all.tcl @@ -1,14 +1,11 @@ source graph.tcl -source xaxis.tcl -source axis.tcl source line.tcl source bar.tcl -source element.tcl -source pen.tcl source crosshairs.tcl source legend.tcl -source marker.tcl -source bitmapmarker.tcl -source linemarker.tcl -source polygonmarker.tcl -source textmarker.tcl +source xaxis.tcl +source axis.tcl +source element.tcl +source pen.tcl +source markerall.tcl + diff --git a/tests/axis.tcl b/tests/axis.tcl index c5d21f1..e7f08bb 100644 --- a/tests/axis.tcl +++ b/tests/axis.tcl @@ -5,6 +5,8 @@ set graph [bltLineGraph $w] $graph xaxis configure -title "X Axis" -limitsformat "%g" +echo "Testing Axis..." + #bltCmd $graph axis activate #bltCmd $graph axis bind #bltCmd $graph axis cget diff --git a/tests/bargraph.tcl b/tests/bargraph.tcl index db3fd7f..18f37ec 100644 --- a/tests/bargraph.tcl +++ b/tests/bargraph.tcl @@ -3,6 +3,8 @@ source base.tcl set w .bar set graph [bltBarGraph $w] +echo "Testing BarGraph..." + # Graph bltTest $graph -aspect 2 bltTest $graph -background red diff --git a/tests/bitmapmarker.tcl b/tests/bitmapmarker.tcl index 1c780dc..02fe772 100644 --- a/tests/bitmapmarker.tcl +++ b/tests/bitmapmarker.tcl @@ -6,6 +6,8 @@ set graph [bltLineGraph $w] set mm [$graph marker create bitmap tt -element data1 \ -coords {1.5 100} -bitmap error] +echo "Testing Bitmap Marker..." + bltTest3 $graph marker $mm -anchor nw bltTest3 $graph marker $mm -background yellow bltTest3 $graph marker $mm -bg red diff --git a/tests/crosshairs.tcl b/tests/crosshairs.tcl index c3cf2ad..cb3a93e 100644 --- a/tests/crosshairs.tcl +++ b/tests/crosshairs.tcl @@ -3,6 +3,8 @@ source base.tcl set w .line set graph [bltLineGraph $w] +echo "Testing Crosshairs..." + $graph crosshairs configure -hide no $graph crosshairs configure -position "@200,200" diff --git a/tests/legend.tcl b/tests/legend.tcl index 2959df0..3222d8d 100644 --- a/tests/legend.tcl +++ b/tests/legend.tcl @@ -3,7 +3,9 @@ source base.tcl set w .line set graph [bltLineGraph $w] -#bltTest2 $graph legend -activebackground +echo "Testing Legend..." + +bltTest2 $graph legend -activebackground #bltTest2 $graph legend -activeborderwidth #bltTest2 $graph legend -activeforeground #bltTest2 $graph legend -activerelief diff --git a/tests/linegraph.tcl b/tests/linegraph.tcl index 7b43526..0ba5b52 100644 --- a/tests/linegraph.tcl +++ b/tests/linegraph.tcl @@ -3,6 +3,8 @@ source base.tcl set w .line set graph [bltLineGraph $w] +echo "Testing LineGraph..." + bltTest $graph -aspect 2 bltTest $graph -background red bltTest $graph -barmode overlap diff --git a/tests/linemarker.tcl b/tests/linemarker.tcl index 41f7a34..a02a33c 100644 --- a/tests/linemarker.tcl +++ b/tests/linemarker.tcl @@ -9,6 +9,8 @@ set nn [$graph marker create line ss -element data1 \ -coords {1 150 .5 100 1 50} -linewidth 1 \ -outline green -dashes 4] +echo "Testing Line Marker..." + bltTest3 $graph marker $mm -bindtags {aa} bltTest3 $graph marker $mm -cap round bltTest3 $graph marker $mm -coords {1 50 1.5 100 2 150} diff --git a/tests/marker.tcl b/tests/marker.tcl index f72029c..bc034df 100644 --- a/tests/marker.tcl +++ b/tests/marker.tcl @@ -9,6 +9,8 @@ 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..." + bltCmd $graph marker bind aa <Button-1> [list puts "%x %y"] bltCmd $graph marker cget $mm -cap bltCmd $graph marker configure $mm diff --git a/tests/polygonmarker.tcl b/tests/polygonmarker.tcl index 4efe987..d71ab8d 100644 --- a/tests/polygonmarker.tcl +++ b/tests/polygonmarker.tcl @@ -6,6 +6,8 @@ set graph [bltLineGraph $w] set mm [$graph marker create polygon tt -element data1 \ -coords {1 50 1.5 100 1 150} -linewidth 5] +echo "Testing Polygon Marker..." + bltTest3 $graph marker $mm -bindtags {aa} bltTest3 $graph marker $mm -cap round bltTest3 $graph marker $mm -coords {1 50 1.5 100 2 150} diff --git a/tests/textmarker.tcl b/tests/textmarker.tcl index ad885c5..c5787f2 100644 --- a/tests/textmarker.tcl +++ b/tests/textmarker.tcl @@ -6,6 +6,8 @@ set graph [bltLineGraph $w] set mm [$graph marker create text tt -element data1 \ -coords {1.5 100} -text {Text Marker} -font {24}] +echo "Testing Text Marker..." + bltTest3 $graph marker $mm -anchor nw bltTest3 $graph marker $mm -background blue bltTest3 $graph marker $mm -bg red |