haml 3.0.21 → 3.0.22

data/vendor/sass/test/sass/util_test.rb

@@ -1,275 +0,0 @@
-#!/usr/bin/env ruby
-require File.dirname(__FILE__) + '/../test_helper'
-require 'pathname'
-
-class UtilTest < Test::Unit::TestCase
-  include Sass::Util
-
-  class Dumpable
-    attr_reader :arr
-    def initialize; @arr = []; end
-    def _before_dump; @arr << :before; end
-    def _after_dump; @arr << :after; end
-    def _around_dump
-      @arr << :around_before
-      yield
-      @arr << :around_after
-    end
-    def _after_load; @arr << :loaded; end
-  end
-
-  def test_scope
-    assert(File.exist?(scope("Rakefile")))
-  end
-
-  def test_to_hash
-    assert_equal({
-        :foo => 1,
-        :bar => 2,
-        :baz => 3
-      }, to_hash([[:foo, 1], [:bar, 2], [:baz, 3]]))
-  end
-
-  def test_map_keys
-    assert_equal({
-        "foo" => 1,
-        "bar" => 2,
-        "baz" => 3
-      }, map_keys({:foo => 1, :bar => 2, :baz => 3}) {|k| k.to_s})
-  end
-
-  def test_map_vals
-    assert_equal({
-        :foo => "1",
-        :bar => "2",
-        :baz => "3"
-      }, map_vals({:foo => 1, :bar => 2, :baz => 3}) {|k| k.to_s})
-  end
-
-  def test_map_hash
-    assert_equal({
-        "foo" => "1",
-        "bar" => "2",
-        "baz" => "3"
-      }, map_hash({:foo => 1, :bar => 2, :baz => 3}) {|k, v| [k.to_s, v.to_s]})
-  end
-
-  def test_powerset
-    return unless Set[Set[]] == Set[Set[]] # There's a bug in Ruby 1.8.6 that breaks nested set equality
-    assert_equal([[].to_set].to_set,
-      powerset([]))
-    assert_equal([[].to_set, [1].to_set].to_set,
-      powerset([1]))
-    assert_equal([[].to_set, [1].to_set, [2].to_set, [1, 2].to_set].to_set,
-      powerset([1, 2]))
-    assert_equal([[].to_set, [1].to_set, [2].to_set, [3].to_set,
-        [1, 2].to_set, [2, 3].to_set, [1, 3].to_set, [1, 2, 3].to_set].to_set,
-      powerset([1, 2, 3]))
-  end
-
-  def test_restrict
-    assert_equal(0.5, restrict(0.5, 0..1))
-    assert_equal(1, restrict(2, 0..1))
-    assert_equal(1.3, restrict(2, 0..1.3))
-    assert_equal(0, restrict(-1, 0..1))
-  end
-
-  def test_merge_adjacent_strings
-    assert_equal(["foo bar baz", :bang, "biz bop", 12],
-      merge_adjacent_strings(["foo ", "bar ", "baz", :bang, "biz", " bop", 12]))
-    str = "foo"
-    assert_equal(["foo foo foo", :bang, "foo foo", 12],
-      merge_adjacent_strings([str, " ", str, " ", str, :bang, str, " ", str, 12]))
-  end
-
-  def test_intersperse
-    assert_equal(["foo", " ", "bar", " ", "baz"],
-      intersperse(%w[foo bar baz], " "))
-    assert_equal([], intersperse([], " "))
-  end
-
-  def test_substitute
-    assert_equal(["foo", "bar", "baz", 3, 4],
-      substitute([1, 2, 3, 4], [1, 2], ["foo", "bar", "baz"]))
-    assert_equal([1, "foo", "bar", "baz", 4],
-      substitute([1, 2, 3, 4], [2, 3], ["foo", "bar", "baz"]))
-    assert_equal([1, 2, "foo", "bar", "baz"],
-      substitute([1, 2, 3, 4], [3, 4], ["foo", "bar", "baz"]))
-
-    assert_equal([1, "foo", "bar", "baz", 2, 3, 4],
-      substitute([1, 2, 2, 2, 3, 4], [2, 2], ["foo", "bar", "baz"]))
-  end
-
-  def test_strip_string_array
-    assert_equal(["foo ", " bar ", " baz"],
-      strip_string_array([" foo ", " bar ", " baz "]))
-    assert_equal([:foo, " bar ", " baz"],
-      strip_string_array([:foo, " bar ", " baz "]))
-    assert_equal(["foo ", " bar ", :baz],
-      strip_string_array([" foo ", " bar ", :baz]))
-  end
-
-  def test_paths
-    assert_equal([[1, 3, 5], [2, 3, 5], [1, 4, 5], [2, 4, 5]],
-      paths([[1, 2], [3, 4], [5]]))
-    assert_equal([[]], paths([]))
-    assert_equal([[1, 2, 3]], paths([[1], [2], [3]]))
-  end
-
-  def test_lcs
-    assert_equal([1, 2, 3], lcs([1, 2, 3], [1, 2, 3]))
-    assert_equal([], lcs([], [1, 2, 3]))
-    assert_equal([], lcs([1, 2, 3], []))
-    assert_equal([1, 2, 3], lcs([5, 1, 4, 2, 3, 17], [0, 0, 1, 2, 6, 3]))
-
-    assert_equal([1], lcs([1, 2, 3, 4], [4, 3, 2, 1]))
-    assert_equal([1, 2], lcs([1, 2, 3, 4], [3, 4, 1, 2]))
-  end
-
-  def test_lcs_with_block
-    assert_equal(["1", "2", "3"],
-      lcs([1, 4, 2, 5, 3], [1, 2, 3]) {|a, b| a == b && a.to_s})
-    assert_equal([-4, 2, 8],
-      lcs([-5, 3, 2, 8], [-4, 1, 8]) {|a, b| (a - b).abs <= 1 && [a, b].max})
-  end
-
-  def test_silence_warnings
-    old_stderr, $stderr = $stderr, StringIO.new
-    warn "Out"
-    assert_equal("Out\n", $stderr.string)
-    silence_warnings {warn "In"}
-    assert_equal("Out\n", $stderr.string)
-  ensure
-    $stderr = old_stderr
-  end
-
-  def test_sass_warn
-    assert_warning("Foo!") {sass_warn "Foo!"}
-  end
-
-  def test_silence_sass_warnings
-    old_stderr, $stderr = $stderr, StringIO.new
-    silence_sass_warnings {warn "Out"}
-    assert_equal("Out\n", $stderr.string)
-    silence_sass_warnings {sass_warn "In"}
-    assert_equal("Out\n", $stderr.string)
-  ensure
-    $stderr = old_stderr
-  end
-
-  def test_has
-    assert(has?(:instance_method, String, :chomp!))
-    assert(has?(:private_instance_method, Sass::Engine, :parse_interp))
-  end
-
-  def test_enum_with_index
-    assert_equal(%w[foo0 bar1 baz2],
-      enum_with_index(%w[foo bar baz]).map {|s, i| "#{s}#{i}"})
-  end
-
-  def test_enum_cons
-    assert_equal(%w[foobar barbaz],
-      enum_cons(%w[foo bar baz], 2).map {|s1, s2| "#{s1}#{s2}"})
-  end
-
-  def test_ord
-    assert_equal(102, ord("f"))
-    assert_equal(98, ord("bar"))
-  end
-
-  def test_flatten
-    assert_equal([1, 2, 3], flatten([1, 2, 3], 0))
-    assert_equal([1, 2, 3], flatten([1, 2, 3], 1))
-    assert_equal([1, 2, 3], flatten([1, 2, 3], 2))
-
-    assert_equal([[1, 2], 3], flatten([[1, 2], 3], 0))
-    assert_equal([1, 2, 3], flatten([[1, 2], 3], 1))
-    assert_equal([1, 2, 3], flatten([[1, 2], 3], 2))
-
-    assert_equal([[[1], 2], [3], 4], flatten([[[1], 2], [3], 4], 0))
-    assert_equal([[1], 2, 3, 4], flatten([[[1], 2], [3], 4], 1))
-    assert_equal([1, 2, 3, 4], flatten([[[1], 2], [3], 4], 2))
-  end
-
-  def test_set_hash
-    assert(set_hash(Set[1, 2, 3]) == set_hash(Set[3, 2, 1]))
-    assert(set_hash(Set[1, 2, 3]) == set_hash(Set[1, 2, 3]))
-
-    s1 = Set[]
-    s1 << 1
-    s1 << 2
-    s1 << 3
-    s2 = Set[]
-    s2 << 3
-    s2 << 2
-    s2 << 1
-    assert(set_hash(s1) == set_hash(s2))
-  end
-
-  def test_set_eql
-    assert(set_eql?(Set[1, 2, 3], Set[3, 2, 1]))
-    assert(set_eql?(Set[1, 2, 3], Set[1, 2, 3]))
-
-    s1 = Set[]
-    s1 << 1
-    s1 << 2
-    s1 << 3
-    s2 = Set[]
-    s2 << 3
-    s2 << 2
-    s2 << 1
-    assert(set_eql?(s1, s2))
-  end
-
-  def test_caller_info
-    assert_equal(["/tmp/foo.rb", 12, "fizzle"], caller_info("/tmp/foo.rb:12: in `fizzle'"))
-    assert_equal(["/tmp/foo.rb", 12, nil], caller_info("/tmp/foo.rb:12"))
-    assert_equal(["(sass)", 12, "blah"], caller_info("(sass):12: in `blah'"))
-    assert_equal(["", 12, "boop"], caller_info(":12: in `boop'"))
-    assert_equal(["/tmp/foo.rb", -12, "fizzle"], caller_info("/tmp/foo.rb:-12: in `fizzle'"))
-    assert_equal(["/tmp/foo.rb", 12, "fizzle"], caller_info("/tmp/foo.rb:12: in `fizzle {}'"))
-  end
-
-  def test_version_gt
-    assert_version_gt("2.0.0", "1.0.0")
-    assert_version_gt("1.1.0", "1.0.0")
-    assert_version_gt("1.0.1", "1.0.0")
-    assert_version_gt("1.0.0", "1.0.0.rc")
-    assert_version_gt("1.0.0.1", "1.0.0.rc")
-    assert_version_gt("1.0.0.rc", "0.9.9")
-    assert_version_gt("1.0.0.beta", "1.0.0.alpha")
-
-    assert_version_eq("1.0.0", "1.0.0")
-    assert_version_eq("1.0.0", "1.0.0.0")
-  end
-
-  def assert_version_gt(v1, v2)
-    #assert(version_gt(v1, v2), "Expected #{v1} > #{v2}")
-    assert(!version_gt(v2, v1), "Expected #{v2} < #{v1}")
-  end
-
-  def assert_version_eq(v1, v2)
-    assert(!version_gt(v1, v2), "Expected #{v1} = #{v2}")
-    assert(!version_gt(v2, v1), "Expected #{v2} = #{v1}")
-  end
-
-  def test_dump_and_load
-    obj = Dumpable.new
-    data = dump(obj)
-    assert_equal([:before, :around_before, :around_after, :after], obj.arr)
-    obj2 = load(data)
-    assert_equal([:before, :around_before, :loaded], obj2.arr)
-  end
-
-  class FooBar
-    def foo
-      Sass::Util.abstract(self)
-    end
-  end
-
-  def test_abstract
-    assert_raise_message(NotImplementedError,
-      "UtilTest::FooBar must implement #foo") {FooBar.new.foo}
-  end
-
-end

data/vendor/sass/test/test_helper.rb

@@ -1,64 +0,0 @@
-lib_dir = File.dirname(__FILE__) + '/../lib'
-
-require 'test/unit'
-require 'fileutils'
-$:.unshift lib_dir unless $:.include?(lib_dir)
-require 'sass'
-
-Sass::RAILS_LOADED = true unless defined?(Sass::RAILS_LOADED)
-
-module Sass::Script::Functions
-  module UserFunctions; end
-  include UserFunctions
-
-  def option(name)
-    Sass::Script::String.new(@options[name.value.to_sym].to_s)
-  end
-end
-
-class Test::Unit::TestCase
-  def munge_filename(opts = {})
-    return if opts.has_key?(:filename)
-    opts[:filename] = filename_for_test(opts[:syntax] || :sass)
-  end
-
-  def filename_for_test(syntax = :sass)
-    test_name = caller.
-      map {|c| Sass::Util.caller_info(c)[2]}.
-      compact.
-      map {|c| c.sub(/^(block|rescue) in /, '')}.
-      find {|c| c =~ /^test_/}
-    "#{test_name}_inline.#{syntax}"
-  end
-
-  def clean_up_sassc
-    path = File.dirname(__FILE__) + "/../.sass-cache"
-    FileUtils.rm_r(path) if File.exist?(path)
-  end
-
-  def assert_warning(message)
-    the_real_stderr, $stderr = $stderr, StringIO.new
-    yield
-
-    if message.is_a?(Regexp)
-      assert_match message, $stderr.string.strip
-    else
-      assert_equal message.strip, $stderr.string.strip
-    end
-  ensure
-    $stderr = the_real_stderr
-  end
-
-  def silence_warnings(&block)
-    Sass::Util.silence_warnings(&block)
-  end
-
-  def assert_raise_message(klass, message)
-    yield
-  rescue Exception => e
-    assert_instance_of(klass, e)
-    assert_equal(message, e.message)
-  else
-    flunk "Expected exception #{klass}, none raised"
-  end
-end

data/vendor/sass/yard/callbacks.rb

@@ -1,29 +0,0 @@
-class CallbacksHandler < YARD::Handlers::Ruby::Legacy::Base
-  handles /\Adefine_callback(\s|\()/
-
-  def process
-    callback_name = tokval(statement.tokens[2])
-    attr_index = statement.comments.each_with_index {|c, i| break i if c[0] == ?@}
-    if attr_index.is_a?(Fixnum)
-      docstring = statement.comments[0...attr_index]
-      attrs = statement.comments[attr_index..-1]
-    else
-      docstring = statement.comments
-      attrs = []
-    end
-
-    yieldparams = ""
-    attrs.reject! do |a|
-      next unless a =~ /^@yield *(\[.*?\])/
-      yieldparams = $1
-      true
-    end
-
-    o = register(MethodObject.new(namespace, "on_#{callback_name}", scope))
-    o.docstring = docstring + [
-      "@return [void]",
-      "@yield #{yieldparams} When the callback is run"
-    ] + attrs
-    o.signature = true
-  end
-end

data/vendor/sass/yard/default/fulldoc/html/css/common.sass

@@ -1,26 +0,0 @@
-.maruku_toc
-  background: #ddd
-  border: 1px solid #ccc
-  margin-right: 2em
-  float: left
-  ul
-    padding: 0 1em
-  #frequently_asked_questions + &
-    float: none
-    margin: 0 2em
-
-#filecontents
-  *:target, dt:target + dd
-    background-color: #ccf
-    border: 1px solid #88b
-  dt
-    font-weight: bold
-  dd
-    margin:
-      left: 0
-      bottom: 0.7em
-    padding-left: 3em
-  dt:target
-    border-bottom-style: none
-    & + dd
-      border-top-style: none

data/vendor/sass/yard/default/layout/html/footer.erb

@@ -1,12 +0,0 @@
-<%= superb :footer %>
-<% if ENV["ANALYTICS"] %>
-  <script type="text/javascript">
-  var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");
-  document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));
-  </script>
-  <script type="text/javascript">
-  try {
-  var pageTracker = _gat._getTracker("<%= ENV["ANALYTICS"] %>");
-  pageTracker._trackPageview();
-  } catch(err) {}</script>
-<% end %>

data/vendor/sass/yard/inherited_hash.rb

@@ -1,41 +0,0 @@
-class InheritedHashHandler < YARD::Handlers::Ruby::Legacy::Base
-  handles /\Ainherited_hash(\s|\()/
-
-  def process
-    hash_name = tokval(statement.tokens[2])
-    name = statement.comments.first.strip
-    type = statement.comments[1].strip
-
-    o = register(MethodObject.new(namespace, hash_name, scope))
-    o.docstring = [
-      "Gets a #{name} from this {Environment} or one of its \\{#parent}s.",
-      "@param name [String] The name of the #{name}",
-      "@return [#{type}] The #{name} value",
-    ]
-    o.signature = true
-    o.parameters = ["name"]
-
-    o = register(MethodObject.new(namespace, "set_#{hash_name}", scope))
-    o.docstring = [
-      "Sets a #{name} in this {Environment} or one of its \\{#parent}s.",
-      "If the #{name} is already defined in some environment,",
-      "that one is set; otherwise, a new one is created in this environment.",
-      "@param name [String] The name of the #{name}",
-      "@param value [#{type}] The value of the #{name}",
-      "@return [#{type}] `value`",
-    ]
-    o.signature = true
-    o.parameters = ["name", "value"]
-
-    o = register(MethodObject.new(namespace, "set_local_#{hash_name}", scope))
-    o.docstring = [
-      "Sets a #{name} in this {Environment}.",
-      "Ignores any parent environments.",
-      "@param name [String] The name of the #{name}",
-      "@param value [#{type}] The value of the #{name}",
-      "@return [#{type}] `value`",
-    ]
-    o.signature = true
-    o.parameters = ["name", "value"]
-  end
-end