Index: tests/testo.xotcl =================================================================== diff -u -rc72f9f638677608fab1502cd696c8f2d6b2952f9 -r2111020b49da8ce57758e51accf0b6073037f0d2 --- tests/testo.xotcl (.../testo.xotcl) (revision c72f9f638677608fab1502cd696c8f2d6b2952f9) +++ tests/testo.xotcl (.../testo.xotcl) (revision 2111020b49da8ce57758e51accf0b6073037f0d2) @@ -174,20 +174,15 @@ classcreate proc factorgraph {{n 3600}} { TestClass $n - for {set i [expr {$n/2}]} {$i>1} {incr i -1} { if {($n % $i) == 0} then { - # # factors become subclasses, direct or indirect # - - if {[TestClass info instances $i] eq ""} then { my factorgraph $i $i superclass $n } elseif {[$i info superclass $n] == 0} then { - $i superclass [concat [$i info superclass] $n] } } @@ -283,7 +278,7 @@ Object proc combineforclass {} { return [concat [list [self class]] [next]] } - + my superclass my combination @@ -525,8 +520,7 @@ lappend guide [list array $i w] } - - if {$guide != $trail} then { + if {$guide != $trail} then { error "FAILED [self] - trace: expected $guide, got $trail" } @@ -541,7 +535,7 @@ } avar2 killSelf - + if {[lsort $guide] != [lsort $trail]} then { error "FAILED [self] - trace: expected $guide, got $trail" }