require "stringio" require "eim_xml/xhtml/dsl" module Module.new::M include EimXML include EimXML::XHTML XDSL = XHTML::DSL describe XHTML do it "DSL.base_ should raise NoMethodError" do lambda{XDSL.base_}.should raise_error(NoMethodError) end it "HTML" do h = HTML.new(:attr=>"value") h.should == Element.new(:html, :attr=>"value") h = HTML.new do |e| e <<= Element.new(:sub) end h2 = HTML.new h2 << Element.new(:sub) h2.should == h lambda{EimXML::DSL.html}.should raise_error(NoMethodError) XDSL.html(:key=>"v").should == HTML.new(:key=>"v") OpenDSL.html(:key=>"v").should == HTML.new(:key=>"v") h = HTML.new h.write_to.should == "" h.prefix='' h.write_to.should == %[\n] end it "HEAD" do HEAD.new.name.should == :head XDSL.head.should be_kind_of(HEAD) OpenDSL.head.should be_kind_of(HEAD) end it "META" do META.new.name.should == :meta XDSL.meta.should be_kind_of(META) OpenDSL.meta.should be_kind_of(META) end it "LINK" do LINK.new.name.should == :link XDSL.link.should be_kind_of(LINK) OpenDSL.link.should be_kind_of(LINK) end it "STYLE" do STYLE.new.name.should == :style XDSL.style.should be_kind_of(STYLE) OpenDSL.style.should be_kind_of(STYLE) end it "IMG" do IMG.new.name.should == :img XDSL.img.should be_kind_of(IMG) OpenDSL.img.should be_kind_of(IMG) end it "SCRIPT" do SCRIPT.new.name.should == :script XDSL.script.should be_kind_of(SCRIPT) OpenDSL.script.should be_kind_of(SCRIPT) end it "TITLE" do TITLE.new.name.should == :title XDSL.title.should be_kind_of(TITLE) OpenDSL.title.should be_kind_of(TITLE) end it "BODY" do BODY.new.name.should == :body XDSL.body.should be_kind_of(BODY) OpenDSL.body.should be_kind_of(BODY) end it "PRE" do PRE.new.name.should == :pre XDSL.pre.should be_kind_of(PRE) OpenDSL.pre.should be_kind_of(PRE) end it "Hn" do h1 = Hn.new(1) h6 = Hn.new(6) h1.name.should == :h1 h1.should be_kind_of(H1) h6.name.should == :h6 h6.should be_kind_of(H6) lambda{Hn.new(7)}.should raise_error(ArgumentError) lambda{Hn.new(0)}.should raise_error(ArgumentError) h = Hn.new(1, :key=>:value) do |hn| hn << "test" end h[:key].should == :value h[0].should == "test" [ [H1, XDSL.h1, OpenDSL.h1], [H2, XDSL.h2, OpenDSL.h2], [H3, XDSL.h3, OpenDSL.h3], [H4, XDSL.h4, OpenDSL.h4], [H5, XDSL.h5, OpenDSL.h5], [H6, XDSL.h6, OpenDSL.h6] ].each do |klass, dsl, od| dsl.should be_kind_of(klass) od.should be_kind_of(klass) end end it "P" do P.new.name.should == :p XDSL.p.should be_kind_of(P) OpenDSL.p.should be_kind_of(P) end it "A" do A.new.name.should == :a XDSL.a.should be_kind_of(A) OpenDSL.a.should be_kind_of(A) end it "EM" do EM.new.name.should == :em XDSL.em.should be_kind_of(EM) OpenDSL.em.should be_kind_of(EM) end it "STRONG" do STRONG.new.name.should == :strong XDSL.strong.should be_kind_of(STRONG) OpenDSL.strong.should be_kind_of(STRONG) end it "DIV" do DIV.new.name.should == :div XDSL.div.should be_kind_of(DIV) OpenDSL.div.should be_kind_of(DIV) end it "SPAN" do SPAN.new.name.should == :span XDSL.span.should be_kind_of(SPAN) OpenDSL.span.should be_kind_of(SPAN) end it "UL" do UL.new.name.should == :ul XDSL.ul.should be_kind_of(UL) OpenDSL.ul.should be_kind_of(UL) end it "OL" do OL.new.name.should == :ol XDSL.ol.should be_kind_of(OL) OpenDSL.ol.should be_kind_of(OL) end it "LI" do LI.new.name.should == :li XDSL.li.should be_kind_of(LI) OpenDSL.li.should be_kind_of(LI) end it "DL" do DL.new.name.should == :dl XDSL.dl.should be_kind_of(DL) OpenDSL.dl.should be_kind_of(DL) end it "DT" do DT.new.name.should == :dt XDSL.dt.should be_kind_of(DT) OpenDSL.dt.should be_kind_of(DT) end it "DD" do DD.new.name.should == :dd XDSL.dd.should be_kind_of(DD) OpenDSL.dd.should be_kind_of(DD) end it "TABLE" do TABLE.new.name.should == :table XDSL.table.should be_kind_of(TABLE) OpenDSL.table.should be_kind_of(TABLE) end it "CAPTION" do CAPTION.new.name.should == :caption XDSL.caption.should be_kind_of(CAPTION) OpenDSL.caption.should be_kind_of(CAPTION) end it "TR" do TR.new.name.should == :tr XDSL.tr.should be_kind_of(TR) OpenDSL.tr.should be_kind_of(TR) end it "TH" do TH.new.name.should == :th XDSL.th.should be_kind_of(TH) OpenDSL.th.should be_kind_of(TH) end it "TD" do TD.new.name.should == :td XDSL.td.should be_kind_of(TD) OpenDSL.td.should be_kind_of(TD) end it "FORM" do FORM.new.name.should == :form XDSL.form.should be_kind_of(FORM) OpenDSL.form.should be_kind_of(FORM) FORM.new.should_not include(HIDDEN) end it "FORM.new should be able to receive CGI::Session object and set random token" do s = double("session") h = {} allow(s).to receive(:[]){|k| h[k]} allow(s).to receive(:[]=){|k, v| h[k]=v} f = FORM.new(:session=>s) expect(h["token"].size).to eq(40) expect(h["token"]).to match(/\A[0-9a-f]{40}\z/) expect(f).to include(HIDDEN.new(:name=>"token", :value=>h["token"])) s = double("session") h = {} allow(s).to receive(:[]){|k| h[k]} allow(s).to receive(:[]=){|k, v| h[k]=v} f = FORM.new(:session=>s, :session_name=>"random_key") expect(h["token"]).to be_nil expect(h["random_key"].size).to eq(40) expect(h["random_key"]).to match(/\A[0-9a-f]{40}\z/) expect(f).to include(HIDDEN.new(:name=>"random_key", :value=>h["random_key"])) s = double("session") h = {} allow(s).to receive(:[]){|k| h[k]} allow(s).to receive(:[]=){|k, v| h[k]=v} FORM.new(:session=>s) token = s["token"] expect(FORM.new(:session=>s)).to include(HIDDEN.new(:name=>"token", :value=>token)) expect(s["token"]).to eq(token) end it "TEXTAREA" do TEXTAREA.new(:name=>"item").should == Element.new(:textarea, :name=>"item") TEXTAREA.new(:name=>:item).should == Element.new(:textarea, :name=>:item) TEXTAREA.new(:name=>"item", :class=>"cv").should == Element.new(:textarea, :name=>"item", :class=>"cv") t = XDSL.textarea(:name=>"t") t.should be_kind_of(TEXTAREA) t[:name].should == "t" t = OpenDSL.textarea(:name=>"t") t.should be_kind_of(TEXTAREA) t[:name].should == "t" end it "BUTTON" do BUTTON.new.should == Element.new(:button) end it "INPUT" do INPUT.new(:type=>:test, :name=>:item, :value=>"v").should == Element.new(:input, :type=>:test, :name=>:item, :value=>"v") INPUT.new(:type=>"test", :name=>"item", :value=>"v").should == Element.new(:input, :type=>"test", :name=>"item", :value=>"v") INPUT.new(:type=>:test, :name=>:item, :value=>"v", :class=>"c").should == Element.new(:input, :type=>:test, :name=>:item, :value=>"v", :class=>"c") INPUT.new(:type=>:submit, :value=>"v").should == Element.new(:input, :type=>:submit, :value=>"v") INPUT.new(:type=>:submit, :name=>"item").should == Element.new(:input, :type=>:submit, :name=>"item") i = XDSL.input(:type=>:dummy, :name=>:n, :value=>:v) i.should be_kind_of(INPUT) i.should =~ INPUT.new(:type=>:dummy, :name=>:n, :value=>:v) i = OpenDSL.input(:type=>:dummy, :name=>:n, :value=>:v) i.should be_kind_of(INPUT) i.should == INPUT.new(:type=>:dummy, :name=>:n, :value=>:v) end it "HIDDEN" do HIDDEN.new(:name=>"item", :value=>"v").should == Element.new(:input, :type=>:hidden, :name=>"item", :value=>"v") HIDDEN.new(:name=>:item, :value=>"v").should == Element.new(:input, :type=>:hidden, :name=>:item, :value=>"v") HIDDEN.new(:name=>:item, :value=>"v", :class=>"c").should == Element.new(:input, :type=>:hidden, :name=>:item, :value=>"v", :class=>"c") h = XDSL.hidden(:name=>:n, :value=>:v) h.should be_kind_of(HIDDEN) h.should =~ HIDDEN.new(:name=>:n, :value=>:v) h = OpenDSL.hidden(:name=>:n, :value=>:v) h.should be_kind_of(HIDDEN) h.should == HIDDEN.new(:name=>:n, :value=>:v) end it "SUBMIT" do SUBMIT.new.should == Element.new(:button, :type=>:submit) SUBMIT.new(:value=>"OK").should == Element.new(:button, :type=>:submit, :value=>"OK") SUBMIT.new(:value=>"OK", :class=>"c").should == Element.new(:button, :type=>:submit, :value=>"OK", :class=>"c") opt = {:value=>"v", :name=>"n"} opt2 = opt.dup SUBMIT.new(opt2) opt2.should == opt s = XDSL.submit s.should be_kind_of(SUBMIT) s.should =~ SUBMIT.new (!s[:name]).should be_truthy expect(!s[:value]).to be_truthy s = XDSL.submit(:name=>:s, :value=>:v) expect(s[:name]).to eq(:s) expect(s[:value]).to eq(:v) s = OpenDSL.submit expect(s).to be_kind_of(SUBMIT) expect(s).to eq(SUBMIT.new) expect(s[:name]).to be_nil expect(s[:value]).to be_nil s = OpenDSL.submit(:name=>:s, :value=>:v) expect(s).to eq(SUBMIT.new(:name=>:s, :value=>:v)) end it "TEXT" do TEXT.new(:name=>:item).should == Element.new(:input, :type=>:text, :name=>:item) TEXT.new(:name=>"item").should == Element.new(:input, :type=>:text, :name=>"item") TEXT.new(:name=>:item, :value=>"txt").should == Element.new(:input, :type=>:text, :name=>:item, :value=>"txt") TEXT.new(:name=>:item, :value=>"txt", :class=>"c").should == Element.new(:input, :type=>:text, :name=>:item, :value=>"txt", :class=>"c") t = XDSL.text(:name=>:n, :value=>:v) t.should be_kind_of(TEXT) t.should =~ TEXT.new(:name=>:n, :value=>:v) t = OpenDSL.text(:name=>:n, :value=>:v) t.should be_kind_of(TEXT) t.should == TEXT.new(:name=>:n, :value=>:v) end it "PASSWORD" do PASSWORD.new(:name=>:item).should == Element.new(:input, :type=>:password, :name=>:item) PASSWORD.new(:name=>"item").should == Element.new(:input, :type=>:password, :name=>"item") PASSWORD.new(:name=>:item, :value=>"txt").should == Element.new(:input, :type=>:password, :name=>:item, :value=>"txt") PASSWORD.new(:name=>:item, :value=>"txt", :class=>"c").should == Element.new(:input, :type=>:password, :name=>:item, :value=>"txt", :class=>"c") t = XDSL.password(:name=>:n, :value=>:v) t.should be_kind_of(PASSWORD) t.should =~ PASSWORD.new(:name=>:n, :value=>:v) t = OpenDSL.password(:name=>:n, :value=>:v) t.should be_kind_of(PASSWORD) t.should == PASSWORD.new(:name=>:n, :value=>:v) end it "FILE" do FILE.new(:name=>:foo).should == Element.new(:input, :type=>:file, :name=>:foo) XDSL.file(:name=>:foo).should =~ FILE.new(:name=>:foo) OpenDSL.file(:name=>:foo).should == FILE.new(:name=>:foo) end it "SELECT" do SELECT.new(:name=>:foo).should == Element.new(:select, :name=>:foo) XDSL.select(:name=>:foo).should == SELECT.new(:name=>:foo) OpenDSL.select(:name=>:foo).should == SELECT.new(:name=>:foo) end it "OPTION" do OPTION.new(:value=>:bar, :selected=>true){|e| e << "TEXT"}.should == Element.new(:option, :value=>:bar, :selected=>true){|e| e.add("TEXT")} XDSL.option(:value=>:bar).should == OPTION.new(:value=>:bar) OpenDSL.option(:value=>:bar).should == OPTION.new(:value=>:bar) end it "BR" do BR.new.name.should == :br XDSL.br.should be_kind_of(BR) OpenDSL.br.should be_kind_of(BR) end it "HR" do HR.new.name.should == :hr XDSL.hr.should be_kind_of(HR) OpenDSL.hr.should be_kind_of(HR) end end describe EimXML::XHTML::OpenDSL do it "replace EimXML::XHTML::DSL" do e = EimXML::XHTML::OpenDSL.html do |d| d.head do d.title.add "Title" end d.body do d.h1.add "Sample" d.p do d.add "text" d.add "next" end end end e.should == EimXML::XHTML::DSL.html do head do title.add "Title" end body do h1.add "Sample" p do add "text" add "next" end end end end end describe EimXML::XHTML::Formatter do describe "#write" do it "should set :preservers=>PRESERVE_SPACES to default option" do e = EimXML::XHTML::HTML.new EimXML::Formatter.should_receive(:write).with(e, :preservers=>EimXML::XHTML::PRESERVE_SPACES, :opt=>:dummy) EimXML::XHTML::Formatter.write(e, :opt=>:dummy) end it "should return string" do h = EimXML::XHTML::DSL.html do head do style.add("style\ntext") script.add("script\ntext") end body do div.add("text\nin\ndiv") pre.add("pre\nt") h1.add("1\nt") h2.add("2\nt") h3.add("3\nt") h4.add("4\nt") h5.add("5\nt") h6.add("6\nt") p.add("p\nt") a.add("a\nt") em.add("e\nt") strong.add("s\nt") span.add("sp\nt") li.add("li\nt") dt.add("dt\nt") dd.add("dd\nt") caption.add("c\nt") th.add("th\nt") td.add("td\nt") button.add("button\nt") end end s = <
text in div 
pre
t

1 t

2 t

3 t

4 t

5 t
6 t

p t

a t e t s t sp t
  • li t
    • dt t
    dd t
    c t th t td t EOT EimXML::XHTML::Formatter.write(h).should == s end end end end