orangutan 0.0.4 → 0.0.5

data/MIT-LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 Mark Ryall
+ 
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+ 
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+ 
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README

@@ -1,59 +1,101 @@
-Orangutan is a mocking library.
-
-It allows you to create stub objects and to setup methods with return, yield and raise behaviours.
-
-It can be used in testing .net code using ironruby.
-
-At this stage only the simplest of clr interfaces can be stubbed.
-
-Note that only stub instances of objects are created.  It can not create mocks of class methods.
-
-It works by recording all method calls so that assertions can be made about them after the fact.
-
-This means that orangutan can be used with any testing framework and in combination with other mock frameworks.
-
-Installation:
-
-gem install markryall-orangutan
-
-Usage:
-
-require 'orangutan'
-@o = Orangutan::Chantek.new
-
-# Creating a pure ruby stub
-@stub = @orangutan.stub :stub
-
-# Creating a stub that implements a clr interface
-@clr_stub = @orangutan.stub :clr_stub, :clr_interface => System::IDisposable
-
-# Setting up stub methods that return values
-@o.when(:stub).receives(:execute).with(7).return('baz')
-
-# Setting up stub methods that yield values
-@o.when(:stub).receives(:execute).with(7).yield('baz')
-
-# Setting up stub methods that raise errors
-@o.when(:stub).receives(:execute).with(7).raise('baz')
-
-# Checking recorded method calls
-# at this stage you need to scan the array of call structs recorded in @o.calls
-@o.calls[0].should == Orangutan::Call.new(:stub, :execute, [7])
-
-Questions:
-
-* Why Orangutan?
-
-My daughter likes orangutans and I couldn't think of a better name.  Both Sumatran and Bornean orangutans are endangered species so even if you intensely dislike this project or its implementation, at least you can be made aware of the plight of these spectacular creatures.
-
-* Did it have anything to do with Clyde in "Every Which Way But Loose"
-
-Definately not.  What a ridiculous question.  I'm appalled.
-
-* What's Chantek?
-
-Chantek is a famous orangutan that can solve sudokus and the rubik's cube - http://en.wikipedia.org/wiki/Chantek
-
-* Why do I not need to register this as a mock framework?
-
+Orangutan is a library for creating stubs.
+
+It allows you to create stub objects and to specify methods to return and yield values as well as to raise errors.
+
+It can be used in testing .net code using ironruby although at this stage only the simplest of clr interfaces can be stubbed.
+
+Note that only stub instances of objects are created.  It can not create mocks of class methods.
+
+It works by recording all method calls so that assertions can be made about them after the fact and providing a simple
+dsl for setting up stubbed methods (which can be used as expectations to assert on later).
+
+Orangutan can be used with any testing framework and in combination with other mock frameworks.
+
+Installation:
+
+gem install orangutan
+
+Some examples of usage (note that these are not in the context of any testing framework and are intended only to indicate how to use the api):
+
+require 'orangutan'
+
+include Orangutan::Chantek
+
+reset_stubs
+
+# Creating a pure ruby stub
+@stub = stub :stub
+
+# Creating a stub that implements a clr interface
+@clr_stub = stub :clr_stub, :clr_interface => System::IDisposable
+
+# Setting up stub methods that return values
+so_when(:stub).receives(:execute).with(7).return('baz')
+
+# Setting up stub methods that yield values
+so_when(:stub).receives(:execute).with(7).yield('baz')
+
+# Setting up stub methods that raise errors
+so_when(:stub).receives(:execute).with(7).raise('baz')
+
+# checking whether an expectation was met
+expectation = so_when(:stub).receives(:execute).with(7)
+puts expectation.matched? (=> false)
+@stub.execute(7)
+puts expectation.matched? (=> false)
+
+# setting limits on expectations
+
+so_when(:stub).receives(:execute).with(7).once
+so_when(:stub).receives(:execute).with(7).twice
+so_when(:stub).receives(:execute).with(7).exactly(4).times
+
+# Note that once an expectation has reached its limit, it will no longer match.
+# Expections will match in the order they are specified.
+# This mechanism can be used to set up more complex expected call sequences:
+
+e1 = so_when(:stub).receives(:execute).with(7).return('ok').once
+e2 = so_when(:stub).receives(:execute).return('hmm').twice
+
+puts e1.count (=> nil)
+puts e2.count (=> nil)
+@stub.execute(7) (=> 'ok')
+puts e1.count (=> 1)
+puts e2.count (=> nil)
+@stub.execute(7) (=> 'hmm')
+puts e1.count (=> 1)
+puts e2.count (=> 1)
+@stub.execute(7) (=> 'hmm')
+puts e1.count (=> 1)
+puts e2.count (=> 2)
+@stub.execute(7) (=> nil)
+puts e1.count (=> 1)
+puts e2.count (=> 2)
+puts e1.matched? (=> true)
+puts e2.matched? (=> true)
+
+# Checking all expectations
+expectations.any? {|e| !e.matched? }
+
+# Examining recorded method calls
+calls.each {|call| puts "#{call.name}.#{call.method}(#{call.args.join(',')})" }
+
+# Recorded call sequences can also be used for assertions in combination with or instead of checking expectations.
+
+Questions:
+
+* Why Orangutan?
+
+My daughter likes orangutans and I couldn't think of a better name.  Both Sumatran and Bornean orangutans are endangered species so even if you intensely dislike this project or its implementation, at least you can be made aware of the plight of these spectacular creatures.
+
+* Did it have anything to do with Clyde in "Every Which Way But Loose"
+
+Definately not.  What a ridiculous question.  I'm appalled.
+
+* What's Chantek?
+
+Chantek is a famous orangutan that can solve sudokus and the rubik's cube - http://en.wikipedia.org/wiki/Chantek
+
+* Why do I not need to register this as a mock framework?
+
 Most frameworks such as rspec's mocks, mocha and stubba replace methods on existing classes.  Because this can't be done with this library - you can only create pure stub objects and setup method behaviours, there's nothing that needs to be undone at the end of a test/example.

data/lib/orangutan.rb

@@ -1,3 +1,3 @@
-module Orangutan
-end
+module Orangutan
+end
 require 'orangutan/chantek'

data/lib/orangutan/chantek.rb

@@ -1,51 +1,87 @@
-require 'orangutan/stub_base'
-require 'orangutan/expectation'
-require 'orangutan/call'
-
-module Orangutan 
-  class Chantek
-    attr_reader :calls, :stubs
-  
-    def initialize
-      @calls = []
-      @expectations = {}
-      @stubs= {}
-    end
-  
-    def stub name, params={}
-      return @stubs[name] if @stubs[name]
-      c = Class.new(StubBase) do
-        if params[:clr_interface]
-          include params[:clr_interface]
-          params[:clr_interface].to_clr_type.get_methods.each do |m_info|
-            snake = m_info.name.scan(/[A-Z][a-z0-9]*/).map {|a|a.downcase}.join('_').to_sym
-            define_method snake do |*args|
-              yield_container, return_container = __react__(snake, args)
-              yield *yield_container.value if yield_container && block_given?
-              return __return__(method, return_container)
-            end
-          end
-        end
-      end
-      @stubs[name] = c.new(name, self, params[:recursive])
-    end
-  
-    def when name
-      expectations_for_name = @expectations[name]
-      @expectations[name] = expectations_for_name = [] unless expectations_for_name
-      expectation = Orangutan::Expectation.new
-      expectations_for_name << expectation
-      expectation
-    end
-  
-    def first_match name, method, args
-      expectations_for_name = @expectations[name]
-      if expectations_for_name
-        expectations_for_name.each do |expectation|
-            return expectation if expectation.matches?(method, *args)
-        end
-      end
-      nil
-    end
-  end
+require 'orangutan/stub_base'
+require 'orangutan/expectation'
+require 'orangutan/call'
+require 'orangutan/reflector'
+
+module Orangutan 
+  module Chantek
+    attr_reader :calls, :stubs, :expectations
+
+    def call name, method, *args
+      Call.new(name, method, args)
+    end
+
+    def reset_stubs
+      @calls = []
+      @expectations = {}
+      @stubs= {}
+      @events = {}
+    end
+
+    def stub name, params={}
+      return @stubs[name] if @stubs[name]
+      clazz = Class.new(StubBase)
+      @events[name] = {}
+      implement_interface clazz, params[:clr_interface], @events[name]
+      @stubs[name] = clazz.new(name, self, params[:recursive])
+    end
+
+    def implement_interface clazz, interface, events
+      return unless interface
+      reflector = Reflector.new(interface)
+      clazz.instance_eval { include interface }
+      reflector.methods.each {|method| implement_method clazz, method }
+      reflector.events.each do |event|
+        events[event] = []
+        implement_event clazz, event, events[event]
+      end
+    end
+
+    def implement_method clazz, name
+      clazz.instance_eval do
+        define_method name do |*args|
+          yield_container, return_container = __react__(name, args)
+          yield_container.value.each {|v| yield *v } if yield_container && block_given?
+          return __return__(name, return_container)
+        end
+      end
+    end
+
+    def implement_event clazz, name, delegates
+      method = "add_#{name}".to_sym
+      clazz.instance_eval do
+        define_method method  do |delegate|
+          __react__(method, [])
+          delegates << delegate
+        end
+      end
+    end
+
+    def so_when name
+      expectations_for_name = @expectations[name]
+      @expectations[name] = expectations_for_name = [] unless expectations_for_name
+      expectation = Orangutan::Expectation.new
+      expectations_for_name << expectation
+      expectation
+    end
+  
+    def first_match name, method, args
+      expectations_for_name = @expectations[name]
+      if expectations_for_name
+        expectations_for_name.each do |expectation|
+            return expectation if expectation.matches?(method, *args)
+        end
+      end
+      nil
+    end
+
+    def fire_event name, event, *args
+      events_for_name = @events[name]
+      raise "failed to find any events for #{name}" unless events_for_name
+      # it makes no sense, but 'events_for_name[event]' returns nil so in desperation, we iterate over the events
+      events_for_name.each do |event_name,delegates|
+        delegates.each { |delegate| delegate.invoke *args } if event_name == event
+      end
+    end
+  end
 end

data/lib/orangutan/container.rb

@@ -1,3 +1,3 @@
-module Orangutan 
-  Container = Struct.new(:value)
+module Orangutan 
+  Container = Struct.new(:value)
 end

data/lib/orangutan/expectation.rb

@@ -1,75 +1,76 @@
-require 'orangutan/raiser'
-require 'orangutan/container'
-
-module Orangutan
-  class Expectation
-    attr_reader :return_container, :yield_container, :raiser, :count
-    
-    def initialize
-      @return_container = nil
-      @yield_container = nil
-      @raiser = nil
-    end
-    
-    def receives method
-      @method = method
-      self
-    end
-    
-    def with *args
-      @args = args
-      self
-    end
-  
-    def return *value
-      @return_container = Container.new value
-      self
-    end
-    
-    def yield *value
-      @yield_container = Container.new value
-      self
-    end
-    
-    def raise *args
-      @raiser = Raiser.new args
-      self
-    end
-  
-    def matches? method, *args
-      return false unless method == @method
-      matched = @args ? @args == args : true
-      return false if @limit && @count && @count >= @limit
-      if matched
-        @count ||= 0
-        @count += 1
-      end
-      matched
-    end
-
-    def exactly count
-      @limit = count
-      self
-    end
-
-    def once
-      exactly 1
-    end
-
-    def twice
-      exactly 2
-    end
-
-    def times
-      self
-    end
-    
-    def matched?
-      if @limit
-        @count && @count >= @limit
-      else
-        @count
-      end 
-    end
-  end
+require 'orangutan/raiser'
+require 'orangutan/container'
+
+module Orangutan
+  class Expectation
+    attr_reader :return_container, :yield_container, :raiser, :count
+    
+    def initialize
+      @return_container = nil
+      @yield_container = nil
+      @raiser = nil
+    end
+    
+    def receives method
+      @method = method
+      self
+    end
+    
+    def with *args
+      @args = args
+      self
+    end
+  
+    def return *value
+      @return_container = Container.new value
+      self
+    end
+    
+    def yield *value
+      @yield_container ||= Container.new([])
+      @yield_container.value << value
+      self
+    end
+
+    def raise *args
+      @raiser = Raiser.new args
+      self
+    end
+  
+    def matches? method, *args
+      return false unless method == @method
+      matched = @args ? @args == args : true
+      return false if @limit && @count && @count >= @limit
+      if matched
+        @count ||= 0
+        @count += 1
+      end
+      matched
+    end
+
+    def exactly count
+      @limit = count
+      self
+    end
+
+    def once
+      exactly 1
+    end
+
+    def twice
+      exactly 2
+    end
+
+    def times
+      self
+    end
+    
+    def matched?
+      if @limit
+        @count && @count >= @limit
+      else
+        @count
+      end 
+    end
+  end
 end

data/lib/orangutan/mock_adapter.rb

@@ -0,0 +1,16 @@
+require 'orangutan/chantek'
+
+module Orangutan
+  module MockAdapter
+    def setup_mocks_for_rspec
+      self.class.class_eval {include Orangutan::Chantek}
+      reset_stubs
+    end
+
+    def verify_mocks_for_rspec
+    end
+
+    def teardown_mocks_for_rspec
+    end
+  end
+end

data/lib/orangutan/raiser.rb

@@ -1,10 +1,9 @@
-class Orangutan::Raiser
-  def initialize args
-    @args = args
-  end
-
-  def execute
-    puts 'RAISING ' + @args.inspect
-    raise *@args
-  end
+class Orangutan::Raiser
+  def initialize args
+    @args = args
+  end
+
+  def execute
+    raise *@args
+  end
 end

data/lib/orangutan/reflector.rb

@@ -0,0 +1,21 @@
+class Orangutan::Reflector
+  def initialize type
+    @type = type.to_clr_type
+  end
+
+  def methods
+    @type.get_methods.map { |info| snake info.name }
+  end
+
+  def properties
+    @type.get_properties.map { |info| snake info.name }
+  end
+
+  def events
+    @type.get_events.map { |info| info.name }
+  end
+
+  def snake text
+    text.scan(/[A-Z][a-z0-9]*/).map {|a|a.downcase}.join('_').to_sym
+  end
+end

data/lib/orangutan/stub_base.rb

@@ -1,32 +1,34 @@
-module Orangutan
-  class StubBase
-    instance_methods.each { |m| undef_method m unless m =~ /^__/ }
-
-    def initialize name, parent, recursive=false
-      @name, @parent, @recursive = name, parent, recursive
-    end
-
-    def method_missing method, *args
-      yield_container, return_container = __react__(method, args)
-      yield *yield_container.value if yield_container && block_given?
-      __return__(method, return_container)
-    end
-  private
-    def __return__ method, return_container
-      return *return_container.value if return_container
-      return @parent.stub(:"#{@name}/#{method}", :recursive => true) if @recursive
-      nil
-    end
-  
-    def __react__ method, args
-      yield_container, return_container = nil, nil
-      @parent.calls << Call.new(@name, method, args)
-      first_match = @parent.first_match(@name, method, args)
-      if first_match
-        first_match.raiser.execute if first_match.raiser
-        yield_container, return_container =  first_match.yield_container, first_match.return_container
-      end
-      return yield_container, return_container
-    end
-  end
+module Orangutan
+  class StubBase
+    instance_methods.each { |m| undef_method m unless m =~ /^__/ }
+
+    def initialize name, parent, recursive=false
+      @name, @parent, @recursive = name, parent, recursive
+    end
+
+    def method_missing method, *args
+      yield_container, return_container = __react__(method, args)
+      if yield_container && block_given?
+        yield_container.value.each {|v| yield *v }
+      end
+      __return__(method, return_container)
+    end
+  private
+    def __return__ method, return_container
+      return *return_container.value if return_container
+      return @parent.stub(:"#{@name}/#{method}", :recursive => true) if @recursive
+      nil
+    end
+  
+    def __react__ method, args
+      yield_container, return_container = nil, nil
+      @parent.calls << Call.new(@name, method, args)
+      first_match = @parent.first_match(@name, method, args)
+      if first_match
+        first_match.raiser.execute if first_match.raiser
+        yield_container, return_container =  first_match.yield_container, first_match.return_container
+      end
+      return yield_container, return_container
+    end
+  end
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: orangutan
 version: !ruby/object:Gem::Version 
-  version: 0.0.4
+  version: 0.0.5
 platform: ruby
 authors: 
 - Mark Ryall
@@ -9,48 +9,39 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2009-05-13 00:00:00 +10:00
+date: 2009-12-23 00:00:00 +11:00
 default_executable: 
 dependencies: []
 
-description: A mocking library that supports creation of ironruby mock objects (in addition to pure ruby ones)
+description: |
+  A mocking library that supports creation of ironruby mock objects (in addition to pure ruby ones)
+
 email: mark@ryall.name
 executables: []
 
 extensions: []
 
-extra_rdoc_files: 
-- README
+extra_rdoc_files: []
+
 files: 
-- README
-- Rakefile
-- VERSION.yml
-- lib/orangutan.rb
 - lib/orangutan/call.rb
 - lib/orangutan/chantek.rb
 - lib/orangutan/container.rb
 - lib/orangutan/expectation.rb
+- lib/orangutan/mock_adapter.rb
 - lib/orangutan/raiser.rb
+- lib/orangutan/reflector.rb
 - lib/orangutan/stub_base.rb
-- orangutan.gemspec
-- prepare.cmd
-- spec/clr/ClassWithANonVirtualMethod.cs
-- spec/clr/ClassWithANonVirtualProperty.cs
-- spec/clr/ClassWithAVirtualMethod.cs
-- spec/clr/ClassWithAVirtualProperty.cs
-- spec/clr/Consumer.cs
-- spec/clr/IHaveAMethod.cs
-- spec/clr/IHaveAProperty.cs
-- spec/clr/IHaveAnEvent.cs
-- spec/spec_chantek.rb
-- spec/spec_chantek_clr.rb
-- spec/spec_chantek_recurse.rb
-- spec/spec_expectation.rb
+- lib/orangutan.rb
+- README
+- MIT-LICENSE
 has_rdoc: true
 homepage: http://github.com/markryall/orangutan
+licenses: []
+
 post_install_message: 
-rdoc_options: 
-- --charset=UTF-8
+rdoc_options: []
+
 require_paths: 
 - lib
 required_ruby_version: !ruby/object:Gem::Requirement 
@@ -67,13 +58,10 @@ required_rubygems_version: !ruby/object:Gem::Requirement
   version: 
 requirements: []
 
-rubyforge_project: orangutan
-rubygems_version: 1.3.1
+rubyforge_project: 
+rubygems_version: 1.3.5
 signing_key: 
-specification_version: 2
+specification_version: 3
 summary: A mock objects library
-test_files: 
-- spec/spec_chantek.rb
-- spec/spec_chantek_clr.rb
-- spec/spec_chantek_recurse.rb
-- spec/spec_expectation.rb
+test_files: []
+

data/Rakefile

@@ -1,34 +0,0 @@
-desc 'build necessary assemblies for tests'
-task 'spec/ClassLibrary.dll' => FileList["spec/**/*.cs"] do
-  system "csc /target:library /out:spec\\ClassLibrary.dll  spec\\clr\\*.cs"
-end
-
-task :compile => 'spec/ClassLibrary.dll'
-
-desc 'run specs with bacon on ironruby'
-task :bacon => :compile do
-  system "ibacon -Ispec -a"
-end
-
-(1..4).each do |i|
-  desc "run spike #{i}"
-  task "spike#{i}" do
-    system "ir -I spec -I spikes spikes\\experiment#{i}.rb"
-  end
-end
-
-begin
-  require 'jeweler'
-  Jeweler::Tasks.new do |gemspec|
-    gemspec.name = "orangutan"
-    gemspec.summary = "A mock objects library"
-    gemspec.email = "mark@ryall.name"
-    gemspec.homepage = "http://github.com/markryall/orangutan"
-    gemspec.description = "A mocking library that supports creation of ironruby mock objects (in addition to pure ruby ones)"
-    gemspec.files = FileList["[A-Z]*", "{lib,spec}/**/*.{rb,cs}"]
-    gemspec.authors = ["Mark Ryall"]
-    gemspec.rubyforge_project = 'orangutan'
-  end
-rescue LoadError
-  puts "Jeweler not available. Install it with: sudo gem install jeweler"
-end

data/VERSION.yml

@@ -1,4 +0,0 @@
---- 
-:minor: 0
-:patch: 4
-:major: 0

data/orangutan.gemspec

@@ -1,64 +0,0 @@
-# -*- encoding: utf-8 -*-
-
-Gem::Specification.new do |s|
-  s.name = %q{orangutan}
-  s.version = "0.0.4"
-
-  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
-  s.authors = ["Mark Ryall"]
-  s.date = %q{2009-05-13}
-  s.description = %q{A mocking library that supports creation of ironruby mock objects (in addition to pure ruby ones)}
-  s.email = %q{mark@ryall.name}
-  s.extra_rdoc_files = [
-    "README"
-  ]
-  s.files = [
-    "README",
-     "Rakefile",
-     "VERSION.yml",
-     "lib/orangutan.rb",
-     "lib/orangutan/call.rb",
-     "lib/orangutan/chantek.rb",
-     "lib/orangutan/container.rb",
-     "lib/orangutan/expectation.rb",
-     "lib/orangutan/raiser.rb",
-     "lib/orangutan/stub_base.rb",
-     "orangutan.gemspec",
-     "prepare.cmd",
-     "spec/clr/ClassWithANonVirtualMethod.cs",
-     "spec/clr/ClassWithANonVirtualProperty.cs",
-     "spec/clr/ClassWithAVirtualMethod.cs",
-     "spec/clr/ClassWithAVirtualProperty.cs",
-     "spec/clr/Consumer.cs",
-     "spec/clr/IHaveAMethod.cs",
-     "spec/clr/IHaveAProperty.cs",
-     "spec/clr/IHaveAnEvent.cs",
-     "spec/spec_chantek.rb",
-     "spec/spec_chantek_clr.rb",
-     "spec/spec_chantek_recurse.rb",
-     "spec/spec_expectation.rb"
-  ]
-  s.has_rdoc = true
-  s.homepage = %q{http://github.com/markryall/orangutan}
-  s.rdoc_options = ["--charset=UTF-8"]
-  s.require_paths = ["lib"]
-  s.rubyforge_project = %q{orangutan}
-  s.rubygems_version = %q{1.3.1}
-  s.summary = %q{A mock objects library}
-  s.test_files = [
-    "spec/spec_chantek.rb",
-     "spec/spec_chantek_clr.rb",
-     "spec/spec_chantek_recurse.rb",
-     "spec/spec_expectation.rb"
-  ]
-
-  if s.respond_to? :specification_version then
-    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
-    s.specification_version = 2
-
-    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
-    else
-    end
-  else
-  end
-end

data/prepare.cmd

@@ -1,11 +0,0 @@
-call path_git
-call path_bacon
-call path_ironruby
-call path_msbuild
-pushd %BACON_HOME%
-git pull
-popd
-pushd %IRONRUBY_HOME%
-git pull
-msbuild Merlin\Main\Languages\Ruby\Ruby.sln
-popd

data/spec/clr/ClassWithANonVirtualMethod.cs

@@ -1,13 +0,0 @@
-using System;
-
-namespace ClassLibrary
-{
-	public class ClassWithANonVirtualMethod : IHaveAMethod
-	{		
-		public bool MyMethod(string parameter)
-		{
-			Console.WriteLine("clr method was called with " + parameter);
-			return true;
-		}
-	}
-}

data/spec/clr/ClassWithANonVirtualProperty.cs

@@ -1,22 +0,0 @@
-using System;
-
-namespace ClassLibrary
-{
-	public class ClassWithANonVirtualProperty : IHaveAProperty
-	{
-		private string _MyProperty;
-		public string MyProperty
-		{
-			get
-			{
-				Console.WriteLine("clr getter called");
-				return _MyProperty;
-			}
-			set
-			{
-				Console.WriteLine("clr setter called");
-				_MyProperty = value;
-			}
-		}
-	}
-}

data/spec/clr/ClassWithAVirtualMethod.cs

@@ -1,13 +0,0 @@
-using System;
-
-namespace ClassLibrary
-{
-	public class ClassWithAnVirtualMethod : IHaveAMethod
-	{		
-		public virtual bool MyMethod(string parameter)
-		{
-			Console.WriteLine("clr method was called with " + parameter);
-			return true;
-		}
-	}
-}

data/spec/clr/ClassWithAVirtualProperty.cs

@@ -1,22 +0,0 @@
-using System;
-
-namespace ClassLibrary
-{
-	public class ClassWithAVirtualProperty : IHaveAProperty
-	{
-		private string _MyProperty;
-		public virtual string MyProperty
-		{
-			get
-			{
-				Console.WriteLine("clr getter called");
-				return _MyProperty;
-			}
-			set
-			{
-				Console.WriteLine("clr setter called");
-				_MyProperty = value;
-			}
-		}
-	}
-}

data/spec/clr/Consumer.cs

@@ -1,30 +0,0 @@
-using System;
-
-namespace ClassLibrary
-{
-	public class Consumer 
-	{
-		private int count = 0;
-		
-		public void CallMethod(IHaveAMethod consumable)
-		{
-			consumable.MyMethod("thing");
-		}
-		
-		public void RegisterEvent(IHaveAnEvent e)
-		{
-			e.MyEvent += (s,ev) => Console.WriteLine(s);
-		}
-		
-		public void CallSetter(IHaveAProperty p)
-		{
-			p.MyProperty = ""+count;
-			count++;
-		}
-
-		public void CallGetter(IHaveAProperty p)
-		{
-			Console.WriteLine(p.MyProperty);
-		}
-	}
-}

data/spec/clr/IHaveAMethod.cs

@@ -1,9 +0,0 @@
-using System;
-
-namespace ClassLibrary
-{
-	public interface IHaveAMethod
-	{
-		bool MyMethod(string parameter);
-	}
-}

data/spec/clr/IHaveAProperty.cs

@@ -1,9 +0,0 @@
-using System;
-
-namespace ClassLibrary
-{
-	public interface IHaveAProperty
-	{
-		String MyProperty { get; set; }
-	}
-}

data/spec/clr/IHaveAnEvent.cs

@@ -1,9 +0,0 @@
-using System;
-
-namespace ClassLibrary
-{
-	public interface IHaveAnEvent
-	{
-		event EventHandler<EventArgs> MyEvent;
-	}
-}

data/spec/spec_chantek.rb

@@ -1,84 +0,0 @@
-require 'orangutan'
-
-describe Orangutan::Chantek, 'creating ruby stubs' do
-  before do
-    @o = Orangutan::Chantek.new
-    @foo = @o.stub :foo
-  end
-
-  it 'should record method calls and their parameters on a stub' do
-    @foo.method1(1,2,3)
-    @o.calls[0].should == Orangutan::Call.new(:foo, :method1, [1,2,3])
-  end
-
-  it 'should record all ordinary object methods calls (except __send__ and __id__)' do
-    methods = Object.new.methods
-    methods.each { |m| @foo.__send__(m.to_sym) unless m =~ /^__/ }
-    @o.calls.length.should == (methods.length-2)
-  end
-
-  it 'should allow method return values to be stubbed' do
-    @o.when(:foo).receives(:bar).return('baz')
-    @foo.bar.should == 'baz'
-  end
-  
-  it 'should allow multiple method return values to be stubbed' do
-    @o.when(:foo).receives(:bar).return('baz', 'bat')
-    @foo.bar.should == ['baz', 'bat']
-  end
-
-  it 'should allow method return values to be stubbed for method invocations with specific arguments' do
-    @o.when(:foo).receives(:bar).with(7).return('baz')
-    @foo.bar(7).should == 'baz'
-  end
-
-  it 'should not match method invocations with incorrect specific arguments' do
-    @o.when(:foo).receives(:bar).with(7).return('baz')
-    @foo.bar(8).should == nil
-  end
-
-  it 'should allow method return values to be stubbed for method invocations with multiple specific arguments' do
-    @o.when(:foo).receives(:bar).with(7,8).return('baz')
-    @foo.bar(7,8).should == 'baz'
-  end
-  
-  it 'should allow stubbed methods to yield' do
-    @o.when(:foo).receives(:bar).with(7).yield('baz')
-    @foo.bar(7) do |v|
-      v.should == 'baz'
-    end
-  end
-
-  it 'should allow stubbed methods to yield multiple values' do
-    @o.when(:foo).receives(:bar).with(7).yield('baz', 'bar')
-    @foo.bar(7) do |a,b|
-      a.should == 'baz'
-      b.should == 'bar'
-    end
-  end
-
-  it 'should allow stubbed methods to yield nils' do
-    @o.when(:foo).receives(:bar).yield(nil)
-    called = false
-    @foo.bar {|s| called = true}
-    called.should == true
-  end
-
-  it 'should allow stubbed methods to raise error from string' do
-    @o.when(:foo).receives(:bar).raise("you can't be serious")
-    begin
-      @foo.bar
-    rescue RuntimeError => e
-      e.message.should == "you can't be serious"
-    end
-  end
-  
-  it 'should allow stubbed methods to raise error from string' do
-    @o.when(:foo).receives(:bar).raise(RuntimeError, "you can't be serious")
-    begin
-      @foo.bar
-    rescue RuntimeError => e
-      e.message.should == "you can't be serious"
-    end
-  end
-end

data/spec/spec_chantek_clr.rb

@@ -1,12 +0,0 @@
-require 'orangutan'
-require 'ClassLibrary.dll'
-
-describe Orangutan::Chantek, 'creating clr stubs' do
-  it 'should create stub implementations of a clr interface with a method' do
-    o = Orangutan::Chantek.new
-    s = o.stub :foo, :clr_interface => ClassLibrary::IHaveAMethod
-    c = ClassLibrary::Consumer.new
-    c.call_method(s) 
-    o.calls[0].should == Orangutan::Call.new(:foo, :my_method, ['thing'])
-  end
-end

data/spec/spec_chantek_recurse.rb

@@ -1,31 +0,0 @@
-require 'orangutan'
-
-module Orangutan
-  describe Chantek, 'creating recursive ruby stubs' do
-    before do
-      @o = Chantek.new
-      @foo = @o.stub :foo, :recursive => true
-    end
-    
-    it "should return the same object when generating a stub for the same name" do
-      @foo.__id__.should. == @o.stub(:foo).__id__
-    end
-    
-    it "should return nil instead of new stub when instructed to" do
-      @o.when(:foo).receives(:bar).return(nil)
-      @foo.bar.should == nil
-    end
-
-    it "should return new stubs from each method call" do
-      bar = @foo.bar
-      baz = bar.baz
-      @o.calls[0].should == Call.new(:foo, :bar,[])
-      @o.calls[1].should == Call.new(:"foo/bar", :baz,[])
-    end
-
-    it "should create recursive stubs" do
-      @foo.a.b.c
-      @o.stubs.keys.should == [:foo, :"foo/a", :"foo/a/b", :"foo/a/b/c"]
-    end
-  end
-end

data/spec/spec_expectation.rb

@@ -1,103 +0,0 @@
-require 'orangutan'
-
-module Orangutan
-  describe Expectation do
-    before do
-      @e = Expectation.new.receives(:foo)
-    end
-  
-    it 'should not match when method is different' do
-      @e.matches?(:bar).should == false
-    end
-  
-    it 'should match when method matches and args are unspecified' do
-      @e.matches?(:foo).should == true
-    end
-    
-    it 'should match when method matches and args match' do
-      @e.with(7).matches?(:foo, 7).should == true
-    end
-    
-    it 'should not match when method matches but args do not match' do
-      @e.with(7).matches?(:foo, 8).should == false
-    end
-  
-    it 'should not yield by default' do
-      @e.yield_container.should == nil
-    end
-  
-    it 'should store yield value' do
-      @e.yield(1).yield_container.should == Container.new([1])
-    end
-
-    it 'should store multiple yield values' do
-      @e.yield(1,2).yield_container.should == Container.new([1,2])
-    end
-    
-    it 'should not return by default' do
-      @e.return_container.should == nil
-    end
-    
-    it 'should store return value' do
-      @e.return(1).return_container.should == Container.new([1])
-    end
-
-    it 'should store multiple return values' do
-      @e.return(1,2).return_container.should == Container.new([1,2])
-    end
-    
-    it 'should not raise by default' do
-      @e.raiser.should == nil
-    end
-    
-    it 'should store raiser' do
-      @e.raise('description').raiser.should.not == nil
-    end
-    
-    it 'should count matches' do
-      (1..10).each do |i|
-        @e.matches?(:foo)
-        @e.count.should == i
-      end
-    end
-
-    it 'should limit matches when given limit of once' do
-      @e.once.should == @e
-      @e.matches?(:foo).should == true
-      @e.matches?(:foo).should == false
-    end  
-    
-    it 'should limit matches when given limit of twice' do
-      @e.twice.should == @e
-      2.times { @e.matches?(:foo).should == true }
-      @e.matches?(:foo).should == false
-    end
-
-    it 'should limit matches' do
-      @e.exactly(10).times.should == @e
-      10.times { @e.matches?(:foo).should == true }
-      @e.matches?(:foo).should == false
-    end
-    
-    it 'should initially indicate that expectation was not matched' do
-      @e.should.not.be.matched?
-    end
-  
-    it 'should when no limit specified indicate that the expectation was matched once' do
-      @e.matches?(:foo)
-      @e.should.be.matched?
-    end
-    
-    it 'should when a limit specified indicate that the expectation was not matched until the is limit reached' do
-      @e.twice
-      @e.matches?(:foo)
-      @e.should.not.be.matched?
-    end
-
-    it 'should when a limit specified indicate that the expectation was matched once the is limit reached' do
-      @e.twice
-      2.times { @e.matches?(:foo) }
-      @e.should.be.matched?
-    end
-  end
-end