church 0.1.7 → 0.2.0

data/lib/church.rb

@@ -2,6 +2,7 @@ require 'church/lambda'
 require 'church/array'
 require 'church/hash'
 require 'church/io'
+require 'church/kernel'
 require 'church/math'
 require 'church/range'
 require 'church/utils'

data/lib/church/kernel.rb

@@ -0,0 +1,23 @@
+# TODO: Convince somebody on #ruby-core that this should be defined by default.
+class String
+  def >> obj
+    obj.send self
+  end
+end
+
+module Church::Kernel
+  # Our reference to the Kernel constant
+  KERNEL = ('ancestors' >> ('class' >> []))[-2]
+
+  # Reads and returns a single line from standard input.
+  GETS = -> { 'gets' >> KERNEL }
+
+  # Reads lines from standard input and prints their results after being passed to fn, terminating on EOF.
+  INTERACT = -> &fn {
+    line = GETS[]
+    line ? 0 : ('exit' >> KERNEL)
+    line = 'chomp' >> line
+    PUTS[fn[line]]
+    INTERACT[&fn]
+  }
+end

data/lib/church/version.rb

@@ -1,3 +1,3 @@
 module Church
-  VERSION = "0.1.7"
+  VERSION = "0.2.0"
 end

data/spec/io_spec.rb

@@ -36,3 +36,15 @@ describe 'TO_I' do
     expect(TO_I['12345']).to be 12345
   end
 end
+
+describe 'PRINT' do
+  it "should write its argument to standard output" do
+    expect(capture_stdout { PRINT['Alonzo'] }).to eq 'Alonzo'
+  end
+end
+
+describe 'PUTS' do
+  it "should write its argument to standard output with a newline" do
+    expect(capture_stdout { PUTS['Church'] }).to eq "Church\n"
+  end
+end

data/spec/kernel_spec.rb

@@ -0,0 +1,24 @@
+require 'spec_helper'
+require 'stringio'
+
+include Church::Kernel
+
+describe 'KERNEL' do
+  it "should be the same object as Kernel" do
+    expect(KERNEL).to be Kernel
+  end
+end
+
+describe 'GETS' do
+  it "should read a line from standard input" do
+    Kernel.should_receive :gets
+    GETS[]
+  end
+end
+
+describe 'INTERACT' do
+  it "should interact with user input" do
+    STDOUT.should_receive(:write).with('Ruby')
+    PRINT['Ruby']
+  end
+end

data/spec/spec_helper.rb

@@ -1,5 +1,6 @@
 require 'simplecov'
 require 'simplecov-console'
+require 'stringio'
 
 SimpleCov.add_filter '/spec'
 
@@ -10,4 +11,24 @@ SimpleCov.formatter = SimpleCov::Formatter::MultiFormatter[
 
 SimpleCov.start
 
+def capture_stdin(*args)
+  begin
+    $stdin = StringIO.new
+    $stdin.puts(args.shift) until args.empty?
+    $stdin.rewind
+    yield
+  ensure
+    $stdin = STDIN
+  end
+end
+
+def capture_stdout
+  old = $stdout
+  $stdout = fake = StringIO.new
+  yield
+  fake.string
+ensure
+  $stdout = old
+end
+
 require File.expand_path('../../lib/church', __FILE__)

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: church
 version: !ruby/object:Gem::Version
-  version: 0.1.7
+  version: 0.2.0
   prerelease: 
 platform: ruby
 authors:
@@ -92,6 +92,7 @@ files:
 - lib/church/array.rb
 - lib/church/hash.rb
 - lib/church/io.rb
+- lib/church/kernel.rb
 - lib/church/lambda.rb
 - lib/church/math.rb
 - lib/church/range.rb
@@ -100,6 +101,7 @@ files:
 - spec/array_spec.rb
 - spec/hash_spec.rb
 - spec/io_spec.rb
+- spec/kernel_spec.rb
 - spec/lambda_spec.rb
 - spec/math_spec.rb
 - spec/range_spec.rb
@@ -135,6 +137,7 @@ test_files:
 - spec/array_spec.rb
 - spec/hash_spec.rb
 - spec/io_spec.rb
+- spec/kernel_spec.rb
 - spec/lambda_spec.rb
 - spec/math_spec.rb
 - spec/range_spec.rb