test-more 0.0.1

data/.gemspec

@@ -0,0 +1,18 @@
+# encoding: utf-8
+
+GemSpec = Gem::Specification.new do |gem|
+  gem.name = 'test-more'
+  gem.version = '0.0.1'
+  gem.license = 'MIT'
+  gem.required_ruby_version = '>= 1.9.1'
+
+  gem.authors << 'Ingy döt Net'
+  gem.email = 'ingy@ingy.net'
+  gem.summary = "Port of Perl's Test::More TAP test framework"
+  gem.description = <<-'.'
+Port of Perl's Test::More TAP test framework.
+.
+  gem.homepage = 'http://acmeism.org'
+
+  gem.files = `git ls-files`.lines.map{|l|l.chomp}
+end

data/LICENSE

@@ -0,0 +1,21 @@
+(The MIT License)
+
+Copyright © 2013 Ingy döt Net
+
+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 NON-INFRINGEMENT. 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/Rakefile

@@ -0,0 +1,67 @@
+# Load Gem constants from the gemspec
+GemSpecFile = '.gemspec'
+load GemSpecFile
+GemName = GemSpec.name
+GemVersion = GemSpec.version
+GemDir = "#{GemName}-#{GemVersion}"
+GemFile = "#{GemDir}.gem"
+DevNull = '2>/dev/null'
+
+# Require the Rake libraries
+require 'rake'
+require 'rake/testtask'
+require 'rake/clean'
+if File.exists? 'test/testml.yaml'
+  if File.exists? 'lib/rake/testml.rb'
+    $:.unshift "#{Dir.getwd}/lib"
+  end
+  require 'rake/testml'
+end
+
+task :default => 'help'
+
+CLEAN.include GemDir, GemFile, 'data.tar.gz', 'metadata.gz'
+
+desc 'Run the tests'
+task :test do
+  system 'prove test/'
+end
+
+desc 'Build the gem'
+task :build => [:clean, :test] do
+  sh "gem build #{GemSpecFile}"
+end
+
+desc 'Install the gem'
+task :install => [:build] do
+  sh "gem install #{GemFile}"
+end
+
+desc 'Build, unpack and inspect the gem'
+task :distdir => [:build] do
+  sh "tar xf #{GemFile} #{DevNull}"
+  Dir.mkdir GemDir
+  Dir.chdir GemDir
+  sh "tar xzf ../data.tar.gz #{DevNull}"
+  puts "\n>>> Entering sub-shell for #{GemDir}..."
+  system ENV['SHELL']
+end
+
+desc 'Build and push the gem'
+task :release => [:build] do
+  sh "gem push #{GemFile}"
+end
+
+desc 'Print a description of the gem'
+task :desc do
+  puts "Gem: '#{GemName}' (version #{GemVersion})"
+  puts
+  puts GemSpec.description.gsub /^/, '  '
+end
+
+desc 'List the Rakefile tasks'
+task :help do
+  puts 'The following rake tasks are available:'
+  puts
+  puts `rake -T`.gsub /^/, '  '
+end

data/lib/test/more.rb

@@ -0,0 +1,223 @@
+module Test
+  module More
+    def ok got, label
+      if got
+        pass label
+      else
+        failed label
+      end
+    end
+
+    def use_ok library, label
+      fail "Test::More##{__method__.to_s} not yet implemented"
+    end
+
+    def require_ok library, label
+      fail "Test::More##{__method__.to_s} not yet implemented"
+    end
+
+    def is got, want, label
+      if got.to_s == want.to_s
+        pass label
+      else
+        failed label
+        diag "\
+      got: '#{got}'
+ expected: '#{want}'"
+      end
+    end
+
+    def isnt got, dont, label
+      if got.to_s != want.to_s
+        pass label
+      else
+        failed label
+        diag "\
+      got: '#{got}'
+ expected: anything else"
+      end
+    end
+
+    def like got, regex, label
+      if got =~ regex
+        pass label
+      else
+        failed label
+        diag "Got: '#{got}'"
+      end
+    end
+
+    def unlike got, regex, label
+      if got !~ regex
+        pass label
+      else
+        failed label
+        diag "Got: '#{got}'"
+      end
+    end
+
+    def is_deeply got, want, label
+      fail "Test::More##{__method__.to_s} not yet implemented"
+    end
+
+    def cmp_ok got, want, label
+      fail "Test::More##{__method__.to_s} not yet implemented"
+    end
+
+    def skip reason
+      fail "Test::More##{__method__.to_s} not yet implemented"
+    end
+
+    def todo label
+      fail "Test::More##{__method__.to_s} not yet implemented"
+    end
+
+    def todo_skip got, want, label
+      fail "Test::More##{__method__.to_s} not yet implemented"
+    end
+
+    def pass label
+      $test_more.run_incr
+      if ! label.empty?
+        puts "ok #{$test_more.run} - #{label}"
+        $stderr.flush
+      else
+        puts "ok #{$test_more.run}"
+      end
+      $stdout.flush
+    end
+
+    def failed label
+      $test_more.run_incr
+      $test_more.failed_incr
+      if ! label.empty?
+        puts "not ok #{$test_more.run} - #{label}"
+      else
+        puts "not ok #{$test_more.run}"
+      end
+      $stdout.flush
+    end
+
+    def eq_array got, label
+      fail "Test::More##{__method__.to_s} not yet implemented"
+    end
+
+    def eq_hash got, label
+      fail "Test::More##{__method__.to_s} not yet implemented"
+    end
+
+    def eq_set got, label
+      fail "Test::More##{__method__.to_s} not yet implemented"
+    end
+
+    def plan cmd, arg
+      fail 'Usage: plan tests <number>' unless cmd and arg
+      if cmd == 'tests'
+        fail 'Plan must be a number' unless arg.to_s =~ /^-?[0-9]+$/
+        fail 'Plan must greater then 0' unless arg > 0
+        $test_more.plan = arg
+        puts "1..#{$test_more.plan}"
+      elsif cmd == 'skip_all'
+        puts "1..0 # SKIP #{arg}"
+        exit 0
+      else
+        fail 'Usage: plan tests <number>'
+      end
+      $stdout.flush
+    end
+
+    def done_testing count=nil
+      count ||= $test_more.run
+      puts "1..#{count}"
+      $stdout.flush
+    end
+
+    def can_ok method, label
+      fail "Test::More##{__method__.to_s} not yet implemented"
+    end
+
+    def isa_ok class_, label
+      fail "Test::More##{__method__.to_s} not yet implemented"
+    end
+
+    def new_ok class_, label
+      fail "Test::More##{__method__.to_s} not yet implemented"
+    end
+
+    def diag msg
+      fail unless msg
+      msg.gsub! /\n/, "\n# "
+      $stderr.puts "# #{msg}"
+      $stderr.flush
+    end
+
+    def note msg
+      fail unless msg
+      msg.gsub! /\n/, "\n# "
+      puts "# #{msg}"
+      $stdout.flush
+    end
+
+    def explain msg
+      fail "Test::More##{__method__.to_s} not yet implemented"
+    end
+
+    def subtest label, callback
+      fail "Test::More##{__method__.to_s} not yet implemented"
+    end
+
+    def BAIL_OUT reason
+      fail "Test::More##{__method__.to_s} not yet implemented"
+    end
+  end
+
+  class Test::Tap
+    attr_accessor :plan
+    attr_accessor :run
+    attr_accessor :failed
+
+    def initialize
+      @plan = 0
+      @run = 0
+      @failed = 0
+    end
+
+    def run_incr
+      @run += 1
+    end
+
+    def failed_incr
+      @failed += 1
+    end
+  end
+
+end
+
+$test_more = Test::Tap.new
+
+def at_exit
+  t = $test_more
+  if t.plan == 0
+    if t.run > 0
+      $stderr.puts "# Tests were run but no plan was declared."
+    end
+  else
+    if t.run == 0
+      $stderr.puts "# No tests run!"
+    elsif t.run != t.plan
+      msg = "# Looks like you planned #{t.plan} tests but ran #{t.run}."
+      msg.gsub! /tests/, 'test' if t.plan == 1
+      $stderr.puts msg
+    end
+  end
+  exit_code = 0
+  if t.failed > 0
+    exit_code = t.failed
+    exit_code = 254 if exit_code > 254
+    local msg = "# Looks like you failed #{t.failed tests} of #{t.run} run."
+    msg.gsub! /tests/, 'test' if t.failed == 1
+    $stderr.puts msg
+  end
+  $stderr.flush
+  exit exit_code
+end

data/readme.rdoc

@@ -0,0 +1,33 @@
+= test-more - Test::More for Ruby
+
+A port of Perl's ubiquitous Test::More TAP testing framework.
+
+= Synopsis
+
+Write files ending with +.t+ under +test/+, like +test/test1.t+:
+
+    #!/usr/bin/env ruby
+
+    $:.unshift "#{Dir.getwd}/lib"
+    require 'test/more'
+    include Test::More
+
+    # plan 'tests', 3
+
+    pass 'Yessss'
+    ok true, 'yup'
+    is 1, '1', 'one'
+
+    done_testing 3
+
+Then run the tests with the +prove+ utility like this:
+
+    prove -v test/
+
+You can test this gem with:
+
+    rake test
+
+= Copyright
+
+Copyright (c) 2013 Ingy döt Net. See LICENSE for further details.

data/test/basic.t

@@ -0,0 +1,13 @@
+#!/usr/bin/env ruby
+
+$:.unshift "#{Dir.getwd}/lib"
+require 'test/more'
+include Test::More
+
+# plan 'tests', 3
+
+pass 'Yessss'
+ok true, 'yup'
+is 1, '1', 'one'
+
+done_testing 3

metadata

@@ -0,0 +1,53 @@
+--- !ruby/object:Gem::Specification
+name: test-more
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+  prerelease: 
+platform: ruby
+authors:
+- Ingy döt Net
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-10-27 00:00:00.000000000 Z
+dependencies: []
+description: ! 'Port of Perl''s Test::More TAP test framework.
+
+'
+email: ingy@ingy.net
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .gemspec
+- LICENSE
+- Rakefile
+- lib/test/more.rb
+- readme.rdoc
+- test/basic.t
+homepage: http://acmeism.org
+licenses:
+- MIT
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: 1.9.1
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.23
+signing_key: 
+specification_version: 3
+summary: Port of Perl's Test::More TAP test framework
+test_files: []