testml-lite 0.0.1

data/.gemspec

@@ -0,0 +1,19 @@
+# encoding: utf-8
+
+GemSpec = Gem::Specification.new do |gem|
+  gem.name = 'testml-lite'
+  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 = 'Acmeist Unit Test Framework'
+  gem.description = <<-'.'
+TestML is an Acmeist testing framework. TestML::Lite is smaller bootstrap
+version of TestML.
+.
+  gem.homepage = 'http://testml.org'
+
+  gem.files = `git ls-files`.lines.map{|l|l.chomp}
+end

data/CHANGELOG.yaml

@@ -0,0 +1,3 @@
+- version: 0.0.1
+  date:    Tue Dec 18 19:54:09 PST 2012
+  changes: First release

data/Gemfile

@@ -0,0 +1,2 @@
+source 'https://rubygems.org'
+gemspec

data/LICENSE

@@ -0,0 +1,21 @@
+(The MIT License)
+
+Copyright © 2012 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/README.rdoc

@@ -0,0 +1,12 @@
+= testml-lite - Lite Version of TestML for Ruby
+
+TestML is an Acmeist Unit Test language/framework. TestML::Lite is a lighter,
+bootstrapping implementation of that.
+
+= Synopsis
+
+    require 'testml/lite'
+
+= Copyright
+
+Copyright (c) 2012 Ingy döt Net. See LICENSE for further details.

data/Rakefile

@@ -0,0 +1,64 @@
+# 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'
+
+task :default => 'help'
+
+CLEAN.include GemDir, GemFile, 'data.tar.gz', 'metadata.gz'
+
+desc 'Run the tests'
+task :test do
+  Rake::TestTask.new do |t|
+    t.verbose = true
+    t.test_files = FileList['test/*.rb']
+  end
+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/testml/lite.rb

@@ -0,0 +1,218 @@
+# Make sure tests have access to the application libs and the testing libs.
+$:.unshift Dir.getwd + '/lib'
+$:.unshift Dir.getwd + '/test/lib'
+
+require 'test/unit'
+
+module TestML
+  def self.run &runner
+    name = _get_test_name
+    $testml_runners[name] = runner
+    TestML::Lite::TestCases.send(:define_method, name) do
+      _run_runner name
+    end
+  end
+
+  def self.data data
+    $testml_data[_get_test_name] = data
+  end
+
+  def self.require_or_skip module_
+    require module_
+    rescue exit
+  end
+end
+
+$testml_runners ||= {}
+$testml_data ||= {}
+
+class TestML::Lite < Test::Unit::TestCase
+  def data input
+    unless input.match /\n/
+      File.open(input, 'r') {|f| input = f.read}
+    end
+    @testml = _parse_tml input
+  end
+
+  def label text
+    @label = text
+  end
+
+  def eval expr, callback=nil
+    _assert_testml
+    expr = _parse_expr expr if expr.kind_of? String
+    callback ||= method 'run_test'
+    _get_blocks(expr).each do |block|
+      $error = nil
+      callback.call(block, expr)
+      raise $error if $error
+    end
+  end
+
+  def run_test block, expr
+    expr = _parse_expr expr if expr.kind_of? String
+    block = _get_blocks(expr, [block]).first or return
+    _evaluate expr, block
+  end
+
+  def assert_equal got, want, block
+    label = block.kind_of?(String) ? block : block[:title]
+    if got != want
+      on_fail if respond_to? 'on_fail'
+      File.open('/tmp/got', 'w') {|f| f.write got}
+      File.open('/tmp/want', 'w') {|f| f.write want}
+      puts `diff -u /tmp/want /tmp/got`
+    end
+    super want, got, label
+  end
+
+  def assert_match got, want, block
+    label = block.kind_of?(String) ? block : block[:title]
+    super want, got, label
+  end
+
+  def Catch any=nil
+    fail "Catch called, but no error occurred" unless $error
+    error = $error
+    $error = nil
+    return error.message
+  end
+
+  def _run_runner name
+    @test_name = name
+    $testml_runners[name].call(self)
+  end
+
+  def _assert_testml
+    return if defined? @testml
+    raise "No testml data provided" unless $testml_data[@test_name]
+    data $testml_data[@test_name]
+  end
+
+  def _evaluate expr, block
+    expr = ['', expr] if expr.kind_of? String
+    func = expr.first
+    args = expr[1..expr.length-1].collect do |ex|
+      if ex.kind_of? Array
+        _evaluate ex, block
+      elsif ex =~ /\A\*(\w+)\z/
+        block[:points][$1]
+      else
+        ex
+      end
+    end
+    # TODO @error
+    return if $error and func != 'Catch'
+    return args.first if func.empty?
+    args << block if func =~ /^assert_/
+    begin
+      return method(func).call(*args)
+    rescue => e
+      $error = e
+    end
+  end
+
+  def _get_blocks expr, blocks=@testml
+    want = expr.flatten.grep(/^\*/).collect{|ex| ex.gsub /^\*/, ''}
+    only = blocks.select{|block| block['ONLY']}
+    blocks = only unless only.empty?
+    final = []
+    blocks.each do |block|
+      next if block['SKIP']
+      ok = true
+      want.each do |w|
+        unless block[:points][w]
+          ok = false
+          break
+        end
+      end
+      if ok
+        final << block
+        break if block['LAST']
+      end
+    end
+    return final
+  end
+
+  def _parse_expr expr
+    left, op, right = [], nil, nil
+    side = left
+    while expr.length != 0
+      t = _get_token expr
+      if t =~ /^(==|~~)$/
+        op = t == '==' ? 'assert_equal' : 'assert_match'
+        left = side
+        side = right = []
+      else
+        side = [side] if side.size >= 2
+        side.unshift t
+      end
+    end
+    right = side if right
+    return left unless right
+    left = left.first if left.size == 1
+    right = right.first if right.size == 1
+    return [op, left, right]
+  end
+
+  def _get_token expr
+    if expr.sub! /^(\w+)\(([^\)]+)\)\.?/, ''
+      token, args = [$1], $2
+      token.concat(
+        args.split(/,\s*/).map {|t| t.sub /^(['"])(.*)\1$/, '\2'}
+      )
+    elsif expr.sub! /^\s*(==|~~)\s*/, ''
+      token = $1
+    elsif expr.sub! /^([\*\w]+)\.?/, ''
+      token = $1
+    end
+    return token
+  end
+
+  def _parse_tml string
+    string.gsub! /^#.*\n/, ''
+    string.gsub! /^\\/, ''
+    string.gsub! /^\s*\n/, ''
+    blocks = string.split /(^===.*?(?=^===|\z))/m
+    blocks.reject!{|b| b.empty?}
+    blocks.each do |block|
+      block.gsub! /\n+\z/, "\n"
+    end
+
+    array = []
+    blocks.each do |string_block|
+      block = {}
+      string_block.gsub! /^===\ +(.*?)\ *\n/, '' \
+        or fail "No block title! #{string_block}"
+      block[:title] = $1
+      while !string_block.empty? do
+        if string_block.gsub! /\A---\ +(\w+):\ +(.*)\n/, '' or
+           string_block.gsub! /\A---\ +(\w+)\n(.*?)(?=^---|\z)/m, ''
+          key, value = $1, $2
+        else
+          raise "Failed to parse TestML string:\n#{string_block}"
+        end
+        block[:points] ||= {}
+        block[:points][key] = value
+
+        if key =~ /^(ONLY|SKIP|LAST)$/
+          block[key] = true
+        end
+      end
+      array << block
+    end
+    return array
+  end
+end
+
+# Find the first call stack entry that looks like: .../test/xxx-yyy.rb
+# and return 'test_xxx_yyy' as the test name.
+def _get_test_name
+  name = caller.map { |s|
+    s.split(':').first
+  }.grep(/(^|\/)test\/[-\w]+\.rb$/).first or fail
+  name.gsub!(/^(?:.*\/)?test\/([-\w+]+)\.rb$/, '\1').gsub(/[^\w]+/, '_')
+  return "test_#{name}"
+end
+
+module TestML::Lite::TestCases;end

data/test/lib/test_testml_lite.rb

@@ -0,0 +1,15 @@
+require './lib/testml/lite'
+
+class TestTestMLLite < TestML::Lite
+  include TestML::Lite::TestCases
+
+  def json_load json
+    require 'json'
+    JSON.load json
+  end
+
+  def yaml_dump object
+    require 'yaml'
+    YAML.dump(object).sub(/\A---\n/, '')
+  end
+end

data/test/test1.rb

@@ -0,0 +1,17 @@
+require './test/lib/test_testml_lite'
+
+TestML.require_or_skip 'json'
+TestML.require_or_skip 'yaml'
+
+TestML.run do |t|
+  t.eval '*json.json_load.yaml_dump == *yaml'
+end
+
+TestML.data <<'...'
+=== Array
+--- json: [1,2,3]
+--- yaml
+- 1
+- 2
+- 3
+...

metadata

@@ -0,0 +1,58 @@
+--- !ruby/object:Gem::Specification
+name: testml-lite
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+  prerelease: 
+platform: ruby
+authors:
+- Ingy döt Net
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-12-20 00:00:00.000000000 Z
+dependencies: []
+description: ! 'TestML is an Acmeist testing framework. TestML::Lite is smaller bootstrap
+
+  version of TestML.
+
+'
+email: ingy@ingy.net
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .gemspec
+- CHANGELOG.yaml
+- Gemfile
+- LICENSE
+- README.rdoc
+- Rakefile
+- lib/testml/lite.rb
+- test/lib/test_testml_lite.rb
+- test/test1.rb
+homepage: http://testml.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: Acmeist Unit Test Framework
+test_files: []