rcor 0.8.1

data/lib/concordion_writer.rb

@@ -0,0 +1,43 @@
+class ConcordionWriter
+  @@DEFAULT = "."
+  def initialize(output_dir = @@DEFAULT)
+    @output_dir = output_dir.nil? ? @@DEFAULT : output_dir
+  end
+
+  def write(data, filename)
+    f = File.new(filename, "w")
+    f.puts data
+    f.close
+  end
+  
+  def output_file_exists?(filename)
+    exists?(base_filename(filename))
+  end
+  
+  def exists?(filename)
+    File.exists?(filename)
+  end
+  
+  def delete_if_exists(filename)
+    if exists?(filename)
+      File.delete(filename)
+    end
+    
+  end
+  
+  def calculate_filename_and_overwrite(data, filename)
+    outfile = output_filename_for(filename)
+    delete_if_exists(outfile)
+    write(data, outfile)
+
+    outfile
+  end
+
+  def base_filename(filename)
+    File.join(@output_dir, filename)
+  end
+  def output_filename_for(name)
+    base_filename(name.sub(".html", "_test_output.html"))
+  end
+
+end

data/lib/goldmaster_test_case.rb

@@ -0,0 +1,32 @@
+require 'concordion_test_case'
+require 'concordion_string_writer'
+class GoldmasterTestCase < ConcordionTestCase
+  
+
+  def initialize(suite, conf = {})
+    @writer = ConcordionStringWriter.new
+
+    config = ConcordionTestCase.default_config.merge({:writer => @writer}).merge(conf)
+    @write_goldmaster = config[:write_goldmaster]    
+    super(suite, config)
+  end
+
+  def test_spec
+    trivial
+  end
+
+
+  def teardown
+    if @write_goldmaster
+      ConcordionWriter.new.write(@writer.data, snake_cased_goldmaster_name(self.class.to_s))
+
+      assert !@write_goldmaster, "Disable write to goldmaster"
+    end
+
+    unless is_trivial?
+      goldmaster = ConcordionReader.new.read(snake_cased_goldmaster_name(self.class.to_s))
+      assert_equal @writer.data, goldmaster 
+    end
+
+  end
+end

data/lib/rcor.rb

@@ -0,0 +1,2 @@
+
+require 'concordion_test_case'

data/nbproject/private/private.properties

@@ -0,0 +1,4 @@
+file.reference.rcor-lib=C:\\rcor\\lib
+file.reference.rcor-test-lib=C:\\rcor\\test-lib
+file.reference.rcor-tests=C:\\rcor\\tests
+platform.active=Ruby

data/nbproject/private/private.xml

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<project-private xmlns="http://www.netbeans.org/ns/project-private/1">
+    <editor-bookmarks xmlns="http://www.netbeans.org/ns/editor-bookmarks/1"/>
+    <open-files xmlns="http://www.netbeans.org/ns/projectui-open-files/1">
+        <file>file:/home/bg/src/rcor/rcor/trunk/Rakefile.rb</file>
+        <file>file:/home/bg/src/rcor/rcor/trunk/lib/concordion_css_decorator.rb</file>
+        <file>file:/home/bg/src/rcor/rcor/trunk/lib/concordion_environment.rb</file>
+        <file>file:/home/bg/src/rcor/rcor/trunk/tests/concordion_environment_test.rb</file>
+    </open-files>
+</project-private>

data/nbproject/project.properties

@@ -0,0 +1,11 @@
+file.reference.rcor-lib=lib
+file.reference.rcor-test-lib=test-lib
+file.reference.rcor-tests=tests
+javac.classpath=
+main.file=
+platform.active=Ruby
+ruby.includejava=false
+source.encoding=windows-1252
+src.lib.dir=lib
+src.test-lib.dir=test-lib
+test.tests.dir=tests

data/nbproject/project.xml

@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<project xmlns="http://www.netbeans.org/ns/project/1">
+    <type>org.netbeans.modules.ruby.rubyproject</type>
+    <configuration>
+        <data xmlns="http://www.netbeans.org/ns/ruby-project/1">
+            <name>rcor</name>
+            <source-roots>
+                <root id="src.test-lib.dir"/>
+                <root id="src.lib.dir"/>
+            </source-roots>
+            <test-roots>
+                <root id="test.tests.dir"/>
+            </test-roots>
+        </data>
+    </configuration>
+</project>

data/test-lib/single_row_result.rb

@@ -0,0 +1,9 @@
+
+class SingleRowResult
+  attr_accessor :alpha, :beta, :gamma
+  def initialize(args)
+    @alpha = args[0].upcase
+    @beta = args[1].upcase
+    @gamma = args[2].upcase
+  end
+end

data/test-lib/user.rb

@@ -0,0 +1,8 @@
+
+class User
+  attr_accessor :name, :other
+  def initialize(name, other)
+    @name = name
+    @other = other
+  end
+end

data/tests/attr_assert.html

@@ -0,0 +1,5 @@
+<html xmlns:concordion="http://www.concordion.org/2007/concordion">
+    <body>
+        <p concordion:assertEquals="greeting()">attribute based</p>
+    </body>
+</html>

data/tests/attr_assert_test.rb

@@ -0,0 +1,13 @@
+require 'test_helper'
+require 'concordion_test_case'
+
+class AttrAssertTest < ConcordionTestCase
+
+  attr_accessor :greeting
+  
+  def initialize(arg)
+    super(arg)
+    @greeting = "attribute based"
+  end
+  
+end

data/tests/basic_assert.html

@@ -0,0 +1,5 @@
+<html xmlns:concordion="http://www.concordion.org/2007/concordion">
+    <body>
+        <b concordion:assertEquals="getGreeting()">Hello World!</b>
+    </body>
+</html>

data/tests/basic_assert_test.rb

@@ -0,0 +1,9 @@
+require 'test_helper'
+require 'concordion_test_case'
+
+class BasicAssertTest < ConcordionTestCase
+
+  def getGreeting
+    "Hello World!"
+  end
+end

data/tests/basic_assert_true.html

@@ -0,0 +1,6 @@
+<html xmlns:concordion="http://www.concordion.org/2007/concordion">
+<body>
+  <p concordion:assertTrue="is_boiling_point(#TEXT)">212</p>
+  <p concordion:assertTrue="is_boiling_point(#TEXT)">211</p>
+</body>
+</html>

data/tests/basic_assert_true_test.rb

@@ -0,0 +1,11 @@
+# To change this template, choose Tools | Templates
+# and open the template in the editor.
+
+class BasicAssertTrueTest < ConcordionTestCase
+  def initialize(suite)
+    super(suite, {:expected_failure_count => 1})
+  end
+  def is_boiling_point(temperature)
+    212 == temperature.to_i
+  end
+end

data/tests/basic_set.html

@@ -0,0 +1,8 @@
+<html xmlns:concordion="http://www.concordion.org/2007/concordion">
+    <body>
+      Here's some text
+        <p concordion:set="#username">Chuck Norris</p>
+	<p concordion:assertEquals="greetingFor(#username)">Hello Chuck Norris, you nancy-boy.</p>
+	it should be in the output.
+    </body>
+</html>

data/tests/basic_set_test.rb

@@ -0,0 +1,8 @@
+require 'test_helper'
+require 'concordion_test_case'
+
+class BasicSetTest < ConcordionTestCase
+  def greetingFor(name)
+    "Hello #{name}, you nancy-boy."
+  end
+end

data/tests/basic_text.html

@@ -0,0 +1,6 @@
+<html xmlns:concordion="http://www.concordion.org/2007/concordion">
+    <body>
+        <p concordion:execute="set_name(#TEXT)">No</p>
+	<p concordion:assertEquals="double_down()">NoNo</p>
+    </body>
+</html>

data/tests/basic_text_test.rb

@@ -0,0 +1,12 @@
+require 'test_helper'
+require 'concordion_test_case'
+
+class BasicTextTest < ConcordionTestCase
+  def set_name(name)
+    @name = name
+  end
+
+  def double_down
+    "#{@name*2}"
+  end
+end

data/tests/concordion.css

@@ -0,0 +1,2 @@
+.concordion_failure { background-color: red }
+.concordion_success { background-color: green }

data/tests/concordion_css_decorator_test.rb

@@ -0,0 +1,28 @@
+require 'test_helper'
+require 'concordion_css_decorator'
+require 'rubygems'
+require 'mocha'
+
+class ConcordionCssDecoratorTest < Test::Unit::TestCase
+  def test_does_not_write_if_file_exists
+    writer = mock("writer")
+    writer.expects(:output_file_exists?).with("concordion.css").once.returns(true)
+    
+    ConcordionCSSDecorator.new.add_css_file_to_output_dir(writer, :link)
+  end
+  
+  def test_writes_if_file_does_not_exist
+    writer = mock("writer")
+    writer.expects(:output_file_exists?).with("concordion.css").once.returns(false)
+    writer.expects(:calculate_filename_and_overwrite).with(anything, "concordion.css").once
+    
+    ConcordionCSSDecorator.new.add_css_file_to_output_dir(writer, :link)
+  end
+
+  def test_does_not_write_if_not_link_eg_inline
+    writer = mock("writer")
+    writer.expects(:output_file_exists?).with("concordion.css").once.returns(false)
+    
+    ConcordionCSSDecorator.new.add_css_file_to_output_dir(writer, :inline)
+  end
+end

data/tests/concordion_environment_test.rb

@@ -0,0 +1,44 @@
+require 'test_helper'
+require 'concordion_environment'
+
+class ConcordionEnvironmentTest < Test::Unit::TestCase
+  
+  def test_output_dir
+    restore_env do
+      ENV[ConcordionEnvironment.output_dir_key] = nil
+      assert_equal ".", ConcordionEnvironment.output_dir
+      ENV[ConcordionEnvironment.output_dir_key] = "foo/bar"
+      assert_equal "foo/bar", ConcordionEnvironment.output_dir
+    end
+  end
+
+  def test_clean_list
+    restore_env do
+      ENV[ConcordionEnvironment.output_dir_key] = nil
+      assert_equal ["./*_test_output.html", "./concordion.css"], ConcordionEnvironment.clean_list
+      ENV[ConcordionEnvironment.output_dir_key] = "foo/bar"
+      assert_equal ["foo/bar/*_test_output.html", "foo/bar/concordion.css"], ConcordionEnvironment.clean_list
+    end
+
+  end
+
+  def test_css_type_defaults_to_inline
+    restore_env do      
+      ENV[ConcordionEnvironment.css_type_key] = "link"
+      assert_equal :link, ConcordionEnvironment.css_type
+      
+      ENV[ConcordionEnvironment.css_type_key] = nil
+      assert_equal :inline, ConcordionEnvironment.css_type
+
+    end
+
+  end
+
+  def restore_env
+    orig_dir = ENV[ConcordionEnvironment.output_dir_key]
+    orig_type = ENV[ConcordionEnvironment.css_type_key]
+    yield
+    ENV[ConcordionEnvironment.output_dir_key] = orig_dir
+    ENV[ConcordionEnvironment.css_type_key] = orig_type.to_s
+  end
+end

data/tests/concordion_parse_result_test.rb

@@ -0,0 +1,33 @@
+require 'test_helper'
+require 'concordion_parse_result'
+
+class ConcordionParseResultTest < Test::Unit::TestCase
+
+  def test_is_set_command
+    assert ConcordionParseResult.new("set",nil,nil,nil).is_set_command?
+    assert !ConcordionParseResult.new("asdf",nil,nil,nil).is_set_command?
+  end
+
+  def test_is_execute_command
+    assert ConcordionParseResult.new("execute",nil,nil,nil).is_execute_command?
+    assert !ConcordionParseResult.new("asdf",nil,nil,nil).is_execute_command?
+  end
+
+  def test_is_verify_command
+    assert ConcordionParseResult.new("verifyrows",nil,nil,nil).is_verify_command?
+    assert !ConcordionParseResult.new("monkeys",nil,nil,nil).is_verify_command?
+  end
+
+  def test_assignment
+    assert_equal "#user", ConcordionParseResult.new("verifyrows","  #user = asdfasdf",nil,nil).assignment
+    assert_equal "#bob",  ConcordionParseResult.new("monkeys","#bob=asdf",nil,nil).assignment
+  end
+  
+  def test_needs_dereference
+    assert ConcordionParseResult.new(nil,"#asdf", nil,nil).needs_dereference?
+    assert !ConcordionParseResult.new(nil,"asdf", nil,nil).needs_dereference?
+    assert !ConcordionParseResult.new(nil,"as#df", nil,nil).needs_dereference?
+    assert !ConcordionParseResult.new(nil,"#asdf = foo()", nil,nil).needs_dereference?
+  end
+
+end

data/tests/concordion_test.rb

@@ -0,0 +1,49 @@
+require 'test/unit'
+require 'test_helper'
+require 'concordion'
+
+class ConcordionTest < Test::Unit::TestCase
+
+  def setup
+    @concordion = Concordion.new
+    @thingy = Thingy.new()
+  end
+
+  def test_set_variable
+    @concordion.set_variable("#foo", "bar")
+
+    assert_equal "bar", @concordion.get_variable("#foo")
+  end
+
+  def test_build_invocation_string
+    assert_equal "self.send('foo')", @concordion.build_invocation_string("foo()", "content")
+    @concordion.set_variable("#bar", "baz")
+    assert_equal "self.send('foo', 'baz')", @concordion.build_invocation_string("foo(#bar)", "content")
+
+    @concordion.set_variable("#purplemonkey", "dishwasher")
+    assert_equal "self.send('other', 'baz', 'dishwasher')", @concordion.build_invocation_string("other(#bar,  #purplemonkey)", "content")
+  end
+
+  def test_build_invocation_string_replaces_text
+    assert_equal "self.send('foo', 'ASDF')", @concordion.build_invocation_string("foo(#TEXT)", "ASDF")
+    
+  end
+
+  def test_dereference
+    @concordion.set_variable("#result", @thingy)
+
+    assert_same @thingy, @concordion.dereference("#result")
+  end
+  def test_dereference_with_property
+    @concordion.set_variable("#result", @thingy)
+
+    assert_equal "bleh", @concordion.dereference("#result.prop")
+  end
+
+  class Thingy
+    attr_accessor :prop
+    def initialize
+      @prop = "bleh"
+    end
+  end
+end

data/tests/concordion_utility_test.rb

@@ -0,0 +1,88 @@
+require 'test_helper'
+require 'concordion_utility'
+
+class ConcordionUtilityTest < Test::Unit::TestCase
+  include ConcordionUtility
+
+  def test_supported
+    assert supported?('p')
+    assert supported?("p")
+    assert supported?("P")
+    assert !supported?("R")
+  end   
+
+  def test_snakeCase
+    assert_equal "bob", snake_case("bob")
+    assert_equal "bob", snake_case("Bob")
+    assert_equal "camel_case", snake_case("CamelCase")
+    assert_equal "camel_case_var", snake_case("camelCaseVar")
+  end
+
+
+  def test_snake_cased_test_name
+    assert_equal "bob.html", snake_cased_test_name("bob")
+    assert_equal "bob.html", snake_cased_test_name("Bob")
+    assert_equal "bob.html", snake_cased_test_name("BobTest")
+    assert_equal "bob_case.html", snake_cased_test_name("BobCaseTest")
+  end
+
+  def test_snake_cased_goldmaster_name
+    assert_equal "bob_goldmaster.html", snake_cased_goldmaster_name("bob")
+    assert_equal "bob_goldmaster.html", snake_cased_goldmaster_name("Bob")
+    assert_equal "bob_goldmaster.html", snake_cased_goldmaster_name("BobTest")
+    assert_equal "bob_case_goldmaster.html", snake_cased_goldmaster_name("BobCaseTest")
+  end
+
+
+  def test_conc_method_name
+    assert_equal "invoke", concordion_method_name("invoke()")
+    assert_equal "invoke", concordion_method_name("invoke(")
+    assert_equal "invoke", concordion_method_name("invoke")
+    assert_equal "bleh", concordion_method_name("bleh(foo,bar)")
+    assert_equal "bleh", concordion_method_name("bleh  (   foo , bar)")
+    assert_equal "foo", concordion_method_name("#baz = foo ( #asdf, #fdsa)")
+  end
+
+  def test_conc_var_name
+    assert_equal "#result", concordion_variable_name("#result.first()")
+    assert_equal "#res", concordion_variable_name(" #res  ")
+
+  end
+
+  def test_has_args
+    assert has_arguments?("invoke(#foo,#bar)")
+    assert !has_arguments?("invoke()")
+  end
+
+  def test_conc_args
+    assert_equal [], concordion_arguments("invoke()")
+    assert_equal ["#foo","#bar"],  concordion_arguments("bleh(#foo,#bar)")
+    assert_equal ["#foo","#bar"], concordion_arguments("bleh ( #foo    ,    #bar  )")
+  end
+
+  def test_conc_assignment
+    assert_equal "#foo", concordion_assignment("  #foo = getResult() ")
+    assert_equal "#for", concordion_assignment("#for=")
+  end
+  def test_has_assignment
+    assert has_assignment?("=")
+    assert !has_assignment?("")
+  end
+
+  def test_has_property_ref
+    assert has_property_reference?("#res.foo")
+    assert !has_property_reference?("#res")
+
+  end
+
+  def test_property_ref
+    assert_equal "bar", concordion_property_reference("  #foo.bar ")
+    assert_equal "bar.baz", concordion_property_reference("#for.bar.baz")
+
+  end
+
+  def test_singular
+    assert_equal "bar", singular("bars")
+    assert_equal "foo", singular("foo")
+  end
+end