sapphire 0.0.2

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

@@ -0,0 +1,34 @@
+class Then
+  include Sapphire::Testing::Executable
+
+  attr_reader :value
+  attr_accessor :text
+  attr_reader :block
+  attr_reader :and
+  attr_reader :parent
+  attr_reader :results
+
+  def initialize(parent, pre, text, &block)
+    @block = block
+    @value = text
+    @text = pre + text.to_s
+    @and = []
+    @parent = parent
+    @results = []
+  end
+
+  def add_and(pre, text, &block)
+    if(!self.value.instance_of? Pending)
+      x = Then.new(self, pre, text, &block)
+      self.and << x
+    else
+      self.and << Then.new(self, pre, Pending.new(pre + text), &block)
+    end
+  end
+
+  def AddResult(result)
+    @results << result
+    self.parent.results.last.AddChild(result)
+  end
+
+end

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

@@ -0,0 +1,47 @@
+class When
+  include Sapphire::Testing::Executable
+
+  attr_reader :value
+  attr_accessor :text
+  attr_reader :block
+  attr_reader :then
+  attr_reader :and
+  attr_reader :parent
+  attr_reader :results
+
+  def initialize(parent, pre, text, &block)
+    @block = block
+    @value = text
+    @text = pre + text.to_s
+    @then = []
+    @and = []
+    @parent = parent
+    @results = []
+  end
+
+  def add_then(pre, text, &block)
+    if(self.value.is_a? Pending)
+      @then << Then.new(self, pre, Pending.new(text), &block)
+    else
+      @then << Then.new(self, pre, text, &block)
+    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, pre + text, &block)
+    end
+  end
+
+  def last_then
+    @then.last
+  end
+
+  def AddResult(result)
+    @results << result
+    self.parent.results.last.AddChild(result)
+  end
+
+end

data/lib/sapphire/DataAbstractions/Database.rb

@@ -0,0 +1,57 @@
+
+
+module Sapphire
+  module DataAbstractions
+    class Database
+
+      def Open(connection_string)
+        @connection = WIN32OLE.new('ADODB.Connection')
+        @connection.Open(connection_string)
+      end
+
+      def query(sql)
+        recordset = WIN32OLE.new('ADODB.Recordset')
+        recordset.Open(sql, @connection, 0 , 1)
+
+        fields = []
+
+        recordset.Fields.each do |field|
+            fields << field.Name
+        end
+        begin
+            recordset.MoveFirst
+            data = recordset.GetRows
+        rescue
+            data = []
+        end
+
+        if(recordset.State != 0)
+          recordset.Close
+        end
+
+        data = data.transpose
+        records = []
+
+        data.each do |row|
+          y = 0
+          record = Hash.new
+          row.each do |column|
+            if(column != nil)
+              record.store fields[y].underscore.intern, column.to_s
+            else
+              record.store fields[y].underscore.intern, column
+            end
+            y += 1
+          end
+          records << record
+        end
+        records
+      end
+
+      def close
+        @connection.Close
+      end
+    end
+  end
+end
+

data/lib/sapphire/DataAbstractions/Query.rb

@@ -0,0 +1,20 @@
+module Sapphire
+  module DataAbstractions
+    module Query
+      def Execute(block)
+          x = self.Database.new
+
+          x.Open $config[x.Connection]
+
+          path = File.expand_path(self.Script, __FILE__)
+          file = File.open(path)
+          contents = file.read
+          self.Tokenize(contents)
+
+          results = x.query(contents)
+          block.call results
+          x.close
+        end
+      end
+  end
+end

data/lib/sapphire/Testing/Executable.rb

@@ -0,0 +1,30 @@
+module Sapphire
+  module Testing
+    module Executable
+      def execute(id)
+        start = Time.now
+        begin
+          if(self.value.is_a? Pending)
+            self.AddResult(ResultTree.new(self.text, TestResult.new("pending", self.text, "Pending", "", Time.now - start, id)))
+            puts "(pending) " + self.text + " (" + (Time.now - start).to_s + "s)"
+            return
+          end
+          self.block.call
+          self.AddResult(ResultTree.new(self.text, TestResult.new("pass", self.text, "Success", "", Time.now - start, id)))
+          puts "(pass) " + self.text + " (" + (Time.now - start).to_s + "s)"
+        rescue => msg
+
+          stack = ""
+          msg.backtrace.each do |line|
+            stack += "\r\n" + line
+          end
+
+          self.AddResult(ResultTree.new(self.text, TestResult.new("fail", self.text, msg.message, stack, Time.now - start, id)))
+          puts "(fail) " + self.text + ": " + msg.message + " (" + (Time.now - start).to_s + "s)"
+        end
+      end
+      @result
+    end
+  end
+end
+

data/lib/sapphire/Testing/RSpecRunner.rb

@@ -0,0 +1,85 @@
+module Sapphire
+  module Testing
+    module RSpecRunner
+      def execute(id)
+        @block.call
+        s = self
+        x = @givens
+        y = @backgrounds
+        background_pending = false
+
+        y.each do |background|
+          if(background.value.instance_of? Pending)
+            background_pending = true
+          end
+        end
+
+        x.each do |g|
+        describe g.text do
+
+          before :all do
+            y.each do |b|
+              if(!b.value.instance_of? Pending and !s.value.instance_of? Pending)
+                b.block.call()
+              end
+            end
+          end
+
+          before :each do
+            if(!g.value.instance_of? Pending and !s.value.instance_of? Pending and !background_pending)
+              g.block.call()
+              g.and.each do |a|
+                a.block.call()
+              end
+            end
+          end
+
+          g.when.each do |w|
+            describe w.text do
+              before do
+                if(!w.value.instance_of? Pending and !s.value.instance_of? Pending and !background_pending)
+                  w.block.call()
+
+                  if (w.and.count > 0)
+                    w.and.each do |a|
+                      a.block.call()
+                    end
+                  end
+                end
+              end
+
+              if (w.then.count > 0)
+                w.then.each do |t|
+                  if(!t.value.instance_of? Pending and !w.value.instance_of? Pending and !g.value.instance_of? Pending and !s.value.instance_of? Pending and !background_pending)
+                    it t.text do
+                      t.block.call()
+                      t.and.each do |a|
+                        if(!a.value.instance_of? Pending)
+                          a.block.call()
+                        end
+                      end
+                    end
+                  else
+                    pending t.text
+                  end
+                end
+              end
+            end
+          end
+
+          after :all do
+            if(g.finally and !g.finally.value.instance_of? Pending and !s.value.instance_of? Pending and !background_pending)
+              g.finally.block.call()
+
+              g.finally.and.each do |a|
+                a.block.call()
+              end
+            end
+          end
+          end
+        end
+      end
+    end
+  end
+end
+

data/lib/sapphire/Testing/RakeTask.rb

@@ -0,0 +1,109 @@
+require 'rake'
+require 'json'
+
+module Sapphire
+  module Testing
+    class RakeTask
+      attr_accessor :pattern
+      attr_accessor :verbose
+      attr_accessor :fail_on_error
+      attr_accessor :name
+
+
+      def test_outcome(result)
+
+        result.results.each do |r|
+
+          if(r.type == 'fail')
+            return 'fail'
+          end
+
+          if(r.type == 'pending')
+            return 'pending'
+          end
+
+          if(!r.results.empty?)
+            return test_outcome(r)
+          end
+
+        end
+
+        return 'pass'
+
+      end
+
+      def initialize(*args)
+
+        @name = args.shift || :spec
+        @pattern = nil
+        @verbose, @fail_on_error = true, true
+
+        yield self if block_given?
+
+        Rake::Task.define_task name do
+          RakeFileUtils.send(:verbose, verbose) do
+            files_to_run = FileList[ pattern ].map { |f|
+              y = nil
+              x = nil
+              x = f.gsub(/"/, '\"') if f != nil
+              y = x.gsub(/'/, "\\\\'") if x != nil
+              y
+            }
+            if files_to_run.empty?
+              puts "No examples matching #{pattern} could be found"
+            else
+              begin
+
+                files_to_run.each do |f|
+                  next unless f != nil
+                  require File.expand_path("../../" + f.to_s, __FILE__) unless File.directory? f
+                end
+
+                success_array = []
+                pending_array = []
+                failure_array = []
+
+                i = 3
+
+                Runner.instance.scenarios.each do |scenario|
+                  i += 1
+                  scenario.execute i
+                  scenario.result.set_id i
+                  scenario.result.set_type test_outcome(scenario.result)
+
+                  success_array << scenario.result if scenario.result.type == "pass"
+                  pending_array << scenario.result if scenario.result.type == "pending"
+                  failure_array << scenario.result if scenario.result.type == "fail"
+                end
+
+                item_array = []
+                item_array << ResultsList.new("Passing", success_array, 1)
+                item_array << ResultsList.new("Pending", pending_array, 2)
+                item_array << ResultsList.new("Failing", failure_array, 3)
+
+
+                File.open(File.dirname(__FILE__) + "/../ReportGenerator/output.json", "w") do |file|
+                  file.puts ActiveSupport::JSON.encode item_array
+                end
+
+                Runner.instance.scenarios.each do |scenario|
+                    File.open(File.dirname(__FILE__) + "/../ReportGenerator/" + scenario.result.myId.to_s + ".json", "w") do |file|
+                      file.puts ActiveSupport::JSON.encode scenario.result
+                  end
+                end
+
+              rescue => e
+                stack = ""
+                e.backtrace.each do |line|
+                  stack += "\r\n" + line
+                end
+
+                raise("Some tests have failed: " + e.message + " : " +  stack) if fail_on_error
+              end
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/sapphire/Testing/ResultList.rb

@@ -0,0 +1,19 @@
+module Sapphire
+  module Testing
+    class ResultsList
+
+      attr_reader :myId
+      attr_reader :text
+      attr_reader :children
+
+      def initialize(text, results, id)
+        @myId = id
+        @text = text
+        @children = results
+        @expanded = true
+        @count = results.length
+      end
+
+    end
+  end
+end

data/lib/sapphire/Testing/ResultTree.rb

@@ -0,0 +1,37 @@
+module Sapphire
+  module Testing
+    class ResultTree
+
+      attr_accessor :results
+      attr_accessor :type
+
+      def initialize(text, result)
+
+        @type = 'pass'
+        @execution_time = 0
+
+        if(result != nil)
+          self.type = result.type
+          @iconCls = "accept" if result.type == "pass"
+          @iconCls = "delete" if result.type == "fail"
+          @iconCls = "error" if result.type == "pending"
+          @execution_time = result.execution_time
+          @expanded = true
+          @message = result.message
+          @stack = result.stack
+        end
+        @text = text
+        @results = []
+        @leaf = true
+
+      end
+
+      def AddChild(node)
+        @results << node
+        @leaf = false
+      end
+
+    end
+  end
+end
+