sapphire 0.0.2

data/lib/sapphire/DSL/Browser/Uncheck.rb

@@ -0,0 +1,12 @@
+module Sapphire
+  module DSL
+    module Browser
+      def Uncheck(*args)
+        ExecuteAgainstControl(args) do |control, arg|
+          control.Check false
+        end
+      end
+    end
+  end
+end
+

data/lib/sapphire/DSL/Browser/With.rb

@@ -0,0 +1,10 @@
+module Sapphire
+  module DSL
+    module Browser
+      def With(item)
+        item
+      end
+    end
+  end
+end
+

data/lib/sapphire/DSL/Configuration/ConfiguredBrowser.rb

@@ -0,0 +1,13 @@
+module Sapphire
+  module DSL
+    module Configuration
+      def ConfiguredBrowser(url)
+        @rootUrl = url
+        ConfigurationBrowser
+      end
+
+      class ConfigurationBrowser
+      end
+    end
+  end
+end

data/lib/sapphire/DSL/Configuration/ConfiguredUser.rb

@@ -0,0 +1,11 @@
+module Sapphire
+  module DSL
+    module Configuration
+      def configured_user
+        $user
+      end
+      class ConfiguredUser
+      end
+    end
+  end
+end

data/lib/sapphire/DSL/Configuration/Use.rb

@@ -0,0 +1,15 @@
+module Sapphire
+  module DSL
+    module Configuration
+      def Use(user)
+        if(user == ConfiguredUser)
+          $user = AppConfig.new().User
+        else
+          $user = user.new
+        end
+      end
+    end
+  end
+end
+
+

data/lib/sapphire/DSL/Data/Exist.rb

@@ -0,0 +1,11 @@
+module Sapphire
+  module DSL
+    module Data
+      def Exist(value)
+        value.should_not == nil
+      end
+    end
+  end
+end
+
+

data/lib/sapphire/DSL/Data/Find.rb

@@ -0,0 +1,10 @@
+module Sapphire
+  module DSL
+    module Data
+      def Find(query, &block)
+        query.Execute block
+      end
+    end
+  end
+end
+

data/lib/sapphire/DSL/Data/GetPageField.rb

@@ -0,0 +1,17 @@
+module Sapphire
+  module DSL
+    module Data
+      def GetPageField(key)
+        @page.fields.each do |field|
+          field.keys.each do |field_key|
+            if(field_key == key)
+              return field[key]
+            end
+          end
+        end
+        raise "Could not find control for: " + key + " for page " + @page.to_s
+      end
+    end
+  end
+end
+

data/lib/sapphire/DSL/Data/Underscore.rb

@@ -0,0 +1,9 @@
+class String
+   def underscore
+       self.gsub(/::/, '/').
+       gsub(/([A-Z]+)([A-Z][a-z])/,'\1_\2').
+       gsub(/([a-z\d])([A-Z])/,'\1_\2').
+       tr("-", "_").
+       downcase
+   end
+end

data/lib/sapphire/DSL/Data/Validate.rb

@@ -0,0 +1,16 @@
+module Sapphire
+  module DSL
+    module Data
+      def Validate(hash)
+        hash.keys.each do |key|
+          if(hash[key].is_a? Symbol)
+            key.to_s.should == GetPageField(hash[key]).Text
+          else
+            key.to_s.should == hash[key].to_s
+          end
+        end
+      end
+    end
+  end
+end
+

data/lib/sapphire/DSL/Data/Verify.rb

@@ -0,0 +1,10 @@
+module Sapphire
+  module DSL
+    module Data
+      def Verify(instance)
+        instance.Verify
+      end
+    end
+  end
+end
+

data/lib/sapphire/DSL/Scenarios/Is.rb

@@ -0,0 +1,9 @@
+module Sapphire
+  module DSL
+    module Scenarios
+      def Is(item)
+        item
+      end
+    end
+  end
+end

data/lib/sapphire/DSL/Scenarios/Pending.rb

@@ -0,0 +1,29 @@
+module Sapphire
+  module DSL
+    module Scenarios
+      def Pending(text)
+        Pending.new text
+      end
+
+      class Pending
+
+        attr_reader :text
+        attr_reader :and
+
+        def initialize(text)
+          @text = text
+          @and = []
+        end
+
+        def add_and(text, &block)
+          self.and << Then.new(text, &block)
+        end
+
+        def to_s
+          self.text
+        end
+
+      end
+    end
+  end
+end

data/lib/sapphire/DSL/Scenarios/and.rb

@@ -0,0 +1,25 @@
+require File.expand_path('../../Testing/Executable', File.dirname(__FILE__))
+
+class And
+  include Sapphire::Testing::Executable
+
+  attr_reader :text
+  attr_reader :block
+  attr_reader :value
+  attr_reader :parent
+  attr_reader :results
+
+  def initialize(parent, text, &block)
+    @block = block
+    @text = text.to_s
+    @value = text
+    @parent = parent
+    @results = []
+  end
+
+  def AddResult(result)
+    @results << result
+    self.parent.results.last.AddChild(result)
+  end
+
+end

data/lib/sapphire/DSL/Scenarios/background.rb

@@ -0,0 +1,23 @@
+class Background
+  include Sapphire::Testing::Executable
+
+  attr_reader :value
+  attr_reader :text
+  attr_reader :block
+  attr_reader :parent
+  attr_reader :results
+
+  def initialize(parent, pre, text, &block)
+    @block = block
+    @value = text
+    @text = pre + text.to_s
+    @parent = parent
+    @results = []
+  end
+
+  def AddResult(result)
+    @results << result
+    self.parent.result.AddChild(result)
+  end
+
+end

data/lib/sapphire/DSL/Scenarios/dsl.rb

@@ -0,0 +1,60 @@
+module Sapphire
+  module DSL
+    module Scenarios
+      def Background(text, &block)
+        Runner.instance.last_scenario.add_background(Background.new(Runner.instance.last_scenario, "Assuming that ", text, &block))
+      end
+
+      def Given(text, &block)
+        Runner.instance.last_scenario.add_given(Given.new(Runner.instance.last_scenario, "Given ", text, &block))
+      end
+
+      def When(text, &block)
+        Runner.instance.last_scenario.last_given.add_when("When ", text, &block)
+      end
+
+      def Then(text, &block)
+        Runner.instance.last_scenario.last_given.last_when.add_then("Then ", text, &block)
+      end
+
+      def And(text, &block)
+
+        if(Runner.instance.last_scenario.last_given == nil && Runner.instance.last_scenario.last_background != nil)
+          Runner.instance.last_scenario.add_background(Background.new(Runner.instance.last_scenario, "And ", text, &block))
+          return
+        end
+
+        if(Runner.instance.last_scenario.last_given.finally != nil)
+          Runner.instance.last_scenario.last_given.finally.add_and("And ", text, &block)
+          return
+        end
+
+        if(Runner.instance.last_scenario.last_given.last_when == nil)
+          Runner.instance.last_scenario.last_given.add_and("And ", text, &block)
+          return
+        end
+
+        if(Runner.instance.last_scenario.last_given.last_when.last_then == nil)
+          Runner.instance.last_scenario.last_given.last_when.add_and("And ", text, &block)
+          return
+        end
+
+        if (Runner.instance.last_scenario.last_given.last_when.last_then != nil)
+          Runner.instance.last_scenario.last_given.last_when.last_then.add_and("And ", text, &block)
+        end
+      end
+
+      def Finally(text, &block)
+        Runner.instance.last_scenario.last_given.add_finally(Finally.new(Runner.instance.last_scenario.last_given, text, &block))
+      end
+
+      def Scenario(text, &block)
+        Runner.instance.add_scenario(Scenario.new(text, &block))
+        #Runner.instance.last_scenario.block.call
+        Runner.instance.last_scenario.execute 1
+      end
+    end
+  end
+end
+
+

data/lib/sapphire/DSL/Scenarios/finally.rb

@@ -0,0 +1,32 @@
+class Finally
+  include Sapphire::Testing::Executable
+
+  attr_reader :value
+  attr_reader :block
+  attr_reader :text
+  attr_reader :and
+  attr_reader :parent
+  attr_reader :results
+
+  def initialize(parent, text, &block)
+    @value = text
+    @text = text.to_s
+    @block = block
+    @and = []
+    @parent = parent
+    @results = []
+  end
+
+  def add_and(pre, text, &block)
+    if(self.value.is_a? Pending)
+      self.and << And.new(self, Pending.new(pre + text), &block)
+    else
+      self.and << And.new(self, pre + text, &block)
+    end
+  end
+
+  def AddResult(result)
+    @results << result
+  end
+
+end

data/lib/sapphire/DSL/Scenarios/given.rb

@@ -0,0 +1,57 @@
+class Given
+  include Sapphire::Testing::Executable
+
+  attr_reader :value
+  attr_reader :text
+  attr_reader :block
+  attr_reader :finally
+  attr_reader :when
+  attr_reader :and
+  attr_reader :parent
+  attr_reader :results
+
+  def initialize(parent, pre, text, &block)
+    @value = text
+    @text = pre + text.to_s
+    @block = block
+    @when = []
+    @and = []
+    @parent = parent
+    @results = []
+  end
+
+  def add_when(pre, text, &block)
+    if(self.value.is_a? Pending)
+      @when << When.new(self, pre, Pending.new(text), &block)
+    else
+      x = When.new(self, pre, text, &block)
+      @when << x
+    end
+  end
+
+  def last_when()
+    @when.last
+  end
+
+  def add_finally(finally)
+    if(self.value.is_a? Pending)
+      @finally = Finally.new(self, Pending.new(finally.text), &block)
+    else
+      @finally = finally
+    end
+  end
+
+  def add_and(pre, text, &block)
+    if(self.value.is_a? Pending)
+      self.and << And.new(self, Pending.new(pre + text), &block)
+    else
+      self.and << And.new(self, text, &block)
+    end
+  end
+
+  def AddResult(result)
+    @results << result
+    self.parent.result.AddChild(result)
+  end
+
+end

data/lib/sapphire/DSL/Scenarios/runner.rb

@@ -0,0 +1,30 @@
+module Sapphire
+  module DSL
+    module Scenarios
+      class Runner
+        attr_accessor :scenarios
+
+        def self.create
+          @@instance ||= Runner.new
+        end
+
+        def self.instance
+          @@instance ||= self.create
+        end
+
+        def initialize
+          @scenarios = []
+        end
+
+        def add_scenario(scenario)
+          @scenarios << scenario
+        end
+
+        def last_scenario
+          @scenarios.last
+        end
+      end
+    end
+  end
+end
+

data/lib/sapphire/DSL/Scenarios/scenario.rb

@@ -0,0 +1,51 @@
+module Sapphire
+  module DSL
+    module Scenarios
+      class Scenario
+        include Sapphire::Testing::RSpecRunner
+
+        attr_reader :block
+        attr_reader :value
+        attr_reader :text
+        attr_reader :givens
+        attr_reader :backgrounds
+        attr_reader :result
+
+        def initialize(text, &block)
+          @value = text
+          @text = text.to_s
+          @block = block
+          @givens = []
+          @backgrounds = []
+          @result = Testing::ScenarioResult.new(text)
+        end
+
+        def add_given(given)
+          if(self.value.is_a? Pending)
+            @givens << Given.new(self, "", Pending.new(given.text), &block)
+          else
+            @givens << given
+          end
+        end
+
+        def last_given
+          @givens.last
+        end
+
+        def add_background(background)
+          if(self.value.is_a? Pending)
+            @backgrounds << Background.new(self, "", Pending.new(background.text), &block)
+          else
+            @backgrounds << background
+          end
+        end
+
+        def last_background
+          @backgrounds.last
+        end
+
+      end
+    end
+  end
+end
+