cuken 0.1.13 → 0.1.15

data/lib/cuken/cucumber/file.rb

@@ -14,90 +14,95 @@
 # See the License for the specific language governing permissions and
 # limitations under the License.
 #
-load 'aruba/cucumber.rb' unless defined? ::Aruba
+#load 'aruba/cucumber.rb' unless defined? ::Aruba
 World(::Cuken::Api::File)
 
 #
 # Refactorings, yet to be submitted to Aruba:
 #
-Given /^the directory "([^"]*)"$/ do |arg1|
-  Then %Q{a directory named \"#{arg1}\"}
+
+When /^the file "([^"]*)" is removed$/ do |file_name|
+  remove_file(file_name)
+end
+
+Given /^the directory "([^"]*)"$/ do |dir_name|
+  create_dir(dir_name)
 end
 
 Given /^the file "([^"]*)" contains nothing$/ do |file_name|
-  Given %Q{an empty file named "#{file_name}"}
+  write_file(file_name, "")
 end
 
 Given /^the file "([^"]*)" contains:$/ do |file_name, file_content|
-  Given %Q{a file named "#{file_name}" with:}, file_content
+  write_file(file_name, file_content)
 end
 
-When /^I write to "([^"]*)":$/ do  |file_name, file_content|
-  When %Q{I write to "#{file_name}" with:}, file_content
+When /^I write to "([^"]*)":$/ do |file_name, file_content|
+  write_file(file_name, file_content)
 end
 
-When /^I overwrite "([^"]*)":$/ do  |file_name, file_content|
-  When %Q{I overwrite "#{file_name}" with:}, file_content
+When /^I overwrite "([^"]*)":$/ do |file_name, file_content|
+  overwrite_file(file_name, file_content)
 end
 
-When /^I append to "([^"]*)":$/ do  |file_name, file_content|
-  When %Q{I append to "#{file_name}" with:}, file_content
+When /^I append to "([^"]*)":$/ do |file_name, file_content|
+  append_to_file(file_name, file_content)
 end
 
-Then /^the file "([^"]*)" exists$/ do |arg1|
-  Then %Q{a file named \"#{arg1}\" should exist}
+Then /^the file "([^"]*)" exists$/ do |file|
+  check_file_presence([file], true)
 end
 
-Then /^the file "([^"]*)" does not exist$/ do |arg1|
-  Then %Q{a file named \"#{arg1}\" should not exist}
+Then /^the file "([^"]*)" does not exist$/ do |file|
+  check_file_presence([file], false)
 end
 
-Then /^the directory "([^"]*)" exists$/ do |arg1|
-  Then %Q{a directory named \"#{arg1}\" should exist}
+Then /^the directory "([^"]*)" exists$/ do |directory|
+  check_directory_presence([directory], true)
 end
 
-Then /^the directory "([^"]*)" does not exist$/ do |arg1|
-  Then %Q{a directory named \"#{arg1}\" should not exist}
+Then /^the directory "([^"]*)" does not exist$/ do |directory|
+  check_directory_presence([directory], false)
 end
 
-Then /^the file "([^"]*)" contains "([^"]*)"$/ do |file, content|
-  Then %Q{the file "#{file}" should contain "#{content}"}
+Then /^the file "([^"]*)" contains "([^"]*)"$/ do |file, partial_content|
+  check_file_content(file, partial_content, true)
 end
 
-Then /^the file "([^"]*)" does not contain "([^"]*)"$/ do |file, content|
-  Then %Q{the file "#{file}" should not contain "#{content}"}
+Then /^the file "([^"]*)" does not contain "([^"]*)"$/ do |file, partial_content|
+  check_file_content(file, partial_content, false)
 end
 
-Then /^the file "([^"]*)" contains \/([^\/]*)\/$/ do |file, re|
-  Then %Q{the file "#{file}" should match /#{re}/}
-end
+Then /^the file "([^"]*)" matches \/([^\/]*)\/$/ do |file, partial_content|
+  check_file_content(file, /#{partial_content}/, true)
+ end
 
-Then /^the file "([^"]*)" does not contain \/([^\/]*)\/$/ do |file, re|
-  Then %Q{the file "#{file}" should not match /#{re}/}
+Then /^the file "([^"]*)" does not match \/([^\/]*)\/$/ do |file, partial_content|
+  check_file_content(file, /#{partial_content}/, false)
 end
 
-Then /^the file "([^"]*)" contains exactly:$/ do |file, content|
-  Then %Q{the file "#{file}" should contain exactly:}, content
+Then /^the file "([^"]*)" contains exactly:$/ do |file, exact_content|
+  check_exact_file_content(file, exact_content)
 end
 
-Then /^the file "([^"]*)" does not contain exactly:$/ do |file, content|
-  Then %Q{the file "#{file}" should not contain exactly:}, content
+Then /^the file "([^"]*)" does not contain exactly:$/ do |file, exact_content|
+  check_exact_file_content(file, exact_content)
 end
 
 Then /^these directories exist:$/ do |table|
-  Then %Q{the following directories should exist:}, table
+  check_directory_presence(table.raw.map{|directory_row| directory_row[0]}, true)
 end
 
 Then /^these directories do not exist:$/ do |table|
-  Then %Q{the following directories should not exist:}, table
+  check_directory_presence(table.raw.map{|directory_row| directory_row[0]}, false)
 end
 
 Then /^these files exist:$/ do |table|
-  Then %Q{the following files should exist:}, table
+  check_file_presence(table.raw.map{|file_row| file_row[0]}, true)
 end
 
 Then /^these files do not exist:$/ do |table|
-  Then %Q{the following files should exist:}, table
+  check_file_presence(table.raw.map{|file_row| file_row[0]}, false)
 end
 
 #
@@ -164,7 +169,7 @@ Then /^the (.)time of "([^"]*)" changes$/ do |time_type, filename|
 end
 
 Then /^the file "([^"]*)" contains "([^"]*)" exactly "(\d+)" times$/ do |file, partial_content, times|
- check_file_content(file, partial_content, true, times)
+  check_file_content(file, partial_content, true, times)
 end
 
 Then /^the file "([^"]*)" does not contain "([^"]*)" exactly "(\d+)" times$/ do |file, partial_content, times|

data/lib/cuken/cucumber/git/clone.rb

@@ -0,0 +1,51 @@
+#
+# Author:: Hedgehog (<hedgehogshiatus@gmail.com>)
+# Copyright:: Copyright (c) 2011 Hedgehog.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+World(::Cuken::Api::Git)
+
+Given /^I clone the remote Git repository branch "([^"]*)" to "([^"]*)"$/ do |brnch, repo_path|
+  git.local_git_repo = git_clone_repo(repo_path, git.remote_git_repo, {'branch' => brnch})
+end
+
+Given /^I clone the Repository "([^"]*)" branch "([^"]*)" to "([^"]*)"$/ do |repo, brnch, repo_path|
+    git.local_git_repo = git_clone_repo(repo_path, git.git_uri + repo + '.git', {'branch' => brnch})
+end
+
+When /^I clone the Repositories:$/ do |table|
+  table.hashes.each do |hsh|
+    src = {}
+    src['branch'] = hsh['branch'] if hsh['branch']
+    src['tag'] = hsh['tag'] if hsh['tag']
+    src['ref'] = hsh['ref'] if hsh['ref']
+    repo = hsh['repo'] if hsh['repo']
+    repo = hsh['repository'] if hsh['repository']
+    local_repo = git_clone_repo(hsh['destination'], git.git_uri + repo + '.git', src )
+    Pathname(local_repo).exist?.should be_true
+  end
+end
+
+When /^I shallow clone the Repositories:$/ do |table|
+  table.hashes.each do |hsh|
+    src = {}
+    src['branch'] = hsh['branch'] if hsh['branch']
+    src['tag'] = hsh['tag'] if hsh['tag']
+    src['ref'] = hsh['ref'] if hsh['ref']
+    repo = hsh['repo'] if hsh['repo']
+    repo = hsh['repository'] if hsh['repository']
+    local_repo = git_clone_repo(hsh['destination'], git.git_uri + repo + '.git', src, false )
+    Pathname(local_repo).exist?.should be_true
+  end
+end

data/lib/cuken/cucumber/git/common.rb

@@ -0,0 +1,36 @@
+#
+# Author:: Hedgehog (<hedgehogshiatus@gmail.com>)
+# Copyright:: Copyright (c) 2011 Hedgehog.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+World(::Cuken::Api::Git)
+
+Given /^a default Git repository in "([^"]*)"$/ do |path|
+  git.local_git_repo = git_clone_repo(path)
+  git.local_git_repo.exist?.should be_true
+end
+
+Given /^the remote Git repository "([^"]*)"$/ do |git_repo|
+  in_dir do
+    repo = Dir.exist?(git_repo) ? Pathname(git_repo).expand_path.realdirpath : git_repo
+    git.remote_git_repo = repo
+  end
+end
+
+Then /^the local Git repository exists$/ do
+  git.local_git_repo.exist?.should be_true
+  #TODO: check_file_presence([file], true), etc.
+end
+
+

data/lib/cuken/cucumber/git/local.rb

@@ -0,0 +1,19 @@
+#
+# Author:: Hedgehog (<hedgehogshiatus@gmail.com>)
+# Copyright:: Copyright (c) 2011 Hedgehog.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+And /^these local Repositories exist:$/ do |table|
+  check_repository_table_presence(table)
+end

data/lib/cuken/cucumber/git/remote.rb

@@ -0,0 +1,22 @@
+#
+# Author:: Hedgehog (<hedgehogshiatus@gmail.com>)
+# Copyright:: Copyright (c) 2011 Hedgehog.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+Given /^the Git URI "([^"]*)"$/ do |git_uri|
+  in_dir do
+    repo = Dir.exist?(git_uri) ? Pathname(git_uri).expand_path.realdirpath : git_uri
+    git.git_uri = repo
+  end
+end

data/lib/cuken/cucumber/git.rb

@@ -0,0 +1,26 @@
+#
+# Author:: Hedgehog (<hedgehogshiatus@gmail.com>)
+# Copyright:: Copyright (c) 2011 Hedgehog.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+require 'grit'
+
+World(::Cuken::Api::Git)
+
+require 'cuken/cucumber/git/hooks'
+
+require 'cuken/cucumber/git/common'
+require 'cuken/cucumber/git/clone'
+require 'cuken/cucumber/git/local'
+require 'cuken/cucumber/git/remote'

data/lib/cuken/cucumber/output/all.rb

@@ -0,0 +1,41 @@
+########################################################################################################################
+#
+# Variation on Aruba's output steps
+#
+########################################################################################################################
+
+Then /^the output contains "([^"]*)"$/ do |partial_output|
+  assert_partial_output(partial_output)
+end
+
+Then /^the output does not contain "([^"]*)"$/ do |partial_output|
+  all_output.should_not include(partial_output)
+end
+
+Then /^the output contains:$/ do |partial_output|
+  all_output.should include(partial_output)
+end
+
+Then /^the output does not contain:$/ do |partial_output|
+  all_output.should_not include(partial_output)
+end
+
+Then /^the output contains exactly "([^"]*)"$/ do |exact_output|
+  all_output.should == exact_output
+end
+
+Then /^the output contains exactly:$/ do |exact_output|
+  all_output.should == exact_output
+end
+
+# "the output matches" allows regex in the partial_output, if
+# you don't need regex, use "the output contains" instead since
+# that way, you don't have to escape regex characters that
+# appear naturally in the output
+Then /^the output matches \/([^\/]*)\/$/ do |partial_output|
+  all_output.should =~ /#{partial_output}/
+end
+
+Then /^the output matches:$/ do |partial_output|
+  all_output.should =~ /#{partial_output}/m
+end

data/lib/cuken/cucumber/output/cmd.rb

@@ -0,0 +1,46 @@
+#
+# Author:: Hedgehog (<hedgehogshiatus@gmail.com>)
+# Copyright:: Copyright (c) 2011 Hedgehog.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+#load 'aruba/cucumber.rb' unless defined? ::Aruba
+
+#World(::Cuken::Api::Cmd)
+
+#
+# These ought be submitted to Aruba...
+#
+Then /^the output from "([^"]*)" contains exactly:$/ do |cmd, exact_output|
+  output_from(unescape(cmd)).should == exact_output
+end
+
+Then /^the output from "([^"]*)" does not contain exactly:$/ do |cmd, exact_output|
+  output_from(unescape(cmd)).should_not == exact_output
+end
+
+Then /^the output from "([^"]*)" contains:$/ do |cmd, partial_output|
+  output_from(unescape(cmd)).should =~ regexp(partial_output)
+end
+
+Then /^the output from "([^"]*)" does not contain:$/ do |cmd, partial_output|
+  output_from(unescape(cmd)).should_not =~ regexp(partial_output)
+end
+
+Then /^the output from "([^"]*)" contains "([^"]*)"$/ do |cmd, partial_output|
+  output_from(cmd).should include(partial_output)
+end
+
+Then /^the output from "([^"]*)" does not contain "([^"]*)"$/ do |cmd, partial_output|
+  output_from(cmd).should_not include(partial_output)
+end

data/lib/cuken/cucumber/output/stderr.rb

@@ -0,0 +1,33 @@
+########################################################################################################################
+#
+# Variation on Aruba's output steps
+#
+########################################################################################################################
+
+Then /^the stderr contains "([^"]*)"$/ do |partial_output|
+  all_stderr.should include(partial_output)
+end
+
+Then /^the stderr contains:$/ do |partial_output|
+  all_stderr.should include(partial_output)
+end
+
+Then /^the stderr contains exactly:$/ do |exact_output|
+  all_stderr.should == exact_output
+end
+
+Then /^the stderr does not contain "([^"]*)"$/ do |partial_output|
+  all_stderr.should_not include(partial_output)
+end
+
+Then /^the stderr does not contain:$/ do |partial_output|
+  all_stderr.should_not include(partial_output)
+end
+
+Then /^the stderr from "([^"]*)" contains "([^"]*)"$/ do |cmd, partial_output|
+  stderr_from(cmd).should include(partial_output)
+end
+
+Then /^the stderr from "([^"]*)" does not contain "([^"]*)"$/ do |cmd, partial_output|
+  stderr_from(cmd).should_not include(partial_output)
+end

data/lib/cuken/cucumber/output/stdout.rb

@@ -0,0 +1,34 @@
+########################################################################################################################
+#
+# Variation on Aruba's output steps
+#
+########################################################################################################################
+
+Then /^the stdout contains "([^"]*)"$/ do |partial_output|
+  all_stdout.should include(partial_output)
+end
+
+Then /^the stdout contains:$/ do |partial_output|
+  all_stdout.should include(partial_output)
+end
+
+Then /^the stdout contains exactly:$/ do |exact_output|
+  all_stdout.should == exact_output
+end
+
+Then /^the stdout does not contain "([^"]*)"$/ do |partial_output|
+  all_stdout.should_not include(partial_output)
+end
+
+Then /^the stdout does not contain:$/ do |partial_output|
+  all_stdout.should_not include(partial_output)
+end
+
+Then /^the stdout from "([^"]*)" contains "([^"]*)"$/ do |cmd, partial_output|
+  stdout_from(cmd).should include(partial_output)
+end
+
+Then /^the stdout from "([^"]*)" does not contain "([^"]*)"$/ do |cmd, partial_output|
+  stdout_from(cmd).should_not include(partial_output)
+end
+

data/lib/cuken/cucumber/rvm/gemsets.rb

@@ -0,0 +1,32 @@
+#
+# Author:: Hedgehog (<hedgehogshiatus@gmail.com>)
+# Copyright:: Copyright (c) 2011 Hedgehog.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+World(::Cuken::Api::Rvm::Gemsets)
+
+Given /^the Gemset "([^"]*)" is active$/ do |gemset|
+  check_gemset_activation(gemset, true)
+end
+
+Given /^the Gemset "([^"]*)" is not active$/ do |gemset|
+  check_gemset_activation(gemset, true)
+end
+Given /^the Gemset "([^"]*)" exists$/ do |gemset|
+  check_gemset_presence([gemset], true)
+end
+Given /^the Gemset "([^"]*)" does not exist$/ do |gemset|
+  check_gemset_presence([gemset], true)
+end
+

data/lib/cuken/cucumber/rvm.rb

@@ -14,7 +14,9 @@
 # See the License for the specific language governing permissions and
 # limitations under the License.
 #
-load 'aruba/cucumber.rb' unless defined? ::Aruba
+#load 'aruba/cucumber.rb' unless defined? ::Aruba
 
 World(::Cuken::Api::Rvm)
 
+require 'cuken/cucumber/rvm/common'
+require 'cuken/cucumber/rvm/gemsets'

data/lib/cuken/cucumber/ssh/common.rb

@@ -0,0 +1,51 @@
+#
+# Author:: Hedgehog (<hedgehogshiatus@gmail.com>)
+# Copyright:: Copyright (c) 2011 Hedgehog.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+Given /^a SSH client user "([^\"]*)"$/ do |name|
+  ssh_client_hostname name
+end
+
+Given /^a SSH client user$/ do
+  ssh_client_hostname
+end
+
+Given /^a SSH client hostname "([^\"]*)"$/ do |name|
+  ssh_client_hostname name
+end
+
+Given /^a SSH client hostname$/ do
+  ssh_client_hostname
+end
+
+Given /^default ssh-forever options$/ do
+  ssh_forever_options(:default)
+end
+
+Given /^the ssh-forever options:$/ do |table|
+  ssh_forever_options(table)
+end
+
+When /^I SSH to:$/ do |table|
+  ssh_init_password_less_batch(table)
+end
+
+When /^I interactively SSH to:$/ do |table|
+  ssh_init_password_less_interactive(table)
+end
+
+Given /^I initialize password-less SSH access$/ do
+  ssh_init_password_less
+end

data/lib/cuken/cucumber/ssh.rb

@@ -14,44 +14,12 @@
 # See the License for the specific language governing permissions and
 # limitations under the License.
 #
-load 'aruba/cucumber.rb' unless defined? ::Aruba
+#load 'aruba/cucumber.rb' unless defined? ::Aruba
 
 World(::Cuken::Api::Ssh)
 
-Before do
-  @aruba_timeout_seconds.nil? || @aruba_timeout_seconds < 5 ? @aruba_timeout_seconds = 5 : @aruba_timeout_seconds
-end
+require 'cuken/cucumber/ssh/common'
+require 'cuken/cucumber/ssh/hooks'
 
-Given /^a SSH client user "([^\"]*)"$/ do |name|
-  ssh_client_hostname name
-end
-
-Given /^a SSH client user$/ do
-  ssh_client_hostname
-end
-
-Given /^a SSH client hostname "([^\"]*)"$/ do |name|
-  ssh_client_hostname name
-end
-
-Given /^a SSH client hostname$/ do
-  ssh_client_hostname
-end
-
-Given /^default ssh-forever options$/ do
-  ssh_forever_options(:default)
-end
-
-Given /^the ssh-forever options:$/ do |table|
-  ssh_forever_options(table)
-end
-
-When /^I initialize password-less SSH access for:$/ do |table|
-  ssh_init_password_less_batch(table)
-end
-
-Given /^I initialize password-less SSH access$/ do
-  ssh_init_password_less
-end
 
 

data/lib/cuken/cucumber/vagrant.rb

@@ -14,7 +14,7 @@
 # See the License for the specific language governing permissions and
 # limitations under the License.
 #
-load 'aruba/cucumber.rb' unless defined? ::Aruba
+#load 'aruba/cucumber.rb' unless defined? ::Aruba
 require 'grit'
 
 World(::Cuken::Api::Vagrant)

data/lib/cuken/git.rb

@@ -0,0 +1,21 @@
+#
+# Author:: Hedgehog (<hedgehogshiatus@gmail.com>)
+# Copyright:: Copyright (c) 2011 Hedgehog.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+require 'grit'
+
+require 'cuken/common'
+require 'cuken/api/git'
+require 'cuken/cucumber/git'