wlang 0.10.2 → 2.0.0.beta

data/test/unit/wlang/specification_examples_test.rb

@@ -1,54 +0,0 @@
-require 'test/unit'
-require 'wlang'
-require 'wlang/dialects/standard_dialects'
-require "yaml"
-
-# Tests the example given in the specification
-class WLang::SpecificationExamplesTest < Test::Unit::TestCase
-  
-  # Tests all examples in the specification
-  def test_all_examples
-    context = {"name" => "O'Neil",
-               "author" => "blambeau",
-               "authors" => ["blambeau", "llambeau", "ancailliau"]}
-    spec_file = File.join(File.dirname(__FILE__),"../../../doc/specification/specification.yml")
-    spec = YAML.load(File.open(spec_file))
-    spec["rulesets"].each do |ruleset|
-      next if ruleset["examples"].nil?
-      ruleset["examples"].each do |example|
-        dialect, expr, expected = example
-        dialect = "wlang/ruby" if dialect=="wlang/*"
-        assert_equal(
-          expected, 
-          WLang::instantiate(expr, context.dup, dialect),
-          "Specification example failed (#{ruleset['name']}, #{dialect})")
-      end
-    end
-  end
-  
-  # Tests that what is said is valid.
-  def test_what_is_said_in_specification
-    WLang::dialect("specification") do
-      rules WLang::RuleSet::Basic
-      rules WLang::RuleSet::Imperative
-    end
-    tests = [
-      ["*{authors as who}{${who}}{, }", "blambeau, llambeau, ancailliau"],
-      ["*{authors as who}{${who}} {, }", "blambeaullambeauancailliau {, }"],
-      ["*{authors as who} {${who}}{, }", nil]
-    ]
-    context = {"authors" => ["blambeau", "llambeau", "ancailliau"]}
-      
-    tests.each do |test|
-      template, expected = test
-      if expected.nil?
-        assert_raise WLang::ParseError do
-          assert_equal(expected, template.wlang(context, "specification"))
-        end
-      else
-        assert_equal(expected, template.wlang(context, "specification"))
-      end
-    end
-  end
-  
-end

data/test/unit/wlang/test_utils.rb

@@ -1,25 +0,0 @@
-require 'wlang/template'
-
-#
-# Provides some test utilities
-#
-module WLang::TestUtils
-  
-  # Returns a relative file
-  def relative_file(name, from=__FILE__)
-    File.join(File.dirname(from), name)
-  end
-  
-  # Returns a relative file
-  def read_relative_file(name, from=__FILE__)
-    File.read(File.join(File.dirname(from), name))
-  end
-  
-  # Factors a template and fakes its source-file as from
-  def relative_template(src, dialect, from=__FILE__)
-    template = WLang::template(src, dialect)
-    template.source_file = from
-    template
-  end
-  
-end

data/test/unit/wlang/wlang_test.rb

@@ -1,80 +0,0 @@
-require 'test/unit/testcase'
-require 'wlang'
-require 'wlang/dialects/standard_dialects'
-
-module WLang
-
-class WLangTest < Test::Unit::TestCase
-  
-  # Tests that dialects are recognized  
-  def test_dialect
-    assert_not_nil(WLang::dialect("plain-text"))
-    assert_not_nil(WLang::dialect("wlang"))
-    assert_not_nil(WLang::dialect("wlang/dummy"))
-    assert_not_nil(WLang::dialect("wlang/active-string"))
-    assert_not_nil(WLang::dialect("wlang/ruby"))
-    assert_not_nil(WLang::dialect("wlang/xhtml"))
-    assert_nil(WLang::dialect("wlang/plain-tet"))
-    assert_equal(true, WLang::dialect("wlang/dummy").send(:is_built?))
-    assert_equal(true, WLang::dialect("wlang/xhtml").send(:is_built?))
-  end
-  
-  # Tests that encoders are recognized  
-  def test_encoder
-    assert_not_nil(WLang::encoder("plain-text/upcase"))
-    assert_not_nil(WLang::encoder("plain-text/downcase"))
-    assert_not_nil(WLang::encoder("plain-text/capitalize"))
-    assert_nil(WLang::encoder("plain-text/capize"))
-  end
-  
-  # Tests the regular expression for dialect names
-  def test_dialect_name_regexp
-    assert_not_nil(WLang::QUALIFIED_DIALECT_NAME_REGEXP =~ "wlang")
-    assert_not_nil(WLang::QUALIFIED_DIALECT_NAME_REGEXP =~ "wlang/plain-text")
-    assert_not_nil(WLang::QUALIFIED_DIALECT_NAME_REGEXP =~ "wlang/xhtml")
-    assert_not_nil(WLang::QUALIFIED_DIALECT_NAME_REGEXP =~ "wlang/sql")
-    assert_not_nil(WLang::QUALIFIED_DIALECT_NAME_REGEXP =~ "wlang/sql/sybase")
-    assert_nil(WLang::QUALIFIED_DIALECT_NAME_REGEXP =~ "WLang")
-    assert_nil(WLang::QUALIFIED_DIALECT_NAME_REGEXP =~ "WLang/sql")
-    assert_nil(WLang::QUALIFIED_DIALECT_NAME_REGEXP =~ "wlang/sql/ sybase")
-  end
-  
-  # Tests some classical uses of dialect names
-  def test_dialect_name_classical_use
-    assert_equal(1, "wlang".split('/').length)
-    assert_equal(["wlang"], "wlang".split('/'))
-    assert_equal("wlang", "wlang".split('/')[0])
-    assert_equal(3, "wlang/sql/sybase".split('/').length)
-    assert_equal(["wlang","sql","sybase"], "wlang/sql/sybase".split('/'))
-    assert_equal(["sql","sybase"], "wlang/sql/sybase".split('/')[1..-1])
-  end
-  
-  # Tests contribution on the String class
-  def test_wlang_on_string
-    expected = "HELLO blambeau !!"
-    result = "^{plain-text/upcase}{hello} ${name} !!".wlang("name" => "blambeau")
-    assert_equal(expected, result);
-  end
-
-  # Tests that parsing something with %{wlang/dummy}{...} does not interpret 
-  # anything.  
-  def test_wlang_dummy_does_not_interpret_anything
-    template = "${name}"
-    assert_equal("${name}", WLang::instantiate(template, nil, "wlang/dummy"))
-    
-    template = "%{wlang/dummy}{${name}}"
-    assert_equal("${name}", WLang::instantiate(template, nil, "wlang/xhtml"))
-
-#    assert_raise do 
-#      template = "!{raise('raised')}"
-#      WLang::instantiate(template, nil, "wlang/xhtml")
-#    end
-    assert_nothing_raised do 
-      template = "%{wlang/dummy}{!{raise 'Not raised'}}"
-      WLang::instantiate(template, nil, "wlang/xhtml")
-    end
-  end
-  
-end # class WLangTest
-  
-end # module WLang