Tk Library Source Code

Artifact [56a235cc3e]
Login

Artifact 56a235cc3ee4af3cff4c368f0ff762d70ed837dd:

Attachment "LOG" to ticket [720934ffff] added by andreas_kupries 2003-04-14 13:33:00.
tcllib tests
Tests running in working dir:  /home/tcl/projects/doctools/tcllib
Only running tests that match:  *
Skipping test files that match:  l.*.test
Only sourcing test files that match:  *.test
Tests began at Sun Apr 13 22:59:17 PDT 2003
Module:	math
modules/math/calculus.test
Method: eulerStep
Result (0.0): 1.0
Result (1.0): 2.0
Result (2.0): 3.0
Result (3.0): 4.0
Result (4.0): 5.0
Result (5.0): 6.0
Result (6.0): 7.0
Result (7.0): 8.0
Result (8.0): 9.0
Result (9.0): 10.0
Result (0.0): 1.0 -0.1
Result (0.1): 0.99 -0.19
Result (0.2): 0.971 -0.27
Result (0.3): 0.944 -0.3401
Result (0.4): 0.90999 -0.40049
Result (0.5): 0.869941 -0.45144
Result (0.6): 0.824797 -0.4932901
Result (0.7): 0.77546799 -0.52644079
Result (0.8): 0.722823911 -0.55134351
Result (0.9): 0.66768956 -0.5684915501
Result (1.0): 0.61084040499 -0.57841135109
Result (1.1): 0.552999269881 -0.58165425648
Result (1.2): 0.494833844233 -0.57878875782
Result (1.3): 0.436954968451 -0.570393266461
Result (1.4): 0.379915641805 -0.55704943666
Result (1.5): 0.324210698139 -0.539336057175
Result (1.6): 0.270277092421 -0.517823521271
Result (1.7): 0.218494740294 -0.493068878386
Result (1.8): 0.169187852456 -0.465611464577
Result (1.9): 0.122626705998 -0.435969103365
Method: heunStep
Result (0.0): 1.0
Result (1.0): 2.0
Result (2.0): 3.0
Result (3.0): 4.0
Result (4.0): 5.0
Result (5.0): 6.0
Result (6.0): 7.0
Result (7.0): 8.0
Result (8.0): 9.0
Result (9.0): 10.0
Result (0.0): 0.995 -0.095
Result (0.1): 0.981 -0.180025
Result (0.2): 0.958992625 -0.2552175
Result (0.3): 0.929951999375 -0.320800049375
Result (0.4): 0.894826234687 -0.377065484378
Result (0.5): 0.854530882498 -0.424367428236
Result (0.6): 0.809943322403 -0.463111119249
Result (0.7): 0.761898049463 -0.493744622953
Result (0.8): 0.711182820035 -0.516750475356
Result (0.9): 0.658535610776 -0.532637795724
Result (1.0): 0.604642342128 -0.541934899175
Result (1.1): 0.550135314996 -0.54518243176
Result (1.2): 0.495592307404 -0.542927043509
Result (1.3): 0.441536276733 -0.535715608361
Result (1.4): 0.388435612555 -0.524089993815
Result (1.5): 0.33670488508 -0.508582377626
Result (1.6): 0.28670603478 -0.489711103946
Result (1.7): 0.238749949731 -0.467977066855
Result (1.8): 0.193098378632 -0.443860605394
Result (1.9): 0.149966129226 -0.417818890825
Method: rungeKuttaStep
Result (0.0): 1.0
Result (1.0): 2.0
Result (2.0): 3.0
Result (3.0): 4.0
Result (4.0): 5.0
Result (5.0): 6.0
Result (6.0): 7.0
Result (7.0): 8.0
Result (8.0): 9.0
Result (9.0): 10.0
Result (0.0): 0.995958333333 -0.0958354166667
Result (0.1): 0.982748574648 -0.181711736628
Result (0.2): 0.9613622125 -0.257745017496
Result (0.3): 0.932775605745 -0.324134745107
Result (0.4): 0.897942049319 -0.381154050992
Result (0.5): 0.857784809578 -0.429140146517
Result (0.6): 0.813191104556 -0.468485044978
Result (0.7): 0.765006997688 -0.499626633435
Result (0.8): 0.714033167813 -0.523040146908
Result (0.9): 0.661021513347 -0.53923008872
Result (1.0): 0.606672544499 -0.54872263237
Result (1.1): 0.55163351419 -0.552058532372
Result (1.2): 0.49649723593 -0.54978656401
Result (1.3): 0.441801535162 -0.54245750502
Result (1.4): 0.388029279606 -0.530618665792
Result (1.5): 0.335608933674 -0.514808968781
Result (1.6): 0.284915582207 -0.495554572501
Result (1.7): 0.236272369459 -0.473365030702
Result (1.8): 0.189952300346 -0.448729973058
Result (1.9): 0.146180352526 -0.422116289995
5.0 0.909090909091 15.0 0.818181818182 25.0 0.727272727273 35.0 0.636363636364 45.0 0.545454545455 55.0 0.454545454545 65.0 0.363636363636 75.0 0.272727272727 85.0 0.181818181818 95.0 0.0909090909091
5.0 0.0909090909091 15.0 0.181818181818 25.0 0.272727272727 35.0 0.363636363636 45.0 0.454545454545 55.0 0.545454545455 65.0 0.636363636364 75.0 0.727272727273 85.0 0.818181818182 95.0 0.909090909091
modules/math/combinatorics.test
modules/math/fuzzy.test
math::fuzzy 0.2

==== math-fuzzy-ManyCompares-1.1 Compare fails INTENTIONALLY - missing braces FAILED
==== Contents of test case:

    set tol_eq 0
    set tol_ne 0
    set tol_ge 0
    set tol_gt 0
    set tol_le 0
    set tol_lt 0

    for { set i -1000 } { $i <= 1000 } { incr i } {
	if { $i == 0 } continue

	#
	# NOTE: The braces in the assignment for y are missing on purpose!
	#
	set x [expr {1.01/double($i)}]
	set y [expr (2.1*$x)*(double($i)/2.1)]

	if { [teq $y 1.01] } { incr tol_eq }
	if { [tne $y 1.01] } { incr tol_ne }
	if { [tge $y 1.01] } { incr tol_ge }
	if { [tgt $y 1.01] } { incr tol_gt }
	if { [tle $y 1.01] } { incr tol_le }
	if { [tlt $y 1.01] } { incr tol_lt }
    }
    set result [list $tol_eq $tol_ne $tol_ge $tol_gt $tol_le $tol_lt]

---- Result was:
68 1932 1034 966 1034 1932
---- Result should have been (exact matching):
2000 0 2000 0 2000 0
==== math-fuzzy-ManyCompares-1.1 FAILED


==== math-fuzzy-ManyCompares-1.2 Compare fails INTENTIONALLY - naive comparison FAILED
==== Contents of test case:

    set naiv_eq 0
    set naiv_ne 0
    set naiv_ge 0
    set naiv_gt 0
    set naiv_le 0
    set naiv_lt 0

    for { set i -1000 } { $i <= 1000 } { incr i } {
	if { $i == 0 } continue

	set x [expr {1.01/double($i)}]
	set y [expr {(2.1*$x)*(double($i)/2.1)}]

	if { $y == 1.01 } { incr naiv_eq }
	if { $y != 1.01 } { incr naiv_ne }
	if { $y >= 1.01 } { incr naiv_ge }
	if { $y >  1.01 } { incr naiv_gt }
	if { $y <= 1.01 } { incr naiv_le }
	if { $y <  1.01 } { incr naiv_lt }
    }
    set result [list $naiv_eq $naiv_ne $naiv_ge $naiv_gt $naiv_le $naiv_lt]

---- Result was:
1612 388 1820 208 1792 180
---- Result should have been (exact matching):
2000 0 2000 0 2000 0
==== math-fuzzy-ManyCompares-1.2 FAILED


==== math-fuzzy-Floor-Ceil-1.1 Naive floor and ceil - fails INTENTIONALLY FAILED
==== Contents of test case:

    set fc_eq 0
    set fz_eq 0
    set fz_ne 0

    for { set i -1000 } { $i <= 1000 } { incr i } {

	set x [expr {0.11*double($i)}]
	set y [expr {(($x*11.0)-$x)-double($i)/10.0}]
	set z [expr {double($i)}]

	if { [expr {floor($y)}]  == $z } { incr fz_eq }
	if { [expr {floor($y)}] == [expr {ceil($y)}] } { incr fc_eq }
    }
    set result [list $fc_eq $fz_eq]

---- Result was:
1147 1574
---- Result should have been (exact matching):
2001 2001
==== math-fuzzy-Floor-Ceil-1.1 FAILED

modules/math/geometry.test
modules/math/math.test


Tests ended at Sun Apr 13 22:59:19 PDT 2003
all.tcl:	Total	229	Passed	226	Skipped	0	Failed	3
Sourced 4 Test Files.
Files with failing tests: math/geometry.test