diff options
Diffstat (limited to 'spec/elm_spec.rb')
| -rw-r--r-- | spec/elm_spec.rb | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/spec/elm_spec.rb b/spec/elm_spec.rb index 54019a5..b5d5140 100644 --- a/spec/elm_spec.rb +++ b/spec/elm_spec.rb @@ -129,5 +129,35 @@ describe Efl::Elm do @lb.slide_duration.should == 3.1415926 end end + describe Efl::Elm::ElmPager do + # + before(:all) { + realize_app + @p = Elm::ElmPager.new @win + @os = [] + 0.upto(3) do + @os << @win.evas.object_rectangle_add + end + } + after(:all) { + @p.free + @bg.free + @win.free + } + # + it "content push pop promote bottom_get top_get" do + @os.each do |o| + @p.content_push o + end + @p.content_top_get.should == @os[-1].to_ptr + @p.content_bottom_get.should == @os[0].to_ptr + @p.content_pop + @p.content_top_get.should == @os[-2].to_ptr + @p.content_bottom_get.should == @os[0].to_ptr + @p.content_promote @os[0] + @p.content_top_get.should == @os[0].to_ptr + @p.content_bottom_get.should == @os[1].to_ptr + end + end end |