Changes to Test Script 1 between r17 and r18
======
set ret [list]
foreach line [split [getpage 0] \n] {
set ret [linsert $ret [expr int(rand() * [llength $ret])] $line]
}
puts [join $ret \n]
puts "----"
puts "\[@include [expr int(rand() * [countpages])]\]"
(blank line)
set pageText ""
while 1 {
set pageid [expr int(rand() * [countpages])]
set pageText [getpage $pageid]
if {$pageText == ""} {
continue
}
puts $pageText
break
}
(blank line)
return
======
Legend
Only in r17
Only in r18 --> Modified slightly between r17 and r18