Changes to Test Script 1 between r1 and r21
======
set ret [list]
for {set i 0} {$i < 100} {incr i} {
lappend ret $i
foreach line [split [getpage 0] \n] {
set ret [linsert $ret [expr int(rand() * [llength $ret])] $line]
}
return $ret
(blank line)
puts [join $ret \n]
(blank line)
puts ""
(blank line)
while 1 {
set pageId [expr int(rand() * [countpages])]
set pageText [getpage $pageId]
if {$pageText == ""} {
continue
}
puts "** \[[gettitle $pageId]\] **"
puts $pageText
break
}
(blank line)
return
======
Legend
Only in r1
Only in r21 --> Modified slightly between r1 and r21