RubyGems - rtml - Versions diffs - 1.2.2 → 2.0.0.alpha.1 - Mend

rtml 1.2.2 → 2.0.0.alpha.1

Files changed (584) hide show

data/spec/lib/rtml/rules/dom_validation_spec.rb ADDED

@@ -0,0 +1,112 @@
+require File.join(__FILE__.gsub(/(.*)?\/spec\/.*$/, '\1'), 'spec/spec_helper')
+describe Rtml::Rules::DomValidation do
+  before :each do
+    @doc = Rtml::Document.new
+    @doc.setup_default_document
+    @doc.process do
+      screen :init, :idle do
+        #set . . .
+      end
+      screen :idle, :next => :idle, :timeout => 3 do
+        #display
+      end
+    end
+  end
+  it "should allow expected TML structure by array" do
+    validate_tml_dom "<tml><screen id='idle'><next uri='#main' /></screen></tml>",
+                         [ :screen ]
+  end
+  it "should disallow unexpected TML structure by array" do
+    assert_raises Rtml::Errors::RulesViolationError do
+      validate_tml_dom "<tml><screen id='idle'><next uri='#main' /></screen></tml>",
+                           [ :vardcl ]
+    end
+  end
+  it "should allow expected TML structure by symbol" do
+    validate_tml_dom "<tml><screen id='idle'><next uri='#main' /></screen></tml>",
+                         :screen
+  end
+  it "should disallow unexpected TML structure by symbol" do
+    assert_raises Rtml::Errors::RulesViolationError do
+      validate_tml_dom "<tml><screen id='idle'><next uri='#main' /></screen></tml>",
+                           :vardcl
+    end
+  end
+  it "should allow expected TML structure by string" do
+    validate_tml_dom "<tml><screen id='idle'><next uri='#main' /></screen></tml>",
+                         'screen'
+  end
+  it "should disallow unexpected TML structure by string" do
+    assert_raises Rtml::Errors::RulesViolationError do
+      validate_tml_dom "<tml><screen id='idle'><next uri='#main' /></screen></tml>",
+                           'vardcl'
+    end
+  end
+  it "should allow expected TML structure by hash" do
+    validate_tml_dom "<tml><screen id='idle'><next uri='#main' /><display><p> ... </p></display></screen></tml>",
+                         :screen => [ :next, {:display => :p} ]
+  end
+  it "should disallow unexpected TML structure by hash" do
+    assert_raises Rtml::Errors::RulesViolationError do
+      validate_tml_dom "<tml><screen id='idle'><next uri='#main' /></screen></tml>",
+                           :screen => [ :next, {:display => :p} ]
+    end
+  end
+  it "should validate TML generated by a document object" do
+    validate_tml(@doc)
+  end
+  it "should validate correct TML in a string" do
+    tml = <<-end_tml
+    <?xml version="1.0" encoding="ISO-8859-1"?>
+    <tml xmlns="http://www.ingenico.co.uk/tml" cache="allow">
+      <head />
+      <vardcl name="testvar" type="integer" />
+      <screen next="idle" id="init">
+        <setvar name="testvar" lo="0" />
+      </screen>
+      <screen next="idle" id="idle" timeout="3">
+        <display>
+          <h1>this is a test</h1>
+        </display>
+      </screen>
+    </tml>
+    end_tml
+    validate_tml(tml.strip)
+  end
+  it "should fail on too many display elements in a string" do
+    assert_raises Rtml::Errors::RulesViolationError do
+      tml = <<-end_tml
+      <?xml version="1.0" encoding="ISO-8859-1"?>
+      <tml xmlns="http://www.ingenico.co.uk/tml" cache="allow">
+        <head />
+        <vardcl name="testvar" type="integer" />
+        <screen next="idle" id="init">
+          <setvar name="testvar" lo="0" />
+        </screen>
+        <screen next="idle" id="idle" timeout="3">
+          <display>
+            <h1>this is a test</h1>
+          </display>
+          <display>
+            <h1>this is another test</h1>
+          </display>
+        </screen>
+      </tml>
+      end_tml
+      validate_tml(tml.strip)
+    end
+  end
+end

data/spec/lib/rtml/widget_core/generic_widget_consumer_spec.rb ADDED

@@ -0,0 +1,28 @@
+require File.join(__FILE__.gsub(/(.*)?\/spec\/.*$/, '\1'), 'spec/spec_helper')
+class GenericWidgetConsumer
+  def self.name; "document"; end
+  def base_class; self.class; end
+  include Rtml::Widgets
+  def build_element(name, properties = {})
+    @elements ||= []
+    @elements << Rtml::Dom::Element.new(:name => name, :properties => properties)
+    @elements.last
+  end
+end
+describe "Generic Widget Consumer" do
+  before :each do
+    @consumer = GenericWidgetConsumer.new
+  end
+  it "should respond to build" do
+    assert @consumer.respond_to?(:build), "Consumer does not respond to :build"
+    # this doesn't produce even remotely valid TML -- but it proves that the widget can be called.
+    #@consumer.build :tml do
+    #  build :head
+    #end
+    # TODO: Validate the generated markup.
+  end
+end

data/spec/lib/rtml/widget_core/gui_configuration_spec.rb ADDED

@@ -0,0 +1,109 @@
+require File.join(__FILE__.gsub(/(.*)?\/spec\/.*$/, '\1'), 'spec/spec_helper')
+describe Rtml::WidgetCore::GuiConfiguration do
+  subject { Rtml::WidgetCore::GuiConfiguration.new(Rtml::Widget) }
+  context "with 1 field whose type is set to nil" do
+    before :each do
+      subject.fields[:name] = nil
+    end
+    it "infers :name, :caption and :type" do
+      fields = subject.fields_with_inferences
+      fields.should have(1).item
+      field = fields.first
+      field[:name].should == :name
+      field[:type].should == :string
+      field[:caption].should == 'Name'
+    end
+  end
+  context "with 1 field whose type is set to :string" do
+    before :each do
+      subject.fields[:name] = :string
+    end
+    it "infers :name, :caption and :type" do
+      fields = subject.fields_with_inferences
+      fields.should have(1).item
+      field = fields.first
+      field[:name].should == :name
+      field[:type].should == :string
+      field[:caption].should == 'Name'
+    end
+  end
+  context "with 1 field set from an array" do
+    it "infers :name, :caption and :type given ['Name', :string]" do
+      subject.fields[:name] = ['Name', :string]
+      fields = subject.fields_with_inferences
+      fields.should have(1).item
+      field = fields.first
+      field[:name].should == :name
+      field[:type].should == :string
+      field[:caption].should == 'Name'
+    end
+    it "infers :name, :caption and :type given [:string, 'Name']" do
+      subject.fields[:name] = [:string, 'Name']
+      fields = subject.fields_with_inferences
+      fields.should have(1).item
+      field = fields.first
+      field[:name].should == :name
+      field[:type].should == :string
+      field[:caption].should == 'Name'
+    end
+    it "infers :name, :caption and :type given [:string]" do
+      subject.fields[:name] = [:string]
+      fields = subject.fields_with_inferences
+      fields.should have(1).item
+      field = fields.first
+      field[:name].should == :name
+      field[:type].should == :string
+      field[:caption].should == 'Name'
+    end
+  end
+  context "with 1 field set from a hash" do
+    before :each do
+      subject.fields[:name] = {:caption => 'Name', :type => :string}
+    end
+    it "infers :name, :caption and :type" do
+      fields = subject.fields_with_inferences
+      fields.should have(1).item
+      field = fields.first
+      field[:name].should == :name
+      field[:type].should == :string
+      field[:caption].should == 'Name'
+    end
+  end
+  context "with 2 fields" do
+    context "set from a hash and a symbol" do
+      before :each do
+        subject.fields[:name] = {:caption => 'Name', :type => :string}
+        subject.fields[:next] = :screen_ref
+      end
+      it "infers names, captions and types" do
+        fields = subject.fields_with_inferences
+        fields.should have(2).items
+        field = fields.shift
+        field[:name].should == :name
+        field[:type].should == :string
+        field[:caption].should == 'Name'
+        field = fields.shift
+        field[:name].should == :next
+        field[:type].should == :screen_ref
+        field[:caption].should == 'Next'
+      end
+    end
+  end
+end

data/spec/lib/rtml/widget_core/widget_proxy_spec.rb ADDED

@@ -0,0 +1,31 @@
+require File.join(__FILE__.gsub(/(.*)?\/spec\/.*$/, '\1'), 'spec/spec_helper')
+describe Rtml::WidgetCore::WidgetProxy do
+  before :each do
+    @widget_proxy = Rtml::WidgetCore::WidgetProxy.new
+    @module = Module.new
+    @class = Class.new
+    @class.send(:include, Rtml::Widgets)
+  end
+  it "should allow inclusion of entry points after a class has already included the proxy" do
+    # make sure I didn't messs up setup -- actually, the issue was because the class name was WidgetTest, by mistake.
+    assert_kind_of Rtml::WidgetCore::WidgetProxy, @widget_proxy
+    assert_kind_of Module, @module
+    assert_kind_of Class, @class
+    # define a 'hello' method in the module, but don't include it into widget_proxy
+    @module.class_eval "def hello; end", __FILE__, __LINE__
+    assert !@module.respond_to?('hello') # because that would be a class method
+    # include widget_proxy into the class
+    @class.send(:include, @widget_proxy)
+    assert !@class.methods.include?('hello')
+    assert !@class.respond_to?('hello')
+    # imbue (include) the 'hello' method into the widget proxy, and verify it's been added to the class
+    @widget_proxy.imbue(@module)
+    assert !@class.respond_to?('hello')
+    assert @class.new.respond_to?('hello')
+  end
+end

data/spec/lib/rtml/widget_spec.rb ADDED

@@ -0,0 +1,57 @@
+require File.join(__FILE__.gsub(/(.*)?\/spec\/.*$/, '\1'), 'spec/spec_helper')
+require File.join(__FILE__.gsub(/(.*)?\/spec\/.*$/, '\1'), 'spec/support/lib/rtml/widgets/test_widget1')
+require File.join(__FILE__.gsub(/(.*)?\/spec\/.*$/, '\1'), 'spec/support/lib/rtml/widgets/test_widget2')
+describe Rtml::Widget do
+  before(:each) do
+    @doc = Rtml::Document.new
+    @doc.setup_default_document
+    @scr = @doc.screen :idle
+  end
+  it "should have default values for shared variables before entry points are called"
+  it "should include list of widgets" do
+    @scr.widgets.should include(Rtml::Widgets::Frontend)
+  end
+  it "should include list of entry points" do
+    @scr.widget_entry_points.should include('display')
+  end
+  it "should not lose value for shared variables between entry points" do
+    @doc.hash_entry_1
+    @doc.hash_entry_2
+    @doc.hash_with_value.should == {:value => 1}
+  end
+  it "should allow use of shared variables" do
+    #@tml_docs.test1
+  end
+  it "should not share targets" do
+    TestWidget1.targets.should_not == TestWidget2.targets
+  end
+  it "should not share entry points" do
+    TestWidget1.entry_points.should_not == TestWidget2.entry_points
+  end
+  it "document should respond_to entry points for TestWidget1 but not TestWidget2" do
+    @doc.should_not be_nil
+    TestWidget1.entry_points.each do |entry_point|
+      @doc.should respond_to(entry_point)
+    end
+    TestWidget2.entry_points.each do |entry_point|
+      @doc.should_not respond_to(entry_point)
+    end
+  end
+  it "should not hang if entry point does not exist" do
+    # If the test succeeds, the method will be missing. However, if it fails, it'll just hang the app,
+    # so dev needs to figure out why the hard way.
+    lambda { @doc.missing_widget_entry_point }.should raise_error(NoMethodError)
+  end
+end

data/spec/lib/rtml/widgets_spec.rb ADDED

@@ -0,0 +1,7 @@
+require File.join(__FILE__.gsub(/(.*)?\/spec\/.*$/, '\1'), 'spec/spec_helper')
+describe Rtml::Widgets do
+  it "should find Widgets affecting a target" do
+    Rtml::Widgets.affecting("document").should_not be_empty
+  end
+end

data/spec/models/rtml/document_spec.rb ADDED

@@ -0,0 +1,97 @@
+require File.join(__FILE__.gsub(/(.*)?\/spec\/.*$/, '\1'), 'spec/spec_helper')
+describe Rtml::Document do
+  include Webrat::Matchers
+  context "with one Screen instruction" do
+    before :each do
+      @doc = Rtml::Document.create!(:name => "My Document")
+      Rtml::Instruction.create!(:source => @doc, :name => "screen", :arguments => {:name => 'test'})
+    end
+    after(:each) do
+      Rtml::Document.destroy_all
+    end
+    context "read from the database" do
+      before :each do
+        @doc = Rtml::Document.find_by_name("My Document")
+      end
+      it "should follow instructions" do
+        @doc.follow_instructions!
+        @doc.to_tml.should have_selector('screen')
+      end
+      it "should unpack arguments properly" do
+        # Basically, <screen id="nametest" /> is incorrect when given :name => :test.
+        @doc.follow_instructions!
+        @doc.to_tml.should_not contain('screen id="nametest"')
+      end
+      it "should generate elements whose parents have been populated" do
+        @doc.screen :main
+        scr = @doc.root
+        scr.parent.should_not be_nil
+      end
+    end
+  end
+  context "with defaults" do
+    before :each do
+      @doc = Rtml::Document.new(:name => 'magcard',
+                                :view_paths =>
+                                        File.expand_path(File.join(File.dirname(__FILE__), '../../support/app/views')),
+                               :description => "A simple RTML demo application which processes a magnetic card swipe",
+                               :cache_on_terminal => true)
+      @doc.setup_default_document
+    end
+    it "should allow use of layouts" do
+      @doc.layout "layout"
+      @doc.screen(:main) { display }
+      @doc.to_tml.should match(/header.*Hello, World.*footer/m)
+    end
+    it "should allow disabling of cache" do
+      @doc.cache false
+      @doc.to_tml.should have_selector(:tml, :cache => "deny")
+    end
+    it "should save child elements when saved" do
+      @doc.save
+      Rtml::Document.find_by_name(@doc.name).root.should_not be_blank
+    end
+    it "should not generate empty element IDs from a search" do
+      @doc.strings :first_name, :last_name, :full_name
+      @doc.integer :amount
+      @doc.screen :init
+      @doc / 'init'
+      @doc.to_tml.should_not contain('id=""')
+    end
+    it "should be able to find a screen by name only" do
+      @doc.process do
+        screen :init
+        screen :idle
+        screen :main
+      end
+      (@doc / "init").should have(1).items
+      (@doc / "idle").should have(1).items
+      (@doc / "main").should have(1).items
+    end
+    it "should produce a valid TML document from the DSL" do
+      @doc.process do
+        screen :initialization, :next => :idle_prompt_screen
+        screen :idle_prompt_screen, :next => :main
+        screen :main, :initialization
+      end
+      @doc.to_tml.should be_valid_tml
+    end
+  end
+end