require 'contest' require 'bcat/html' class HeadParserTest < Test::Unit::TestCase setup { @parser = Bcat::HeadParser.new } test 'starts in an unknown state' do assert @parser.html?.nil? assert @parser.buf.empty? end test 'detects non-HTML input' do @parser.feed("HOWDY

") assert_equal false, @parser.html? assert_equal '', @parser.head end test 'separates head elements from body' do @parser.feed("") @parser.feed("

HOLLA

") assert_equal "", @parser.head.strip assert_equal "\n

HOLLA

", @parser.body end test 'handles multiple head elements' do stuff = [ "", "", "" ] stuff.each { |html| @parser.feed(html) } @parser.feed("\n \n\n\n

HOLLA

") assert_equal stuff.join, @parser.head.strip end test 'handles full documents' do @parser.feed("\n") @parser.feed("YO") @parser.feed("

OY

") assert_equal "YO", @parser.head.strip assert_equal "\n

OY

", @parser.body end test 'knows when the head is fully parsed' do @parser.feed("\n") assert !@parser.complete? @parser.feed("YO") assert !@parser.complete? @parser.feed("

OY

") assert @parser.complete? end end