diff options
Diffstat (limited to 'Tools/iExploder/htdocs/iexploder.rb')
| -rw-r--r-- | Tools/iExploder/htdocs/iexploder.rb | 337 |
1 files changed, 0 insertions, 337 deletions
diff --git a/Tools/iExploder/htdocs/iexploder.rb b/Tools/iExploder/htdocs/iexploder.rb deleted file mode 100644 index eee3e38..0000000 --- a/Tools/iExploder/htdocs/iexploder.rb +++ /dev/null @@ -1,337 +0,0 @@ -# iExploder - Generates bad HTML files to perform QA for web browsers. -# Developed for the Mozilla Foundation. -##################### -# -# Copyright (c) 2006 Thomas Stromberg <thomas%stromberg.org> -# -# This software is provided 'as-is', without any express or implied warranty. -# In no event will the authors be held liable for any damages arising from the -# use of this software. -# -# Permission is granted to anyone to use this software for any purpose, -# including commercial applications, and to alter it and redistribute it -# freely, subject to the following restrictions: -# -# 1. The origin of this software must not be misrepresented; you must not -# claim that you wrote the original software. If you use this software in a -# product, an acknowledgment in the product documentation would be appreciated -# but is not required. -# -# 2. Altered source versions must be plainly marked as such, and must not be -# misrepresented as being the original software. -# -# 3. This notice may not be removed or altered from any source distribution. - -$VERSION="1.3.2" - -class IExploder - attr_accessor :test_num, :subtest_num, :lookup_mode, :random_mode, :url - attr_accessor :offset, :lines, :stop_num - - def initialize(max_tags, max_attrs, max_props) - @htmlMaxTags = max_tags - @htmlMaxAttrs = max_attrs - @cssMaxProps = max_props - @mangledTagTotal = 0 - @stop_num = 0 - end - - def setRandomSeed - if @test_num > 0 - srand(@test_num) - else - srand - end - end - - - def readTagFiles - # These if statements are so that mod_ruby doesn't have to reload the files - # each time - - if (! @cssTags) - @cssTags = readTagFile('cssproperties.in'); - end - - if (! @htmlTags) - @htmlTags = readTagFile('htmltags.in'); - end - if (! @htmlAttr) - @htmlAttr = readTagFile('htmlattrs.in'); - end - - if (! @htmlValues) - @htmlValues = readTagFile('htmlvalues.in'); - end - - if (! @cssValues) - @cssValues = readTagFile('cssvalues.in'); - end - - end - - - def readTagFile(filename) - list = Array.new - File.new(filename).readlines.each { |line| - line.chop! - - # Don't include comments. - if (line !~ /^# /) && (line.length > 0) - list << line - end - } - return list - end - - # based on make_up_value, essentially. - def inventValue - value = rand(19); - case value - when 1..3 then return (@htmlValues[rand(@htmlValues.length)]) - when 4..5 then return (@htmlValues[rand(@htmlValues.length)] + inventValue()) - when 6 then return (@htmlValues[rand(@htmlValues.length)] + "//" + inventValue()) - when 7 then return '' - # this may return negative argument? - when 8..10 then return rand(255).chr * (rand(256)+8) - when 11 then return rand(255).chr * (rand(2048)+8) - when 12 then return "#" + rand(999999).to_s - when 13 then return rand(999999).to_s + "%" - when 14..15 then return "&" + rand(999999).to_s + ";" - # filters - when 16 then - return inventValue() + "=" + inventValue() - - # this my return undefined method + for nil:NilClass - when 17 then return inventValue() + "," + inventValue() - else - if rand(5) > 3 - return "-" + rand(999999).to_s - else - return rand(999999).to_s - end - end - end - - # based on make_up_value, essentially. - def inventCssValue(tag) - value = rand(23); - case value - when 1..10 then return @cssValues[rand(@cssValues.length)] - when 11 then return '' - when 12 then return rand(255).chr * (rand(8192)+8) - when 13 - length = rand(1024) + 8 - return (rand(255).chr * length) + " " + (rand(255).chr * length) + " " + (rand(255).chr * length) - when 14 then return (rand(255).chr * (rand(1024)+3)) + "px" - when 15 then return (rand(255).chr * (rand(1024)+3)) + "em" - when 16 then return "url(" + inventValue() + ")" - when 17..18 then return "#" + rand(999999999).to_s - when 19 then return "-" + rand(99999999).to_s - else return rand(99999999).to_s; - end - end - - - def mangleTag(tag) - @mangledTagTotal += 1 - out = '' - - # 20% chance of closing a tag instead of opening it. This - # still counts against @mangledTagTotal, however. - if rand(10) > 8 - out = "</" + tag + ">" - return out - end - - # we're opening it. - out = "<" + tag - - # forgot the space between the tag and the attributes - if rand(15) > 1 - out << ' ' - end - - attrNum = rand(@htmlMaxAttrs) + 1 - - 1.upto(attrNum) { - attr = @htmlAttr[rand(@htmlAttr.length)] - - out << attr - - # 7.5% of the time we skip the = sign. Don't prefix it - # if the attribute ends with a ( however. - - - if rand(15) > 1 - out << '=' - end - - # sometimes quote it, sometimes not. I doubt the importance - # of this test, but mangleme-1.2 added it, and adding more - # random-ness never hurt anything but time. I'll do it less often. - quote = rand(2) - if (quote > 1) - out << "\"" - end - - out << inventValue() - - # end the quote when you are done - if (quote > 1) - out << "\" " - end - - # 5% chance we skip the space at the end of the name - if rand(20) > 1 - out << ' ' - end - - } - - # CSS styles! - if rand(4) > 1 - out << " style=\"" - 1.upto(rand(@cssMaxProps)+1) { - out << @cssTags[rand(@cssTags.length)] - - # very small chance we let the tag run on. - if rand(50) > 1 - out << ": " - end - - out << inventCssValue(tag) - # we almost always put the ; there. - if rand(50) > 1 - out << '; ' - end - } - out << "\"" - end - - out << ">\n" - - # support our local troops! - if (@subtest_num > 0) && filterSubTest() - if tag =~ /html|body|head/ - return '<' + tag + '>' - else - return "<x-#@mangledTagTotal>\n" - end - else - return out - end - end - #end - - def filterSubTest() - result = 1 - if (@mangledTagTotal >= @offset) && (@mangledTagTotal < (@offset + @lines)) - result = nil - end - return result - end - - def nextTestNum() - if random_mode - n = rand(99999999) - else - if @test_num - n = @test_num + 1 - else - n = 1 - end - end - return n - end - - # If we are at line 30 with 8 extra lines, there is no point to try line 31 - # with 8 lines as well.. skip back to 1 and bump up the line count. - def nextSubTestNum() - if (@offset + @lines) > @htmlMaxTags - nextNum = ((@lines * 2 -1)) * @htmlMaxTags - else - nextNum = @subtest_num + 1 - end - return nextNum - end - - - def buildPage - if (! @test_num) || (@test_num < 1) - @test_num = 1 - end - next_num=nextTestNum() - @lines = @subtest_num.div(@htmlMaxTags) + 1 - @offset = @subtest_num.modulo(@htmlMaxTags) - - # building the HTML - bodyText = mangleTag('html') - bodyText << "\n<head>\n" - - # Only do redirects if lookup=1 has not been specified. - if (! @lookup_mode) && (@lines <= @htmlMaxTags) && (@stop_num != @test_num) - newpage = @url + "?" - if @subtest_num > 0 - newpage << "test=" << @test_num.to_s << "&subtest=" << nextSubTestNum().to_s - else - newpage << "test=" << next_num.to_s - end - - if @random_mode - newpage << "&random=1" - end - - if @stop_num > 0 - newpage << "&stop=" << @stop_num.to_s - end - - bodyText << "\t<META HTTP-EQUIV=\"Refresh\" content=\"0;URL=#{newpage}\">\n" - # use both techniques, because you never know how you might be corrupting yourself. - bodyText << "\t<script language=\"javascript\">setTimeout('window.location=\"#{newpage}\"', 1000);</script>\n" - end - - bodyText << "\t" << mangleTag('meta') - bodyText << "\t" << mangleTag('meta') - bodyText << "\t" << mangleTag('link') - - bodyText << "\t<title>[#@test_num] iExploder #{$VERSION} - #{inventValue()}</title>\n" - bodyText << "</head>\n\n" - - # What tags will we be messing with ###################### - tagList = [ 'body'] - - # we already have 5 tags? - 1.upto(@htmlMaxTags - 5 ) { tagList << @htmlTags[rand(@htmlTags.length)] } - - tagList.each { |tag| - bodyText << mangleTag(tag) - bodyText << inventValue() + "\n" - } - bodyText << "</body>\n</html>" - end -end - - - -if $0 == __FILE__ - max=ARGV[0].to_i - puts "testing #{max} tags" - test = IExploder.new(max, 5, 5) - test.readTagFiles() - test.test_num=1 - test.subtest_num=1 - counter=0 - test.lines=0 - - while test.lines < max - test.lines = test.subtest_num.div(max) + 1 - test.offset = test.subtest_num.modulo(max) - test.subtest_num=test.nextSubTestNum - counter = counter + 1 - puts "[#{counter}] subtest #{test.subtest_num} is #{test.lines} lines with #{test.offset} offset" - end - - puts "for #{max} tests, you will have #{counter} iterations until #{test.subtest_num}" -end - |